DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦afcfebec8⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 05e8       |    |		.CONST	0x05e8								; 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 0175       | u  |		.CONST	0x0175								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0057       | W  |		.CONST	0x0057								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 4800       |H   |		Short_Literal	0x0
0038 4802       |H   |		Short_Literal	0x2
0039 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
003b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
003c c210       |    |		Store	0x1,0x10
003d 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
003f c230       | 0  |		Store	0x1,0x30
0040 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0042 c231       | 1  |		Store	0x1,0x31
0043 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0045 c232       | 2  |		Store	0x1,0x32
0046 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0048 c233       | 3  |		Store	0x1,0x33
0049 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
004b c234       | 4  |		Store	0x1,0x34
004c 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
004e c235       | 5  |		Store	0x1,0x35
004f 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0051 c238       | 8  |		Store	0x1,0x38
0052 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0054 c237       | 7  |		Store	0x1,0x37
0055 00bf       |    |		Action	Accept_Activation
0056 e001       |    |		Load	0x0,0x1
0057 e002       |    |		Load	0x0,0x2
0058 e003       |    |		Load	0x0,0x3
0059 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
005a e003       |    |		Load	0x0,0x3
005b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
005c 00e5       |    |		Load_Encached	Long_Integer_Cache
005d e003       |    |		Load	0x0,0x3
005e 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
005f e004       |    |		Load	0x0,0x4
0060 0387       |    |		Declare_Variable	Package
0061 00d8       |    |		Load_Top	At_Offset_0
0062 020f       |    |		Execute	Module,Activate
0063 e005       |    |		Load	0x0,0x5
0064 e006       |    |		Load	0x0,0x6
0065 e003       |    |		Load	0x0,0x3
0066 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0067 e003       |    |		Load	0x0,0x3
0068 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0069 00e5       |    |		Load_Encached	Long_Integer_Cache
006a e003       |    |		Load	0x0,0x3
006b 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
006c e004       |    |		Load	0x0,0x4
006d 0387       |    |		Declare_Variable	Package
006e 00d8       |    |		Load_Top	At_Offset_0
006f 020f       |    |		Execute	Module,Activate
0070 e210       |    |		Load	0x1,0x10
0071 e007       |    |		Load	0x0,0x7
0072 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0073 e008       |    |		Load	0x0,0x8
0074 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0075 e009       |    |		Load	0x0,0x9
0076 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0077 e00a       |    |		Load	0x0,0xa
0078 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0079 00e1       |    |		Load_Encached	Boolean_Cache
007a e239       | 9  |		Load	0x1,0x39
007b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
007c e239       | 9  |		Load	0x1,0x39
007d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
007e e239       | 9  |		Load	0x1,0x39
007f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0080 e23a       | :  |		Load	0x1,0x3a
0081 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0082 e003       |    |		Load	0x0,0x3
0083 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0084 00f1       |    |		Load_Encached	Diana_Temp_Seq
0085 00e3       |    |		Load_Encached	Natural_Cache
0086 00e3       |    |		Load_Encached	Natural_Cache
0087 00e3       |    |		Load_Encached	Natural_Cache
0088 00e3       |    |		Load_Encached	Natural_Cache
0089 00e3       |    |		Load_Encached	Natural_Cache
008a 00e3       |    |		Load_Encached	Natural_Cache
008b e00b       |    |		Load	0x0,0xb
008c 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
008d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
008e 029f 0223  |   #|		Declare_Subprogram	INIT_0220,For_Call
0090 4813       |H   |		Short_Literal	0x13
0091 032d       | -  |		Declare_Type	Record,Defined
0092 4800       |H   |		Short_Literal	0x0
0093 e00c       |    |		Load	0x0,0xc
0094 02a0       |    |		Declare_Subprogram	Null_Subprogram
0095 038e       |    |		Declare_Type	Package,Defined
0096 0387       |    |		Declare_Variable	Package
0097 4800       |H   |		Short_Literal	0x0
0098 e00d       |    |		Load	0x0,0xd
0099 02a0       |    |		Declare_Subprogram	Null_Subprogram
009a 038e       |    |		Declare_Type	Package,Defined
009b 0387       |    |		Declare_Variable	Package
009c 4800       |H   |		Short_Literal	0x0
009d e00e       |    |		Load	0x0,0xe
009e 02a0       |    |		Declare_Subprogram	Null_Subprogram
009f 038e       |    |		Declare_Type	Package,Defined
00a0 e003       |    |		Load	0x0,0x3
00a1 4801       |H   |		Short_Literal	0x1
00a2 00da       |    |		Load_Top	At_Offset_2
00a3 020e       |    |		Execute	Module,Augment_Imports
00a4 0387       |    |		Declare_Variable	Package
00a5 4800       |H   |		Short_Literal	0x0
00a6 e00f       |    |		Load	0x0,0xf
00a7 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a8 038e       |    |		Declare_Type	Package,Defined
00a9 0387       |    |		Declare_Variable	Package
00aa 4800       |H   |		Short_Literal	0x0
00ab e010       |    |		Load	0x0,0x10
00ac 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ad 038e       |    |		Declare_Type	Package,Defined
00ae 0387       |    |		Declare_Variable	Package
00af 4800       |H   |		Short_Literal	0x0
00b0 e011       |    |		Load	0x0,0x11
00b1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b2 038e       |    |		Declare_Type	Package,Defined
00b3 0387       |    |		Declare_Variable	Package
00b4 e012       |    |		Load	0x0,0x12
00b5 e013       |    |		Load	0x0,0x13
00b6 e014       |    |		Load	0x0,0x14
00b7 e009       |    |		Load	0x0,0x9
00b8 e00a       |    |		Load	0x0,0xa
00b9 e015       |    |		Load	0x0,0x15
00ba e003       |    |		Load	0x0,0x3
00bb e23e       | >  |		Load	0x1,0x3e
00bc e23d       | =  |		Load	0x1,0x3d
00bd 4809       |H   |		Short_Literal	0x9
00be e23c       | <  |		Load	0x1,0x3c
00bf 020e       |    |		Execute	Module,Augment_Imports
00c0 e23c       | <  |		Load	0x1,0x3c
00c1 020f       |    |		Execute	Module,Activate
00c2 e003       |    |		Load	0x0,0x3
00c3 e23e       | >  |		Load	0x1,0x3e
00c4 e016       |    |		Load	0x0,0x16
00c5 e017       |    |		Load	0x0,0x17
00c6 4804       |H   |		Short_Literal	0x4
00c7 e23d       | =  |		Load	0x1,0x3d
00c8 020e       |    |		Execute	Module,Augment_Imports
00c9 e23d       | =  |		Load	0x1,0x3d
00ca 020f       |    |		Execute	Module,Activate
00cb e018       |    |		Load	0x0,0x18
00cc e019       |    |		Load	0x0,0x19
00cd e01a       |    |		Load	0x0,0x1a
00ce e01b       |    |		Load	0x0,0x1b
00cf e00b       |    |		Load	0x0,0xb
00d0 e23d       | =  |		Load	0x1,0x3d
00d1 e23c       | <  |		Load	0x1,0x3c
00d2 e01c       |    |		Load	0x0,0x1c
00d3 e017       |    |		Load	0x0,0x17
00d4 e01d       |    |		Load	0x0,0x1d
00d5 e01e       |    |		Load	0x0,0x1e
00d6 e01f       |    |		Load	0x0,0x1f
00d7 e013       |    |		Load	0x0,0x13
00d8 e020       |    |		Load	0x0,0x20
00d9 480e       |H   |		Short_Literal	0xe
00da e23e       | >  |		Load	0x1,0x3e
00db 020e       |    |		Execute	Module,Augment_Imports
00dc 00db       |    |		Load_Top	At_Offset_3
00dd 020f       |    |		Execute	Module,Activate
00de e003       |    |		Load	0x0,0x3
00df e23e       | >  |		Load	0x1,0x3e
00e0 e021       | !  |		Load	0x0,0x21
00e1 e022       | "  |		Load	0x0,0x22
00e2 e023       | #  |		Load	0x0,0x23
00e3 e024       | $  |		Load	0x0,0x24
00e4 e025       | %  |		Load	0x0,0x25
00e5 e026       | &  |		Load	0x0,0x26
00e6 e027       | '  |		Load	0x0,0x27
00e7 e028       | (  |		Load	0x0,0x28
00e8 e013       |    |		Load	0x0,0x13
00e9 e029       | )  |		Load	0x0,0x29
00ea e02a       | *  |		Load	0x0,0x2a
00eb e02b       | +  |		Load	0x0,0x2b
00ec e02c       | ,  |		Load	0x0,0x2c
00ed e23a       | :  |		Load	0x1,0x3a
00ee e00b       |    |		Load	0x0,0xb
00ef e239       | 9  |		Load	0x1,0x39
00f0 e23d       | =  |		Load	0x1,0x3d
00f1 e23c       | <  |		Load	0x1,0x3c
00f2 e01e       |    |		Load	0x0,0x1e
00f3 e01f       |    |		Load	0x0,0x1f
00f4 e01b       |    |		Load	0x0,0x1b
00f5 e02d       | -  |		Load	0x0,0x2d
00f6 e02e       | .  |		Load	0x0,0x2e
00f7 4819       |H   |		Short_Literal	0x19
00f8 e23f       | ?  |		Load	0x1,0x3f
00f9 020e       |    |		Execute	Module,Augment_Imports
00fa 00da       |    |		Load_Top	At_Offset_2
00fb 020f       |    |		Execute	Module,Activate
00fc e02f       | /  |		Load	0x0,0x2f
00fd e003       |    |		Load	0x0,0x3
00fe e23e       | >  |		Load	0x1,0x3e
00ff e030       | 0  |		Load	0x0,0x30
0100 e23d       | =  |		Load	0x1,0x3d
0101 e23c       | <  |		Load	0x1,0x3c
0102 e031       | 1  |		Load	0x0,0x31
0103 e032       | 2  |		Load	0x0,0x32
0104 e033       | 3  |		Load	0x0,0x33
0105 e034       | 4  |		Load	0x0,0x34
0106 e01b       |    |		Load	0x0,0x1b
0107 e035       | 5  |		Load	0x0,0x35
0108 e036       | 6  |		Load	0x0,0x36
0109 e00b       |    |		Load	0x0,0xb
010a e037       | 7  |		Load	0x0,0x37
010b e038       | 8  |		Load	0x0,0x38
010c e039       | 9  |		Load	0x0,0x39
010d e03a       | :  |		Load	0x0,0x3a
010e e03b       | ;  |		Load	0x0,0x3b
010f e03c       | <  |		Load	0x0,0x3c
0110 e03d       | =  |		Load	0x0,0x3d
0111 e03e       | >  |		Load	0x0,0x3e
0112 e03f       | ?  |		Load	0x0,0x3f
0113 e040       | @  |		Load	0x0,0x40
0114 e041       | A  |		Load	0x0,0x41
0115 e042       | B  |		Load	0x0,0x42
0116 e043       | C  |		Load	0x0,0x43
0117 e044       | D  |		Load	0x0,0x44
0118 e23f       | ?  |		Load	0x1,0x3f
0119 e241       | A  |		Load	0x1,0x41
011a e045       | E  |		Load	0x0,0x45
011b e046       | F  |		Load	0x0,0x46
011c e047       | G  |		Load	0x0,0x47
011d e048       | H  |		Load	0x0,0x48
011e e013       |    |		Load	0x0,0x13
011f e049       | I  |		Load	0x0,0x49
0120 e04a       | J  |		Load	0x0,0x4a
0121 4825       |H%  |		Short_Literal	0x25
0122 e240       | @  |		Load	0x1,0x40
0123 020e       |    |		Execute	Module,Augment_Imports
0124 00d9       |    |		Load_Top	At_Offset_1
0125 020f       |    |		Execute	Module,Activate
0126 00db       |    |		Load_Top	At_Offset_3
0127 e04b       | K  |		Load	0x0,0x4b
0128 e04c       | L  |		Load	0x0,0x4c
0129 e23d       | =  |		Load	0x1,0x3d
012a e23c       | <  |		Load	0x1,0x3c
012b e003       |    |		Load	0x0,0x3
012c e23f       | ?  |		Load	0x1,0x3f
012d e04d       | M  |		Load	0x0,0x4d
012e e04e       | N  |		Load	0x0,0x4e
012f e049       | I  |		Load	0x0,0x49
0130 e240       | @  |		Load	0x1,0x40
0131 e013       |    |		Load	0x0,0x13
0132 480c       |H   |		Short_Literal	0xc
0133 e241       | A  |		Load	0x1,0x41
0134 020e       |    |		Execute	Module,Augment_Imports
0135 00d8       |    |		Load_Top	At_Offset_0
0136 020f       |    |		Execute	Module,Activate
0137 029d 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call
0139 029d 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call
013b 029d 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call
013d e23e       | >  |		Load	0x1,0x3e
013e 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
013f 00c6       |    |		Action	Check_Subprogram_Elaborated
0140 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
0141 0092 04e6  |    |		Action	Push_String_Extended,0x4e6					; "Could not find unit"
0143 e04f       | O  |		Load	0x0,0x4f
0144 e050       | P  |		Load	0x0,0x50
0145 4800       |H   |		Short_Literal	0x0
0146 0007       |    |		Action	Break_Optional
0147 029d 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call
0149 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
014a 00c7       |    |		Action	Elaborate_Subprogram
014b 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
014c 00c7       |    |		Action	Elaborate_Subprogram
014d e23e       | >  |		Load	0x1,0x3e
014e 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
014f 00c6       |    |		Action	Check_Subprogram_Elaborated
0150 e241       | A  |		Load	0x1,0x41
0151 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0152 0092 04e7  |    |		Action	Push_String_Extended,0x4e7					; "Could not find view"
0154 e051       | Q  |		Load	0x0,0x51
0155 e052       | R  |		Load	0x0,0x52
0156 4800       |H   |		Short_Literal	0x0
0157 0007       |    |		Action	Break_Optional
0158 029d 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call
015a 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
015b 00c7       |    |		Action	Elaborate_Subprogram
015c 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
015d 00c7       |    |		Action	Elaborate_Subprogram
015e e23e       | >  |		Load	0x1,0x3e
015f 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
0160 00c6       |    |		Action	Check_Subprogram_Elaborated
0161 e241       | A  |		Load	0x1,0x41
0162 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0163 0092 04e8  |    |		Action	Push_String_Extended,0x4e8					; "Could not find activity"
0165 e053       | S  |		Load	0x0,0x53
0166 e054       | T  |		Load	0x0,0x54
0167 4800       |H   |		Short_Literal	0x0
0168 0007       |    |		Action	Break_Optional
0169 029d 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call
016b 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
016c 00c7       |    |		Action	Elaborate_Subprogram
016d 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
016e 00c7       |    |		Action	Elaborate_Subprogram
016f e055       | U  |		Load	0x0,0x55
0170 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
0171 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0172 00c7       |    |		Action	Elaborate_Subprogram
0173 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0174 00c7       |    |		Action	Elaborate_Subprogram
0175			BODY_0008:
0175 00bc       |    |		Action	Signal_Activated
0176 00bb       |    |		Action	Signal_Completion
0177 0000       |    |		.XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 4607       |F   |		Jump_Case	0x8
017c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
017d 7806       |x   |		Jump	0x184								; case 0x1
017e 7809       |x   |		Jump	0x188								; case 0x2
017f 780d       |x   |		Jump	0x18d								; case 0x3
0180 7810       |x   |		Jump	0x191								; case 0x4
0181 7811       |x   |		Jump	0x193								; case 0x5
0182 7812       |x   |		Jump	0x195								; case 0x6
0183 7815       |x   |		Jump	0x199								; case 0x7
0184 00da       |    |		Load_Top	At_Offset_2
0185 0091 04e3  |    |		Action	Push_String_Extended_Indexed,0x4e3				; "COMPATIBLE"
0187 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0188 00db       |    |		Load_Top	At_Offset_3
0189 00db       |    |		Load_Top	At_Offset_3
018a 00e0       |    |		Load_Encached	Standard_Cache
018b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
018c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018d 00da       |    |		Load_Top	At_Offset_2
018e 00e0       |    |		Load_Encached	Standard_Cache
018f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0190 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0191 00db       |    |		Load_Top	At_Offset_3
0192 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0193 00db       |    |		Load_Top	At_Offset_3
0194 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0195 e210       |    |		Load	0x1,0x10
0196 00dc       |    |		Load_Top	At_Offset_4
0197 0267       | g  |		Execute	Discrete,Predecessor
0198 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0199 e210       |    |		Load	0x1,0x10
019a 00dc       |    |		Load_Top	At_Offset_4
019b 0268       | h  |		Execute	Discrete,Successor
019c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019d 0000 0000  |    |		.XXX[0x3]
019f 0000       |    |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5       |    |		.CONST	0x01a5								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 e210       |    |		Load	0x1,0x10
01a4 0007       |    |		Action	Break_Optional
01a5			BODY_01a0:
01a5 e210       |    |		Load	0x1,0x10
01a6 e5fc       |    |		Load	0x2,-0x4
01a7 e5fd       |    |		Load	0x2,-0x3
01a8 e5fe       |    |		Load	0x2,-0x2
01a9 e5ff       |    |		Load	0x2,-0x1
01aa 824a       | J  |		Call	0x1,0x4a
01ab 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01ac 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01ad 0000 0000  |    |		.XXX[0x3]
01af 0000       |    |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5       |    |		.CONST	0x01b5								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0002       |    |		.CONST	0x0002								; Number of locals
01b3			INIT_01b0:
01b3 e210       |    |		Load	0x1,0x10
01b4 0007       |    |		Action	Break_Optional
01b5			BODY_01b0:
01b5 e210       |    |		Load	0x1,0x10
01b6 e5fd       |    |		Load	0x2,-0x3
01b7 4800       |H   |		Short_Literal	0x0
01b8 e5fe       |    |		Load	0x2,-0x2
01b9 e5ff       |    |		Load	0x2,-0x1
01ba 824a       | J  |		Call	0x1,0x4a
01bb 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01bc 00d8       |    |		Load_Top	At_Offset_0
01bd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01be 0000 0000  |    |		.XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5       |    |		.CONST	0x01c5								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 e210       |    |		Load	0x1,0x10
01c4 0007       |    |		Action	Break_Optional
01c5			BODY_01c0:
01c5 e210       |    |		Load	0x1,0x10
01c6 e5fc       |    |		Load	0x2,-0x4
01c7 e5fd       |    |		Load	0x2,-0x3
01c8 e5fe       |    |		Load	0x2,-0x2
01c9 e5ff       |    |		Load	0x2,-0x1
01ca 8250       | P  |		Call	0x1,0x50
01cb 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01cc 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5       |    |		.CONST	0x01d5								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 e210       |    |		Load	0x1,0x10
01d4 0007       |    |		Action	Break_Optional
01d5			BODY_01d0:
01d5 e210       |    |		Load	0x1,0x10
01d6 e5fd       |    |		Load	0x2,-0x3
01d7 4800       |H   |		Short_Literal	0x0
01d8 e5fe       |    |		Load	0x2,-0x2
01d9 e5ff       |    |		Load	0x2,-0x1
01da 8250       | P  |		Call	0x1,0x50
01db 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01dc 00d8       |    |		Load_Top	At_Offset_0
01dd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5       |    |		.CONST	0x01e5								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0002       |    |		.CONST	0x0002								; Number of locals
01e3			INIT_01e0:
01e3 e210       |    |		Load	0x1,0x10
01e4 0007       |    |		Action	Break_Optional
01e5			BODY_01e0:
01e5 e210       |    |		Load	0x1,0x10
01e6 e5fd       |    |		Load	0x2,-0x3
01e7 e5fe       |    |		Load	0x2,-0x2
01e8 e5ff       |    |		Load	0x2,-0x1
01e9 8256       | V  |		Call	0x1,0x56
01ea 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01eb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01ec 0000 0000  |    |		.BLANK	0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5       |    |		.CONST	0x01f5								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 e210       |    |		Load	0x1,0x10
01f4 0007       |    |		Action	Break_Optional
01f5			BODY_01f0:
01f5 e210       |    |		Load	0x1,0x10
01f6 e5fe       |    |		Load	0x2,-0x2
01f7 4800       |H   |		Short_Literal	0x0
01f8 e5ff       |    |		Load	0x2,-0x1
01f9 8256       | V  |		Call	0x1,0x56
01fa 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01fb 00d8       |    |		Load_Top	At_Offset_0
01fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01fd 0000 0000  |    |		.XXX[0x3]
01ff 0000       |    |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0205       |    |		.CONST	0x0205								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0002       |    |		.CONST	0x0002								; Number of locals
0203			INIT_0200:
0203 e210       |    |		Load	0x1,0x10
0204 0007       |    |		Action	Break_Optional
0205			BODY_0200:
0205 e210       |    |		Load	0x1,0x10
0206 e5fe       |    |		Load	0x2,-0x2
0207 4800       |H   |		Short_Literal	0x0
0208 e5ff       |    |		Load	0x2,-0x1
0209 8257       | W  |		Call	0x1,0x57
020a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
020b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
020c 0000 0000  |    |		.BLANK	0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0215       |    |		.CONST	0x0215								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0002       |    |		.CONST	0x0002								; Number of locals
0213			INIT_0210:
0213 e210       |    |		Load	0x1,0x10
0214 0007       |    |		Action	Break_Optional
0215			BODY_0210:
0215 e210       |    |		Load	0x1,0x10
0216 e5fe       |    |		Load	0x2,-0x2
0217 4800       |H   |		Short_Literal	0x0
0218 e5ff       |    |		Load	0x2,-0x1
0219 8257       | W  |		Call	0x1,0x57
021a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
021b 00d8       |    |		Load_Top	At_Offset_0
021c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 4608       |F   |		Jump_Case	0x9
0224 7808       |x   |		Jump	0x22d								; case 0x0
0225 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0226 782b       |x+  |		Jump	0x252								; case 0x2
0227 782a       |x*  |		Jump	0x252								; case 0x3
0228 7829       |x)  |		Jump	0x252								; case 0x4
0229 7828       |x(  |		Jump	0x252								; case 0x5
022a 7827       |x'  |		Jump	0x252								; case 0x6
022b 7826       |x&  |		Jump	0x252								; case 0x7
022c 7825       |x%  |		Jump	0x252								; case 0x8
022d 00da       |    |		Load_Top	At_Offset_2
022e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
022f 0125       | %  |		Execute	Any,Set_Constraint
0230 00da       |    |		Load_Top	At_Offset_2
0231 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0232 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0233 00da       |    |		Load_Top	At_Offset_2
0234 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0235 0125       | %  |		Execute	Any,Set_Constraint
0236 00da       |    |		Load_Top	At_Offset_2
0237 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0238 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0239 00da       |    |		Load_Top	At_Offset_2
023a 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
023b 0125       | %  |		Execute	Any,Set_Constraint
023c 00da       |    |		Load_Top	At_Offset_2
023d 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
023e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
023f 00da       |    |		Load_Top	At_Offset_2
0240 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0241 0125       | %  |		Execute	Any,Set_Constraint
0242 00da       |    |		Load_Top	At_Offset_2
0243 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0244 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0245 00da       |    |		Load_Top	At_Offset_2
0246 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
0247 0125       | %  |		Execute	Any,Set_Constraint
0248 00da       |    |		Load_Top	At_Offset_2
0249 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
024a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024b 00da       |    |		Load_Top	At_Offset_2
024c 3412       |4   |		Execute	Record,Field_Reference,Field_Number 0x12
024d 0125       | %  |		Execute	Any,Set_Constraint
024e 00da       |    |		Load_Top	At_Offset_2
024f 3412       |4   |		Execute	Record,Field_Reference,Field_Number 0x12
0250 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0251 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0252 0869       | i  |		Execute_Immediate	Raise,0x69
0253 0000 0000  |    |		.BLANK	0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0260       | `  |		.CONST	0x0260								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0002       |    |		.CONST	0x0002								; Number of locals
025b			INIT_0258:
025b e018       |    |		Load	0x0,0x18
025c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
025d 02c7       |    |		Declare_Variable	Any
025e 00d8       |    |		Load_Top	At_Offset_0
025f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0260			BODY_0258:
0260 4800       |H   |		Short_Literal	0x0
0261 e5fd       |    |		Load	0x2,-0x3
0262 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0263 00db       |    |		Load_Top	At_Offset_3
0264 e5fd       |    |		Load	0x2,-0x3
0265 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0266 4800       |H   |		Short_Literal	0x0
0267 e5fd       |    |		Load	0x2,-0x3
0268 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0269 4800       |H   |		Short_Literal	0x0
026a e5fd       |    |		Load	0x2,-0x3
026b 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
026c 4800       |H   |		Short_Literal	0x0
026d e5fd       |    |		Load	0x2,-0x3
026e 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
026f 4800       |H   |		Short_Literal	0x0
0270 e5fd       |    |		Load	0x2,-0x3
0271 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
0272 4800       |H   |		Short_Literal	0x0
0273 e5fd       |    |		Load	0x2,-0x3
0274 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
0275 4800       |H   |		Short_Literal	0x0
0276 e5fd       |    |		Load	0x2,-0x3
0277 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0278 e003       |    |		Load	0x0,0x3
0279 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
027a e5fd       |    |		Load	0x2,-0x3
027b 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
027c 00eb       |    |		Load_Encached	Diana_Cache
027d 1870       | p  |		Execute	Package,Field_Execute,Field_Number 0x70
027e e5fd       |    |		Load	0x2,-0x3
027f 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0280 e056       | V  |		Load	0x0,0x56
0281 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0282 e007       |    |		Load	0x0,0x7
0283 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0284 e5fd       |    |		Load	0x2,-0x3
0285 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0286 e239       | 9  |		Load	0x1,0x39
0287 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0288 e01e       |    |		Load	0x0,0x1e
0289 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
028a e01f       |    |		Load	0x0,0x1f
028b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
028c e239       | 9  |		Load	0x1,0x39
028d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
028e e5fd       |    |		Load	0x2,-0x3
028f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0290 e239       | 9  |		Load	0x1,0x39
0291 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0292 e01e       |    |		Load	0x0,0x1e
0293 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0294 e01f       |    |		Load	0x0,0x1f
0295 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0296 e239       | 9  |		Load	0x1,0x39
0297 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0298 e5fd       |    |		Load	0x2,-0x3
0299 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
029a e239       | 9  |		Load	0x1,0x39
029b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
029c e01e       |    |		Load	0x0,0x1e
029d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
029e e01f       |    |		Load	0x0,0x1f
029f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02a0 e239       | 9  |		Load	0x1,0x39
02a1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02a2 e5fd       |    |		Load	0x2,-0x3
02a3 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02a4 e23a       | :  |		Load	0x1,0x3a
02a5 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
02a6 e01e       |    |		Load	0x0,0x1e
02a7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02a8 e01f       |    |		Load	0x0,0x1f
02a9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02aa e23a       | :  |		Load	0x1,0x3a
02ab 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02ac e5fd       |    |		Load	0x2,-0x3
02ad 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
02ae 4800       |H   |		Short_Literal	0x0
02af 4800       |H   |		Short_Literal	0x0
02b0 4801       |H   |		Short_Literal	0x1
02b1 e5fd       |    |		Load	0x2,-0x3
02b2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02b3 e5fd       |    |		Load	0x2,-0x3
02b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b5 e01e       |    |		Load	0x0,0x1e
02b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02b7 e01f       |    |		Load	0x0,0x1f
02b8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02b9 e00b       |    |		Load	0x0,0xb
02ba 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
02bb 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02bc e5fd       |    |		Load	0x2,-0x3
02bd 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
02be 00d8       |    |		Load_Top	At_Offset_0
02bf e5fd       |    |		Load	0x2,-0x3
02c0 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02c1 0120       |    |		Execute	Any,Is_Value
02c2 6803       |h   |		Jump_Zero	0x2c6
02c3 e009       |    |		Load	0x0,0x9
02c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c5 7802       |x   |		Jump	0x2c8
02c6 e5fd       |    |		Load	0x2,-0x3
02c7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02c8 e5fe       |    |		Load	0x2,-0x2
02c9 e009       |    |		Load	0x0,0x9
02ca 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
02cb e5fd       |    |		Load	0x2,-0x3
02cc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02cd c402       |    |		Store	0x2,0x2
02ce 00d8       |    |		Load_Top	At_Offset_0
02cf e23e       | >  |		Load	0x1,0x3e
02d0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d1 7003       |p   |		Jump_Nonzero	0x2d5
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 e23c       | <  |		Load	0x1,0x3c
02d4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02d5 00db       |    |		Load_Top	At_Offset_3
02d6 6804       |h   |		Jump_Zero	0x2db
02d7 e5fd       |    |		Load	0x2,-0x3
02d8 e23c       | <  |		Load	0x1,0x3c
02d9 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02da 00d1       |    |		Pop_Control	Pop_Count_1
02db 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02dc 0000 0000  |    |		.BLANK	0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e5       |    |		.CONST	0x02e5								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0002       |    |		.CONST	0x0002								; Number of locals
02e3			INIT_02e0:
02e3 029f 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Call
02e5			BODY_02e0:
02e5 00db       |    |		Load_Top	At_Offset_3
02e6 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02e7 6805       |h   |		Jump_Zero	0x2ed
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 e23c       | <  |		Load	0x1,0x3c
02ea 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
02eb 00d1       |    |		Pop_Control	Pop_Count_1
02ec 7834       |x4  |		Jump	0x321
02ed 00db       |    |		Load_Top	At_Offset_3
02ee 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ef 7007       |p   |		Jump_Nonzero	0x2f7
02f0 00db       |    |		Load_Top	At_Offset_3
02f1 0092 04e9  |    |		Action	Push_String_Extended,0x4e9					; "All units/views are compatible"
02f3 e23c       | <  |		Load	0x1,0x3c
02f4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02f5 00d1       |    |		Pop_Control	Pop_Count_1
02f6 782a       |x*  |		Jump	0x321
02f7 00db       |    |		Load_Top	At_Offset_3
02f8 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
02f9 0092 04ea  |    |		Action	Push_String_Extended,0x4ea					; "Missing units"
02fb 0092 04eb  |    |		Action	Push_String_Extended,0x4eb					; "Missing unit"
02fd 8402       |    |		Call	0x2,0x2
02fe 00db       |    |		Load_Top	At_Offset_3
02ff 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0300 0092 04ec  |    |		Action	Push_String_Extended,0x4ec					; "Uninstalled units"
0302 0092 04ed  |    |		Action	Push_String_Extended,0x4ed					; "Uninstalled unit"
0304 8402       |    |		Call	0x2,0x2
0305 00db       |    |		Load_Top	At_Offset_3
0306 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
0307 0092 04ee  |    |		Action	Push_String_Extended,0x4ee					; "Incompatible units"
0309 0092 04ef  |    |		Action	Push_String_Extended,0x4ef					; "Incompatible unit"
030b 8402       |    |		Call	0x2,0x2
030c 00db       |    |		Load_Top	At_Offset_3
030d 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
030e 0092 04f0  |    |		Action	Push_String_Extended,0x4f0					; "Missing views"
0310 0092 04f1  |    |		Action	Push_String_Extended,0x4f1					; "Missing view"
0312 8402       |    |		Call	0x2,0x2
0313 00db       |    |		Load_Top	At_Offset_3
0314 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
0315 0092 04f2  |    |		Action	Push_String_Extended,0x4f2					; "Incompatible views"
0317 0092 04f3  |    |		Action	Push_String_Extended,0x4f3					; "Incompatible view"
0319 8402       |    |		Call	0x2,0x2
031a 00db       |    |		Load_Top	At_Offset_3
031b 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
031c 0092 04f4  |    |		Action	Push_String_Extended,0x4f4					; "Errors encountered"
031e 0092 04f5  |    |		Action	Push_String_Extended,0x4f5					; "Error encountered"
0320 8402       |    |		Call	0x2,0x2
0321 00db       |    |		Load_Top	At_Offset_3
0322 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
0323 e00b       |    |		Load	0x0,0xb
0324 1b6a       | j  |		Execute	Package,Field_Read,Field_Number 0x6a
0325 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0326 00db       |    |		Load_Top	At_Offset_3
0327 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0328 4801       |H   |		Short_Literal	0x1
0329 e5ff       |    |		Load	0x2,-0x1
032a 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
032b 0f00       |    |		Execute_Immediate	Equal,0x0
032c e007       |    |		Load	0x0,0x7
032d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
032e e5ff       |    |		Load	0x2,-0x1
032f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0330 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0331 0000 0000  |    |		.BLANK	0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 00da       |    |		Load_Top	At_Offset_2
033c e23e       | >  |		Load	0x1,0x3e
033d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
033e 6806       |h   |		Jump_Zero	0x345
033f 00db       |    |		Load_Top	At_Offset_3
0340 00db       |    |		Load_Top	At_Offset_3
0341 e240       | @  |		Load	0x1,0x40
0342 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0343 00d1       |    |		Pop_Control	Pop_Count_1
0344 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0345 00da       |    |		Load_Top	At_Offset_2
0346 e23e       | >  |		Load	0x1,0x3e
0347 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0348 6806       |h   |		Jump_Zero	0x34f
0349 00db       |    |		Load_Top	At_Offset_3
034a 00db       |    |		Load_Top	At_Offset_3
034b e241       | A  |		Load	0x1,0x41
034c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
034d 00d1       |    |		Pop_Control	Pop_Count_1
034e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
034f 00da       |    |		Load_Top	At_Offset_2
0350 e23e       | >  |		Load	0x1,0x3e
0351 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0352 6806       |h   |		Jump_Zero	0x359
0353 00db       |    |		Load_Top	At_Offset_3
0354 00db       |    |		Load_Top	At_Offset_3
0355 e241       | A  |		Load	0x1,0x41
0356 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0357 00d1       |    |		Pop_Control	Pop_Count_1
0358 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0359 00db       |    |		Load_Top	At_Offset_3
035a 0092 04f6  |    |		Action	Push_String_Extended,0x4f6					; "is not an ada unit or view"
035c e5ff       |    |		Load	0x2,-0x1
035d e23d       | =  |		Load	0x1,0x3d
035e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
035f e23c       | <  |		Load	0x1,0x3c
0360 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0361 00d1       |    |		Pop_Control	Pop_Count_1
0362 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0363 0000 0000  |    |		.BLANK	0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036f       | o  |		.CONST	0x036f								; Address of begin
0369 03b3       |    |		.CONST	0x03b3								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b e23b       | ;  |		Load	0x1,0x3b
036c 0322       | "  |		Declare_Variable	Record
036d 00d8       |    |		Load_Top	At_Offset_0
036e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
036f			BODY_0368:
036f 00d8       |    |		Load_Top	At_Offset_0
0370 e5fc       |    |		Load	0x2,-0x4
0371 e5fd       |    |		Load	0x2,-0x3
0372 8242       | B  |		Call	0x1,0x42
0373 00d1       |    |		Pop_Control	Pop_Count_1
0374 00d8       |    |		Load_Top	At_Offset_0
0375 0092 04f7  |    |		Action	Push_String_Extended,0x4f7					; "Load_View_Units => \x22"
0377 e5ff       |    |		Load	0x2,-0x1
0378 01cc       |    |		Execute	Vector,Catenate
0379 0092 04f8  |    |		Action	Push_String_Extended,0x4f8					; "\x22, Spec_Views => \x22"
037b 01cc       |    |		Execute	Vector,Catenate
037c e5fe       |    |		Load	0x2,-0x2
037d 01cc       |    |		Execute	Vector,Catenate
037e 0092 04f9  |    |		Action	Push_String_Extended,0x4f9					; "\x22, Menu => "
0380 01cc       |    |		Execute	Vector,Catenate
0381 e5fd       |    |		Load	0x2,-0x3
0382 00e1       |    |		Load_Encached	Boolean_Cache
0383 011c       |    |		Execute	Any,Convert_Unchecked
0384 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0385 01cc       |    |		Execute	Vector,Catenate
0386 0092 04fa  |    |		Action	Push_String_Extended,0x4fa					; ", Response => \x22"
0388 01cc       |    |		Execute	Vector,Catenate
0389 e5fc       |    |		Load	0x2,-0x4
038a 01cc       |    |		Execute	Vector,Catenate
038b 0092 04fb  |    |		Action	Push_String_Extended,0x4fb					; "\x22"
038d 01cc       |    |		Execute	Vector,Catenate
038e 0092 04fc  |    |		Action	Push_String_Extended,0x4fc					; "Units"
0390 e23c       | <  |		Load	0x1,0x3c
0391 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0392 00d1       |    |		Pop_Control	Pop_Count_1
0393 00d8       |    |		Load_Top	At_Offset_0
0394 e5fe       |    |		Load	0x2,-0x2
0395 e23f       | ?  |		Load	0x1,0x3f
0396 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0397 00d1       |    |		Pop_Control	Pop_Count_1
0398 00d8       |    |		Load_Top	At_Offset_0
0399 e5ff       |    |		Load	0x2,-0x1
039a e23f       | ?  |		Load	0x1,0x3f
039b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
039c 00d1       |    |		Pop_Control	Pop_Count_1
039d 00d8       |    |		Load_Top	At_Offset_0
039e e003       |    |		Load	0x0,0x3
039f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a0 e5ff       |    |		Load	0x2,-0x1
03a1 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
03a2 e246       | F  |		Load	0x1,0x46
03a3 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
03a4 e23e       | >  |		Load	0x1,0x3e
03a5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03a6 00d1       |    |		Pop_Control	Pop_Count_1
03a7 00d8       |    |		Load_Top	At_Offset_0
03a8 8243       | C  |		Call	0x1,0x43
03a9 00d1       |    |		Pop_Control	Pop_Count_1
03aa 00d8       |    |		Load_Top	At_Offset_0
03ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ac a5fb       |    |		Store_Unchecked	0x2,-0x5
03ad 00d8       |    |		Load_Top	At_Offset_0
03ae 0092 04fc  |    |		Action	Push_String_Extended,0x4fc					; "Units"
03b0 e23c       | <  |		Load	0x1,0x3c
03b1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03b2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03b3			TRAP_0368:
03b3 e009       |    |		Load	0x0,0x9
03b4 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
03b5 010f       |    |		Execute	Exception,Equal
03b6 6808       |h   |		Jump_Zero	0x3bf
03b7 00d9       |    |		Load_Top	At_Offset_1
03b8 0092 04fc  |    |		Action	Push_String_Extended,0x4fc					; "Units"
03ba e23c       | <  |		Load	0x1,0x3c
03bb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03bc 00d1       |    |		Pop_Control	Pop_Count_1
03bd 00d8       |    |		Load_Top	At_Offset_0
03be 0101       |    |		Execute	Exception,Reraise
03bf e013       |    |		Load	0x0,0x13
03c0 010f       |    |		Execute	Exception,Equal
03c1 680b       |h   |		Jump_Zero	0x3cd
03c2 00d9       |    |		Load_Top	At_Offset_1
03c3 8243       | C  |		Call	0x1,0x43
03c4 00d1       |    |		Pop_Control	Pop_Count_1
03c5 4802       |H   |		Short_Literal	0x2
03c6 a5fb       |    |		Store_Unchecked	0x2,-0x5
03c7 00d9       |    |		Load_Top	At_Offset_1
03c8 0092 04fc  |    |		Action	Push_String_Extended,0x4fc					; "Units"
03ca e23c       | <  |		Load	0x1,0x3c
03cb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03cc 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03cd 00d9       |    |		Load_Top	At_Offset_1
03ce 0092 04fc  |    |		Action	Push_String_Extended,0x4fc					; "Units"
03d0 e23c       | <  |		Load	0x1,0x3c
03d1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03d2 00d1       |    |		Pop_Control	Pop_Count_1
03d3 00d9       |    |		Load_Top	At_Offset_1
03d4 8243       | C  |		Call	0x1,0x43
03d5 00d1       |    |		Pop_Control	Pop_Count_1
03d6 4802       |H   |		Short_Literal	0x2
03d7 a5fb       |    |		Store_Unchecked	0x2,-0x5
03d8 00d9       |    |		Load_Top	At_Offset_1
03d9 e23c       | <  |		Load	0x1,0x3c
03da 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03db 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03dc 0000 0000  |    |		.BLANK	0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e7       |    |		.CONST	0x03e7								; Address of begin
03e1 042b       | +  |		.CONST	0x042b								; Address of exception handler
03e2 0002       |    |		.CONST	0x0002								; Number of locals
03e3			INIT_03e0:
03e3 e23b       | ;  |		Load	0x1,0x3b
03e4 0322       | "  |		Declare_Variable	Record
03e5 00d8       |    |		Load_Top	At_Offset_0
03e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03e7			BODY_03e0:
03e7 00d8       |    |		Load_Top	At_Offset_0
03e8 e5fc       |    |		Load	0x2,-0x4
03e9 e5fd       |    |		Load	0x2,-0x3
03ea 8242       | B  |		Call	0x1,0x42
03eb 00d1       |    |		Pop_Control	Pop_Count_1
03ec 00d8       |    |		Load_Top	At_Offset_0
03ed 0092 04fd  |    |		Action	Push_String_Extended,0x4fd					; "Load_Views => \x22"
03ef e5ff       |    |		Load	0x2,-0x1
03f0 01cc       |    |		Execute	Vector,Catenate
03f1 0092 04f8  |    |		Action	Push_String_Extended,0x4f8					; "\x22, Spec_Views => \x22"
03f3 01cc       |    |		Execute	Vector,Catenate
03f4 e5fe       |    |		Load	0x2,-0x2
03f5 01cc       |    |		Execute	Vector,Catenate
03f6 0092 04f9  |    |		Action	Push_String_Extended,0x4f9					; "\x22, Menu => "
03f8 01cc       |    |		Execute	Vector,Catenate
03f9 e5fd       |    |		Load	0x2,-0x3
03fa 00e1       |    |		Load_Encached	Boolean_Cache
03fb 011c       |    |		Execute	Any,Convert_Unchecked
03fc 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03fd 01cc       |    |		Execute	Vector,Catenate
03fe 0092 04fa  |    |		Action	Push_String_Extended,0x4fa					; ", Response => \x22"
0400 01cc       |    |		Execute	Vector,Catenate
0401 e5fc       |    |		Load	0x2,-0x4
0402 01cc       |    |		Execute	Vector,Catenate
0403 0092 04fb  |    |		Action	Push_String_Extended,0x4fb					; "\x22"
0405 01cc       |    |		Execute	Vector,Catenate
0406 0092 04fe  |    |		Action	Push_String_Extended,0x4fe					; "Views"
0408 e23c       | <  |		Load	0x1,0x3c
0409 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
040a 00d1       |    |		Pop_Control	Pop_Count_1
040b 00d8       |    |		Load_Top	At_Offset_0
040c e5fe       |    |		Load	0x2,-0x2
040d e23f       | ?  |		Load	0x1,0x3f
040e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
040f 00d1       |    |		Pop_Control	Pop_Count_1
0410 00d8       |    |		Load_Top	At_Offset_0
0411 e5ff       |    |		Load	0x2,-0x1
0412 e23f       | ?  |		Load	0x1,0x3f
0413 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0414 00d1       |    |		Pop_Control	Pop_Count_1
0415 00d8       |    |		Load_Top	At_Offset_0
0416 e003       |    |		Load	0x0,0x3
0417 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0418 e5ff       |    |		Load	0x2,-0x1
0419 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
041a e24c       | L  |		Load	0x1,0x4c
041b 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
041c e23e       | >  |		Load	0x1,0x3e
041d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
041e 00d1       |    |		Pop_Control	Pop_Count_1
041f 00d8       |    |		Load_Top	At_Offset_0
0420 8243       | C  |		Call	0x1,0x43
0421 00d1       |    |		Pop_Control	Pop_Count_1
0422 00d8       |    |		Load_Top	At_Offset_0
0423 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0424 a5fb       |    |		Store_Unchecked	0x2,-0x5
0425 00d8       |    |		Load_Top	At_Offset_0
0426 0092 04fe  |    |		Action	Push_String_Extended,0x4fe					; "Views"
0428 e23c       | <  |		Load	0x1,0x3c
0429 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
042a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
042b			TRAP_03e0:
042b e009       |    |		Load	0x0,0x9
042c 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
042d 010f       |    |		Execute	Exception,Equal
042e 6808       |h   |		Jump_Zero	0x437
042f 00d9       |    |		Load_Top	At_Offset_1
0430 0092 04fe  |    |		Action	Push_String_Extended,0x4fe					; "Views"
0432 e23c       | <  |		Load	0x1,0x3c
0433 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0434 00d1       |    |		Pop_Control	Pop_Count_1
0435 00d8       |    |		Load_Top	At_Offset_0
0436 0101       |    |		Execute	Exception,Reraise
0437 e013       |    |		Load	0x0,0x13
0438 010f       |    |		Execute	Exception,Equal
0439 680b       |h   |		Jump_Zero	0x445
043a 00d9       |    |		Load_Top	At_Offset_1
043b 8243       | C  |		Call	0x1,0x43
043c 00d1       |    |		Pop_Control	Pop_Count_1
043d 4802       |H   |		Short_Literal	0x2
043e a5fb       |    |		Store_Unchecked	0x2,-0x5
043f 00d9       |    |		Load_Top	At_Offset_1
0440 0092 04fe  |    |		Action	Push_String_Extended,0x4fe					; "Views"
0442 e23c       | <  |		Load	0x1,0x3c
0443 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0444 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0445 00d9       |    |		Load_Top	At_Offset_1
0446 e23c       | <  |		Load	0x1,0x3c
0447 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0448 00d1       |    |		Pop_Control	Pop_Count_1
0449 00d9       |    |		Load_Top	At_Offset_1
044a 8243       | C  |		Call	0x1,0x43
044b 00d1       |    |		Pop_Control	Pop_Count_1
044c 4802       |H   |		Short_Literal	0x2
044d a5fb       |    |		Store_Unchecked	0x2,-0x5
044e 00d9       |    |		Load_Top	At_Offset_1
044f 0092 04fe  |    |		Action	Push_String_Extended,0x4fe					; "Views"
0451 e23c       | <  |		Load	0x1,0x3c
0452 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0453 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0454 0000 0000  |    |		.BLANK	0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045f       | _  |		.CONST	0x045f								; Address of begin
0459 0499       |    |		.CONST	0x0499								; Address of exception handler
045a 0002       |    |		.CONST	0x0002								; Number of locals
045b			INIT_0458:
045b e23b       | ;  |		Load	0x1,0x3b
045c 0322       | "  |		Declare_Variable	Record
045d 00d8       |    |		Load_Top	At_Offset_0
045e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
045f			BODY_0458:
045f 00d8       |    |		Load_Top	At_Offset_0
0460 e5fd       |    |		Load	0x2,-0x3
0461 e5fe       |    |		Load	0x2,-0x2
0462 8242       | B  |		Call	0x1,0x42
0463 00d1       |    |		Pop_Control	Pop_Count_1
0464 00d8       |    |		Load_Top	At_Offset_0
0465 0092 04ff  |    |		Action	Push_String_Extended,0x4ff					; "The_Activity => \x22"
0467 e5ff       |    |		Load	0x2,-0x1
0468 01cc       |    |		Execute	Vector,Catenate
0469 0092 04f9  |    |		Action	Push_String_Extended,0x4f9					; "\x22, Menu => "
046b 01cc       |    |		Execute	Vector,Catenate
046c e5fe       |    |		Load	0x2,-0x2
046d 00e1       |    |		Load_Encached	Boolean_Cache
046e 011c       |    |		Execute	Any,Convert_Unchecked
046f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0470 01cc       |    |		Execute	Vector,Catenate
0471 0092 04fa  |    |		Action	Push_String_Extended,0x4fa					; ", Response => \x22"
0473 01cc       |    |		Execute	Vector,Catenate
0474 e5fd       |    |		Load	0x2,-0x3
0475 01cc       |    |		Execute	Vector,Catenate
0476 0092 04fb  |    |		Action	Push_String_Extended,0x4fb					; "\x22"
0478 01cc       |    |		Execute	Vector,Catenate
0479 0092 0500  |    |		Action	Push_String_Extended,0x500					; "Activity"
047b e23c       | <  |		Load	0x1,0x3c
047c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
047d 00d1       |    |		Pop_Control	Pop_Count_1
047e 00d8       |    |		Load_Top	At_Offset_0
047f e5ff       |    |		Load	0x2,-0x1
0480 e23f       | ?  |		Load	0x1,0x3f
0481 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0482 00d1       |    |		Pop_Control	Pop_Count_1
0483 00d8       |    |		Load_Top	At_Offset_0
0484 e003       |    |		Load	0x0,0x3
0485 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0486 e5ff       |    |		Load	0x2,-0x1
0487 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
0488 e252       | R  |		Load	0x1,0x52
0489 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
048a e23e       | >  |		Load	0x1,0x3e
048b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
048c 00d1       |    |		Pop_Control	Pop_Count_1
048d 00d8       |    |		Load_Top	At_Offset_0
048e 8243       | C  |		Call	0x1,0x43
048f 00d1       |    |		Pop_Control	Pop_Count_1
0490 00d8       |    |		Load_Top	At_Offset_0
0491 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0492 a5fc       |    |		Store_Unchecked	0x2,-0x4
0493 00d8       |    |		Load_Top	At_Offset_0
0494 0092 0500  |    |		Action	Push_String_Extended,0x500					; "Activity"
0496 e23c       | <  |		Load	0x1,0x3c
0497 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0498 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0499			TRAP_0458:
0499 e009       |    |		Load	0x0,0x9
049a 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
049b 010f       |    |		Execute	Exception,Equal
049c 6808       |h   |		Jump_Zero	0x4a5
049d 00d9       |    |		Load_Top	At_Offset_1
049e 0092 0500  |    |		Action	Push_String_Extended,0x500					; "Activity"
04a0 e23c       | <  |		Load	0x1,0x3c
04a1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04a2 00d1       |    |		Pop_Control	Pop_Count_1
04a3 00d8       |    |		Load_Top	At_Offset_0
04a4 0101       |    |		Execute	Exception,Reraise
04a5 e013       |    |		Load	0x0,0x13
04a6 010f       |    |		Execute	Exception,Equal
04a7 680b       |h   |		Jump_Zero	0x4b3
04a8 00d9       |    |		Load_Top	At_Offset_1
04a9 8243       | C  |		Call	0x1,0x43
04aa 00d1       |    |		Pop_Control	Pop_Count_1
04ab 4802       |H   |		Short_Literal	0x2
04ac a5fc       |    |		Store_Unchecked	0x2,-0x4
04ad 00d9       |    |		Load_Top	At_Offset_1
04ae 0092 0500  |    |		Action	Push_String_Extended,0x500					; "Activity"
04b0 e23c       | <  |		Load	0x1,0x3c
04b1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04b3 00d9       |    |		Load_Top	At_Offset_1
04b4 e23c       | <  |		Load	0x1,0x3c
04b5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04b6 00d1       |    |		Pop_Control	Pop_Count_1
04b7 00d9       |    |		Load_Top	At_Offset_1
04b8 8243       | C  |		Call	0x1,0x43
04b9 00d1       |    |		Pop_Control	Pop_Count_1
04ba 4802       |H   |		Short_Literal	0x2
04bb a5fc       |    |		Store_Unchecked	0x2,-0x4
04bc 00d9       |    |		Load_Top	At_Offset_1
04bd 0092 0500  |    |		Action	Push_String_Extended,0x500					; "Activity"
04bf e23c       | <  |		Load	0x1,0x3c
04c0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04c1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04c2 0000 0000  |    |		.BLANK	0000[0x6]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb e7fd       |    |		Load	0x3,-0x3
04cc 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
04cd 6809       |h   |		Jump_Zero	0x4d7
04ce e5ff       |    |		Load	0x2,-0x1
04cf e7fe       |    |		Load	0x3,-0x2
04d0 e7fd       |    |		Load	0x3,-0x3
04d1 e23d       | =  |		Load	0x1,0x3d
04d2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04d3 e23c       | <  |		Load	0x1,0x3c
04d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04d5 00d1       |    |		Pop_Control	Pop_Count_1
04d6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04d7 e7fd       |    |		Load	0x3,-0x3
04d8 0f01       |    |		Execute_Immediate	Equal,0x1
04d9 6808       |h   |		Jump_Zero	0x4e2
04da e5ff       |    |		Load	0x2,-0x1
04db 00db       |    |		Load_Top	At_Offset_3
04dc e7fd       |    |		Load	0x3,-0x3
04dd e23d       | =  |		Load	0x1,0x3d
04de 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04df e23c       | <  |		Load	0x1,0x3c
04e0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04e1 00d1       |    |		Pop_Control	Pop_Count_1
04e2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04e3 ; --------------------------------------------------------------------------------------
04e3 ; STRING TABLE
04e3 ; --------------------------------------------------------------------------------------
04e3 003e       | >  |		.STRTAB	0x003e->0x0502							; "COMPATIBLE"
04e4 0046       | F  |		.STRTAB	0x0046->0x0507							; "INCOMPATIBLE"
04e5 0050       | P  |		.STRTAB	0x0050->0x050d							; "ERROR"
04e6 0053       | S  |		.STRTAB	0x0053->0x050f							; "Could not find unit"
04e7 0064       | d  |		.STRTAB	0x0064->0x0519							; "Could not find view"
04e8 0075       | u  |		.STRTAB	0x0075->0x0522							; "Could not find activity"
04e9 008a       |    |		.STRTAB	0x008a->0x052e							; "All units/views are compatible"
04ea 00a6       |    |		.STRTAB	0x00a6->0x053d							; "Missing units"
04eb 00b1       |    |		.STRTAB	0x00b1->0x0543							; "Missing unit"
04ec 00bb       |    |		.STRTAB	0x00bb->0x0549							; "Uninstalled units"
04ed 00ca       |    |		.STRTAB	0x00ca->0x0552							; "Uninstalled unit"
04ee 00d8       |    |		.STRTAB	0x00d8->0x055a							; "Incompatible units"
04ef 00e8       |    |		.STRTAB	0x00e8->0x0563							; "Incompatible unit"
04f0 00f7       |    |		.STRTAB	0x00f7->0x056b							; "Missing views"
04f1 0102       |    |		.STRTAB	0x0102->0x0572							; "Missing view"
04f2 010c       |    |		.STRTAB	0x010c->0x0578							; "Incompatible views"
04f3 011c       |    |		.STRTAB	0x011c->0x0581							; "Incompatible view"
04f4 012b       | +  |		.STRTAB	0x012b->0x0589							; "Errors encountered"
04f5 013b       | ;  |		.STRTAB	0x013b->0x0592							; "Error encountered"
04f6 014a       | J  |		.STRTAB	0x014a->0x059b							; "is not an ada unit or view"
04f7 0162       | b  |		.STRTAB	0x0162->0x05a8							; "Load_View_Units => \x22"
04f8 0174       | t  |		.STRTAB	0x0174->0x05b2							; "\x22, Spec_Views => \x22"
04f9 0184       |    |		.STRTAB	0x0184->0x05bb							; "\x22, Menu => "
04fa 018d       |    |		.STRTAB	0x018d->0x05c0							; ", Response => \x22"
04fb 019a       |    |		.STRTAB	0x019a->0x05c8							; "\x22"
04fc 0199       |    |		.STRTAB	0x0199->0x05c8							; "Units"
04fd 019c       |    |		.STRTAB	0x019c->0x05cb							; "Load_Views => \x22"
04fe 01a9       |    |		.STRTAB	0x01a9->0x05d2							; "Views"
04ff 01ac       |    |		.STRTAB	0x01ac->0x05d5							; "The_Activity => \x22"
0500 01bb       |    |		.STRTAB	0x01bb->0x05dd							; "Activity"
0501 01c1       |    |		.STREND 0x01c1->0x05e1
0502 434f 4d50  |COMP|		.STRTAB_STRINGS
05e2 0000 0000  |    |		.BLANK	0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug Table
05e8 ; --------------------------------------------------------------------------------------
05e8 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xa45e,0x0000,0x0001,0x0000
05ee a5b8 8141  |   A|		.XXX[0x12]
05f0 2125 30b9  |!%0 |
05f2 4d7c c481  |M|  |
05f4 41bd c9d0  |A   |
05f6 80c8 d0d0  |    |
05f8 28c4 c4e8  |(   |
05fa cce4 e8c4  |    |
05fc c880 acac  |    |
05fe ac80 e0dc  |    |