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

⟦080711bcb⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0550       | P  |		.CONST	0x0550								; 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 014a       | J  |		.CONST	0x014a								; 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 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
003c 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
003e 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0040 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0042 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0044 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0046 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0048 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
004a 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,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 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
005a c235       | 5  |		Store	0x1,0x35
005b 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
005d c22a       | *  |		Store	0x1,0x2a
005e 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0060 c22b       | +  |		Store	0x1,0x2b
0061 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
0063 c22c       | ,  |		Store	0x1,0x2c
0064 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0066 c22d       | -  |		Store	0x1,0x2d
0067 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
0069 c22e       | .  |		Store	0x1,0x2e
006a 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
006c c22f       | /  |		Store	0x1,0x2f
006d 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
006f c230       | 0  |		Store	0x1,0x30
0070 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0072 c231       | 1  |		Store	0x1,0x31
0073 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,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 044b  |   K|		Declare_Subprogram	INIT_0448,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 0334       | 4  |		Declare_Variable	Array,With_Constraint
00aa 029d 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call
00ac 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc e006       |    |		Load	0x0,0x6
00cd e007       |    |		Load	0x0,0x7
00ce e233       | 3  |		Load	0x1,0x33
00cf e20d       |    |		Load	0x1,0xd
00d0 e008       |    |		Load	0x0,0x8
00d1 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00d2 0387       |    |		Declare_Variable	Package
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 020f       |    |		Execute	Module,Activate
00d5 e008       |    |		Load	0x0,0x8
00d6 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
00d7 00c6       |    |		Action	Check_Subprogram_Elaborated
00d8 e233       | 3  |		Load	0x1,0x33
00d9 e20d       |    |		Load	0x1,0xd
00da e009       |    |		Load	0x0,0x9
00db e00a       |    |		Load	0x0,0xa
00dc 4800       |H   |		Short_Literal	0x0
00dd 0007       |    |		Action	Break_Optional
00de e004       |    |		Load	0x0,0x4
00df 193c       | <  |		Execute	Package,Field_Reference,Field_Number 0x3c
00e0 00c6       |    |		Action	Check_Subprogram_Elaborated
00e1 e20d       |    |		Load	0x1,0xd
00e2 4814       |H   |		Short_Literal	0x14
00e3 e23a       | :  |		Load	0x1,0x3a
00e4 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
00e5 e23a       | :  |		Load	0x1,0x3a
00e6 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
00e7 e00b       |    |		Load	0x0,0xb
00e8 e00c       |    |		Load	0x0,0xc
00e9 4800       |H   |		Short_Literal	0x0
00ea 0007       |    |		Action	Break_Optional
00eb 029d 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call
00ed e004       |    |		Load	0x0,0x4
00ee 193d       | =  |		Execute	Package,Field_Reference,Field_Number 0x3d
00ef 00c6       |    |		Action	Check_Subprogram_Elaborated
00f0 e20d       |    |		Load	0x1,0xd
00f1 4814       |H   |		Short_Literal	0x14
00f2 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
00f3 e20d       |    |		Load	0x1,0xd
00f4 e00d       |    |		Load	0x0,0xd
00f5 e00e       |    |		Load	0x0,0xe
00f6 4800       |H   |		Short_Literal	0x0
00f7 0007       |    |		Action	Break_Optional
00f8 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00f9 00c7       |    |		Action	Elaborate_Subprogram
00fa 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00fb 00c7       |    |		Action	Elaborate_Subprogram
00fc 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00ff 00c7       |    |		Action	Elaborate_Subprogram
0100 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0101 00c7       |    |		Action	Elaborate_Subprogram
0102 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0103 00c7       |    |		Action	Elaborate_Subprogram
0104 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0105 00c7       |    |		Action	Elaborate_Subprogram
0106 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0107 00c7       |    |		Action	Elaborate_Subprogram
0108 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0109 00c7       |    |		Action	Elaborate_Subprogram
010a 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
010b 00c7       |    |		Action	Elaborate_Subprogram
010c 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
010d 00c7       |    |		Action	Elaborate_Subprogram
010e 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
010f 00c7       |    |		Action	Elaborate_Subprogram
0110 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0111 00c7       |    |		Action	Elaborate_Subprogram
0112 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0113 00c7       |    |		Action	Elaborate_Subprogram
0114 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0115 00c7       |    |		Action	Elaborate_Subprogram
0116 e00f       |    |		Load	0x0,0xf
0117 e010       |    |		Load	0x0,0x10
0118 e234       | 4  |		Load	0x1,0x34
0119 e20e       |    |		Load	0x1,0xe
011a e008       |    |		Load	0x0,0x8
011b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
011c 0387       |    |		Declare_Variable	Package
011d 00d8       |    |		Load_Top	At_Offset_0
011e 020f       |    |		Execute	Module,Activate
011f e008       |    |		Load	0x0,0x8
0120 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0121 00c6       |    |		Action	Check_Subprogram_Elaborated
0122 e234       | 4  |		Load	0x1,0x34
0123 e20e       |    |		Load	0x1,0xe
0124 e011       |    |		Load	0x0,0x11
0125 e012       |    |		Load	0x0,0x12
0126 4800       |H   |		Short_Literal	0x0
0127 0007       |    |		Action	Break_Optional
0128 e004       |    |		Load	0x0,0x4
0129 193c       | <  |		Execute	Package,Field_Reference,Field_Number 0x3c
012a 00c6       |    |		Action	Check_Subprogram_Elaborated
012b e20e       |    |		Load	0x1,0xe
012c 4815       |H   |		Short_Literal	0x15
012d e24f       | O  |		Load	0x1,0x4f
012e 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
012f e24f       | O  |		Load	0x1,0x4f
0130 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0131 e013       |    |		Load	0x0,0x13
0132 e014       |    |		Load	0x0,0x14
0133 4800       |H   |		Short_Literal	0x0
0134 0007       |    |		Action	Break_Optional
0135 029d 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call
0137 e004       |    |		Load	0x0,0x4
0138 193d       | =  |		Execute	Package,Field_Reference,Field_Number 0x3d
0139 00c6       |    |		Action	Check_Subprogram_Elaborated
013a e20e       |    |		Load	0x1,0xe
013b 4815       |H   |		Short_Literal	0x15
013c 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
013d e20e       |    |		Load	0x1,0xe
013e e015       |    |		Load	0x0,0x15
013f e016       |    |		Load	0x0,0x16
0140 4800       |H   |		Short_Literal	0x0
0141 0007       |    |		Action	Break_Optional
0142 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0143 00c7       |    |		Action	Elaborate_Subprogram
0144 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0145 00c7       |    |		Action	Elaborate_Subprogram
0146 029d 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call
0148 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0149 00c7       |    |		Action	Elaborate_Subprogram
014a			BODY_0008:
014a 00bc       |    |		Action	Signal_Activated
014b 00bb       |    |		Action	Signal_Completion
014c 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
0254 0217       |    |		Execute	Heap_Access,All_Reference
0255 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0256 0f00       |    |		Execute_Immediate	Equal,0x0
0257 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c 0217       |    |		Execute	Heap_Access,All_Reference
025d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
025e e002       |    |		Load	0x0,0x2
025f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0260 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0261 0000 0000  |    |		.BLANK	0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c e240       | @  |		Load	0x1,0x40
026d e241       | A  |		Load	0x1,0x41
026e 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
026f 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0270 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
0271 e004       |    |		Load	0x0,0x4
0272 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0273 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2
027c e248       | H  |		Load	0x1,0x48
027d e249       | I  |		Load	0x1,0x49
027e 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
027f e24b       | K  |		Load	0x1,0x4b
0280 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
0281 e004       |    |		Load	0x0,0x4
0282 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0283 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0284 0000 0000  |    |		.BLANK	0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 00da       |    |		Load_Top	At_Offset_2
028c 0217       |    |		Execute	Heap_Access,All_Reference
028d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
028e e001       |    |		Load	0x0,0x1
028f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0290 011c       |    |		Execute	Any,Convert_Unchecked
0291 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0292 6009       |`   |		Indirect_Literal	Discrete,0x29c,{0x00000000, 0x7fffffff}
0293 0092 04e2  |    |		Action	Push_String_Extended,0x4e2					; ", "
0295 e5ff       |    |		Load	0x2,-0x1
0296 0217       |    |		Execute	Heap_Access,All_Reference
0297 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0298 e004       |    |		Load	0x0,0x4
0299 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
029a 01cc       |    |		Execute	Vector,Catenate
029b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e234       | 4  |		Load	0x1,0x34
02a4 0322       | "  |		Declare_Variable	Record
02a5 e002       |    |		Load	0x0,0x2
02a6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02a7 00d9       |    |		Load_Top	At_Offset_1
02a8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02a9 e237       | 7  |		Load	0x1,0x37
02aa 00d9       |    |		Load_Top	At_Offset_1
02ab 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ac e237       | 7  |		Load	0x1,0x37
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02af 4800       |H   |		Short_Literal	0x0
02b0 00d9       |    |		Load_Top	At_Offset_1
02b1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02b2 e20e       |    |		Load	0x1,0xe
02b3 e017       |    |		Load	0x0,0x17
02b4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02b5 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02b6 00ca       |    |		Action	Exit_Nullary_Function
02b7 0000       |    |		.XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 6805       |h   |		Jump_Zero	0x2c2
02bd 00da       |    |		Load_Top	At_Offset_2
02be 0217       |    |		Execute	Heap_Access,All_Reference
02bf 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02c0 0f00       |    |		Execute_Immediate	Equal,0x0
02c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c2 4801       |H   |		Short_Literal	0x1
02c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c4 0000 0000  |    |		.BLANK	0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc 680a       |h   |		Jump_Zero	0x2d7
02cd e002       |    |		Load	0x0,0x2
02ce 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02cf 00db       |    |		Load_Top	At_Offset_3
02d0 0217       |    |		Execute	Heap_Access,All_Reference
02d1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02d2 4800       |H   |		Short_Literal	0x0
02d3 00db       |    |		Load_Top	At_Offset_3
02d4 0217       |    |		Execute	Heap_Access,All_Reference
02d5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d7 0092 04e3  |    |		Action	Push_String_Extended,0x4e3					; "Warning: Cannot make a null Script empty."
02d9 8239       | 9  |		Call	0x1,0x39
02da 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02db 0000 0000  |    |		.BLANK	0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 0217       |    |		Execute	Heap_Access,All_Reference
02e5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 00e3       |    |		Load_Encached	Natural_Cache
02e8 0260       | `  |		Execute	Discrete,In_Type
02e9 7001       |p   |		Jump_Nonzero	0x2eb
02ea 0801       |    |		Execute_Immediate	Raise,0x1
02eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f5       |    |		.CONST	0x02f5								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0002       |    |		.CONST	0x0002								; Number of locals
02f3			INIT_02f0:
02f3 e237       | 7  |		Load	0x1,0x37
02f4 0007       |    |		Action	Break_Optional
02f5			BODY_02f0:
02f5 e5fe       |    |		Load	0x2,-0x2
02f6 6833       |h3  |		Jump_Zero	0x32a
02f7 e002       |    |		Load	0x0,0x2
02f8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02f9 e5fe       |    |		Load	0x2,-0x2
02fa 0217       |    |		Execute	Heap_Access,All_Reference
02fb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02fc e236       | 6  |		Load	0x1,0x36
02fd 0322       | "  |		Declare_Variable	Record
02fe e5fe       |    |		Load	0x2,-0x2
02ff 0217       |    |		Execute	Heap_Access,All_Reference
0300 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0301 00d9       |    |		Load_Top	At_Offset_1
0302 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0303 e237       | 7  |		Load	0x1,0x37
0304 00d9       |    |		Load_Top	At_Offset_1
0305 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0306 e5ff       |    |		Load	0x2,-0x1
0307 00d9       |    |		Load_Top	At_Offset_1
0308 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0309 e237       | 7  |		Load	0x1,0x37
030a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
030b 0039       | 9  |		Store_Top	Access,At_Offset_1
030c 00d8       |    |		Load_Top	At_Offset_0
030d 0227       | '  |		Execute	Access,All_Reference
030e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
030f 6806       |h   |		Jump_Zero	0x316
0310 00d8       |    |		Load_Top	At_Offset_0
0311 00d9       |    |		Load_Top	At_Offset_1
0312 0227       | '  |		Execute	Access,All_Reference
0313 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0314 0227       | '  |		Execute	Access,All_Reference
0315 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0316 00d8       |    |		Load_Top	At_Offset_0
0317 e5fe       |    |		Load	0x2,-0x2
0318 0217       |    |		Execute	Heap_Access,All_Reference
0319 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
031a e5fe       |    |		Load	0x2,-0x2
031b 0217       |    |		Execute	Heap_Access,All_Reference
031c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
031d 7004       |p   |		Jump_Nonzero	0x322
031e 00d8       |    |		Load_Top	At_Offset_0
031f e5fe       |    |		Load	0x2,-0x2
0320 0217       |    |		Execute	Heap_Access,All_Reference
0321 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0322 e5fe       |    |		Load	0x2,-0x2
0323 0217       |    |		Execute	Heap_Access,All_Reference
0324 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0325 0a01       |    |		Execute_Immediate	Plus,0x1
0326 e5fe       |    |		Load	0x2,-0x2
0327 0217       |    |		Execute	Heap_Access,All_Reference
0328 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0329 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
032a 0092 04e4  |    |		Action	Push_String_Extended,0x4e4					; "Warning: Step cannot be added to a null Script."
032c 8239       | 9  |		Call	0x1,0x39
032d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
032e 0000 0000  |    |		.XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0335       | 5  |		.CONST	0x0335								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0002       |    |		.CONST	0x0002								; Number of locals
0333			INIT_0330:
0333 e20d       |    |		Load	0x1,0xd
0334 0007       |    |		Action	Break_Optional
0335			BODY_0330:
0335 e20d       |    |		Load	0x1,0xd
0336 e5fb       |    |		Load	0x2,-0x5
0337 e5fc       |    |		Load	0x2,-0x4
0338 e5fd       |    |		Load	0x2,-0x3
0339 e5fe       |    |		Load	0x2,-0x2
033a 8213       |    |		Call	0x1,0x13
033b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
033c 00db       |    |		Load_Top	At_Offset_3
033d 00d9       |    |		Load_Top	At_Offset_1
033e 8229       | )  |		Call	0x1,0x29
033f 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0345       | E  |		.CONST	0x0345								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 e237       | 7  |		Load	0x1,0x37
0344 0007       |    |		Action	Break_Optional
0345			BODY_0340:
0345 e5fe       |    |		Load	0x2,-0x2
0346 686c       |hl  |		Jump_Zero	0x3b3
0347 e002       |    |		Load	0x0,0x2
0348 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0349 e5fe       |    |		Load	0x2,-0x2
034a 0217       |    |		Execute	Heap_Access,All_Reference
034b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
034c e5fe       |    |		Load	0x2,-0x2
034d 0217       |    |		Execute	Heap_Access,All_Reference
034e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
034f 0039       | 9  |		Store_Top	Access,At_Offset_1
0350 00cf       |    |		Action	Mark_Auxiliary
0351 7843       |xC  |		Jump	0x395
0352 00d9       |    |		Load_Top	At_Offset_1
0353 0227       | '  |		Execute	Access,All_Reference
0354 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0355 e5ff       |    |		Load	0x2,-0x1
0356 021f       |    |		Execute	Heap_Access,Equal
0357 6838       |h8  |		Jump_Zero	0x390
0358 00d9       |    |		Load_Top	At_Offset_1
0359 0227       | '  |		Execute	Access,All_Reference
035a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
035b 6808       |h   |		Jump_Zero	0x364
035c 00d9       |    |		Load_Top	At_Offset_1
035d 0227       | '  |		Execute	Access,All_Reference
035e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
035f 00da       |    |		Load_Top	At_Offset_2
0360 0227       | '  |		Execute	Access,All_Reference
0361 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0362 0227       | '  |		Execute	Access,All_Reference
0363 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0364 00d9       |    |		Load_Top	At_Offset_1
0365 0227       | '  |		Execute	Access,All_Reference
0366 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0367 6808       |h   |		Jump_Zero	0x370
0368 00d9       |    |		Load_Top	At_Offset_1
0369 0227       | '  |		Execute	Access,All_Reference
036a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
036b 00da       |    |		Load_Top	At_Offset_2
036c 0227       | '  |		Execute	Access,All_Reference
036d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
036e 0227       | '  |		Execute	Access,All_Reference
036f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0370 00d9       |    |		Load_Top	At_Offset_1
0371 e5fe       |    |		Load	0x2,-0x2
0372 0217       |    |		Execute	Heap_Access,All_Reference
0373 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0374 022f       | /  |		Execute	Access,Equal
0375 6806       |h   |		Jump_Zero	0x37c
0376 00d9       |    |		Load_Top	At_Offset_1
0377 0227       | '  |		Execute	Access,All_Reference
0378 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0379 e5fe       |    |		Load	0x2,-0x2
037a 0217       |    |		Execute	Heap_Access,All_Reference
037b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
037c 00d9       |    |		Load_Top	At_Offset_1
037d e5fe       |    |		Load	0x2,-0x2
037e 0217       |    |		Execute	Heap_Access,All_Reference
037f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0380 022f       | /  |		Execute	Access,Equal
0381 6806       |h   |		Jump_Zero	0x388
0382 00d9       |    |		Load_Top	At_Offset_1
0383 0227       | '  |		Execute	Access,All_Reference
0384 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0385 e5fe       |    |		Load	0x2,-0x2
0386 0217       |    |		Execute	Heap_Access,All_Reference
0387 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0388 e5fe       |    |		Load	0x2,-0x2
0389 0217       |    |		Execute	Heap_Access,All_Reference
038a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
038b 0aff       |    |		Execute_Immediate	Plus,-0x1
038c e5fe       |    |		Load	0x2,-0x2
038d 0217       |    |		Execute	Heap_Access,All_Reference
038e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
038f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0390 00d9       |    |		Load_Top	At_Offset_1
0391 0227       | '  |		Execute	Access,All_Reference
0392 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0393 003a       | :  |		Store_Top	Access,At_Offset_2
0394 00c9       |    |		Action	Pop_Auxiliary_Loop
0395 00d9       |    |		Load_Top	At_Offset_1
0396 77bb       |w   |		Jump_Nonzero	0x352
0397 00ce       |    |		Action	Pop_Auxiliary
0398 4801       |H   |		Short_Literal	0x1
0399 4802       |H   |		Short_Literal	0x2
039a e004       |    |		Load	0x0,0x4
039b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
039c 0334       | 4  |		Declare_Variable	Array,With_Constraint
039d e5fe       |    |		Load	0x2,-0x2
039e 8230       | 0  |		Call	0x1,0x30
039f 4801       |H   |		Short_Literal	0x1
03a0 00da       |    |		Load_Top	At_Offset_2
03a1 01d6       |    |		Execute	Vector,Field_Write
03a2 e5ff       |    |		Load	0x2,-0x1
03a3 8222       | "  |		Call	0x1,0x22
03a4 4802       |H   |		Short_Literal	0x2
03a5 00da       |    |		Load_Top	At_Offset_2
03a6 01d6       |    |		Execute	Vector,Field_Write
03a7 6010       |`   |		Indirect_Literal	Discrete,0x3b8,{0x00000000, 0x00001003}
03a8 e002       |    |		Load	0x0,0x2
03a9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03aa e5fe       |    |		Load	0x2,-0x2
03ab 0217       |    |		Execute	Heap_Access,All_Reference
03ac 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03ad e5fe       |    |		Load	0x2,-0x2
03ae 0217       |    |		Execute	Heap_Access,All_Reference
03af 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b0 e002       |    |		Load	0x0,0x2
03b1 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03b2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b3 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "Warning: Cannot remove a step from a null Script."
03b5 8239       | 9  |		Call	0x1,0x39
03b6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b7 0000       |    |		.XXX[0x1]
03b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001003}
03bc 0000 0000  |    |		.BLANK	0000[0x4]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c5       |    |		.CONST	0x03c5								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 029f 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Call
03c5			BODY_03c0:
03c5 00db       |    |		Load_Top	At_Offset_3
03c6 8226       | &  |		Call	0x1,0x26
03c7 6802       |h   |		Jump_Zero	0x3ca
03c8 e238       | 8  |		Load	0x1,0x38
03c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ca 8402       |    |		Call	0x2,0x2
03cb e238       | 8  |		Load	0x1,0x38
03cc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03cd 0000 0000  |    |		.XXX[0x3]
03cf 0000       |    |
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 00da       |    |		Load_Top	At_Offset_2
03d4 7006       |p   |		Jump_Nonzero	0x3db
03d5 e004       |    |		Load	0x0,0x4
03d6 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03d7 6008       |`   |		Indirect_Literal	Discrete,0x3e0,{0x00000000, 0x00001001}
03d8 e002       |    |		Load	0x0,0x2
03d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03da 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03db 00da       |    |		Load_Top	At_Offset_2
03dc 0217       |    |		Execute	Heap_Access,All_Reference
03dd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03df 0000       |    |		.XXX[0x1]
03e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001001}
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 00da       |    |		Load_Top	At_Offset_2
03ec 6805       |h   |		Jump_Zero	0x3f2
03ed 00db       |    |		Load_Top	At_Offset_3
03ee 00db       |    |		Load_Top	At_Offset_3
03ef 0217       |    |		Execute	Heap_Access,All_Reference
03f0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03f2 0092 04e6  |    |		Action	Push_String_Extended,0x4e6					; "Warning: Cannot set a Condition for a null Script."
03f4 8239       | 9  |		Call	0x1,0x39
03f5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03f6 0000 0000  |    |		.XXX[0x2]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 00da       |    |		Load_Top	At_Offset_2
03fc 6805       |h   |		Jump_Zero	0x402
03fd 00da       |    |		Load_Top	At_Offset_2
03fe 0217       |    |		Execute	Heap_Access,All_Reference
03ff 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0400 0f00       |    |		Execute_Immediate	Equal,0x0
0401 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0402 4800       |H   |		Short_Literal	0x0
0403 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0404 0000 0000  |    |		.BLANK	0000[0x4]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 00da       |    |		Load_Top	At_Offset_2
040c 0217       |    |		Execute	Heap_Access,All_Reference
040d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
040e e002       |    |		Load	0x0,0x2
040f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0410 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0411 0000 0000  |    |		.BLANK	0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00da       |    |		Load_Top	At_Offset_2
041c e255       | U  |		Load	0x1,0x55
041d e256       | V  |		Load	0x1,0x56
041e 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
041f 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
0420 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
0421 e004       |    |		Load	0x0,0x4
0422 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0423 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0424 0000 0000  |    |		.BLANK	0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00da       |    |		Load_Top	At_Offset_2
042c e25d       | ]  |		Load	0x1,0x5d
042d e25e       | ^  |		Load	0x1,0x5e
042e 1d5f       | _  |		Execute_Immediate	Reference_Lex_1,0x5f
042f e260       | `  |		Load	0x1,0x60
0430 1d61       | a  |		Execute_Immediate	Reference_Lex_1,0x61
0431 e004       |    |		Load	0x0,0x4
0432 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0433 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0434 0000 0000  |    |		.BLANK	0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2
043c 7003       |p   |		Jump_Nonzero	0x440
043d 0092 04e7  |    |		Action	Push_String_Extended,0x4e7					; "<>"
043f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0440 00da       |    |		Load_Top	At_Offset_2
0441 0217       |    |		Execute	Heap_Access,All_Reference
0442 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0443 8264       | d  |		Call	0x1,0x64
0444 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0445 0000 0000  |    |		.XXX[0x3]
0447 0000       |    |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 4608       |F   |		Jump_Case	0x9
044c 7808       |x   |		Jump	0x455								; case 0x0
044d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
044e 780d       |x   |		Jump	0x45c								; case 0x2
044f 780c       |x   |		Jump	0x45c								; case 0x3
0450 780b       |x   |		Jump	0x45c								; case 0x4
0451 780a       |x   |		Jump	0x45c								; case 0x5
0452 7809       |x   |		Jump	0x45c								; case 0x6
0453 7808       |x   |		Jump	0x45c								; case 0x7
0454 7807       |x   |		Jump	0x45c								; case 0x8
0455 00da       |    |		Load_Top	At_Offset_2
0456 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0457 0125       | %  |		Execute	Any,Set_Constraint
0458 00da       |    |		Load_Top	At_Offset_2
0459 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
045a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
045b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
045c 0869       | i  |		Execute_Immediate	Raise,0x69
045d 0000 0000  |    |		.XXX[0x3]
045f 0000       |    |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 e018       |    |		Load	0x0,0x18
0464 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0465 00db       |    |		Load_Top	At_Offset_3
0466 4801       |H   |		Short_Literal	0x1
0467 6004       |`   |		Indirect_Literal	Discrete,0x46c,{0x00000000, 0x00005802}
0468 e002       |    |		Load	0x0,0x2
0469 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
046a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
046b 0000       |    |		.XXX[0x1]
046c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00005802}
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 00db       |    |		Load_Top	At_Offset_3
0474 e019       |    |		Load	0x0,0x19
0475 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0476 00d9       |    |		Load_Top	At_Offset_1
0477 00d0       |    |		Action	Swap_Control
0478 0260       | `  |		Execute	Discrete,In_Type
0479 7001       |p   |		Jump_Nonzero	0x47b
047a 0801       |    |		Execute_Immediate	Raise,0x1
047b 00db       |    |		Load_Top	At_Offset_3
047c e23b       | ;  |		Load	0x1,0x3b
047d e23c       | <  |		Load	0x1,0x3c
047e 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
047f e008       |    |		Load	0x0,0x8
0480 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0481 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0482 0000 0000  |    |		.BLANK	0000[0x6]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 00db       |    |		Load_Top	At_Offset_3
048c e019       |    |		Load	0x0,0x19
048d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
048e 00d9       |    |		Load_Top	At_Offset_1
048f 00d0       |    |		Action	Swap_Control
0490 0260       | `  |		Execute	Discrete,In_Type
0491 7001       |p   |		Jump_Nonzero	0x493
0492 0801       |    |		Execute_Immediate	Raise,0x1
0493 00db       |    |		Load_Top	At_Offset_3
0494 e250       | P  |		Load	0x1,0x50
0495 e251       | Q  |		Load	0x1,0x51
0496 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
0497 e008       |    |		Load	0x0,0x8
0498 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0499 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
049a 0000 0000  |    |		.BLANK	0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 00da       |    |		Load_Top	At_Offset_2
04a4 7002       |p   |		Jump_Nonzero	0x4a7
04a5 00ea       |    |		Load_Encached	Null_String_Cache
04a6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a7 480a       |H   |		Short_Literal	0xa
04a8 00db       |    |		Load_Top	At_Offset_3
04a9 0227       | '  |		Execute	Access,All_Reference
04aa 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04ab 8224       | $  |		Call	0x1,0x24
04ac 01cb       |    |		Execute	Vector,Append
04ad 00db       |    |		Load_Top	At_Offset_3
04ae 0227       | '  |		Execute	Access,All_Reference
04af 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b0 8264       | d  |		Call	0x1,0x64
04b1 01cc       |    |		Execute	Vector,Catenate
04b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b3 0000 0000  |    |		.BLANK	0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c6       |    |		.CONST	0x04c6								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0003       |    |		.CONST	0x0003								; Number of locals
04bb			INIT_04b8:
04bb 4801       |H   |		Short_Literal	0x1
04bc e5ff       |    |		Load	0x2,-0x1
04bd 0217       |    |		Execute	Heap_Access,All_Reference
04be 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04bf e20f       |    |		Load	0x1,0xf
04c0 035b       | [  |		Declare_Type	Array,Constrained
04c1 0337       | 7  |		Declare_Variable	Array
04c2 e5ff       |    |		Load	0x2,-0x1
04c3 0217       |    |		Execute	Heap_Access,All_Reference
04c4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04c5 0007       |    |		Action	Break_Optional
04c6			BODY_04b8:
04c6 e002       |    |		Load	0x0,0x2
04c7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04c8 e5ff       |    |		Load	0x2,-0x1
04c9 0217       |    |		Execute	Heap_Access,All_Reference
04ca 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04cb 00cf       |    |		Action	Mark_Auxiliary
04cc 00da       |    |		Load_Top	At_Offset_2
04cd 01d9       |    |		Execute	Vector,Reverse_Bounds
04ce 0263       | c  |		Execute	Discrete,Above_Bound
04cf 700c       |p   |		Jump_Nonzero	0x4dc
04d0 00db       |    |		Load_Top	At_Offset_3
04d1 0227       | '  |		Execute	Access,All_Reference
04d2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04d3 00d9       |    |		Load_Top	At_Offset_1
04d4 e602       |    |		Load	0x3,0x2
04d5 01d6       |    |		Execute	Vector,Field_Write
04d6 00db       |    |		Load_Top	At_Offset_3
04d7 0227       | '  |		Execute	Access,All_Reference
04d8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04d9 a603       |    |		Store_Unchecked	0x3,0x3
04da 00c8       |    |		Action	Pop_Auxiliary_Range
04db 3ff4       |?   |		Loop_Increasing	0x4d0
04dc 00ce       |    |		Action	Pop_Auxiliary
04dd 00d9       |    |		Load_Top	At_Offset_1
04de e20f       |    |		Load	0x1,0xf
04df 01c6       |    |		Execute	Vector,Convert_To_Formal
04e0 00cb       |    |		Action	Pop_Block_With_Result
04e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e2 ; --------------------------------------------------------------------------------------
04e2 ; STRING TABLE
04e2 ; --------------------------------------------------------------------------------------
04e2 000e       |    |		.STRTAB	0x000e->0x04e9							; ", "
04e3 000e       |    |		.STRTAB	0x000e->0x04ea							; "Warning: Cannot make a null Script empty."
04e4 0035       | 5  |		.STRTAB	0x0035->0x04fe							; "Warning: Step cannot be added to a null Script."
04e5 0062       | b  |		.STRTAB	0x0062->0x0516							; "Warning: Cannot remove a step from a null Script."
04e6 0091       |    |		.STRTAB	0x0091->0x052e							; "Warning: Cannot set a Condition for a null Script."
04e7 00c1       |    |		.STRTAB	0x00c1->0x0547							; "<>"
04e8 00c1       |    |		.STREND 0x00c1->0x0548
04e9 2c20 5761  |, Wa|		.STRTAB_STRINGS
0549 0000 0000  |    |		.BLANK	0000[0x7]
0550 ; --------------------------------------------------------------------------------------
0550 ; Debug Table
0550 ; --------------------------------------------------------------------------------------
0550 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0xeaf4,0x0000,0x0001,0x0000
0556 0000 0000  |    |		.BLANK	0000[0xaa]