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

⟦d8040b475⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0b7ce8

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0318       |    |		.CONST	0x0318								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 011e       |    |		.CONST	0x011e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d 00c4       |    |		Action	Make_Default
000e 00e3       |    |		Load_Encached	Natural_Cache
000f 0266       | f  |		Execute	Discrete,Bounds
0010 00db       |    |		Load_Top	At_Offset_3
0011 02a0       |    |		Declare_Subprogram	Null_Subprogram
0012 4801       |H   |		Short_Literal	0x1
0013 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0014 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0016 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0018 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
001a 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
001c 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
001e 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0020 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0022 4800       |H   |		Short_Literal	0x0
0023 e002       |    |		Load	0x0,0x2
0024 0a07       |    |		Execute_Immediate	Plus,0x7
0025 e001       |    |		Load	0x0,0x1
0026 01d7       |    |		Execute	Vector,Field_Read
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 038f       |    |		Declare_Type	Package,Defined,Visible
0029 e001       |    |		Load	0x0,0x1
002a e002       |    |		Load	0x0,0x2
002b 0a06       |    |		Execute_Immediate	Plus,0x6
002c e001       |    |		Load	0x0,0x1
002d 01d7       |    |		Execute	Vector,Field_Read
002e 4802       |H   |		Short_Literal	0x2
002f 00db       |    |		Load_Top	At_Offset_3
0030 020e       |    |		Execute	Module,Augment_Imports
0031 0386       |    |		Declare_Variable	Package,Visible
0032 0093 0000  |    |		push_full_address	0x0
0034 6107       |a   |		Indirect_Literal	Discrete,0x13c,{0x80000000, 0x00010000}
0035 0273       | s  |		Execute	Discrete,Plus
0036 e003       |    |		Load	0x0,0x3
0037 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0038 60ff       |`   |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x0000ffff}
0039 0279       | y  |		Execute	Discrete,And
003a 0273       | s  |		Execute	Discrete,Plus
003b 0129       | )  |		Execute	Any,Make_Visible
003c 4800       |H   |		Short_Literal	0x0
003d 4803       |H   |		Short_Literal	0x3
003e 029f 021b  |    |		Declare_Subprogram	INIT_0218,For_Call
0040 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0041 00d8       |    |		Load_Top	At_Offset_0
0042 4803       |H   |		Short_Literal	0x3
0043 4800       |H   |		Short_Literal	0x0
0044 4801       |H   |		Short_Literal	0x1
0045 4804       |H   |		Short_Literal	0x4
0046 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0047 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
0049 00d9       |    |		Load_Top	At_Offset_1
004a 012a       | *  |		Execute	Any,Change_Utility
004b 0007       |    |		Action	Break_Optional
004c 00d8       |    |		Load_Top	At_Offset_0
004d 02a0       |    |		Declare_Subprogram	Null_Subprogram
004e e20d       |    |		Load	0x1,0xd
004f 03c7       |    |		Complete_Type	Access,By_Defining
0050 e20d       |    |		Load	0x1,0xd
0051 0129       | )  |		Execute	Any,Make_Visible
0052 c20e       |    |		Store	0x1,0xe
0053 4801       |H   |		Short_Literal	0x1
0054 4800       |H   |		Short_Literal	0x0
0055 e20f       |    |		Load	0x1,0xf
0056 035b       | [  |		Declare_Type	Array,Constrained
0057 0336       | 6  |		Declare_Variable	Array,Visible
0058 00d8       |    |		Load_Top	At_Offset_0
0059 0335       | 5  |		Declare_Variable	Array,Duplicate
005a 00cd       |    |		Action	Spare6_Action
005b 00d9       |    |		Load_Top	At_Offset_1
005c 01d4       |    |		Execute	Vector,Structure_Write
005d 00bf       |    |		Action	Accept_Activation
005e 4800       |H   |		Short_Literal	0x0
005f 4801       |H   |		Short_Literal	0x1
0060 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
0062 03fd       |    |		Declare_Type	Discrete,Defined
0063 4800       |H   |		Short_Literal	0x0
0064 e002       |    |		Load	0x0,0x2
0065 0a05       |    |		Execute_Immediate	Plus,0x5
0066 e001       |    |		Load	0x0,0x1
0067 01d7       |    |		Execute	Vector,Field_Read
0068 02a0       |    |		Declare_Subprogram	Null_Subprogram
0069 038e       |    |		Declare_Type	Package,Defined
006a e001       |    |		Load	0x0,0x1
006b e002       |    |		Load	0x0,0x2
006c 0a04       |    |		Execute_Immediate	Plus,0x4
006d e001       |    |		Load	0x0,0x1
006e 01d7       |    |		Execute	Vector,Field_Read
006f 4802       |H   |		Short_Literal	0x2
0070 00db       |    |		Load_Top	At_Offset_3
0071 020e       |    |		Execute	Module,Augment_Imports
0072 0387       |    |		Declare_Variable	Package
0073 4800       |H   |		Short_Literal	0x0
0074 e002       |    |		Load	0x0,0x2
0075 0a03       |    |		Execute_Immediate	Plus,0x3
0076 e001       |    |		Load	0x0,0x1
0077 01d7       |    |		Execute	Vector,Field_Read
0078 02a0       |    |		Declare_Subprogram	Null_Subprogram
0079 038e       |    |		Declare_Type	Package,Defined
007a e001       |    |		Load	0x0,0x1
007b e002       |    |		Load	0x0,0x2
007c 0a02       |    |		Execute_Immediate	Plus,0x2
007d e001       |    |		Load	0x0,0x1
007e 01d7       |    |		Execute	Vector,Field_Read
007f e20f       |    |		Load	0x1,0xf
0080 e004       |    |		Load	0x0,0x4
0081 e20d       |    |		Load	0x1,0xd
0082 4805       |H   |		Short_Literal	0x5
0083 e21e       |    |		Load	0x1,0x1e
0084 020e       |    |		Execute	Module,Augment_Imports
0085 0387       |    |		Declare_Variable	Package
0086 4800       |H   |		Short_Literal	0x0
0087 e002       |    |		Load	0x0,0x2
0088 0a09       |    |		Execute_Immediate	Plus,0x9
0089 e001       |    |		Load	0x0,0x1
008a 01d7       |    |		Execute	Vector,Field_Read
008b 02a0       |    |		Declare_Subprogram	Null_Subprogram
008c 038e       |    |		Declare_Type	Package,Defined
008d e001       |    |		Load	0x0,0x1
008e e002       |    |		Load	0x0,0x2
008f 0a08       |    |		Execute_Immediate	Plus,0x8
0090 e001       |    |		Load	0x0,0x1
0091 01d7       |    |		Execute	Vector,Field_Read
0092 e21c       |    |		Load	0x1,0x1c
0093 e21d       |    |		Load	0x1,0x1d
0094 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0095 e005       |    |		Load	0x0,0x5
0096 4805       |H   |		Short_Literal	0x5
0097 e21f       |    |		Load	0x1,0x1f
0098 020e       |    |		Execute	Module,Augment_Imports
0099 0387       |    |		Declare_Variable	Package
009a 4800       |H   |		Short_Literal	0x0
009b e002       |    |		Load	0x0,0x2
009c 0a01       |    |		Execute_Immediate	Plus,0x1
009d e001       |    |		Load	0x0,0x1
009e 01d7       |    |		Execute	Vector,Field_Read
009f 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a0 038e       |    |		Declare_Type	Package,Defined
00a1 e001       |    |		Load	0x0,0x1
00a2 e002       |    |		Load	0x0,0x2
00a3 e001       |    |		Load	0x0,0x1
00a4 01d7       |    |		Execute	Vector,Field_Read
00a5 e21c       |    |		Load	0x1,0x1c
00a6 e006       |    |		Load	0x0,0x6
00a7 e21d       |    |		Load	0x1,0x1d
00a8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a9 e005       |    |		Load	0x0,0x5
00aa 4806       |H   |		Short_Literal	0x6
00ab e220       |    |		Load	0x1,0x20
00ac 020e       |    |		Execute	Module,Augment_Imports
00ad 0387       |    |		Declare_Variable	Package
00ae 4801       |H   |		Short_Literal	0x1
00af 00db       |    |		Load_Top	At_Offset_3
00b0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00b1 4801       |H   |		Short_Literal	0x1
00b2 e21f       |    |		Load	0x1,0x1f
00b3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b4 4801       |H   |		Short_Literal	0x1
00b5 e220       |    |		Load	0x1,0x20
00b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b7 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
00b9 4803       |H   |		Short_Literal	0x3
00ba 4800       |H   |		Short_Literal	0x0
00bb e21a       |    |		Load	0x1,0x1a
00bc 0307       |    |		Complete_Type	Variant_Record,By_Defining
00bd e20d       |    |		Load	0x1,0xd
00be 03c4       |    |		Complete_Type	Access,By_Component_Completion
00bf 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
00c1 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf a007       |    |		Store_Unchecked	0x0,0x7
00d0 e218       |    |		Load	0x1,0x18
00d1 a008       |    |		Store_Unchecked	0x0,0x8
00d2 a009       |    |		Store_Unchecked	0x0,0x9
00d3 a00a       |    |		Store_Unchecked	0x0,0xa
00d4 a00b       |    |		Store_Unchecked	0x0,0xb
00d5 a00c       |    |		Store_Unchecked	0x0,0xc
00d6 a00d       |    |		Store_Unchecked	0x0,0xd
00d7 4808       |H   |		Short_Literal	0x8
00d8 e21d       |    |		Load	0x1,0x1d
00d9 020e       |    |		Execute	Module,Augment_Imports
00da e21d       |    |		Load	0x1,0x1d
00db 020f       |    |		Execute	Module,Activate
00dc a00e       |    |		Store_Unchecked	0x0,0xe
00dd a00f       |    |		Store_Unchecked	0x0,0xf
00de 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00df a010       |    |		Store_Unchecked	0x0,0x10
00e0 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00e1 e011       |    |		Load	0x0,0x11
00e2 a012       |    |		Store_Unchecked	0x0,0x12
00e3 e013       |    |		Load	0x0,0x13
00e4 a014       |    |		Store_Unchecked	0x0,0x14
00e5 a015       |    |		Store_Unchecked	0x0,0x15
00e6 a016       |    |		Store_Unchecked	0x0,0x16
00e7 480b       |H   |		Short_Literal	0xb
00e8 e21e       |    |		Load	0x1,0x1e
00e9 020e       |    |		Execute	Module,Augment_Imports
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 020f       |    |		Execute	Module,Activate
00ec a017       |    |		Store_Unchecked	0x0,0x17
00ed a00e       |    |		Store_Unchecked	0x0,0xe
00ee e21d       |    |		Load	0x1,0x1d
00ef 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
00f0 a018       |    |		Store_Unchecked	0x0,0x18
00f1 e21d       |    |		Load	0x1,0x1d
00f2 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00f3 4805       |H   |		Short_Literal	0x5
00f4 e21f       |    |		Load	0x1,0x1f
00f5 020e       |    |		Execute	Module,Augment_Imports
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 020f       |    |		Execute	Module,Activate
00f8 a017       |    |		Store_Unchecked	0x0,0x17
00f9 a00e       |    |		Store_Unchecked	0x0,0xe
00fa e21d       |    |		Load	0x1,0x1d
00fb 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
00fc a019       |    |		Store_Unchecked	0x0,0x19
00fd a01a       |    |		Store_Unchecked	0x0,0x1a
00fe a01b       |    |		Store_Unchecked	0x0,0x1b
00ff e21d       |    |		Load	0x1,0x1d
0100 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0101 4807       |H   |		Short_Literal	0x7
0102 e220       |    |		Load	0x1,0x20
0103 020e       |    |		Execute	Module,Augment_Imports
0104 00d9       |    |		Load_Top	At_Offset_1
0105 020f       |    |		Execute	Module,Activate
0106 e006       |    |		Load	0x0,0x6
0107 a01c       |    |		Store_Unchecked	0x0,0x1c
0108 a01d       |    |		Store_Unchecked	0x0,0x1d
0109 a01e       |    |		Store_Unchecked	0x0,0x1e
010a a01f       |    |		Store_Unchecked	0x0,0x1f
010b a020       |    |		Store_Unchecked	0x0,0x20
010c a021       | !  |		Store_Unchecked	0x0,0x21
010d a022       | "  |		Store_Unchecked	0x0,0x22
010e a023       | #  |		Store_Unchecked	0x0,0x23
010f e21f       |    |		Load	0x1,0x1f
0110 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0111 e21f       |    |		Load	0x1,0x1f
0112 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0113 e21a       |    |		Load	0x1,0x1a
0114 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0115 e220       |    |		Load	0x1,0x20
0116 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0117 e220       |    |		Load	0x1,0x20
0118 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0119 480f       |H   |		Short_Literal	0xf
011a e217       |    |		Load	0x1,0x17
011b 020e       |    |		Execute	Module,Augment_Imports
011c e217       |    |		Load	0x1,0x17
011d 020f       |    |		Execute	Module,Activate
011e			BODY_0008:
011e 00bc       |    |		Action	Signal_Activated
011f 00bb       |    |		Action	Signal_Completion
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0128       | (  |		.CONST	0x0128								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 e21e       |    |		Load	0x1,0x1e
0124 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0125 02ff       |    |		Declare_Variable	Variant_Record
0126 00d8       |    |		Load_Top	At_Offset_0
0127 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0128			BODY_0120:
0128 00db       |    |		Load_Top	At_Offset_3
0129 e21e       |    |		Load	0x1,0x1e
012a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
012b 00d9       |    |		Load_Top	At_Offset_1
012c 016d       | m  |		Execute	Variant_Record,Structure_Write
012d 4800       |H   |		Short_Literal	0x0
012e e21a       |    |		Load	0x1,0x1a
012f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0130 00d9       |    |		Load_Top	At_Offset_1
0131 00d9       |    |		Load_Top	At_Offset_1
0132 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0133 8221       | !  |		Call	0x1,0x21
0134 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
013c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0148       | H  |		.CONST	0x0148								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 e21e       |    |		Load	0x1,0x1e
0144 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0145 02ff       |    |		Declare_Variable	Variant_Record
0146 00d8       |    |		Load_Top	At_Offset_0
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148			BODY_0140:
0148 00db       |    |		Load_Top	At_Offset_3
0149 e20d       |    |		Load	0x1,0xd
014a 022f       | /  |		Execute	Access,Equal
014b 6802       |h   |		Jump_Zero	0x14e
014c e5fe       |    |		Load	0x2,-0x2
014d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
014e e5fe       |    |		Load	0x2,-0x2
014f e20d       |    |		Load	0x1,0xd
0150 022f       | /  |		Execute	Access,Equal
0151 6802       |h   |		Jump_Zero	0x154
0152 00db       |    |		Load_Top	At_Offset_3
0153 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0154 e5fe       |    |		Load	0x2,-0x2
0155 e5ff       |    |		Load	0x2,-0x1
0156 e21e       |    |		Load	0x1,0x1e
0157 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0158 00d9       |    |		Load_Top	At_Offset_1
0159 016d       | m  |		Execute	Variant_Record,Structure_Write
015a 4800       |H   |		Short_Literal	0x0
015b e21a       |    |		Load	0x1,0x1a
015c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
015d 00d9       |    |		Load_Top	At_Offset_1
015e 00d9       |    |		Load_Top	At_Offset_1
015f 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0160 8221       | !  |		Call	0x1,0x21
0161 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0170       | p  |		.CONST	0x0170								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0002       |    |		.CONST	0x0002								; Number of locals
016b			INIT_0168:
016b e21e       |    |		Load	0x1,0x1e
016c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016d 02ff       |    |		Declare_Variable	Variant_Record
016e 00d8       |    |		Load_Top	At_Offset_0
016f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0170			BODY_0168:
0170 00db       |    |		Load_Top	At_Offset_3
0171 e21e       |    |		Load	0x1,0x1e
0172 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0173 00d9       |    |		Load_Top	At_Offset_1
0174 016d       | m  |		Execute	Variant_Record,Structure_Write
0175 4800       |H   |		Short_Literal	0x0
0176 e21a       |    |		Load	0x1,0x1a
0177 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0178 00d9       |    |		Load_Top	At_Offset_1
0179 00d9       |    |		Load_Top	At_Offset_1
017a 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
017b 8221       | !  |		Call	0x1,0x21
017c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017d 0000 0000  |    |		.XXX[0x3]
017f 0000       |    |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0188       |    |		.CONST	0x0188								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 e21f       |    |		Load	0x1,0x1f
0184 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0185 02ff       |    |		Declare_Variable	Variant_Record
0186 00d8       |    |		Load_Top	At_Offset_0
0187 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0188			BODY_0180:
0188 e5fe       |    |		Load	0x2,-0x2
0189 00d8       |    |		Load_Top	At_Offset_0
018a e005       |    |		Load	0x0,0x5
018b 0260       | `  |		Execute	Discrete,In_Type
018c 7001       |p   |		Jump_Nonzero	0x18e
018d 0801       |    |		Execute_Immediate	Raise,0x1
018e e21f       |    |		Load	0x1,0x1f
018f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0190 00d9       |    |		Load_Top	At_Offset_1
0191 016d       | m  |		Execute	Variant_Record,Structure_Write
0192 4801       |H   |		Short_Literal	0x1
0193 e21a       |    |		Load	0x1,0x1a
0194 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0195 00d9       |    |		Load_Top	At_Offset_1
0196 00d9       |    |		Load_Top	At_Offset_1
0197 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0198 8221       | !  |		Call	0x1,0x21
0199 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019a 0000 0000  |    |		.BLANK	0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a8       |    |		.CONST	0x01a8								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 e220       |    |		Load	0x1,0x20
01a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a5 02ff       |    |		Declare_Variable	Variant_Record
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a8			BODY_01a0:
01a8 e5fd       |    |		Load	0x2,-0x3
01a9 e006       |    |		Load	0x0,0x6
01aa 0119       |    |		Execute	Any,Check_In_Formal_Type
01ab e5fe       |    |		Load	0x2,-0x2
01ac 00d8       |    |		Load_Top	At_Offset_0
01ad e005       |    |		Load	0x0,0x5
01ae 0260       | `  |		Execute	Discrete,In_Type
01af 7001       |p   |		Jump_Nonzero	0x1b1
01b0 0801       |    |		Execute_Immediate	Raise,0x1
01b1 e220       |    |		Load	0x1,0x20
01b2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01b3 00d9       |    |		Load_Top	At_Offset_1
01b4 016d       | m  |		Execute	Variant_Record,Structure_Write
01b5 4802       |H   |		Short_Literal	0x2
01b6 e21a       |    |		Load	0x1,0x1a
01b7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b8 00d9       |    |		Load_Top	At_Offset_1
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01bb 8221       | !  |		Call	0x1,0x21
01bc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 e20d       |    |		Load	0x1,0xd
01c5 022f       | /  |		Execute	Access,Equal
01c6 6802       |h   |		Jump_Zero	0x1c9
01c7 4800       |H   |		Short_Literal	0x0
01c8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c9 00db       |    |		Load_Top	At_Offset_3
01ca 0227       | '  |		Execute	Access,All_Reference
01cb 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01cc 4603       |F   |		Jump_Case	0x4
01cd 7805       |x   |		Jump	0x1d3								; case 0x0
01ce 780b       |x   |		Jump	0x1da								; case 0x1
01cf 7811       |x   |		Jump	0x1e1								; case 0x2
01d0 7800       |x   |		Jump	0x1d1								; case 0x3
01d1 e218       |    |		Load	0x1,0x18
01d2 0257       | W  |		Execute	Discrete,Raise
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 0227       | '  |		Execute	Access,All_Reference
01d5 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01d6 00db       |    |		Load_Top	At_Offset_3
01d7 e21e       |    |		Load	0x1,0x1e
01d8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01d9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01da 00db       |    |		Load_Top	At_Offset_3
01db 0227       | '  |		Execute	Access,All_Reference
01dc 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01dd 00db       |    |		Load_Top	At_Offset_3
01de e21f       |    |		Load	0x1,0x1f
01df 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01e0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 0227       | '  |		Execute	Access,All_Reference
01e3 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 e220       |    |		Load	0x1,0x20
01e6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2
01ec e20d       |    |		Load	0x1,0xd
01ed 022e       | .  |		Execute	Access,Not_Equal
01ee 6821       |h!  |		Jump_Zero	0x210
01ef 00da       |    |		Load_Top	At_Offset_2
01f0 0227       | '  |		Execute	Access,All_Reference
01f1 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f2 4603       |F   |		Jump_Case	0x4
01f3 7808       |x   |		Jump	0x1fc								; case 0x0
01f4 780e       |x   |		Jump	0x203								; case 0x1
01f5 7814       |x   |		Jump	0x20a								; case 0x2
01f6 7800       |x   |		Jump	0x1f7								; case 0x3
01f7 00db       |    |		Load_Top	At_Offset_3
01f8 0092 02f3  |    |		Action	Push_String_Extended,0x2f3					; "Undefined predicate"
01fa 800e       |    |		Call	0x0,0xe
01fb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01fc 00db       |    |		Load_Top	At_Offset_3
01fd 00db       |    |		Load_Top	At_Offset_3
01fe 0227       | '  |		Execute	Access,All_Reference
01ff 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0200 e21e       |    |		Load	0x1,0x1e
0201 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0202 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0203 00db       |    |		Load_Top	At_Offset_3
0204 00db       |    |		Load_Top	At_Offset_3
0205 0227       | '  |		Execute	Access,All_Reference
0206 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0207 e21f       |    |		Load	0x1,0x1f
0208 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0209 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
020a 00db       |    |		Load_Top	At_Offset_3
020b 00db       |    |		Load_Top	At_Offset_3
020c 0227       | '  |		Execute	Access,All_Reference
020d 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
020e e220       |    |		Load	0x1,0x20
020f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0210 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0211 0000 0000  |    |		.BLANK	0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 4607       |F   |		Jump_Case	0x8
021c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
021d 7807       |x   |		Jump	0x225								; case 0x1
021e 780a       |x   |		Jump	0x229								; case 0x2
021f 780e       |x   |		Jump	0x22e								; case 0x3
0220 7811       |x   |		Jump	0x232								; case 0x4
0221 7812       |x   |		Jump	0x234								; case 0x5
0222 7813       |x   |		Jump	0x236								; case 0x6
0223 7816       |x   |		Jump	0x23a								; case 0x7
0224 4302       |C   |		.XXX[0x1]
0225 00da       |    |		Load_Top	At_Offset_2
0226 0091 02ed  |    |		Action	Push_String_Extended_Indexed,0x2ed				; "PRIMARY"
0228 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0229 00db       |    |		Load_Top	At_Offset_3
022a 00db       |    |		Load_Top	At_Offset_3
022b 00e0       |    |		Load_Encached	Standard_Cache
022c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
022d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022e 00da       |    |		Load_Top	At_Offset_2
022f 00e0       |    |		Load_Encached	Standard_Cache
0230 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0231 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0232 00db       |    |		Load_Top	At_Offset_3
0233 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0234 00db       |    |		Load_Top	At_Offset_3
0235 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0236 e219       |    |		Load	0x1,0x19
0237 00dc       |    |		Load_Top	At_Offset_4
0238 0267       | g  |		Execute	Discrete,Predecessor
0239 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
023a e219       |    |		Load	0x1,0x19
023b 00dc       |    |		Load_Top	At_Offset_4
023c 0268       | h  |		Execute	Discrete,Successor
023d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
023e 0000 0000  |    |		.XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			BODY_0240:
0243			INIT_0240:
0243			INIT_0240:
0243 4609       |F   |		Jump_Case	0xa
0244 7809       |x   |		Jump	0x24e								; case 0x0
0245 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0246 781b       |x   |		Jump	0x262								; case 0x2
0247 781e       |x   |		Jump	0x266								; case 0x3
0248 7823       |x#  |		Jump	0x26c								; case 0x4
0249 782d       |x-  |		Jump	0x277								; case 0x5
024a 7837       |x7  |		Jump	0x282								; case 0x6
024b 7844       |xD  |		Jump	0x290								; case 0x7
024c 7854       |xT  |		Jump	0x2a1								; case 0x8
024d 785a       |xZ  |		Jump	0x2a8								; case 0x9
024e 00da       |    |		Load_Top	At_Offset_2
024f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0250 4603       |F   |		Jump_Case	0x4
0251 7804       |x   |		Jump	0x256								; case 0x0
0252 7807       |x   |		Jump	0x25a								; case 0x1
0253 780a       |x   |		Jump	0x25e								; case 0x2
0254 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0255 4302       |C   |		.XXX[0x1]
0256 00da       |    |		Load_Top	At_Offset_2
0257 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0258 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0259 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
025a 00da       |    |		Load_Top	At_Offset_2
025b 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
025c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
025d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
025e 00da       |    |		Load_Top	At_Offset_2
025f 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0260 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0261 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0262 4801       |H   |		Short_Literal	0x1
0263 4804       |H   |		Short_Literal	0x4
0264 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0265 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0266 e5fd       |    |		Load	0x2,-0x3
0267 00db       |    |		Load_Top	At_Offset_3
0268 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0269 e5fe       |    |		Load	0x2,-0x2
026a 0306       |    |		Complete_Type	Variant_Record,By_Renaming
026b 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
026c 4801       |H   |		Short_Literal	0x1
026d 4804       |H   |		Short_Literal	0x4
026e 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
026f e5fe       |    |		Load	0x2,-0x2
0270 00d8       |    |		Load_Top	At_Offset_0
0271 e5ff       |    |		Load	0x2,-0x1
0272 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0273 e5ff       |    |		Load	0x2,-0x1
0274 00db       |    |		Load_Top	At_Offset_3
0275 0305       |    |		Complete_Type	Variant_Record,By_Constraining_Incomplete
0276 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0277 4801       |H   |		Short_Literal	0x1
0278 00db       |    |		Load_Top	At_Offset_3
0279 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
027a 4603       |F   |		Jump_Case	0x4
027b 7803       |x   |		Jump	0x27f								; case 0x0
027c 7802       |x   |		Jump	0x27f								; case 0x1
027d 7801       |x   |		Jump	0x27f								; case 0x2
027e 7800       |x   |		Jump	0x27f								; case 0x3
027f e5ff       |    |		Load	0x2,-0x1
0280 0304       |    |		Complete_Type	Variant_Record,By_Completing_Constraint
0281 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0282 00db       |    |		Load_Top	At_Offset_3
0283 4603       |F   |		Jump_Case	0x4
0284 7805       |x   |		Jump	0x28a								; case 0x0
0285 7806       |x   |		Jump	0x28c								; case 0x1
0286 7807       |x   |		Jump	0x28e								; case 0x2
0287 7800       |x   |		Jump	0x288								; case 0x3
0288 48ff       |H   |		Short_Literal	0xff
0289 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
028a 4801       |H   |		Short_Literal	0x1
028b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
028c 4802       |H   |		Short_Literal	0x2
028d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
028e 4803       |H   |		Short_Literal	0x3
028f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0290 00db       |    |		Load_Top	At_Offset_3
0291 e5fe       |    |		Load	0x2,-0x2
0292 4603       |F   |		Jump_Case	0x4
0293 7805       |x   |		Jump	0x299								; case 0x0
0294 7806       |x   |		Jump	0x29b								; case 0x1
0295 7807       |x   |		Jump	0x29d								; case 0x2
0296 7800       |x   |		Jump	0x297								; case 0x3
0297 48ff       |H   |		Short_Literal	0xff
0298 7805       |x   |		Jump	0x29e
0299 4801       |H   |		Short_Literal	0x1
029a 7803       |x   |		Jump	0x29e
029b 4802       |H   |		Short_Literal	0x2
029c 7801       |x   |		Jump	0x29e
029d 4803       |H   |		Short_Literal	0x3
029e e5ff       |    |		Load	0x2,-0x1
029f 031b       |    |		Declare_Type	Variant_Record,Constrained
02a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a1 00db       |    |		Load_Top	At_Offset_3
02a2 e5fe       |    |		Load	0x2,-0x2
02a3 e5ff       |    |		Load	0x2,-0x1
02a4 1c06       |    |		Execute_Immediate	Run_Utility,0x6
02a5 e5ff       |    |		Load	0x2,-0x1
02a6 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
02a7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a8 0869       | i  |		Execute_Immediate	Raise,0x69
02a9 0000 0000  |    |		.BLANK	0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 4607       |F   |		Jump_Case	0x8
02b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02b5 7807       |x   |		Jump	0x2bd								; case 0x1
02b6 780a       |x   |		Jump	0x2c1								; case 0x2
02b7 780e       |x   |		Jump	0x2c6								; case 0x3
02b8 7811       |x   |		Jump	0x2ca								; case 0x4
02b9 7812       |x   |		Jump	0x2cc								; case 0x5
02ba 7813       |x   |		Jump	0x2ce								; case 0x6
02bb 7816       |x   |		Jump	0x2d2								; case 0x7
02bc 4302       |C   |		.XXX[0x1]
02bd 00da       |    |		Load_Top	At_Offset_2
02be 0091 02f1  |    |		Action	Push_String_Extended_Indexed,0x2f1				; "SYSTEM"
02c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02c1 00db       |    |		Load_Top	At_Offset_3
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 00e0       |    |		Load_Encached	Standard_Cache
02c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c6 00da       |    |		Load_Top	At_Offset_2
02c7 00e0       |    |		Load_Encached	Standard_Cache
02c8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02c9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02ca 00db       |    |		Load_Top	At_Offset_3
02cb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02cc 00db       |    |		Load_Top	At_Offset_3
02cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ce e21c       |    |		Load	0x1,0x1c
02cf 00dc       |    |		Load_Top	At_Offset_4
02d0 0267       | g  |		Execute	Discrete,Predecessor
02d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02d2 e21c       |    |		Load	0x1,0x1c
02d3 00dc       |    |		Load_Top	At_Offset_4
02d4 0268       | h  |		Execute	Discrete,Successor
02d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd       |    |		.CONST	0x02dd								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0002       |    |		.CONST	0x0002								; Number of locals
02db			INIT_02d8:
02db e20d       |    |		Load	0x1,0xd
02dc 0007       |    |		Action	Break_Optional
02dd			BODY_02d8:
02dd 00db       |    |		Load_Top	At_Offset_3
02de 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02df 00d8       |    |		Load_Top	At_Offset_0
02e0 e21a       |    |		Load	0x1,0x1a
02e1 1c06       |    |		Execute_Immediate	Run_Utility,0x6
02e2 e20d       |    |		Load	0x1,0xd
02e3 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02e4 00d8       |    |		Load_Top	At_Offset_0
02e5 0227       | '  |		Execute	Access,All_Reference
02e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e7 0039       | 9  |		Store_Top	Access,At_Offset_1
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 00d9       |    |		Load_Top	At_Offset_1
02ea 0228       | (  |		Execute	Access,All_Write
02eb 00d8       |    |		Load_Top	At_Offset_0
02ec 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ed ; --------------------------------------------------------------------------------------
02ed ; STRING TABLE
02ed ; --------------------------------------------------------------------------------------
02ed 0010       |    |		.STRTAB	0x0010->0x02f5							; "PRIMARY"
02ee 0015       |    |		.STRTAB	0x0015->0x02f8							; "UNARY"
02ef 0018       |    |		.STRTAB	0x0018->0x02fb							; "BINARY"
02f0 001c       |    |		.STRTAB	0x001c->0x02fe							; "UNDEFINED"
02f1 0023       | #  |		.STRTAB	0x0023->0x0302							; "SYSTEM"
02f2 0027       | '  |		.STRTAB	0x0027->0x0305							; "USER"
02f3 0029       | )  |		.STRTAB	0x0029->0x0307							; "Undefined predicate"
02f4 003a       | :  |		.STREND 0x003a->0x0311
02f5 5052 494d  |PRIM|		.STRTAB_STRINGS
0311 0000 0000  |    |		.BLANK	0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug Table
0318 ; --------------------------------------------------------------------------------------
0318 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0xaf6a,0x0000,0x0001,0x000d
031e 000b 0352  |   R|		.DBG4T	0x000b,0x0352,0x0000,0x0000
0322 005e 0365  | ^ e|		.DBG4T	0x005e,0x0365,0x0000,0x0000
0326 0123 037a  | # z|		.DBG4T	0x0123,0x037a,0x0002,0x0000
032a 0143 037f  | C  |		.DBG4T	0x0143,0x037f,0x0002,0x0000
032e 016b 0388  | k  |		.DBG4T	0x016b,0x0388,0x0002,0x0000
0332 0183 038d  |    |		.DBG4T	0x0183,0x038d,0x2802,0x0002
0336 01a3 0392  |    |		.DBG4T	0x01a3,0x0392,0x2802,0x0002
033a 01c3 0397  |    |		.DBG4T	0x01c3,0x0397,0x0002,0x4000
033e 01eb 03a7  |    |		.DBG4T	0x01eb,0x03a7,0x0001,0x4000
0342 021b 0000  |    |		.DBG4T	0x021b,0x0000,0x0005,0x0000
0346 0243 0000  | C  |		.DBG4T	0x0243,0x0000,0x0005,0x0000
034a 02b3 0000  |    |		.DBG4T	0x02b3,0x0000,0x0005,0x0000
034e 02db 03b5  |    |		.DBG4T	0x02db,0x03b5,0x0002,0x0000
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug chain
0352 ; --------------------------------------------------------------------------------------
0352 0011 0000  |    |		.DBGLEN	0x0011,0x0000
0354 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000e,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0032,0x003c,0x0041,0x004c,0x0050,0x0053
0365 ; --------------------------------------------------------------------------------------
0365 ; Debug chain
0365 ; --------------------------------------------------------------------------------------
0365 0013 0000  |    |		.DBGLEN	0x0013,0x0000
0367 005e 0063  | ^ c|		.DBGLNO	0x005e,0x0063,0x0073,0x0086,0x009a,0x00ae,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9,0x00cb,0x00cd,0x00cf,0x00dc,0x00ec,0x00f8,0x0106
037a ; --------------------------------------------------------------------------------------
037a ; Debug chain
037a ; --------------------------------------------------------------------------------------
037a 0001 0002  |    |		.DBGLEN	0x0001,0x0002
037c 0123 0128  | # (|		.DBGLNO	0x0123,0x0128,0x012d
037f ; --------------------------------------------------------------------------------------
037f ; Debug chain
037f ; --------------------------------------------------------------------------------------
037f 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0381 0143 0148  | C H|		.DBGLNO	0x0143,0x0148,0x014c,0x014e,0x0152,0x0154,0x015a
0388 ; --------------------------------------------------------------------------------------
0388 ; Debug chain
0388 ; --------------------------------------------------------------------------------------
0388 0001 0002  |    |		.DBGLEN	0x0001,0x0002
038a 016b 0170  | k p|		.DBGLNO	0x016b,0x0170,0x0175
038d ; --------------------------------------------------------------------------------------
038d ; Debug chain
038d ; --------------------------------------------------------------------------------------
038d 0001 0002  |    |		.DBGLEN	0x0001,0x0002
038f 0183 0188  |    |		.DBGLNO	0x0183,0x0188,0x0192
0392 ; --------------------------------------------------------------------------------------
0392 ; Debug chain
0392 ; --------------------------------------------------------------------------------------
0392 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0394 01a3 01a8  |    |		.DBGLNO	0x01a3,0x01a8,0x01b5
0397 ; --------------------------------------------------------------------------------------
0397 ; Debug chain
0397 ; --------------------------------------------------------------------------------------
0397 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0399 01c3 01c7  |    |		.DBGLNO	0x01c3,0x01c7,0x01c9,0x01d1,0x01d3,0x01da,0x01e1
03a0 0001 0002  |    |		.XXX[0x7]
03a2 0003 0007  |    |
03a4 0004 0005  |    |
03a6 0006       |    |
03a7 ; --------------------------------------------------------------------------------------
03a7 ; Debug chain
03a7 ; --------------------------------------------------------------------------------------
03a7 0000 0006  |    |		.DBGLEN	0x0000,0x0006
03a9 01eb 01ef  |    |		.DBGLNO	0x01eb,0x01ef,0x01f7,0x01fc,0x0203,0x020a
03af 0001 0002  |    |		.XXX[0x6]
03b1 0006 0003  |    |
03b3 0004 0005  |    |
03b5 ; --------------------------------------------------------------------------------------
03b5 ; Debug chain
03b5 ; --------------------------------------------------------------------------------------
03b5 0001 0003  |    |		.DBGLEN	0x0001,0x0003
03b7 02db 02dd  |    |		.DBGLNO	0x02db,0x02dd,0x02e8,0x02eb
03bb 0000 0000  |    |		.BLANK	0000[0x45]