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

⟦359abc5c6⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_3070b1

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 05c0       |    |		.CONST	0x05c0								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0073       | s  |		.CONST	0x0073								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
000f 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0011 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0013 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0015 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0017 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0019 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
001b 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
001d 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
001f 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0021 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
0023 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0025 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0027 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0029 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
002b 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
002d 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
002f 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
0031 029a 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call,Visible,Unelaborated
0033 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated
0035 029a 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call,Visible,Unelaborated
0037 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
0039 00bf       |    |		Action	Accept_Activation
003a e002       |    |		Load	0x0,0x2
003b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
003c 02a0       |    |		Declare_Subprogram	Null_Subprogram
003d 4818       |H   |		Short_Literal	0x18
003e 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
003f e003       |    |		Load	0x0,0x3
0040 0322       | "  |		Declare_Variable	Record
0041 e004       |    |		Load	0x0,0x4
0042 0007       |    |		Action	Break_Optional
0043 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 029d 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call
0059 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0072 00c7       |    |		Action	Elaborate_Subprogram
0073			BODY_0008:
0073 00bc       |    |		Action	Signal_Activated
0074 00bb       |    |		Action	Signal_Completion
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c 4607       |F   |		Jump_Case	0x8
007d 786d       |xm  |		Jump	0xeb								; case 0x0
007e 7807       |x   |		Jump	0x86								; case 0x1
007f 780b       |x   |		Jump	0x8b								; case 0x2
0080 7824       |x$  |		Jump	0xa5								; case 0x3
0081 7841       |xA  |		Jump	0xc3								; case 0x4
0082 785e       |x^  |		Jump	0xe1								; case 0x5
0083 785d       |x]  |		Jump	0xe1								; case 0x6
0084 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x7
0085 4502       |E   |		.XXX[0x1]
0086 4800       |H   |		Short_Literal	0x0
0087 e5fe       |    |		Load	0x2,-0x2
0088 0227       | '  |		Execute	Access,All_Reference
0089 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
008a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
008b 00db       |    |		Load_Top	At_Offset_3
008c 0229       | )  |		Execute	Access,All_Read
008d 00d8       |    |		Load_Top	At_Offset_0
008e 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
008f 00ea       |    |		Load_Encached	Null_String_Cache
0090 8005       |    |		Call	0x0,0x5
0091 00d9       |    |		Load_Top	At_Offset_1
0092 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0093 00d1       |    |		Pop_Control	Pop_Count_1
0094 00db       |    |		Load_Top	At_Offset_3
0095 0229       | )  |		Execute	Access,All_Read
0096 00d8       |    |		Load_Top	At_Offset_0
0097 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0098 8006       |    |		Call	0x0,0x6
0099 00d9       |    |		Load_Top	At_Offset_1
009a 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
009b 00d1       |    |		Pop_Control	Pop_Count_1
009c 00db       |    |		Load_Top	At_Offset_3
009d 0229       | )  |		Execute	Access,All_Read
009e 00d8       |    |		Load_Top	At_Offset_0
009f 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
00a0 8007       |    |		Call	0x0,0x7
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
00a3 00d1       |    |		Pop_Control	Pop_Count_1
00a4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a5 00db       |    |		Load_Top	At_Offset_3
00a6 0229       | )  |		Execute	Access,All_Read
00a7 00d8       |    |		Load_Top	At_Offset_0
00a8 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
00a9 00ea       |    |		Load_Encached	Null_String_Cache
00aa 8005       |    |		Call	0x0,0x5
00ab 00d9       |    |		Load_Top	At_Offset_1
00ac 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
00ad 00d1       |    |		Pop_Control	Pop_Count_1
00ae e004       |    |		Load	0x0,0x4
00af e5fe       |    |		Load	0x2,-0x2
00b0 0227       | '  |		Execute	Access,All_Reference
00b1 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
00b2 00db       |    |		Load_Top	At_Offset_3
00b3 0229       | )  |		Execute	Access,All_Read
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
00b6 8006       |    |		Call	0x0,0x6
00b7 00d9       |    |		Load_Top	At_Offset_1
00b8 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
00b9 00d1       |    |		Pop_Control	Pop_Count_1
00ba 00db       |    |		Load_Top	At_Offset_3
00bb 0229       | )  |		Execute	Access,All_Read
00bc 00d8       |    |		Load_Top	At_Offset_0
00bd 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
00be 8008       |    |		Call	0x0,0x8
00bf 00d9       |    |		Load_Top	At_Offset_1
00c0 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
00c1 00d1       |    |		Pop_Control	Pop_Count_1
00c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c3 00db       |    |		Load_Top	At_Offset_3
00c4 0229       | )  |		Execute	Access,All_Read
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
00c7 00ea       |    |		Load_Encached	Null_String_Cache
00c8 8005       |    |		Call	0x0,0x5
00c9 00d9       |    |		Load_Top	At_Offset_1
00ca 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
00cb 00d1       |    |		Pop_Control	Pop_Count_1
00cc e004       |    |		Load	0x0,0x4
00cd e5fe       |    |		Load	0x2,-0x2
00ce 0227       | '  |		Execute	Access,All_Reference
00cf 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
00d0 00db       |    |		Load_Top	At_Offset_3
00d1 0229       | )  |		Execute	Access,All_Read
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
00d4 8006       |    |		Call	0x0,0x6
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
00d7 00d1       |    |		Pop_Control	Pop_Count_1
00d8 00db       |    |		Load_Top	At_Offset_3
00d9 0229       | )  |		Execute	Access,All_Read
00da 00d8       |    |		Load_Top	At_Offset_0
00db 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
00dc 8009       |    |		Call	0x0,0x9
00dd 00d9       |    |		Load_Top	At_Offset_1
00de 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
00df 00d1       |    |		Pop_Control	Pop_Count_1
00e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 0229       | )  |		Execute	Access,All_Read
00e3 00d8       |    |		Load_Top	At_Offset_0
00e4 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
00e5 00ea       |    |		Load_Encached	Null_String_Cache
00e6 8005       |    |		Call	0x0,0x5
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
00e9 00d1       |    |		Pop_Control	Pop_Count_1
00ea 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00eb e004       |    |		Load	0x0,0x4
00ec e5fe       |    |		Load	0x2,-0x2
00ed 0227       | '  |		Execute	Access,All_Reference
00ee 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
00ef 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f0 e004       |    |		Load	0x0,0x4
00f1 e5fe       |    |		Load	0x2,-0x2
00f2 0227       | '  |		Execute	Access,All_Reference
00f3 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
00f4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f5 00db       |    |		Load_Top	At_Offset_3
00f6 0229       | )  |		Execute	Access,All_Read
00f7 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
00f8 00d8       |    |		Load_Top	At_Offset_0
00f9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00fa 800a       |    |		Call	0x0,0xa
00fb 00d9       |    |		Load_Top	At_Offset_1
00fc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00fd 00d1       |    |		Pop_Control	Pop_Count_1
00fe 00db       |    |		Load_Top	At_Offset_3
00ff 0229       | )  |		Execute	Access,All_Read
0100 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0101 00d8       |    |		Load_Top	At_Offset_0
0102 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0103 8006       |    |		Call	0x0,0x6
0104 00d9       |    |		Load_Top	At_Offset_1
0105 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0106 00d1       |    |		Pop_Control	Pop_Count_1
0107 e004       |    |		Load	0x0,0x4
0108 e5fe       |    |		Load	0x2,-0x2
0109 0227       | '  |		Execute	Access,All_Reference
010a 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
010b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
010c e004       |    |		Load	0x0,0x4
010d e5fe       |    |		Load	0x2,-0x2
010e 0227       | '  |		Execute	Access,All_Reference
010f 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0110 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0111 00db       |    |		Load_Top	At_Offset_3
0112 0229       | )  |		Execute	Access,All_Read
0113 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0114 00d8       |    |		Load_Top	At_Offset_0
0115 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0116 00ea       |    |		Load_Encached	Null_String_Cache
0117 8005       |    |		Call	0x0,0x5
0118 00d9       |    |		Load_Top	At_Offset_1
0119 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
011a 00d1       |    |		Pop_Control	Pop_Count_1
011b 00db       |    |		Load_Top	At_Offset_3
011c 0229       | )  |		Execute	Access,All_Read
011d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
011e 00d8       |    |		Load_Top	At_Offset_0
011f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0120 8006       |    |		Call	0x0,0x6
0121 00d9       |    |		Load_Top	At_Offset_1
0122 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0123 00d1       |    |		Pop_Control	Pop_Count_1
0124 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d       | -  |		.CONST	0x012d								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e00b       |    |		Load	0x0,0xb
012c 0007       |    |		Action	Break_Optional
012d			BODY_0128:
012d e004       |    |		Load	0x0,0x4
012e 03bc       |    |		Declare_Variable	Access,By_Allocation
012f a226       | &  |		Store_Unchecked	0x1,0x26
0130 e226       | &  |		Load	0x1,0x26
0131 0229       | )  |		Execute	Access,All_Read
0132 00d8       |    |		Load_Top	At_Offset_0
0133 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0134 00ea       |    |		Load_Encached	Null_String_Cache
0135 8005       |    |		Call	0x0,0x5
0136 00d9       |    |		Load_Top	At_Offset_1
0137 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0138 00d1       |    |		Pop_Control	Pop_Count_1
0139 4800       |H   |		Short_Literal	0x0
013a e226       | &  |		Load	0x1,0x26
013b 0227       | '  |		Execute	Access,All_Reference
013c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
013d 4800       |H   |		Short_Literal	0x0
013e e226       | &  |		Load	0x1,0x26
013f 0227       | '  |		Execute	Access,All_Reference
0140 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0141 4800       |H   |		Short_Literal	0x0
0142 4801       |H   |		Short_Literal	0x1
0143 e00b       |    |		Load	0x0,0xb
0144 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0145 00d8       |    |		Load_Top	At_Offset_0
0146 0227       | '  |		Execute	Access,All_Reference
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148 0039       | 9  |		Store_Top	Access,At_Offset_1
0149 00d8       |    |		Load_Top	At_Offset_0
014a 4800       |H   |		Short_Literal	0x0
014b 820d       |    |		Call	0x1,0xd
014c 0039       | 9  |		Store_Top	Access,At_Offset_1
014d 00d8       |    |		Load_Top	At_Offset_0
014e e226       | &  |		Load	0x1,0x26
014f 0227       | '  |		Execute	Access,All_Reference
0150 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0151 4800       |H   |		Short_Literal	0x0
0152 e226       | &  |		Load	0x1,0x26
0153 0227       | '  |		Execute	Access,All_Reference
0154 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0155 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0156 0000 0000  |    |		.XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d       | ]  |		.CONST	0x015d								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b e00b       |    |		Load	0x0,0xb
015c 0007       |    |		Action	Break_Optional
015d			BODY_0158:
015d e004       |    |		Load	0x0,0x4
015e 03bc       |    |		Declare_Variable	Access,By_Allocation
015f a226       | &  |		Store_Unchecked	0x1,0x26
0160 e226       | &  |		Load	0x1,0x26
0161 0229       | )  |		Execute	Access,All_Read
0162 00d8       |    |		Load_Top	At_Offset_0
0163 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0164 00ea       |    |		Load_Encached	Null_String_Cache
0165 8005       |    |		Call	0x0,0x5
0166 00d9       |    |		Load_Top	At_Offset_1
0167 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0168 00d1       |    |		Pop_Control	Pop_Count_1
0169 4801       |H   |		Short_Literal	0x1
016a e226       | &  |		Load	0x1,0x26
016b 0227       | '  |		Execute	Access,All_Reference
016c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
016d 4800       |H   |		Short_Literal	0x0
016e e226       | &  |		Load	0x1,0x26
016f 0227       | '  |		Execute	Access,All_Reference
0170 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0171 4801       |H   |		Short_Literal	0x1
0172 4802       |H   |		Short_Literal	0x2
0173 e00b       |    |		Load	0x0,0xb
0174 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0175 00d8       |    |		Load_Top	At_Offset_0
0176 0227       | '  |		Execute	Access,All_Reference
0177 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0178 0039       | 9  |		Store_Top	Access,At_Offset_1
0179 00d8       |    |		Load_Top	At_Offset_0
017a 4801       |H   |		Short_Literal	0x1
017b 820d       |    |		Call	0x1,0xd
017c 0039       | 9  |		Store_Top	Access,At_Offset_1
017d 00d8       |    |		Load_Top	At_Offset_0
017e e226       | &  |		Load	0x1,0x26
017f 0227       | '  |		Execute	Access,All_Reference
0180 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0181 4800       |H   |		Short_Literal	0x0
0182 e226       | &  |		Load	0x1,0x26
0183 0227       | '  |		Execute	Access,All_Reference
0184 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0185 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d       |    |		.CONST	0x018d								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e00b       |    |		Load	0x0,0xb
018c 0007       |    |		Action	Break_Optional
018d			BODY_0188:
018d e004       |    |		Load	0x0,0x4
018e 03bc       |    |		Declare_Variable	Access,By_Allocation
018f a226       | &  |		Store_Unchecked	0x1,0x26
0190 e226       | &  |		Load	0x1,0x26
0191 0229       | )  |		Execute	Access,All_Read
0192 00d8       |    |		Load_Top	At_Offset_0
0193 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0194 00ea       |    |		Load_Encached	Null_String_Cache
0195 8005       |    |		Call	0x0,0x5
0196 00d9       |    |		Load_Top	At_Offset_1
0197 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0198 00d1       |    |		Pop_Control	Pop_Count_1
0199 4802       |H   |		Short_Literal	0x2
019a e226       | &  |		Load	0x1,0x26
019b 0227       | '  |		Execute	Access,All_Reference
019c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
019d 4800       |H   |		Short_Literal	0x0
019e e226       | &  |		Load	0x1,0x26
019f 0227       | '  |		Execute	Access,All_Reference
01a0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01a1 4802       |H   |		Short_Literal	0x2
01a2 4803       |H   |		Short_Literal	0x3
01a3 e00b       |    |		Load	0x0,0xb
01a4 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 0227       | '  |		Execute	Access,All_Reference
01a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a8 0039       | 9  |		Store_Top	Access,At_Offset_1
01a9 00d8       |    |		Load_Top	At_Offset_0
01aa 4802       |H   |		Short_Literal	0x2
01ab 820d       |    |		Call	0x1,0xd
01ac 0039       | 9  |		Store_Top	Access,At_Offset_1
01ad 00d8       |    |		Load_Top	At_Offset_0
01ae e226       | &  |		Load	0x1,0x26
01af 0227       | '  |		Execute	Access,All_Reference
01b0 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01b1 4800       |H   |		Short_Literal	0x0
01b2 e226       | &  |		Load	0x1,0x26
01b3 0227       | '  |		Execute	Access,All_Reference
01b4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b6 0000 0000  |    |		.XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd       |    |		.CONST	0x01bd								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0002       |    |		.CONST	0x0002								; Number of locals
01bb			INIT_01b8:
01bb e00b       |    |		Load	0x0,0xb
01bc 0007       |    |		Action	Break_Optional
01bd			BODY_01b8:
01bd e004       |    |		Load	0x0,0x4
01be 03bc       |    |		Declare_Variable	Access,By_Allocation
01bf a226       | &  |		Store_Unchecked	0x1,0x26
01c0 e226       | &  |		Load	0x1,0x26
01c1 0229       | )  |		Execute	Access,All_Read
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c4 00ea       |    |		Load_Encached	Null_String_Cache
01c5 8005       |    |		Call	0x0,0x5
01c6 00d9       |    |		Load_Top	At_Offset_1
01c7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01c8 00d1       |    |		Pop_Control	Pop_Count_1
01c9 4803       |H   |		Short_Literal	0x3
01ca e226       | &  |		Load	0x1,0x26
01cb 0227       | '  |		Execute	Access,All_Reference
01cc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01cd 4800       |H   |		Short_Literal	0x0
01ce e226       | &  |		Load	0x1,0x26
01cf 0227       | '  |		Execute	Access,All_Reference
01d0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01d1 4803       |H   |		Short_Literal	0x3
01d2 4804       |H   |		Short_Literal	0x4
01d3 e00b       |    |		Load	0x0,0xb
01d4 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 0227       | '  |		Execute	Access,All_Reference
01d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d8 0039       | 9  |		Store_Top	Access,At_Offset_1
01d9 00d8       |    |		Load_Top	At_Offset_0
01da 4803       |H   |		Short_Literal	0x3
01db 820d       |    |		Call	0x1,0xd
01dc 0039       | 9  |		Store_Top	Access,At_Offset_1
01dd 00d8       |    |		Load_Top	At_Offset_0
01de e226       | &  |		Load	0x1,0x26
01df 0227       | '  |		Execute	Access,All_Reference
01e0 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01e1 4800       |H   |		Short_Literal	0x0
01e2 e226       | &  |		Load	0x1,0x26
01e3 0227       | '  |		Execute	Access,All_Reference
01e4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01e5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01e6 0000 0000  |    |		.XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ed       |    |		.CONST	0x01ed								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0002       |    |		.CONST	0x0002								; Number of locals
01eb			INIT_01e8:
01eb e00b       |    |		Load	0x0,0xb
01ec 0007       |    |		Action	Break_Optional
01ed			BODY_01e8:
01ed e004       |    |		Load	0x0,0x4
01ee 03bc       |    |		Declare_Variable	Access,By_Allocation
01ef a226       | &  |		Store_Unchecked	0x1,0x26
01f0 e226       | &  |		Load	0x1,0x26
01f1 0229       | )  |		Execute	Access,All_Read
01f2 00d8       |    |		Load_Top	At_Offset_0
01f3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01f4 00ea       |    |		Load_Encached	Null_String_Cache
01f5 8005       |    |		Call	0x0,0x5
01f6 00d9       |    |		Load_Top	At_Offset_1
01f7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01f8 00d1       |    |		Pop_Control	Pop_Count_1
01f9 4804       |H   |		Short_Literal	0x4
01fa e226       | &  |		Load	0x1,0x26
01fb 0227       | '  |		Execute	Access,All_Reference
01fc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01fd 4800       |H   |		Short_Literal	0x0
01fe e226       | &  |		Load	0x1,0x26
01ff 0227       | '  |		Execute	Access,All_Reference
0200 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0201 4804       |H   |		Short_Literal	0x4
0202 4805       |H   |		Short_Literal	0x5
0203 e00b       |    |		Load	0x0,0xb
0204 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0205 00d8       |    |		Load_Top	At_Offset_0
0206 0227       | '  |		Execute	Access,All_Reference
0207 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0208 0039       | 9  |		Store_Top	Access,At_Offset_1
0209 00d8       |    |		Load_Top	At_Offset_0
020a 4804       |H   |		Short_Literal	0x4
020b 820d       |    |		Call	0x1,0xd
020c 0039       | 9  |		Store_Top	Access,At_Offset_1
020d 00d8       |    |		Load_Top	At_Offset_0
020e e226       | &  |		Load	0x1,0x26
020f 0227       | '  |		Execute	Access,All_Reference
0210 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0211 4800       |H   |		Short_Literal	0x0
0212 e226       | &  |		Load	0x1,0x26
0213 0227       | '  |		Execute	Access,All_Reference
0214 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0215 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021d       |    |		.CONST	0x021d								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0002       |    |		.CONST	0x0002								; Number of locals
021b			INIT_0218:
021b e00b       |    |		Load	0x0,0xb
021c 0007       |    |		Action	Break_Optional
021d			BODY_0218:
021d e004       |    |		Load	0x0,0x4
021e 03bc       |    |		Declare_Variable	Access,By_Allocation
021f a226       | &  |		Store_Unchecked	0x1,0x26
0220 e226       | &  |		Load	0x1,0x26
0221 0229       | )  |		Execute	Access,All_Read
0222 00d8       |    |		Load_Top	At_Offset_0
0223 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0224 00ea       |    |		Load_Encached	Null_String_Cache
0225 8005       |    |		Call	0x0,0x5
0226 00d9       |    |		Load_Top	At_Offset_1
0227 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0228 00d1       |    |		Pop_Control	Pop_Count_1
0229 4806       |H   |		Short_Literal	0x6
022a e226       | &  |		Load	0x1,0x26
022b 0227       | '  |		Execute	Access,All_Reference
022c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
022d 4800       |H   |		Short_Literal	0x0
022e e226       | &  |		Load	0x1,0x26
022f 0227       | '  |		Execute	Access,All_Reference
0230 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0231 4806       |H   |		Short_Literal	0x6
0232 4806       |H   |		Short_Literal	0x6
0233 e00b       |    |		Load	0x0,0xb
0234 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0235 00d8       |    |		Load_Top	At_Offset_0
0236 0227       | '  |		Execute	Access,All_Reference
0237 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0238 0039       | 9  |		Store_Top	Access,At_Offset_1
0239 00d8       |    |		Load_Top	At_Offset_0
023a 4806       |H   |		Short_Literal	0x6
023b 820d       |    |		Call	0x1,0xd
023c 0039       | 9  |		Store_Top	Access,At_Offset_1
023d 00d8       |    |		Load_Top	At_Offset_0
023e e226       | &  |		Load	0x1,0x26
023f 0227       | '  |		Execute	Access,All_Reference
0240 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0241 4800       |H   |		Short_Literal	0x0
0242 e226       | &  |		Load	0x1,0x26
0243 0227       | '  |		Execute	Access,All_Reference
0244 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0245 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0246 0000 0000  |    |		.XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024d       | M  |		.CONST	0x024d								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0002       |    |		.CONST	0x0002								; Number of locals
024b			INIT_0248:
024b e00b       |    |		Load	0x0,0xb
024c 0007       |    |		Action	Break_Optional
024d			BODY_0248:
024d e004       |    |		Load	0x0,0x4
024e 03bc       |    |		Declare_Variable	Access,By_Allocation
024f a226       | &  |		Store_Unchecked	0x1,0x26
0250 e226       | &  |		Load	0x1,0x26
0251 0229       | )  |		Execute	Access,All_Read
0252 00d8       |    |		Load_Top	At_Offset_0
0253 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0254 00ea       |    |		Load_Encached	Null_String_Cache
0255 8005       |    |		Call	0x0,0x5
0256 00d9       |    |		Load_Top	At_Offset_1
0257 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0258 00d1       |    |		Pop_Control	Pop_Count_1
0259 4805       |H   |		Short_Literal	0x5
025a e226       | &  |		Load	0x1,0x26
025b 0227       | '  |		Execute	Access,All_Reference
025c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
025d 4800       |H   |		Short_Literal	0x0
025e e226       | &  |		Load	0x1,0x26
025f 0227       | '  |		Execute	Access,All_Reference
0260 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0261 4805       |H   |		Short_Literal	0x5
0262 4806       |H   |		Short_Literal	0x6
0263 e00b       |    |		Load	0x0,0xb
0264 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0265 00d8       |    |		Load_Top	At_Offset_0
0266 0227       | '  |		Execute	Access,All_Reference
0267 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0268 0039       | 9  |		Store_Top	Access,At_Offset_1
0269 00d8       |    |		Load_Top	At_Offset_0
026a 4805       |H   |		Short_Literal	0x5
026b 820d       |    |		Call	0x1,0xd
026c 0039       | 9  |		Store_Top	Access,At_Offset_1
026d 00d8       |    |		Load_Top	At_Offset_0
026e e226       | &  |		Load	0x1,0x26
026f 0227       | '  |		Execute	Access,All_Reference
0270 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0271 4800       |H   |		Short_Literal	0x0
0272 e226       | &  |		Load	0x1,0x26
0273 0227       | '  |		Execute	Access,All_Reference
0274 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0275 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0276 0000 0000  |    |		.XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027f       |    |		.CONST	0x027f								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0003       |    |		.CONST	0x0003								; Number of locals
027b			INIT_0278:
027b e003       |    |		Load	0x0,0x3
027c 0322       | "  |		Declare_Variable	Record
027d e00b       |    |		Load	0x0,0xb
027e 0007       |    |		Action	Break_Optional
027f			BODY_0278:
027f 00d9       |    |		Load_Top	At_Offset_1
0280 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0281 e5ff       |    |		Load	0x2,-0x1
0282 800c       |    |		Call	0x0,0xc
0283 00da       |    |		Load_Top	At_Offset_2
0284 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0285 4802       |H   |		Short_Literal	0x2
0286 00da       |    |		Load_Top	At_Offset_2
0287 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0288 4800       |H   |		Short_Literal	0x0
0289 00da       |    |		Load_Top	At_Offset_2
028a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
028b 4802       |H   |		Short_Literal	0x2
028c 4803       |H   |		Short_Literal	0x3
028d e00b       |    |		Load	0x0,0xb
028e 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
028f 00d8       |    |		Load_Top	At_Offset_0
0290 0227       | '  |		Execute	Access,All_Reference
0291 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0292 0039       | 9  |		Store_Top	Access,At_Offset_1
0293 00d8       |    |		Load_Top	At_Offset_0
0294 4802       |H   |		Short_Literal	0x2
0295 820d       |    |		Call	0x1,0xd
0296 0039       | 9  |		Store_Top	Access,At_Offset_1
0297 00d8       |    |		Load_Top	At_Offset_0
0298 00da       |    |		Load_Top	At_Offset_2
0299 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
029a 4800       |H   |		Short_Literal	0x0
029b 00da       |    |		Load_Top	At_Offset_2
029c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
029d 00d9       |    |		Load_Top	At_Offset_1
029e 800d       |    |		Call	0x0,0xd
029f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a7       |    |		.CONST	0x02a7								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0003       |    |		.CONST	0x0003								; Number of locals
02a3			INIT_02a0:
02a3 e003       |    |		Load	0x0,0x3
02a4 0322       | "  |		Declare_Variable	Record
02a5 e00b       |    |		Load	0x0,0xb
02a6 0007       |    |		Action	Break_Optional
02a7			BODY_02a0:
02a7 00d9       |    |		Load_Top	At_Offset_1
02a8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a9 e5ff       |    |		Load	0x2,-0x1
02aa 800c       |    |		Call	0x0,0xc
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ad 4803       |H   |		Short_Literal	0x3
02ae 00da       |    |		Load_Top	At_Offset_2
02af 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02b0 4800       |H   |		Short_Literal	0x0
02b1 00da       |    |		Load_Top	At_Offset_2
02b2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02b3 4803       |H   |		Short_Literal	0x3
02b4 4804       |H   |		Short_Literal	0x4
02b5 e00b       |    |		Load	0x0,0xb
02b6 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02b7 00d8       |    |		Load_Top	At_Offset_0
02b8 0227       | '  |		Execute	Access,All_Reference
02b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ba 0039       | 9  |		Store_Top	Access,At_Offset_1
02bb 00d8       |    |		Load_Top	At_Offset_0
02bc 4803       |H   |		Short_Literal	0x3
02bd 820d       |    |		Call	0x1,0xd
02be 0039       | 9  |		Store_Top	Access,At_Offset_1
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 00da       |    |		Load_Top	At_Offset_2
02c1 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02c2 4800       |H   |		Short_Literal	0x0
02c3 00da       |    |		Load_Top	At_Offset_2
02c4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02c5 00d9       |    |		Load_Top	At_Offset_1
02c6 800d       |    |		Call	0x0,0xd
02c7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd       |    |		.CONST	0x02cd								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0002       |    |		.CONST	0x0002								; Number of locals
02cb			INIT_02c8:
02cb e224       | $  |		Load	0x1,0x24
02cc 0007       |    |		Action	Break_Optional
02cd			BODY_02c8:
02cd e226       | &  |		Load	0x1,0x26
02ce 0229       | )  |		Execute	Access,All_Read
02cf 00d8       |    |		Load_Top	At_Offset_0
02d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d1 e5ff       |    |		Load	0x2,-0x1
02d2 800c       |    |		Call	0x0,0xc
02d3 00d9       |    |		Load_Top	At_Offset_1
02d4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02d5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd       |    |		.CONST	0x02dd								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0002       |    |		.CONST	0x0002								; Number of locals
02db			INIT_02d8:
02db e224       | $  |		Load	0x1,0x24
02dc 0007       |    |		Action	Break_Optional
02dd			BODY_02d8:
02dd e226       | &  |		Load	0x1,0x26
02de 0227       | '  |		Execute	Access,All_Reference
02df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02e0 4607       |F   |		Jump_Case	0x8
02e1 782c       |x,  |		Jump	0x30e								; case 0x0
02e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x1
02e3 7806       |x   |		Jump	0x2ea								; case 0x2
02e4 7811       |x   |		Jump	0x2f6								; case 0x3
02e5 781c       |x   |		Jump	0x302								; case 0x4
02e6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x5
02e7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x6
02e8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x7
02e9 4503       |E   |		.XXX[0x1]
02ea e226       | &  |		Load	0x1,0x26
02eb 0229       | )  |		Execute	Access,All_Read
02ec 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02ed 0229       | )  |		Execute	Access,All_Read
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02f0 e5ff       |    |		Load	0x2,-0x1
02f1 800c       |    |		Call	0x0,0xc
02f2 00d9       |    |		Load_Top	At_Offset_1
02f3 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02f4 00d1       |    |		Pop_Control	Pop_Count_1
02f5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02f6 e226       | &  |		Load	0x1,0x26
02f7 0229       | )  |		Execute	Access,All_Read
02f8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02f9 0229       | )  |		Execute	Access,All_Read
02fa 00d8       |    |		Load_Top	At_Offset_0
02fb 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
02fc e5ff       |    |		Load	0x2,-0x1
02fd 800c       |    |		Call	0x0,0xc
02fe 00d9       |    |		Load_Top	At_Offset_1
02ff 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0300 00d1       |    |		Pop_Control	Pop_Count_1
0301 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0302 e226       | &  |		Load	0x1,0x26
0303 0229       | )  |		Execute	Access,All_Read
0304 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0305 0229       | )  |		Execute	Access,All_Read
0306 00d8       |    |		Load_Top	At_Offset_0
0307 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0308 e5ff       |    |		Load	0x2,-0x1
0309 800c       |    |		Call	0x0,0xc
030a 00d9       |    |		Load_Top	At_Offset_1
030b 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
030c 00d1       |    |		Pop_Control	Pop_Count_1
030d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030e e5fe       |    |		Load	0x2,-0x2
030f 4603       |F   |		Jump_Case	0x4
0310 7811       |x   |		Jump	0x322								; case 0x0
0311 7803       |x   |		Jump	0x315								; case 0x1
0312 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x2
0313 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x3
0314 4503       |E   |		.XXX[0x1]
0315 e226       | &  |		Load	0x1,0x26
0316 0229       | )  |		Execute	Access,All_Read
0317 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0318 0229       | )  |		Execute	Access,All_Read
0319 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
031a 00d8       |    |		Load_Top	At_Offset_0
031b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
031c e5ff       |    |		Load	0x2,-0x1
031d 800c       |    |		Call	0x0,0xc
031e 00d9       |    |		Load_Top	At_Offset_1
031f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0320 00d1       |    |		Pop_Control	Pop_Count_1
0321 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0322 e226       | &  |		Load	0x1,0x26
0323 0229       | )  |		Execute	Access,All_Read
0324 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0325 0229       | )  |		Execute	Access,All_Read
0326 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0327 00d8       |    |		Load_Top	At_Offset_0
0328 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0329 e5ff       |    |		Load	0x2,-0x1
032a 800c       |    |		Call	0x0,0xc
032b 00d9       |    |		Load_Top	At_Offset_1
032c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
032d 00d1       |    |		Pop_Control	Pop_Count_1
032e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
032f 0000       |    |		.XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0338       | 8  |		.CONST	0x0338								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0004       |    |		.CONST	0x0004								; Number of locals
0333			INIT_0330:
0333 00e1       |    |		Load_Encached	Boolean_Cache
0334 e003       |    |		Load	0x0,0x3
0335 0322       | "  |		Declare_Variable	Record
0336 e004       |    |		Load	0x0,0x4
0337 0007       |    |		Action	Break_Optional
0338			BODY_0330:
0338 00d9       |    |		Load_Top	At_Offset_1
0339 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
033a e5ff       |    |		Load	0x2,-0x1
033b 800c       |    |		Call	0x0,0xc
033c 00da       |    |		Load_Top	At_Offset_2
033d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
033e 00e1       |    |		Load_Encached	Boolean_Cache
033f 00da       |    |		Load_Top	At_Offset_2
0340 800e       |    |		Call	0x0,0xe
0341 00d1       |    |		Pop_Control	Pop_Count_1
0342 005b       | [  |		Store_Top	Discrete,At_Offset_3
0343 00da       |    |		Load_Top	At_Offset_2
0344 7007       |p   |		Jump_Nonzero	0x34c
0345 e5ff       |    |		Load	0x2,-0x1
0346 8215       |    |		Call	0x1,0x15
0347 00e1       |    |		Load_Encached	Boolean_Cache
0348 00da       |    |		Load_Top	At_Offset_2
0349 800e       |    |		Call	0x0,0xe
034a 00d1       |    |		Pop_Control	Pop_Count_1
034b 005b       | [  |		Store_Top	Discrete,At_Offset_3
034c e004       |    |		Load	0x0,0x4
034d 03bc       |    |		Declare_Variable	Access,By_Allocation
034e 0039       | 9  |		Store_Top	Access,At_Offset_1
034f 00d9       |    |		Load_Top	At_Offset_1
0350 00d9       |    |		Load_Top	At_Offset_1
0351 0228       | (  |		Execute	Access,All_Write
0352 e226       | &  |		Load	0x1,0x26
0353 0227       | '  |		Execute	Access,All_Reference
0354 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0355 4607       |F   |		Jump_Case	0x8
0356 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x0
0357 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x1
0358 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x2
0359 780c       |x   |		Jump	0x366								; case 0x3
035a 7804       |x   |		Jump	0x35f								; case 0x4
035b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x5
035c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x6
035d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x7
035e 4502       |E   |		.XXX[0x1]
035f 00d8       |    |		Load_Top	At_Offset_0
0360 e226       | &  |		Load	0x1,0x26
0361 0227       | '  |		Execute	Access,All_Reference
0362 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0363 0227       | '  |		Execute	Access,All_Reference
0364 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0365 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0366 00d8       |    |		Load_Top	At_Offset_0
0367 e226       | &  |		Load	0x1,0x26
0368 0227       | '  |		Execute	Access,All_Reference
0369 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
036a 0227       | '  |		Execute	Access,All_Reference
036b 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
036c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
036d 0000 0000  |    |		.XXX[0x3]
036f 0000       |    |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0375       | u  |		.CONST	0x0375								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0002       |    |		.CONST	0x0002								; Number of locals
0373			INIT_0370:
0373 e224       | $  |		Load	0x1,0x24
0374 0007       |    |		Action	Break_Optional
0375			BODY_0370:
0375 e224       | $  |		Load	0x1,0x24
0376 03bc       |    |		Declare_Variable	Access,By_Allocation
0377 0039       | 9  |		Store_Top	Access,At_Offset_1
0378 00d8       |    |		Load_Top	At_Offset_0
0379 00d8       |    |		Load_Top	At_Offset_0
037a 0229       | )  |		Execute	Access,All_Read
037b e5ff       |    |		Load	0x2,-0x1
037c 800c       |    |		Call	0x0,0xc
037d 00d9       |    |		Load_Top	At_Offset_1
037e 0228       | (  |		Execute	Access,All_Write
037f 00d1       |    |		Pop_Control	Pop_Count_1
0380 e226       | &  |		Load	0x1,0x26
0381 0227       | '  |		Execute	Access,All_Reference
0382 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0383 4607       |F   |		Jump_Case	0x8
0384 782f       |x/  |		Jump	0x3b4								; case 0x0
0385 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x1
0386 7806       |x   |		Jump	0x38d								; case 0x2
0387 7812       |x   |		Jump	0x39a								; case 0x3
0388 781e       |x   |		Jump	0x3a7								; case 0x4
0389 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x5
038a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x6
038b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x7
038c 4503       |E   |		.XXX[0x1]
038d e226       | &  |		Load	0x1,0x26
038e 0229       | )  |		Execute	Access,All_Read
038f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0390 0229       | )  |		Execute	Access,All_Read
0391 00d8       |    |		Load_Top	At_Offset_0
0392 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0393 00da       |    |		Load_Top	At_Offset_2
0394 0229       | )  |		Execute	Access,All_Read
0395 800f       |    |		Call	0x0,0xf
0396 00d9       |    |		Load_Top	At_Offset_1
0397 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0398 00d1       |    |		Pop_Control	Pop_Count_1
0399 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
039a e226       | &  |		Load	0x1,0x26
039b 0229       | )  |		Execute	Access,All_Read
039c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
039d 0229       | )  |		Execute	Access,All_Read
039e 00d8       |    |		Load_Top	At_Offset_0
039f 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
03a0 00da       |    |		Load_Top	At_Offset_2
03a1 0229       | )  |		Execute	Access,All_Read
03a2 800f       |    |		Call	0x0,0xf
03a3 00d9       |    |		Load_Top	At_Offset_1
03a4 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
03a5 00d1       |    |		Pop_Control	Pop_Count_1
03a6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03a7 e226       | &  |		Load	0x1,0x26
03a8 0229       | )  |		Execute	Access,All_Read
03a9 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03aa 0229       | )  |		Execute	Access,All_Read
03ab 00d8       |    |		Load_Top	At_Offset_0
03ac 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
03ad 00da       |    |		Load_Top	At_Offset_2
03ae 0229       | )  |		Execute	Access,All_Read
03af 800f       |    |		Call	0x0,0xf
03b0 00d9       |    |		Load_Top	At_Offset_1
03b1 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
03b2 00d1       |    |		Pop_Control	Pop_Count_1
03b3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b4 e5fe       |    |		Load	0x2,-0x2
03b5 4603       |F   |		Jump_Case	0x4
03b6 7812       |x   |		Jump	0x3c9								; case 0x0
03b7 7803       |x   |		Jump	0x3bb								; case 0x1
03b8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x2
03b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x3
03ba 4503       |E   |		.XXX[0x1]
03bb e226       | &  |		Load	0x1,0x26
03bc 0229       | )  |		Execute	Access,All_Read
03bd 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03be 0229       | )  |		Execute	Access,All_Read
03bf 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03c0 00d8       |    |		Load_Top	At_Offset_0
03c1 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03c2 00da       |    |		Load_Top	At_Offset_2
03c3 0229       | )  |		Execute	Access,All_Read
03c4 800f       |    |		Call	0x0,0xf
03c5 00d9       |    |		Load_Top	At_Offset_1
03c6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03c7 00d1       |    |		Pop_Control	Pop_Count_1
03c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03c9 e226       | &  |		Load	0x1,0x26
03ca 0229       | )  |		Execute	Access,All_Read
03cb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03cc 0229       | )  |		Execute	Access,All_Read
03cd 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03ce 00d8       |    |		Load_Top	At_Offset_0
03cf 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03d0 00da       |    |		Load_Top	At_Offset_2
03d1 0229       | )  |		Execute	Access,All_Read
03d2 800f       |    |		Call	0x0,0xf
03d3 00d9       |    |		Load_Top	At_Offset_1
03d4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03d5 00d1       |    |		Pop_Control	Pop_Count_1
03d6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d7 0000       |    |		.XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e0       |    |		.CONST	0x03e0								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0004       |    |		.CONST	0x0004								; Number of locals
03db			INIT_03d8:
03db 00e1       |    |		Load_Encached	Boolean_Cache
03dc e003       |    |		Load	0x0,0x3
03dd 0322       | "  |		Declare_Variable	Record
03de e004       |    |		Load	0x0,0x4
03df 0007       |    |		Action	Break_Optional
03e0			BODY_03d8:
03e0 00d9       |    |		Load_Top	At_Offset_1
03e1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03e2 e5ff       |    |		Load	0x2,-0x1
03e3 800c       |    |		Call	0x0,0xc
03e4 00da       |    |		Load_Top	At_Offset_2
03e5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03e6 00e1       |    |		Load_Encached	Boolean_Cache
03e7 00da       |    |		Load_Top	At_Offset_2
03e8 800e       |    |		Call	0x0,0xe
03e9 00d1       |    |		Pop_Control	Pop_Count_1
03ea 005b       | [  |		Store_Top	Discrete,At_Offset_3
03eb 00da       |    |		Load_Top	At_Offset_2
03ec 7007       |p   |		Jump_Nonzero	0x3f4
03ed e5ff       |    |		Load	0x2,-0x1
03ee 8216       |    |		Call	0x1,0x16
03ef 00e1       |    |		Load_Encached	Boolean_Cache
03f0 00da       |    |		Load_Top	At_Offset_2
03f1 800e       |    |		Call	0x0,0xe
03f2 00d1       |    |		Pop_Control	Pop_Count_1
03f3 005b       | [  |		Store_Top	Discrete,At_Offset_3
03f4 e004       |    |		Load	0x0,0x4
03f5 03bc       |    |		Declare_Variable	Access,By_Allocation
03f6 0039       | 9  |		Store_Top	Access,At_Offset_1
03f7 00d9       |    |		Load_Top	At_Offset_1
03f8 00d9       |    |		Load_Top	At_Offset_1
03f9 0228       | (  |		Execute	Access,All_Write
03fa e226       | &  |		Load	0x1,0x26
03fb 0227       | '  |		Execute	Access,All_Reference
03fc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03fd 0f04       |    |		Execute_Immediate	Equal,0x4
03fe 7001       |p   |		Jump_Nonzero	0x400
03ff 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0400 e226       | &  |		Load	0x1,0x26
0401 0229       | )  |		Execute	Access,All_Read
0402 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0403 0229       | )  |		Execute	Access,All_Read
0404 00d8       |    |		Load_Top	At_Offset_0
0405 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0406 00da       |    |		Load_Top	At_Offset_2
0407 8010       |    |		Call	0x0,0x10
0408 00d9       |    |		Load_Top	At_Offset_1
0409 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
040a 00d1       |    |		Pop_Control	Pop_Count_1
040b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
040c 0000 0000  |    |		.BLANK	0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0418       |    |		.CONST	0x0418								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0004       |    |		.CONST	0x0004								; Number of locals
0413			INIT_0410:
0413 00e1       |    |		Load_Encached	Boolean_Cache
0414 e003       |    |		Load	0x0,0x3
0415 0322       | "  |		Declare_Variable	Record
0416 e004       |    |		Load	0x0,0x4
0417 0007       |    |		Action	Break_Optional
0418			BODY_0410:
0418 00d9       |    |		Load_Top	At_Offset_1
0419 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
041a e5ff       |    |		Load	0x2,-0x1
041b 800c       |    |		Call	0x0,0xc
041c 00da       |    |		Load_Top	At_Offset_2
041d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
041e 00e1       |    |		Load_Encached	Boolean_Cache
041f 00da       |    |		Load_Top	At_Offset_2
0420 800e       |    |		Call	0x0,0xe
0421 00d1       |    |		Pop_Control	Pop_Count_1
0422 005b       | [  |		Store_Top	Discrete,At_Offset_3
0423 00da       |    |		Load_Top	At_Offset_2
0424 7007       |p   |		Jump_Nonzero	0x42c
0425 e5ff       |    |		Load	0x2,-0x1
0426 8216       |    |		Call	0x1,0x16
0427 00e1       |    |		Load_Encached	Boolean_Cache
0428 00da       |    |		Load_Top	At_Offset_2
0429 800e       |    |		Call	0x0,0xe
042a 00d1       |    |		Pop_Control	Pop_Count_1
042b 005b       | [  |		Store_Top	Discrete,At_Offset_3
042c e004       |    |		Load	0x0,0x4
042d 03bc       |    |		Declare_Variable	Access,By_Allocation
042e 0039       | 9  |		Store_Top	Access,At_Offset_1
042f 00d9       |    |		Load_Top	At_Offset_1
0430 00d9       |    |		Load_Top	At_Offset_1
0431 0228       | (  |		Execute	Access,All_Write
0432 e226       | &  |		Load	0x1,0x26
0433 0227       | '  |		Execute	Access,All_Reference
0434 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0435 0f03       |    |		Execute_Immediate	Equal,0x3
0436 7001       |p   |		Jump_Nonzero	0x438
0437 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0438 e226       | &  |		Load	0x1,0x26
0439 0229       | )  |		Execute	Access,All_Read
043a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
043b 0229       | )  |		Execute	Access,All_Read
043c 00d8       |    |		Load_Top	At_Offset_0
043d 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
043e 00da       |    |		Load_Top	At_Offset_2
043f 8011       |    |		Call	0x0,0x11
0440 00d9       |    |		Load_Top	At_Offset_1
0441 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
0442 00d1       |    |		Pop_Control	Pop_Count_1
0443 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0444 0000 0000  |    |		.BLANK	0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0450       | P  |		.CONST	0x0450								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0004       |    |		.CONST	0x0004								; Number of locals
044b			INIT_0448:
044b 00e1       |    |		Load_Encached	Boolean_Cache
044c e003       |    |		Load	0x0,0x3
044d 0322       | "  |		Declare_Variable	Record
044e e004       |    |		Load	0x0,0x4
044f 0007       |    |		Action	Break_Optional
0450			BODY_0448:
0450 00d9       |    |		Load_Top	At_Offset_1
0451 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0452 e5ff       |    |		Load	0x2,-0x1
0453 800c       |    |		Call	0x0,0xc
0454 00da       |    |		Load_Top	At_Offset_2
0455 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0456 00e1       |    |		Load_Encached	Boolean_Cache
0457 00da       |    |		Load_Top	At_Offset_2
0458 800e       |    |		Call	0x0,0xe
0459 00d1       |    |		Pop_Control	Pop_Count_1
045a 005b       | [  |		Store_Top	Discrete,At_Offset_3
045b 00da       |    |		Load_Top	At_Offset_2
045c 7007       |p   |		Jump_Nonzero	0x464
045d e5ff       |    |		Load	0x2,-0x1
045e 8215       |    |		Call	0x1,0x15
045f 00e1       |    |		Load_Encached	Boolean_Cache
0460 00da       |    |		Load_Top	At_Offset_2
0461 800e       |    |		Call	0x0,0xe
0462 00d1       |    |		Pop_Control	Pop_Count_1
0463 005b       | [  |		Store_Top	Discrete,At_Offset_3
0464 e004       |    |		Load	0x0,0x4
0465 03bc       |    |		Declare_Variable	Access,By_Allocation
0466 0039       | 9  |		Store_Top	Access,At_Offset_1
0467 00d9       |    |		Load_Top	At_Offset_1
0468 00d9       |    |		Load_Top	At_Offset_1
0469 0228       | (  |		Execute	Access,All_Write
046a e226       | &  |		Load	0x1,0x26
046b 0227       | '  |		Execute	Access,All_Reference
046c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
046d 4801       |H   |		Short_Literal	0x1
046e 4807       |H   |		Short_Literal	0x7
046f 0262       | b  |		Execute	Discrete,In_Range
0470 7017       |p   |		Jump_Nonzero	0x488
0471 7800       |x   |		Jump	0x472
0472 e5fe       |    |		Load	0x2,-0x2
0473 4603       |F   |		Jump_Case	0x4
0474 780c       |x   |		Jump	0x481								; case 0x0
0475 7803       |x   |		Jump	0x479								; case 0x1
0476 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x2
0477 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x3
0478 4503       |E   |		.XXX[0x1]
0479 00d8       |    |		Load_Top	At_Offset_0
047a e226       | &  |		Load	0x1,0x26
047b 0227       | '  |		Execute	Access,All_Reference
047c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
047d 0227       | '  |		Execute	Access,All_Reference
047e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
047f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0480 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0481 00d8       |    |		Load_Top	At_Offset_0
0482 e226       | &  |		Load	0x1,0x26
0483 0227       | '  |		Execute	Access,All_Reference
0484 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0485 0227       | '  |		Execute	Access,All_Reference
0486 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0487 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0488 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0489 0000 0000  |    |		.BLANK	0000[0x7]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0498       |    |		.CONST	0x0498								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0004       |    |		.CONST	0x0004								; Number of locals
0493			INIT_0490:
0493 00e1       |    |		Load_Encached	Boolean_Cache
0494 e003       |    |		Load	0x0,0x3
0495 0322       | "  |		Declare_Variable	Record
0496 e004       |    |		Load	0x0,0x4
0497 0007       |    |		Action	Break_Optional
0498			BODY_0490:
0498 00d9       |    |		Load_Top	At_Offset_1
0499 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
049a e5ff       |    |		Load	0x2,-0x1
049b 800c       |    |		Call	0x0,0xc
049c 00da       |    |		Load_Top	At_Offset_2
049d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
049e 00e1       |    |		Load_Encached	Boolean_Cache
049f 00da       |    |		Load_Top	At_Offset_2
04a0 800e       |    |		Call	0x0,0xe
04a1 00d1       |    |		Pop_Control	Pop_Count_1
04a2 005b       | [  |		Store_Top	Discrete,At_Offset_3
04a3 00da       |    |		Load_Top	At_Offset_2
04a4 7007       |p   |		Jump_Nonzero	0x4ac
04a5 e5ff       |    |		Load	0x2,-0x1
04a6 8215       |    |		Call	0x1,0x15
04a7 00e1       |    |		Load_Encached	Boolean_Cache
04a8 00da       |    |		Load_Top	At_Offset_2
04a9 800e       |    |		Call	0x0,0xe
04aa 00d1       |    |		Pop_Control	Pop_Count_1
04ab 005b       | [  |		Store_Top	Discrete,At_Offset_3
04ac e004       |    |		Load	0x0,0x4
04ad 03bc       |    |		Declare_Variable	Access,By_Allocation
04ae 0039       | 9  |		Store_Top	Access,At_Offset_1
04af 00d9       |    |		Load_Top	At_Offset_1
04b0 00d9       |    |		Load_Top	At_Offset_1
04b1 0228       | (  |		Execute	Access,All_Write
04b2 e226       | &  |		Load	0x1,0x26
04b3 0227       | '  |		Execute	Access,All_Reference
04b4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04b5 4801       |H   |		Short_Literal	0x1
04b6 4807       |H   |		Short_Literal	0x7
04b7 0262       | b  |		Execute	Discrete,In_Range
04b8 7017       |p   |		Jump_Nonzero	0x4d0
04b9 7800       |x   |		Jump	0x4ba
04ba e5fe       |    |		Load	0x2,-0x2
04bb 4603       |F   |		Jump_Case	0x4
04bc 780c       |x   |		Jump	0x4c9								; case 0x0
04bd 7803       |x   |		Jump	0x4c1								; case 0x1
04be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x2
04bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x3
04c0 4503       |E   |		.XXX[0x1]
04c1 00d8       |    |		Load_Top	At_Offset_0
04c2 e226       | &  |		Load	0x1,0x26
04c3 0227       | '  |		Execute	Access,All_Reference
04c4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
04c5 0227       | '  |		Execute	Access,All_Reference
04c6 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
04c7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c9 00d8       |    |		Load_Top	At_Offset_0
04ca e226       | &  |		Load	0x1,0x26
04cb 0227       | '  |		Execute	Access,All_Reference
04cc 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
04cd 0227       | '  |		Execute	Access,All_Reference
04ce 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04cf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04d0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04d1 0000 0000  |    |		.BLANK	0000[0x7]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04e0       |    |		.CONST	0x04e0								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0004       |    |		.CONST	0x0004								; Number of locals
04db			INIT_04d8:
04db 00e1       |    |		Load_Encached	Boolean_Cache
04dc e003       |    |		Load	0x0,0x3
04dd 0322       | "  |		Declare_Variable	Record
04de e012       |    |		Load	0x0,0x12
04df 0322       | "  |		Declare_Variable	Record
04e0			BODY_04d8:
04e0 00d9       |    |		Load_Top	At_Offset_1
04e1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04e2 e5fe       |    |		Load	0x2,-0x2
04e3 800c       |    |		Call	0x0,0xc
04e4 00da       |    |		Load_Top	At_Offset_2
04e5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04e6 00e1       |    |		Load_Encached	Boolean_Cache
04e7 00da       |    |		Load_Top	At_Offset_2
04e8 800e       |    |		Call	0x0,0xe
04e9 00d1       |    |		Pop_Control	Pop_Count_1
04ea 005b       | [  |		Store_Top	Discrete,At_Offset_3
04eb 00da       |    |		Load_Top	At_Offset_2
04ec 7007       |p   |		Jump_Nonzero	0x4f4
04ed e5fe       |    |		Load	0x2,-0x2
04ee 8227       | '  |		Call	0x1,0x27
04ef 00e1       |    |		Load_Encached	Boolean_Cache
04f0 00da       |    |		Load_Top	At_Offset_2
04f1 800e       |    |		Call	0x0,0xe
04f2 00d1       |    |		Pop_Control	Pop_Count_1
04f3 005b       | [  |		Store_Top	Discrete,At_Offset_3
04f4 e004       |    |		Load	0x0,0x4
04f5 03bc       |    |		Declare_Variable	Access,By_Allocation
04f6 00d9       |    |		Load_Top	At_Offset_1
04f7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04f8 00d9       |    |		Load_Top	At_Offset_1
04f9 00d9       |    |		Load_Top	At_Offset_1
04fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04fb 0228       | (  |		Execute	Access,All_Write
04fc 00d8       |    |		Load_Top	At_Offset_0
04fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04fe e5ff       |    |		Load	0x2,-0x1
04ff 800c       |    |		Call	0x0,0xc
0500 00d9       |    |		Load_Top	At_Offset_1
0501 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0502 e226       | &  |		Load	0x1,0x26
0503 0227       | '  |		Execute	Access,All_Reference
0504 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0505 0f02       |    |		Execute_Immediate	Equal,0x2
0506 7001       |p   |		Jump_Nonzero	0x508
0507 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0508 e226       | &  |		Load	0x1,0x26
0509 0229       | )  |		Execute	Access,All_Read
050a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
050b 0229       | )  |		Execute	Access,All_Read
050c 00d8       |    |		Load_Top	At_Offset_0
050d 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
050e 00da       |    |		Load_Top	At_Offset_2
050f 8013       |    |		Call	0x0,0x13
0510 00d9       |    |		Load_Top	At_Offset_1
0511 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0512 00d1       |    |		Pop_Control	Pop_Count_1
0513 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0514 0000 0000  |    |		.BLANK	0000[0x4]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b       |    |		.CONST	0x051b								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0001       |    |		.CONST	0x0001								; Number of locals
051b			BODY_0518:
051b			INIT_0518:
051b 00da       |    |		Load_Top	At_Offset_2
051c e226       | &  |		Load	0x1,0x26
051d 0227       | '  |		Execute	Access,All_Reference
051e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
051f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523       | #  |		.CONST	0x0523								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0001       |    |		.CONST	0x0001								; Number of locals
0523			BODY_0520:
0523			INIT_0520:
0523 e226       | &  |		Load	0x1,0x26
0524 0227       | '  |		Execute	Access,All_Reference
0525 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0526 0f01       |    |		Execute_Immediate	Equal,0x1
0527 7001       |p   |		Jump_Nonzero	0x529
0528 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0529 00da       |    |		Load_Top	At_Offset_2
052a e226       | &  |		Load	0x1,0x26
052b 0227       | '  |		Execute	Access,All_Reference
052c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
052d 0227       | '  |		Execute	Access,All_Reference
052e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
052f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 e226       | &  |		Load	0x1,0x26
0534 0227       | '  |		Execute	Access,All_Reference
0535 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0536 4805       |H   |		Short_Literal	0x5
0537 4806       |H   |		Short_Literal	0x6
0538 0262       | b  |		Execute	Discrete,In_Range
0539 7001       |p   |		Jump_Nonzero	0x53b
053a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
053b e226       | &  |		Load	0x1,0x26
053c 0229       | )  |		Execute	Access,All_Read
053d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
053e 0229       | )  |		Execute	Access,All_Read
053f 00d8       |    |		Load_Top	At_Offset_0
0540 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0541 e5ff       |    |		Load	0x2,-0x1
0542 800c       |    |		Call	0x0,0xc
0543 00d9       |    |		Load_Top	At_Offset_1
0544 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
0545 00d1       |    |		Pop_Control	Pop_Count_1
0546 4801       |H   |		Short_Literal	0x1
0547 e226       | &  |		Load	0x1,0x26
0548 0227       | '  |		Execute	Access,All_Reference
0549 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
054a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
054b 0000 0000  |    |		.BLANK	0000[0x5]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0558       | X  |		.CONST	0x0558								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0004       |    |		.CONST	0x0004								; Number of locals
0553			INIT_0550:
0553 00e1       |    |		Load_Encached	Boolean_Cache
0554 e003       |    |		Load	0x0,0x3
0555 0322       | "  |		Declare_Variable	Record
0556 e004       |    |		Load	0x0,0x4
0557 0007       |    |		Action	Break_Optional
0558			BODY_0550:
0558 00d9       |    |		Load_Top	At_Offset_1
0559 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
055a e226       | &  |		Load	0x1,0x26
055b 0227       | '  |		Execute	Access,All_Reference
055c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
055d 800c       |    |		Call	0x0,0xc
055e 00da       |    |		Load_Top	At_Offset_2
055f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0560 00e1       |    |		Load_Encached	Boolean_Cache
0561 00da       |    |		Load_Top	At_Offset_2
0562 800e       |    |		Call	0x0,0xe
0563 00d1       |    |		Pop_Control	Pop_Count_1
0564 005b       | [  |		Store_Top	Discrete,At_Offset_3
0565 00da       |    |		Load_Top	At_Offset_2
0566 6823       |h#  |		Jump_Zero	0x58a
0567 00d9       |    |		Load_Top	At_Offset_1
0568 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0569 e226       | &  |		Load	0x1,0x26
056a 0227       | '  |		Execute	Access,All_Reference
056b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
056c 027f       |    |		Execute	Discrete,Equal
056d 6814       |h   |		Jump_Zero	0x582
056e 00d9       |    |		Load_Top	At_Offset_1
056f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0570 0f01       |    |		Execute_Immediate	Equal,0x1
0571 6808       |h   |		Jump_Zero	0x57a
0572 4800       |H   |		Short_Literal	0x0
0573 a5ff       |    |		Store_Unchecked	0x2,-0x1
0574 480a       |H   |		Short_Literal	0xa
0575 e226       | &  |		Load	0x1,0x26
0576 0227       | '  |		Execute	Access,All_Reference
0577 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0578 8014       |    |		Call	0x0,0x14
0579 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
057a 4801       |H   |		Short_Literal	0x1
057b e226       | &  |		Load	0x1,0x26
057c 0227       | '  |		Execute	Access,All_Reference
057d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
057e e226       | &  |		Load	0x1,0x26
057f 0227       | '  |		Execute	Access,All_Reference
0580 8015       |    |		Call	0x0,0x15
0581 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0582 4800       |H   |		Short_Literal	0x0
0583 a5ff       |    |		Store_Unchecked	0x2,-0x1
0584 480a       |H   |		Short_Literal	0xa
0585 e226       | &  |		Load	0x1,0x26
0586 0227       | '  |		Execute	Access,All_Reference
0587 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0588 8014       |    |		Call	0x0,0x14
0589 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
058a 4801       |H   |		Short_Literal	0x1
058b e226       | &  |		Load	0x1,0x26
058c 0227       | '  |		Execute	Access,All_Reference
058d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
058e e226       | &  |		Load	0x1,0x26
058f 0227       | '  |		Execute	Access,All_Reference
0590 800d       |    |		Call	0x0,0xd
0591 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0592 0000 0000  |    |		.BLANK	0000[0x6]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059f       |    |		.CONST	0x059f								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0003       |    |		.CONST	0x0003								; Number of locals
059b			INIT_0598:
059b e003       |    |		Load	0x0,0x3
059c 0322       | "  |		Declare_Variable	Record
059d e00b       |    |		Load	0x0,0xb
059e 0007       |    |		Action	Break_Optional
059f			BODY_0598:
059f 00d9       |    |		Load_Top	At_Offset_1
05a0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05a1 e5ff       |    |		Load	0x2,-0x1
05a2 800c       |    |		Call	0x0,0xc
05a3 00da       |    |		Load_Top	At_Offset_2
05a4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05a5 4800       |H   |		Short_Literal	0x0
05a6 00da       |    |		Load_Top	At_Offset_2
05a7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05a8 4800       |H   |		Short_Literal	0x0
05a9 00da       |    |		Load_Top	At_Offset_2
05aa 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05ab 4800       |H   |		Short_Literal	0x0
05ac 4801       |H   |		Short_Literal	0x1
05ad e00b       |    |		Load	0x0,0xb
05ae 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
05af 00d8       |    |		Load_Top	At_Offset_0
05b0 0227       | '  |		Execute	Access,All_Reference
05b1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05b2 0039       | 9  |		Store_Top	Access,At_Offset_1
05b3 00d8       |    |		Load_Top	At_Offset_0
05b4 4800       |H   |		Short_Literal	0x0
05b5 820d       |    |		Call	0x1,0xd
05b6 0039       | 9  |		Store_Top	Access,At_Offset_1
05b7 00d8       |    |		Load_Top	At_Offset_0
05b8 00da       |    |		Load_Top	At_Offset_2
05b9 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
05ba 4800       |H   |		Short_Literal	0x0
05bb 00da       |    |		Load_Top	At_Offset_2
05bc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05bd 00d9       |    |		Load_Top	At_Offset_1
05be 800d       |    |		Call	0x0,0xd
05bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05c0 ; --------------------------------------------------------------------------------------
05c0 ; Debug Table
05c0 ; --------------------------------------------------------------------------------------
05c0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xb95d,0x0000,0x0001,0x001a
05c6 000b 062e  |   .|		.DBG4T	0x000b,0x062e,0x8000,0x0000
05ca 003a 0647  | : G|		.DBG4T	0x003a,0x0647,0x8000,0x0000
05ce 007b 0664  | { d|		.DBG4T	0x007b,0x0664,0x0001,0x4000
05d2 012b 0692  | +  |		.DBG4T	0x012b,0x0692,0x0001,0x0000
05d6 015b 069d  | [  |		.DBG4T	0x015b,0x069d,0x0001,0x0000
05da 018b 06a8  |    |		.DBG4T	0x018b,0x06a8,0x0001,0x0000
05de 01bb 06b3  |    |		.DBG4T	0x01bb,0x06b3,0x0001,0x0000
05e2 01eb 06be  |    |		.DBG4T	0x01eb,0x06be,0x0001,0x0000
05e6 021b 06c9  |    |		.DBG4T	0x021b,0x06c9,0x0001,0x0000
05ea 024b 06d4  | K  |		.DBG4T	0x024b,0x06d4,0x0001,0x0000
05ee 027b 06df  | {  |		.DBG4T	0x027b,0x06df,0x0001,0x0000
05f2 02a3 06eb  |    |		.DBG4T	0x02a3,0x06eb,0x0001,0x0000
05f6 02cb 06f7  |    |		.DBG4T	0x02cb,0x06f7,0x0001,0x0000
05fa 02db 06fb  |    |		.DBG4T	0x02db,0x06fb,0x0001,0x4000
05fe 0333 070c  | 3  |		.DBG4T	0x0333,0x070c,0x0001,0x4000
0602 0373 0725  | s %|		.DBG4T	0x0373,0x0725,0x0001,0x4000
0606 03db 073a  |   :|		.DBG4T	0x03db,0x073a,0x0001,0x0000
060a 0413 0748  |   H|		.DBG4T	0x0413,0x0748,0x0001,0x0000
060e 044b 0756  | K V|		.DBG4T	0x044b,0x0756,0x0001,0x4000
0612 0493 0771  |   q|		.DBG4T	0x0493,0x0771,0x0001,0x4000
0616 04db 078c  |    |		.DBG4T	0x04db,0x078c,0x0001,0x0000
061a 051b 079b  |    |		.DBG4T	0x051b,0x079b,0x0001,0x0000
061e 0523 079e  | #  |		.DBG4T	0x0523,0x079e,0x0001,0x0000
0622 0533 07a2  | 3  |		.DBG4T	0x0533,0x07a2,0x0001,0x0000
0626 0553 07a7  | S  |		.DBG4T	0x0553,0x07a7,0x0001,0x0000
062a 059b 07b9  |    |		.DBG4T	0x059b,0x07b9,0x0001,0x0000
062e ; --------------------------------------------------------------------------------------
062e ; Debug chain
062e ; --------------------------------------------------------------------------------------
062e 0017 0000  |    |		.DBGLEN	0x0017,0x0000
0630 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037
0647 ; --------------------------------------------------------------------------------------
0647 ; Debug chain
0647 ; --------------------------------------------------------------------------------------
0647 001b 0000  |    |		.DBGLEN	0x001b,0x0000
0649 003a 003f  | : ?|		.DBGLNO	0x003a,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071
0664 ; --------------------------------------------------------------------------------------
0664 ; Debug chain
0664 ; --------------------------------------------------------------------------------------
0664 0000 0016  |    |		.DBGLEN	0x0000,0x0016
0666 007b 0086  | {  |		.DBGLNO	0x007b,0x0086,0x008b,0x0094,0x009c,0x00a5,0x00ae,0x00b2,0x00ba,0x00c3,0x00cc,0x00d0,0x00d8,0x00e1,0x00eb,0x00f0,0x00f5,0x00fe,0x0107,0x010c,0x0111,0x011b
067c 0001 000a  |    |		.XXX[0x16]
067e 000b 000c  |    |
0680 000d 000e  |    |
0682 000f 0010  |    |
0684 0011 0012  |    |
0686 0013 0014  |    |
0688 0015 0016  |    |
068a 0002 0003  |    |
068c 0004 0005  |    |
068e 0006 0007  |    |
0690 0008 0009  |    |
0692 ; --------------------------------------------------------------------------------------
0692 ; Debug chain
0692 ; --------------------------------------------------------------------------------------
0692 0001 0008  |    |		.DBGLEN	0x0001,0x0008
0694 012b 012d  | + -|		.DBGLNO	0x012b,0x012d,0x0130,0x0139,0x013d,0x0141,0x0149,0x014d,0x0151
069d ; --------------------------------------------------------------------------------------
069d ; Debug chain
069d ; --------------------------------------------------------------------------------------
069d 0001 0008  |    |		.DBGLEN	0x0001,0x0008
069f 015b 015d  | [ ]|		.DBGLNO	0x015b,0x015d,0x0160,0x0169,0x016d,0x0171,0x0179,0x017d,0x0181
06a8 ; --------------------------------------------------------------------------------------
06a8 ; Debug chain
06a8 ; --------------------------------------------------------------------------------------
06a8 0001 0008  |    |		.DBGLEN	0x0001,0x0008
06aa 018b 018d  |    |		.DBGLNO	0x018b,0x018d,0x0190,0x0199,0x019d,0x01a1,0x01a9,0x01ad,0x01b1
06b3 ; --------------------------------------------------------------------------------------
06b3 ; Debug chain
06b3 ; --------------------------------------------------------------------------------------
06b3 0001 0008  |    |		.DBGLEN	0x0001,0x0008
06b5 01bb 01bd  |    |		.DBGLNO	0x01bb,0x01bd,0x01c0,0x01c9,0x01cd,0x01d1,0x01d9,0x01dd,0x01e1
06be ; --------------------------------------------------------------------------------------
06be ; Debug chain
06be ; --------------------------------------------------------------------------------------
06be 0001 0008  |    |		.DBGLEN	0x0001,0x0008
06c0 01eb 01ed  |    |		.DBGLNO	0x01eb,0x01ed,0x01f0,0x01f9,0x01fd,0x0201,0x0209,0x020d,0x0211
06c9 ; --------------------------------------------------------------------------------------
06c9 ; Debug chain
06c9 ; --------------------------------------------------------------------------------------
06c9 0001 0008  |    |		.DBGLEN	0x0001,0x0008
06cb 021b 021d  |    |		.DBGLNO	0x021b,0x021d,0x0220,0x0229,0x022d,0x0231,0x0239,0x023d,0x0241
06d4 ; --------------------------------------------------------------------------------------
06d4 ; Debug chain
06d4 ; --------------------------------------------------------------------------------------
06d4 0001 0008  |    |		.DBGLEN	0x0001,0x0008
06d6 024b 024d  | K M|		.DBGLNO	0x024b,0x024d,0x0250,0x0259,0x025d,0x0261,0x0269,0x026d,0x0271
06df ; --------------------------------------------------------------------------------------
06df ; Debug chain
06df ; --------------------------------------------------------------------------------------
06df 0002 0008  |    |		.DBGLEN	0x0002,0x0008
06e1 027b 027d  | { }|		.DBGLNO	0x027b,0x027d,0x027f,0x0285,0x0288,0x028b,0x0293,0x0297,0x029a,0x029d
06eb ; --------------------------------------------------------------------------------------
06eb ; Debug chain
06eb ; --------------------------------------------------------------------------------------
06eb 0002 0008  |    |		.DBGLEN	0x0002,0x0008
06ed 02a3 02a5  |    |		.DBGLNO	0x02a3,0x02a5,0x02a7,0x02ad,0x02b0,0x02b3,0x02bb,0x02bf,0x02c2,0x02c5
06f7 ; --------------------------------------------------------------------------------------
06f7 ; Debug chain
06f7 ; --------------------------------------------------------------------------------------
06f7 0001 0001  |    |		.DBGLEN	0x0001,0x0001
06f9 02cb 02cd  |    |		.DBGLNO	0x02cb,0x02cd
06fb ; --------------------------------------------------------------------------------------
06fb ; Debug chain
06fb ; --------------------------------------------------------------------------------------
06fb 0001 0007  |    |		.DBGLEN	0x0001,0x0007
06fd 02db 02dd  |    |		.DBGLNO	0x02db,0x02dd,0x02ea,0x02f6,0x0302,0x030e,0x0315,0x0322
0705 0001 0006  |    |		.XXX[0x7]
0707 0007 0008  |    |
0709 0002 0004  |    |
070b 0003       |    |
070c ; --------------------------------------------------------------------------------------
070c ; Debug chain
070c ; --------------------------------------------------------------------------------------
070c 0003 000a  |    |		.DBGLEN	0x0003,0x000a
070e 0333 0334  | 3 4|		.DBGLNO	0x0333,0x0334,0x0336,0x0338,0x033e,0x0343,0x0345,0x0347,0x034c,0x034f,0x0352,0x035f,0x0366
071b 0001 0002  |    |		.XXX[0xa]
071d 0003 0004  |    |
071f 0005 0006  |    |
0721 0007 0008  |    |
0723 000a 0009  |    |
0725 ; --------------------------------------------------------------------------------------
0725 ; Debug chain
0725 ; --------------------------------------------------------------------------------------
0725 0001 0009  |    |		.DBGLEN	0x0001,0x0009
0727 0373 0375  | s u|		.DBGLNO	0x0373,0x0375,0x0378,0x0380,0x038d,0x039a,0x03a7,0x03b4,0x03bb,0x03c9
0731 0001 0002  |    |		.XXX[0x9]
0733 0003 0008  |    |
0735 0009 000a  |    |
0737 0004 0006  |    |
0739 0005       |    |
073a ; --------------------------------------------------------------------------------------
073a ; Debug chain
073a ; --------------------------------------------------------------------------------------
073a 0003 0009  |    |		.DBGLEN	0x0003,0x0009
073c 03db 03dc  |    |		.DBGLNO	0x03db,0x03dc,0x03de,0x03e0,0x03e6,0x03eb,0x03ed,0x03ef,0x03f4,0x03f7,0x03fa,0x0400
0748 ; --------------------------------------------------------------------------------------
0748 ; Debug chain
0748 ; --------------------------------------------------------------------------------------
0748 0003 0009  |    |		.DBGLEN	0x0003,0x0009
074a 0413 0414  |    |		.DBGLNO	0x0413,0x0414,0x0416,0x0418,0x041e,0x0423,0x0425,0x0427,0x042c,0x042f,0x0432,0x0438
0756 ; --------------------------------------------------------------------------------------
0756 ; Debug chain
0756 ; --------------------------------------------------------------------------------------
0756 0003 000b  |    |		.DBGLEN	0x0003,0x000b
0758 044b 044c  | K L|		.DBGLNO	0x044b,0x044c,0x044e,0x0450,0x0456,0x045b,0x045d,0x045f,0x0464,0x0467,0x046a,0x0472,0x0479,0x0481
0766 0001 0002  |    |		.XXX[0xb]
0768 0003 0004  |    |
076a 0005 0006  |    |
076c 0007 0008  |    |
076e 0009 000b  |    |
0770 000a       |    |
0771 ; --------------------------------------------------------------------------------------
0771 ; Debug chain
0771 ; --------------------------------------------------------------------------------------
0771 0003 000b  |    |		.DBGLEN	0x0003,0x000b
0773 0493 0494  |    |		.DBGLNO	0x0493,0x0494,0x0496,0x0498,0x049e,0x04a3,0x04a5,0x04a7,0x04ac,0x04af,0x04b2,0x04ba,0x04c1,0x04c9
0781 0001 0002  |    |		.XXX[0xb]
0783 0003 0004  |    |
0785 0005 0006  |    |
0787 0007 0008  |    |
0789 0009 000b  |    |
078b 000a       |    |
078c ; --------------------------------------------------------------------------------------
078c ; Debug chain
078c ; --------------------------------------------------------------------------------------
078c 0003 000a  |    |		.DBGLEN	0x0003,0x000a
078e 04db 04dc  |    |		.DBGLNO	0x04db,0x04dc,0x04de,0x04e0,0x04e6,0x04eb,0x04ed,0x04ef,0x04f4,0x04f8,0x04fc,0x0502,0x0508
079b ; --------------------------------------------------------------------------------------
079b ; Debug chain
079b ; --------------------------------------------------------------------------------------
079b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
079d 051b       |    |		.DBGLNO	0x051b
079e ; --------------------------------------------------------------------------------------
079e ; Debug chain
079e ; --------------------------------------------------------------------------------------
079e 0000 0002  |    |		.DBGLEN	0x0000,0x0002
07a0 0523 0529  | # )|		.DBGLNO	0x0523,0x0529
07a2 ; --------------------------------------------------------------------------------------
07a2 ; Debug chain
07a2 ; --------------------------------------------------------------------------------------
07a2 0000 0003  |    |		.DBGLEN	0x0000,0x0003
07a4 0533 053b  | 3 ;|		.DBGLNO	0x0533,0x053b,0x0546
07a7 ; --------------------------------------------------------------------------------------
07a7 ; Debug chain
07a7 ; --------------------------------------------------------------------------------------
07a7 0003 000d  |    |		.DBGLEN	0x0003,0x000d
07a9 0553 0554  | S T|		.DBGLNO	0x0553,0x0554,0x0556,0x0558,0x0560,0x0565,0x0567,0x056e,0x0572,0x0574,0x057a,0x057e,0x0582,0x0584,0x058a,0x058e
07b9 ; --------------------------------------------------------------------------------------
07b9 ; Debug chain
07b9 ; --------------------------------------------------------------------------------------
07b9 0002 0008  |    |		.DBGLEN	0x0002,0x0008
07bb 059b 059d  |    |		.DBGLNO	0x059b,0x059d,0x059f,0x05a5,0x05a8,0x05ab,0x05b3,0x05b7,0x05ba,0x05bd
07c5 0000 0000  |    |		.BLANK	0000[0x3b]