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

⟦518e83129⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 
└─⟦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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0558       | X  |		.CONST	0x0558								; 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 014b       | K  |		.CONST	0x014b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0064       | d  |		.CONST	0x0064								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000c 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000d 00e3       |    |		Load_Encached	Natural_Cache
000e 0266       | f  |		Execute	Discrete,Bounds
000f 00db       |    |		Load_Top	At_Offset_3
0010 02a0       |    |		Declare_Subprogram	Null_Subprogram
0011 4801       |H   |		Short_Literal	0x1
0012 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0013 e001       |    |		Load	0x0,0x1
0014 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0015 0129       | )  |		Execute	Any,Make_Visible
0016 00e4       |    |		Load_Encached	Positive_Cache
0017 0266       | f  |		Execute	Discrete,Bounds
0018 00da       |    |		Load_Top	At_Offset_2
0019 02a0       |    |		Declare_Subprogram	Null_Subprogram
001a 4801       |H   |		Short_Literal	0x1
001b 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
001c 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
001e 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0020 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0022 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0024 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0026 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0028 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
002a 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002c 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
002e 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0030 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0032 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0034 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0036 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0038 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
003a 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
003c 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
003e 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0040 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0042 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0044 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0046 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0048 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
004a 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00c4       |    |		Action	Make_Default
0057 00c4       |    |		Action	Make_Default
0058 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
005a c235       | 5  |		Store	0x1,0x35
005b 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
005d c22a       | *  |		Store	0x1,0x2a
005e 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0060 c22b       | +  |		Store	0x1,0x2b
0061 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0063 c22c       | ,  |		Store	0x1,0x2c
0064 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
0066 c22d       | -  |		Store	0x1,0x2d
0067 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
0069 c22e       | .  |		Store	0x1,0x2e
006a 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
006c c22f       | /  |		Store	0x1,0x2f
006d 029a 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call,Visible,Unelaborated
006f c230       | 0  |		Store	0x1,0x30
0070 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0072 c231       | 1  |		Store	0x1,0x31
0073 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
0075 c232       | 2  |		Store	0x1,0x32
0076 4805       |H   |		Short_Literal	0x5
0077 032a       | *  |		Declare_Type	Record,Incomplete
0078 c233       | 3  |		Store	0x1,0x33
0079 00da       |    |		Load_Top	At_Offset_2
007a 02a0       |    |		Declare_Subprogram	Null_Subprogram
007b e20d       |    |		Load	0x1,0xd
007c 03a3       |    |		Complete_Type	Heap_Access,By_Defining
007d 4804       |H   |		Short_Literal	0x4
007e 032a       | *  |		Declare_Type	Record,Incomplete
007f c234       | 4  |		Store	0x1,0x34
0080 00d9       |    |		Load_Top	At_Offset_1
0081 02a0       |    |		Declare_Subprogram	Null_Subprogram
0082 e20e       |    |		Load	0x1,0xe
0083 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0084 00bf       |    |		Action	Accept_Activation
0085 4803       |H   |		Short_Literal	0x3
0086 032a       | *  |		Declare_Type	Record,Incomplete
0087 00d8       |    |		Load_Top	At_Offset_0
0088 02a0       |    |		Declare_Subprogram	Null_Subprogram
0089 4818       |H   |		Short_Literal	0x18
008a 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
008b 00d8       |    |		Load_Top	At_Offset_0
008c 00d9       |    |		Load_Top	At_Offset_1
008d e20d       |    |		Load	0x1,0xd
008e 02a0       |    |		Declare_Subprogram	Null_Subprogram
008f e236       | 6  |		Load	0x1,0x36
0090 0326       | &  |		Complete_Type	Record,By_Defining
0091 e002       |    |		Load	0x0,0x2
0092 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0093 e210       |    |		Load	0x1,0x10
0094 e003       |    |		Load	0x0,0x3
0095 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0096 e004       |    |		Load	0x0,0x4
0097 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0098 e005       |    |		Load	0x0,0x5
0099 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009a 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
009c e233       | 3  |		Load	0x1,0x33
009d 0326       | &  |		Complete_Type	Record,By_Defining
009e e002       |    |		Load	0x0,0x2
009f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 00da       |    |		Load_Top	At_Offset_2
00a2 00e2       |    |		Load_Encached	Integer_Cache
00a3 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a4 e234       | 4  |		Load	0x1,0x34
00a5 0326       | &  |		Complete_Type	Record,By_Defining
00a6 4801       |H   |		Short_Literal	0x1
00a7 4800       |H   |		Short_Literal	0x0
00a8 e20f       |    |		Load	0x1,0xf
00a9 035b       | [  |		Declare_Type	Array,Constrained
00aa 0337       | 7  |		Declare_Variable	Array
00ab 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
00ad 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd e006       |    |		Load	0x0,0x6
00ce e007       |    |		Load	0x0,0x7
00cf e233       | 3  |		Load	0x1,0x33
00d0 e20d       |    |		Load	0x1,0xd
00d1 e008       |    |		Load	0x0,0x8
00d2 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00d3 0387       |    |		Declare_Variable	Package
00d4 00d8       |    |		Load_Top	At_Offset_0
00d5 020f       |    |		Execute	Module,Activate
00d6 e008       |    |		Load	0x0,0x8
00d7 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
00d8 00c6       |    |		Action	Check_Subprogram_Elaborated
00d9 e233       | 3  |		Load	0x1,0x33
00da e20d       |    |		Load	0x1,0xd
00db e009       |    |		Load	0x0,0x9
00dc e00a       |    |		Load	0x0,0xa
00dd 4800       |H   |		Short_Literal	0x0
00de 0007       |    |		Action	Break_Optional
00df e004       |    |		Load	0x0,0x4
00e0 193c       | <  |		Execute	Package,Field_Reference,Field_Number 0x3c
00e1 00c6       |    |		Action	Check_Subprogram_Elaborated
00e2 e20d       |    |		Load	0x1,0xd
00e3 4814       |H   |		Short_Literal	0x14
00e4 e23a       | :  |		Load	0x1,0x3a
00e5 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
00e6 e23a       | :  |		Load	0x1,0x3a
00e7 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
00e8 e00b       |    |		Load	0x0,0xb
00e9 e00c       |    |		Load	0x0,0xc
00ea 4800       |H   |		Short_Literal	0x0
00eb 0007       |    |		Action	Break_Optional
00ec 029d 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call
00ee e004       |    |		Load	0x0,0x4
00ef 193d       | =  |		Execute	Package,Field_Reference,Field_Number 0x3d
00f0 00c6       |    |		Action	Check_Subprogram_Elaborated
00f1 e20d       |    |		Load	0x1,0xd
00f2 4814       |H   |		Short_Literal	0x14
00f3 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
00f4 e20d       |    |		Load	0x1,0xd
00f5 e00d       |    |		Load	0x0,0xd
00f6 e00e       |    |		Load	0x0,0xe
00f7 4800       |H   |		Short_Literal	0x0
00f8 0007       |    |		Action	Break_Optional
00f9 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00fa 00c7       |    |		Action	Elaborate_Subprogram
00fb 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00fc 00c7       |    |		Action	Elaborate_Subprogram
00fd 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00fe 00c7       |    |		Action	Elaborate_Subprogram
00ff 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0100 00c7       |    |		Action	Elaborate_Subprogram
0101 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0102 00c7       |    |		Action	Elaborate_Subprogram
0103 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0104 00c7       |    |		Action	Elaborate_Subprogram
0105 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0106 00c7       |    |		Action	Elaborate_Subprogram
0107 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0108 00c7       |    |		Action	Elaborate_Subprogram
0109 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
010a 00c7       |    |		Action	Elaborate_Subprogram
010b 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
010c 00c7       |    |		Action	Elaborate_Subprogram
010d 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
010e 00c7       |    |		Action	Elaborate_Subprogram
010f 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0110 00c7       |    |		Action	Elaborate_Subprogram
0111 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0112 00c7       |    |		Action	Elaborate_Subprogram
0113 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0114 00c7       |    |		Action	Elaborate_Subprogram
0115 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0116 00c7       |    |		Action	Elaborate_Subprogram
0117 e00f       |    |		Load	0x0,0xf
0118 e010       |    |		Load	0x0,0x10
0119 e234       | 4  |		Load	0x1,0x34
011a e20e       |    |		Load	0x1,0xe
011b e008       |    |		Load	0x0,0x8
011c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
011d 0387       |    |		Declare_Variable	Package
011e 00d8       |    |		Load_Top	At_Offset_0
011f 020f       |    |		Execute	Module,Activate
0120 e008       |    |		Load	0x0,0x8
0121 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0122 00c6       |    |		Action	Check_Subprogram_Elaborated
0123 e234       | 4  |		Load	0x1,0x34
0124 e20e       |    |		Load	0x1,0xe
0125 e011       |    |		Load	0x0,0x11
0126 e012       |    |		Load	0x0,0x12
0127 4800       |H   |		Short_Literal	0x0
0128 0007       |    |		Action	Break_Optional
0129 e004       |    |		Load	0x0,0x4
012a 193c       | <  |		Execute	Package,Field_Reference,Field_Number 0x3c
012b 00c6       |    |		Action	Check_Subprogram_Elaborated
012c e20e       |    |		Load	0x1,0xe
012d 4815       |H   |		Short_Literal	0x15
012e e24f       | O  |		Load	0x1,0x4f
012f 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
0130 e24f       | O  |		Load	0x1,0x4f
0131 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0132 e013       |    |		Load	0x0,0x13
0133 e014       |    |		Load	0x0,0x14
0134 4800       |H   |		Short_Literal	0x0
0135 0007       |    |		Action	Break_Optional
0136 029d 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call
0138 e004       |    |		Load	0x0,0x4
0139 193d       | =  |		Execute	Package,Field_Reference,Field_Number 0x3d
013a 00c6       |    |		Action	Check_Subprogram_Elaborated
013b e20e       |    |		Load	0x1,0xe
013c 4815       |H   |		Short_Literal	0x15
013d 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
013e e20e       |    |		Load	0x1,0xe
013f e015       |    |		Load	0x0,0x15
0140 e016       |    |		Load	0x0,0x16
0141 4800       |H   |		Short_Literal	0x0
0142 0007       |    |		Action	Break_Optional
0143 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0144 00c7       |    |		Action	Elaborate_Subprogram
0145 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0146 00c7       |    |		Action	Elaborate_Subprogram
0147 029d 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call
0149 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
014a 00c7       |    |		Action	Elaborate_Subprogram
014b			BODY_0008:
014b 00bc       |    |		Action	Signal_Activated
014c 00bb       |    |		Action	Signal_Completion
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00db       |    |		Load_Top	At_Offset_3
0154 e004       |    |		Load	0x0,0x4
0155 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0156 021f       |    |		Execute	Heap_Access,Equal
0157 681c       |h   |		Jump_Zero	0x174
0158 e233       | 3  |		Load	0x1,0x33
0159 0322       | "  |		Declare_Variable	Record
015a e002       |    |		Load	0x0,0x2
015b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
015c 00d9       |    |		Load_Top	At_Offset_1
015d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
015e 00db       |    |		Load_Top	At_Offset_3
015f 00d9       |    |		Load_Top	At_Offset_1
0160 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0161 e5fc       |    |		Load	0x2,-0x4
0162 00d9       |    |		Load_Top	At_Offset_1
0163 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0164 e004       |    |		Load	0x0,0x4
0165 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0166 00d9       |    |		Load_Top	At_Offset_1
0167 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0168 e5fd       |    |		Load	0x2,-0x3
0169 e233       | 3  |		Load	0x1,0x33
016a 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
016b 0119       |    |		Execute	Any,Check_In_Formal_Type
016c 00d9       |    |		Load_Top	At_Offset_1
016d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
016e e20d       |    |		Load	0x1,0xd
016f e017       |    |		Load	0x0,0x17
0170 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0171 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0172 a5fb       |    |		Store_Unchecked	0x2,-0x5
0173 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0174 e233       | 3  |		Load	0x1,0x33
0175 0322       | "  |		Declare_Variable	Record
0176 e002       |    |		Load	0x0,0x2
0177 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0178 00d9       |    |		Load_Top	At_Offset_1
0179 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
017a 00db       |    |		Load_Top	At_Offset_3
017b 00d9       |    |		Load_Top	At_Offset_1
017c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
017d e5fc       |    |		Load	0x2,-0x4
017e 00d9       |    |		Load_Top	At_Offset_1
017f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0180 e5fe       |    |		Load	0x2,-0x2
0181 e004       |    |		Load	0x0,0x4
0182 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0183 00d9       |    |		Load_Top	At_Offset_1
0184 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0185 e5fd       |    |		Load	0x2,-0x3
0186 e233       | 3  |		Load	0x1,0x33
0187 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0188 0119       |    |		Execute	Any,Check_In_Formal_Type
0189 00d9       |    |		Load_Top	At_Offset_1
018a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
018b e20d       |    |		Load	0x1,0xd
018c e017       |    |		Load	0x0,0x17
018d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
018e 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
018f a5fb       |    |		Store_Unchecked	0x2,-0x5
0190 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b e233       | 3  |		Load	0x1,0x33
019c 0322       | "  |		Declare_Variable	Record
019d e002       |    |		Load	0x0,0x2
019e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
019f 00d9       |    |		Load_Top	At_Offset_1
01a0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a4 e5fc       |    |		Load	0x2,-0x4
01a5 00d9       |    |		Load_Top	At_Offset_1
01a6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a7 e5fe       |    |		Load	0x2,-0x2
01a8 e004       |    |		Load	0x0,0x4
01a9 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
01aa 00d9       |    |		Load_Top	At_Offset_1
01ab 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01ac e5fd       |    |		Load	0x2,-0x3
01ad e233       | 3  |		Load	0x1,0x33
01ae 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
01af 0119       |    |		Execute	Any,Check_In_Formal_Type
01b0 00d9       |    |		Load_Top	At_Offset_1
01b1 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01b2 e20d       |    |		Load	0x1,0xd
01b3 e017       |    |		Load	0x0,0x17
01b4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01b5 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01b6 a5fb       |    |		Store_Unchecked	0x2,-0x5
01b7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00db       |    |		Load_Top	At_Offset_3
01bc 00db       |    |		Load_Top	At_Offset_3
01bd 0217       |    |		Execute	Heap_Access,All_Reference
01be 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 e004       |    |		Load	0x0,0x4
01c5 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
01c6 00db       |    |		Load_Top	At_Offset_3
01c7 0217       |    |		Execute	Heap_Access,All_Reference
01c8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01c9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ca 0000 0000  |    |		.BLANK	0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 0217       |    |		Execute	Heap_Access,All_Reference
01d5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d7 0000       |    |		.XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00db       |    |		Load_Top	At_Offset_3
01dc 00d8       |    |		Load_Top	At_Offset_0
01dd 00e4       |    |		Load_Encached	Positive_Cache
01de 0260       | `  |		Execute	Discrete,In_Type
01df 7001       |p   |		Jump_Nonzero	0x1e1
01e0 0801       |    |		Execute_Immediate	Raise,0x1
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 0217       |    |		Execute	Heap_Access,All_Reference
01e3 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
01e4 e004       |    |		Load	0x0,0x4
01e5 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
01e6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e7 0000       |    |		.XXX[0x1]
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 00db       |    |		Load_Top	At_Offset_3
01ec 00d8       |    |		Load_Top	At_Offset_0
01ed 00e4       |    |		Load_Encached	Positive_Cache
01ee 0260       | `  |		Execute	Discrete,In_Type
01ef 7001       |p   |		Jump_Nonzero	0x1f1
01f0 0801       |    |		Execute_Immediate	Raise,0x1
01f1 00db       |    |		Load_Top	At_Offset_3
01f2 0217       |    |		Execute	Heap_Access,All_Reference
01f3 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
01f4 e004       |    |		Load	0x0,0x4
01f5 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
01f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f7 0000       |    |		.XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 0217       |    |		Execute	Heap_Access,All_Reference
01fd 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
01fe e004       |    |		Load	0x0,0x4
01ff 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0200 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0201 0000 0000  |    |		.BLANK	0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2
020c 0217       |    |		Execute	Heap_Access,All_Reference
020d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
020e 00d8       |    |		Load_Top	At_Offset_0
020f 0120       |    |		Execute	Any,Is_Value
0210 7002       |p   |		Jump_Nonzero	0x213
0211 00d8       |    |		Load_Top	At_Offset_0
0212 011e       |    |		Execute	Any,Convert
0213 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0214 0000 0000  |    |		.BLANK	0000[0x4]
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 00db       |    |		Load_Top	At_Offset_3
021c 00db       |    |		Load_Top	At_Offset_3
021d 0217       |    |		Execute	Heap_Access,All_Reference
021e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
021f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00da       |    |		Load_Top	At_Offset_2
0224 0217       |    |		Execute	Heap_Access,All_Reference
0225 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0226 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0227 0000       |    |		.XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00db       |    |		Load_Top	At_Offset_3
022c 00db       |    |		Load_Top	At_Offset_3
022d 0217       |    |		Execute	Heap_Access,All_Reference
022e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
022f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00da       |    |		Load_Top	At_Offset_2
0234 7006       |p   |		Jump_Nonzero	0x23b
0235 e004       |    |		Load	0x0,0x4
0236 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0237 6008       |`   |		Indirect_Literal	Discrete,0x240,{0x00000000, 0x00001002}
0238 e002       |    |		Load	0x0,0x2
0239 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
023a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023b 00da       |    |		Load_Top	At_Offset_2
023c 0217       |    |		Execute	Heap_Access,All_Reference
023d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
023e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023f 0000       |    |		.XXX[0x1]
0240 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001002}
0244 0000 0000  |    |		.BLANK	0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00db       |    |		Load_Top	At_Offset_3
024c 00db       |    |		Load_Top	At_Offset_3
024d 0217       |    |		Execute	Heap_Access,All_Reference
024e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
024f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 4800       |H   |		Short_Literal	0x0
0254 00db       |    |		Load_Top	At_Offset_3
0255 0217       |    |		Execute	Heap_Access,All_Reference
0256 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0257 e002       |    |		Load	0x0,0x2
0258 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0259 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025a 0000 0000  |    |		.BLANK	0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 0217       |    |		Execute	Heap_Access,All_Reference
0265 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0266 e002       |    |		Load	0x0,0x2
0267 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0268 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00da       |    |		Load_Top	At_Offset_2
0274 e240       | @  |		Load	0x1,0x40
0275 e241       | A  |		Load	0x1,0x41
0276 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
0277 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0278 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
0279 e004       |    |		Load	0x0,0x4
027a 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
027b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027c 0000 0000  |    |		.BLANK	0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284 e248       | H  |		Load	0x1,0x48
0285 e249       | I  |		Load	0x1,0x49
0286 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
0287 e24b       | K  |		Load	0x1,0x4b
0288 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
0289 e004       |    |		Load	0x0,0x4
028a 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
028b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028c 0000 0000  |    |		.BLANK	0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 0217       |    |		Execute	Heap_Access,All_Reference
0295 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0296 e001       |    |		Load	0x0,0x1
0297 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0298 011c       |    |		Execute	Any,Convert_Unchecked
0299 1c01       |    |		Execute_Immediate	Run_Utility,0x1
029a 6009       |`   |		Indirect_Literal	Discrete,0x2a4,{0x00000000, 0x7fffffff}
029b 0092 04ea  |    |		Action	Push_String_Extended,0x4ea					; ", "
029d e5ff       |    |		Load	0x2,-0x1
029e 0217       |    |		Execute	Heap_Access,All_Reference
029f 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02a0 e004       |    |		Load	0x0,0x4
02a1 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
02a2 01cc       |    |		Execute	Vector,Catenate
02a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab e234       | 4  |		Load	0x1,0x34
02ac 0322       | "  |		Declare_Variable	Record
02ad e002       |    |		Load	0x0,0x2
02ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02af 00d9       |    |		Load_Top	At_Offset_1
02b0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02b1 e237       | 7  |		Load	0x1,0x37
02b2 00d9       |    |		Load_Top	At_Offset_1
02b3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02b4 e237       | 7  |		Load	0x1,0x37
02b5 00d9       |    |		Load_Top	At_Offset_1
02b6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02b7 4800       |H   |		Short_Literal	0x0
02b8 00d9       |    |		Load_Top	At_Offset_1
02b9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02ba e20e       |    |		Load	0x1,0xe
02bb e017       |    |		Load	0x0,0x17
02bc 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02bd 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02be 00ca       |    |		Action	Exit_Nullary_Function
02bf 0000       |    |		.XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00da       |    |		Load_Top	At_Offset_2
02c4 6805       |h   |		Jump_Zero	0x2ca
02c5 00da       |    |		Load_Top	At_Offset_2
02c6 0217       |    |		Execute	Heap_Access,All_Reference
02c7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02c8 0f00       |    |		Execute_Immediate	Equal,0x0
02c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ca 4801       |H   |		Short_Literal	0x1
02cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cc 0000 0000  |    |		.BLANK	0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 680a       |h   |		Jump_Zero	0x2df
02d5 e002       |    |		Load	0x0,0x2
02d6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02d7 00db       |    |		Load_Top	At_Offset_3
02d8 0217       |    |		Execute	Heap_Access,All_Reference
02d9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02da 4800       |H   |		Short_Literal	0x0
02db 00db       |    |		Load_Top	At_Offset_3
02dc 0217       |    |		Execute	Heap_Access,All_Reference
02dd 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02de 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02df 0092 04eb  |    |		Action	Push_String_Extended,0x4eb					; "Warning: Cannot make a null Script empty."
02e1 8239       | 9  |		Call	0x1,0x39
02e2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e3 0000 0000  |    |		.BLANK	0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 0217       |    |		Execute	Heap_Access,All_Reference
02ed 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef 00e3       |    |		Load_Encached	Natural_Cache
02f0 0260       | `  |		Execute	Discrete,In_Type
02f1 7001       |p   |		Jump_Nonzero	0x2f3
02f2 0801       |    |		Execute_Immediate	Raise,0x1
02f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f4 0000 0000  |    |		.BLANK	0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fd       |    |		.CONST	0x02fd								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0002       |    |		.CONST	0x0002								; Number of locals
02fb			INIT_02f8:
02fb e237       | 7  |		Load	0x1,0x37
02fc 0007       |    |		Action	Break_Optional
02fd			BODY_02f8:
02fd e5fe       |    |		Load	0x2,-0x2
02fe 6833       |h3  |		Jump_Zero	0x332
02ff e002       |    |		Load	0x0,0x2
0300 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0301 e5fe       |    |		Load	0x2,-0x2
0302 0217       |    |		Execute	Heap_Access,All_Reference
0303 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0304 e236       | 6  |		Load	0x1,0x36
0305 0322       | "  |		Declare_Variable	Record
0306 e5fe       |    |		Load	0x2,-0x2
0307 0217       |    |		Execute	Heap_Access,All_Reference
0308 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0309 00d9       |    |		Load_Top	At_Offset_1
030a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
030b e237       | 7  |		Load	0x1,0x37
030c 00d9       |    |		Load_Top	At_Offset_1
030d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
030e e5ff       |    |		Load	0x2,-0x1
030f 00d9       |    |		Load_Top	At_Offset_1
0310 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0311 e237       | 7  |		Load	0x1,0x37
0312 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0313 0039       | 9  |		Store_Top	Access,At_Offset_1
0314 00d8       |    |		Load_Top	At_Offset_0
0315 0227       | '  |		Execute	Access,All_Reference
0316 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0317 6806       |h   |		Jump_Zero	0x31e
0318 00d8       |    |		Load_Top	At_Offset_0
0319 00d9       |    |		Load_Top	At_Offset_1
031a 0227       | '  |		Execute	Access,All_Reference
031b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
031c 0227       | '  |		Execute	Access,All_Reference
031d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
031e 00d8       |    |		Load_Top	At_Offset_0
031f e5fe       |    |		Load	0x2,-0x2
0320 0217       |    |		Execute	Heap_Access,All_Reference
0321 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0322 e5fe       |    |		Load	0x2,-0x2
0323 0217       |    |		Execute	Heap_Access,All_Reference
0324 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0325 7004       |p   |		Jump_Nonzero	0x32a
0326 00d8       |    |		Load_Top	At_Offset_0
0327 e5fe       |    |		Load	0x2,-0x2
0328 0217       |    |		Execute	Heap_Access,All_Reference
0329 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
032a e5fe       |    |		Load	0x2,-0x2
032b 0217       |    |		Execute	Heap_Access,All_Reference
032c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
032d 0a01       |    |		Execute_Immediate	Plus,0x1
032e e5fe       |    |		Load	0x2,-0x2
032f 0217       |    |		Execute	Heap_Access,All_Reference
0330 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0331 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0332 0092 04ec  |    |		Action	Push_String_Extended,0x4ec					; "Warning: Step cannot be added to a null Script."
0334 8239       | 9  |		Call	0x1,0x39
0335 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0336 0000 0000  |    |		.XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033d       | =  |		.CONST	0x033d								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0002       |    |		.CONST	0x0002								; Number of locals
033b			INIT_0338:
033b e20d       |    |		Load	0x1,0xd
033c 0007       |    |		Action	Break_Optional
033d			BODY_0338:
033d e20d       |    |		Load	0x1,0xd
033e e5fb       |    |		Load	0x2,-0x5
033f e5fc       |    |		Load	0x2,-0x4
0340 e5fd       |    |		Load	0x2,-0x3
0341 e5fe       |    |		Load	0x2,-0x2
0342 8213       |    |		Call	0x1,0x13
0343 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0344 00db       |    |		Load_Top	At_Offset_3
0345 00d9       |    |		Load_Top	At_Offset_1
0346 8229       | )  |		Call	0x1,0x29
0347 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034d       | M  |		.CONST	0x034d								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b e237       | 7  |		Load	0x1,0x37
034c 0007       |    |		Action	Break_Optional
034d			BODY_0348:
034d e5fe       |    |		Load	0x2,-0x2
034e 686d       |hm  |		Jump_Zero	0x3bc
034f e002       |    |		Load	0x0,0x2
0350 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0351 e5fe       |    |		Load	0x2,-0x2
0352 0217       |    |		Execute	Heap_Access,All_Reference
0353 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0354 e5fe       |    |		Load	0x2,-0x2
0355 0217       |    |		Execute	Heap_Access,All_Reference
0356 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0357 0039       | 9  |		Store_Top	Access,At_Offset_1
0358 00cf       |    |		Action	Mark_Auxiliary
0359 7843       |xC  |		Jump	0x39d
035a 00d9       |    |		Load_Top	At_Offset_1
035b 0227       | '  |		Execute	Access,All_Reference
035c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
035d e5ff       |    |		Load	0x2,-0x1
035e 021f       |    |		Execute	Heap_Access,Equal
035f 6838       |h8  |		Jump_Zero	0x398
0360 00d9       |    |		Load_Top	At_Offset_1
0361 0227       | '  |		Execute	Access,All_Reference
0362 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0363 6808       |h   |		Jump_Zero	0x36c
0364 00d9       |    |		Load_Top	At_Offset_1
0365 0227       | '  |		Execute	Access,All_Reference
0366 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0367 00da       |    |		Load_Top	At_Offset_2
0368 0227       | '  |		Execute	Access,All_Reference
0369 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
036a 0227       | '  |		Execute	Access,All_Reference
036b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
036c 00d9       |    |		Load_Top	At_Offset_1
036d 0227       | '  |		Execute	Access,All_Reference
036e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
036f 6808       |h   |		Jump_Zero	0x378
0370 00d9       |    |		Load_Top	At_Offset_1
0371 0227       | '  |		Execute	Access,All_Reference
0372 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0373 00da       |    |		Load_Top	At_Offset_2
0374 0227       | '  |		Execute	Access,All_Reference
0375 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0376 0227       | '  |		Execute	Access,All_Reference
0377 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0378 00d9       |    |		Load_Top	At_Offset_1
0379 e5fe       |    |		Load	0x2,-0x2
037a 0217       |    |		Execute	Heap_Access,All_Reference
037b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
037c 022f       | /  |		Execute	Access,Equal
037d 6806       |h   |		Jump_Zero	0x384
037e 00d9       |    |		Load_Top	At_Offset_1
037f 0227       | '  |		Execute	Access,All_Reference
0380 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0381 e5fe       |    |		Load	0x2,-0x2
0382 0217       |    |		Execute	Heap_Access,All_Reference
0383 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0384 00d9       |    |		Load_Top	At_Offset_1
0385 e5fe       |    |		Load	0x2,-0x2
0386 0217       |    |		Execute	Heap_Access,All_Reference
0387 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0388 022f       | /  |		Execute	Access,Equal
0389 6806       |h   |		Jump_Zero	0x390
038a 00d9       |    |		Load_Top	At_Offset_1
038b 0227       | '  |		Execute	Access,All_Reference
038c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
038d e5fe       |    |		Load	0x2,-0x2
038e 0217       |    |		Execute	Heap_Access,All_Reference
038f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0390 e5fe       |    |		Load	0x2,-0x2
0391 0217       |    |		Execute	Heap_Access,All_Reference
0392 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0393 0aff       |    |		Execute_Immediate	Plus,-0x1
0394 e5fe       |    |		Load	0x2,-0x2
0395 0217       |    |		Execute	Heap_Access,All_Reference
0396 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0397 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0398 00d9       |    |		Load_Top	At_Offset_1
0399 0227       | '  |		Execute	Access,All_Reference
039a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
039b 003a       | :  |		Store_Top	Access,At_Offset_2
039c 00c9       |    |		Action	Pop_Auxiliary_Loop
039d 00d9       |    |		Load_Top	At_Offset_1
039e 77bb       |w   |		Jump_Nonzero	0x35a
039f 00ce       |    |		Action	Pop_Auxiliary
03a0 4801       |H   |		Short_Literal	0x1
03a1 4802       |H   |		Short_Literal	0x2
03a2 e004       |    |		Load	0x0,0x4
03a3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a4 035b       | [  |		Declare_Type	Array,Constrained
03a5 0337       | 7  |		Declare_Variable	Array
03a6 e5fe       |    |		Load	0x2,-0x2
03a7 8230       | 0  |		Call	0x1,0x30
03a8 4801       |H   |		Short_Literal	0x1
03a9 00da       |    |		Load_Top	At_Offset_2
03aa 01d6       |    |		Execute	Vector,Field_Write
03ab e5ff       |    |		Load	0x2,-0x1
03ac 8222       | "  |		Call	0x1,0x22
03ad 4802       |H   |		Short_Literal	0x2
03ae 00da       |    |		Load_Top	At_Offset_2
03af 01d6       |    |		Execute	Vector,Field_Write
03b0 600f       |`   |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x00001003}
03b1 e002       |    |		Load	0x0,0x2
03b2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03b3 e5fe       |    |		Load	0x2,-0x2
03b4 0217       |    |		Execute	Heap_Access,All_Reference
03b5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b6 e5fe       |    |		Load	0x2,-0x2
03b7 0217       |    |		Execute	Heap_Access,All_Reference
03b8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b9 e002       |    |		Load	0x0,0x2
03ba 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03bb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03bc 0092 04ed  |    |		Action	Push_String_Extended,0x4ed					; "Warning: Cannot remove a step from a null Script."
03be 8239       | 9  |		Call	0x1,0x39
03bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001003}
03c4 0000 0000  |    |		.BLANK	0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cd       |    |		.CONST	0x03cd								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0002       |    |		.CONST	0x0002								; Number of locals
03cb			INIT_03c8:
03cb 029f 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Call
03cd			BODY_03c8:
03cd 00db       |    |		Load_Top	At_Offset_3
03ce 8226       | &  |		Call	0x1,0x26
03cf 6802       |h   |		Jump_Zero	0x3d2
03d0 e238       | 8  |		Load	0x1,0x38
03d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d2 8402       |    |		Call	0x2,0x2
03d3 e238       | 8  |		Load	0x1,0x38
03d4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d5 0000 0000  |    |		.XXX[0x3]
03d7 0000       |    |
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00da       |    |		Load_Top	At_Offset_2
03dc 7006       |p   |		Jump_Nonzero	0x3e3
03dd e004       |    |		Load	0x0,0x4
03de 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03df 6008       |`   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x00001001}
03e0 e002       |    |		Load	0x0,0x2
03e1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 0217       |    |		Execute	Heap_Access,All_Reference
03e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e7 0000       |    |		.XXX[0x1]
03e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001001}
03ec 0000 0000  |    |		.BLANK	0000[0x4]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 6805       |h   |		Jump_Zero	0x3fa
03f5 00db       |    |		Load_Top	At_Offset_3
03f6 00db       |    |		Load_Top	At_Offset_3
03f7 0217       |    |		Execute	Heap_Access,All_Reference
03f8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03f9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03fa 0092 04ee  |    |		Action	Push_String_Extended,0x4ee					; "Warning: Cannot set a Condition for a null Script."
03fc 8239       | 9  |		Call	0x1,0x39
03fd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03fe 0000 0000  |    |		.XXX[0x2]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00da       |    |		Load_Top	At_Offset_2
0404 6807       |h   |		Jump_Zero	0x40c
0405 4800       |H   |		Short_Literal	0x0
0406 00db       |    |		Load_Top	At_Offset_3
0407 0217       |    |		Execute	Heap_Access,All_Reference
0408 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0409 e002       |    |		Load	0x0,0x2
040a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
040b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
040c 4800       |H   |		Short_Literal	0x0
040d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
040e 0000 0000  |    |		.XXX[0x2]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 00da       |    |		Load_Top	At_Offset_2
0414 0217       |    |		Execute	Heap_Access,All_Reference
0415 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0416 e002       |    |		Load	0x0,0x2
0417 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0418 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0419 0000 0000  |    |		.BLANK	0000[0x7]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 00da       |    |		Load_Top	At_Offset_2
0424 e255       | U  |		Load	0x1,0x55
0425 e256       | V  |		Load	0x1,0x56
0426 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
0427 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
0428 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
0429 e004       |    |		Load	0x0,0x4
042a 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
042b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042c 0000 0000  |    |		.BLANK	0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00da       |    |		Load_Top	At_Offset_2
0434 e25d       | ]  |		Load	0x1,0x5d
0435 e25e       | ^  |		Load	0x1,0x5e
0436 1d5f       | _  |		Execute_Immediate	Reference_Lex_1,0x5f
0437 e260       | `  |		Load	0x1,0x60
0438 1d61       | a  |		Execute_Immediate	Reference_Lex_1,0x61
0439 e004       |    |		Load	0x0,0x4
043a 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
043b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
043c 0000 0000  |    |		.BLANK	0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00da       |    |		Load_Top	At_Offset_2
0444 7003       |p   |		Jump_Nonzero	0x448
0445 0092 04ef  |    |		Action	Push_String_Extended,0x4ef					; "<>"
0447 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0448 00da       |    |		Load_Top	At_Offset_2
0449 0217       |    |		Execute	Heap_Access,All_Reference
044a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044b 8264       | d  |		Call	0x1,0x64
044c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
044d 0000 0000  |    |		.XXX[0x3]
044f 0000       |    |
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 4608       |F   |		Jump_Case	0x9
0454 7808       |x   |		Jump	0x45d								; case 0x0
0455 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0456 780d       |x   |		Jump	0x464								; case 0x2
0457 780c       |x   |		Jump	0x464								; case 0x3
0458 780b       |x   |		Jump	0x464								; case 0x4
0459 780a       |x   |		Jump	0x464								; case 0x5
045a 7809       |x   |		Jump	0x464								; case 0x6
045b 7808       |x   |		Jump	0x464								; case 0x7
045c 7807       |x   |		Jump	0x464								; case 0x8
045d 00da       |    |		Load_Top	At_Offset_2
045e 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
045f 0125       | %  |		Execute	Any,Set_Constraint
0460 00da       |    |		Load_Top	At_Offset_2
0461 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0462 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0463 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0464 0869       | i  |		Execute_Immediate	Raise,0x69
0465 0000 0000  |    |		.XXX[0x3]
0467 0000       |    |
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b e018       |    |		Load	0x0,0x18
046c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
046d 00db       |    |		Load_Top	At_Offset_3
046e 4801       |H   |		Short_Literal	0x1
046f 6004       |`   |		Indirect_Literal	Discrete,0x474,{0x00000000, 0x00005802}
0470 e002       |    |		Load	0x0,0x2
0471 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0472 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0473 0000       |    |		.XXX[0x1]
0474 0000 0000  |    |		.LITERAL	{0x00000000, 0x00005802}
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b 00db       |    |		Load_Top	At_Offset_3
047c e019       |    |		Load	0x0,0x19
047d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
047e 00d9       |    |		Load_Top	At_Offset_1
047f 00d0       |    |		Action	Swap_Control
0480 0260       | `  |		Execute	Discrete,In_Type
0481 7001       |p   |		Jump_Nonzero	0x483
0482 0801       |    |		Execute_Immediate	Raise,0x1
0483 00db       |    |		Load_Top	At_Offset_3
0484 e23b       | ;  |		Load	0x1,0x3b
0485 e23c       | <  |		Load	0x1,0x3c
0486 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
0487 e008       |    |		Load	0x0,0x8
0488 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0489 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
048a 0000 0000  |    |		.BLANK	0000[0x6]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00db       |    |		Load_Top	At_Offset_3
0494 e019       |    |		Load	0x0,0x19
0495 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0496 00d9       |    |		Load_Top	At_Offset_1
0497 00d0       |    |		Action	Swap_Control
0498 0260       | `  |		Execute	Discrete,In_Type
0499 7001       |p   |		Jump_Nonzero	0x49b
049a 0801       |    |		Execute_Immediate	Raise,0x1
049b 00db       |    |		Load_Top	At_Offset_3
049c e250       | P  |		Load	0x1,0x50
049d e251       | Q  |		Load	0x1,0x51
049e 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
049f e008       |    |		Load	0x0,0x8
04a0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04a1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a2 0000 0000  |    |		.BLANK	0000[0x6]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 00da       |    |		Load_Top	At_Offset_2
04ac 7002       |p   |		Jump_Nonzero	0x4af
04ad 00ea       |    |		Load_Encached	Null_String_Cache
04ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04af 480a       |H   |		Short_Literal	0xa
04b0 00db       |    |		Load_Top	At_Offset_3
04b1 0227       | '  |		Execute	Access,All_Reference
04b2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04b3 8224       | $  |		Call	0x1,0x24
04b4 01cb       |    |		Execute	Vector,Append
04b5 00db       |    |		Load_Top	At_Offset_3
04b6 0227       | '  |		Execute	Access,All_Reference
04b7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b8 8264       | d  |		Call	0x1,0x64
04b9 01cc       |    |		Execute	Vector,Catenate
04ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04bb 0000 0000  |    |		.BLANK	0000[0x5]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04ce       |    |		.CONST	0x04ce								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0003       |    |		.CONST	0x0003								; Number of locals
04c3			INIT_04c0:
04c3 4801       |H   |		Short_Literal	0x1
04c4 e5ff       |    |		Load	0x2,-0x1
04c5 0217       |    |		Execute	Heap_Access,All_Reference
04c6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04c7 e20f       |    |		Load	0x1,0xf
04c8 035b       | [  |		Declare_Type	Array,Constrained
04c9 0337       | 7  |		Declare_Variable	Array
04ca e5ff       |    |		Load	0x2,-0x1
04cb 0217       |    |		Execute	Heap_Access,All_Reference
04cc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04cd 0007       |    |		Action	Break_Optional
04ce			BODY_04c0:
04ce e002       |    |		Load	0x0,0x2
04cf 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04d0 e5ff       |    |		Load	0x2,-0x1
04d1 0217       |    |		Execute	Heap_Access,All_Reference
04d2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04d3 00cf       |    |		Action	Mark_Auxiliary
04d4 00da       |    |		Load_Top	At_Offset_2
04d5 01d9       |    |		Execute	Vector,Reverse_Bounds
04d6 0263       | c  |		Execute	Discrete,Above_Bound
04d7 700c       |p   |		Jump_Nonzero	0x4e4
04d8 00db       |    |		Load_Top	At_Offset_3
04d9 0227       | '  |		Execute	Access,All_Reference
04da 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04db 00d9       |    |		Load_Top	At_Offset_1
04dc e602       |    |		Load	0x3,0x2
04dd 01d6       |    |		Execute	Vector,Field_Write
04de 00db       |    |		Load_Top	At_Offset_3
04df 0227       | '  |		Execute	Access,All_Reference
04e0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04e1 a603       |    |		Store_Unchecked	0x3,0x3
04e2 00c8       |    |		Action	Pop_Auxiliary_Range
04e3 3ff4       |?   |		Loop_Increasing	0x4d8
04e4 00ce       |    |		Action	Pop_Auxiliary
04e5 00d9       |    |		Load_Top	At_Offset_1
04e6 e20f       |    |		Load	0x1,0xf
04e7 01c6       |    |		Execute	Vector,Convert_To_Formal
04e8 00cb       |    |		Action	Pop_Block_With_Result
04e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ea ; --------------------------------------------------------------------------------------
04ea ; STRING TABLE
04ea ; --------------------------------------------------------------------------------------
04ea 000e       |    |		.STRTAB	0x000e->0x04f1							; ", "
04eb 000e       |    |		.STRTAB	0x000e->0x04f2							; "Warning: Cannot make a null Script empty."
04ec 0035       | 5  |		.STRTAB	0x0035->0x0506							; "Warning: Step cannot be added to a null Script."
04ed 0062       | b  |		.STRTAB	0x0062->0x051e							; "Warning: Cannot remove a step from a null Script."
04ee 0091       |    |		.STRTAB	0x0091->0x0536							; "Warning: Cannot set a Condition for a null Script."
04ef 00c1       |    |		.STRTAB	0x00c1->0x054f							; "<>"
04f0 00c1       |    |		.STREND 0x00c1->0x0550
04f1 2c20 5761  |, Wa|		.STRTAB_STRINGS
0551 0000 0000  |    |		.BLANK	0000[0x7]
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug Table
0558 ; --------------------------------------------------------------------------------------
0558 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xd8fa,0x0000,0x0001,0x0000
055e 0000 0000  |    |		.BLANK	0000[0xa2]