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

⟦24574ee0d⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_b660b7

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 05d8       |    |		.CONST	0x05d8								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0054       | T  |		.CONST	0x0054								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0011 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0013 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0015 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0017 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0019 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
001b 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
001d 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
001f 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0021 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0023 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0025 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0027 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0029 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
002b 00bf       |    |		Action	Accept_Activation
002c 029d 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call
002e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 029d 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call
0048 029d 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call
004a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 029d 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call
004e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0053 00c7       |    |		Action	Elaborate_Subprogram
0054			BODY_0008:
0054 00bc       |    |		Action	Signal_Activated
0055 00bb       |    |		Action	Signal_Completion
0056 0000 0000  |    |		.XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005e       | ^  |		.CONST	0x005e								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0003       |    |		.CONST	0x0003								; Number of locals
005b			INIT_0058:
005b 00e1       |    |		Load_Encached	Boolean_Cache
005c e002       |    |		Load	0x0,0x2
005d 0322       | "  |		Declare_Variable	Record
005e			BODY_0058:
005e 00d8       |    |		Load_Top	At_Offset_0
005f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0060 e5ff       |    |		Load	0x2,-0x1
0061 8003       |    |		Call	0x0,0x3
0062 00d9       |    |		Load_Top	At_Offset_1
0063 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0064 00e1       |    |		Load_Encached	Boolean_Cache
0065 00d9       |    |		Load_Top	At_Offset_1
0066 8004       |    |		Call	0x0,0x4
0067 00d1       |    |		Pop_Control	Pop_Count_1
0068 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0069 00d9       |    |		Load_Top	At_Offset_1
006a 6803       |h   |		Jump_Zero	0x6e
006b 00d8       |    |		Load_Top	At_Offset_0
006c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
006d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
006e 4807       |H   |		Short_Literal	0x7
006f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0076       | v  |		.CONST	0x0076								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0003       |    |		.CONST	0x0003								; Number of locals
0073			INIT_0070:
0073 00e1       |    |		Load_Encached	Boolean_Cache
0074 e002       |    |		Load	0x0,0x2
0075 0322       | "  |		Declare_Variable	Record
0076			BODY_0070:
0076 00d8       |    |		Load_Top	At_Offset_0
0077 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0078 e5ff       |    |		Load	0x2,-0x1
0079 8003       |    |		Call	0x0,0x3
007a 00d9       |    |		Load_Top	At_Offset_1
007b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007c 00e1       |    |		Load_Encached	Boolean_Cache
007d 00d9       |    |		Load_Top	At_Offset_1
007e 8004       |    |		Call	0x0,0x4
007f 00d1       |    |		Pop_Control	Pop_Count_1
0080 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0081 00d9       |    |		Load_Top	At_Offset_1
0082 6809       |h   |		Jump_Zero	0x8c
0083 00d8       |    |		Load_Top	At_Offset_0
0084 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0085 0f01       |    |		Execute_Immediate	Equal,0x1
0086 6805       |h   |		Jump_Zero	0x8c
0087 00d8       |    |		Load_Top	At_Offset_0
0088 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0089 0227       | '  |		Execute	Access,All_Reference
008a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
008b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008c 0831       | 1  |		Execute_Immediate	Raise,0x31
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0096       |    |		.CONST	0x0096								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0003       |    |		.CONST	0x0003								; Number of locals
0093			INIT_0090:
0093 00e1       |    |		Load_Encached	Boolean_Cache
0094 e002       |    |		Load	0x0,0x2
0095 0322       | "  |		Declare_Variable	Record
0096			BODY_0090:
0096 00d8       |    |		Load_Top	At_Offset_0
0097 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0098 e5ff       |    |		Load	0x2,-0x1
0099 8003       |    |		Call	0x0,0x3
009a 00d9       |    |		Load_Top	At_Offset_1
009b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009c 00e1       |    |		Load_Encached	Boolean_Cache
009d 00d9       |    |		Load_Top	At_Offset_1
009e 8004       |    |		Call	0x0,0x4
009f 00d1       |    |		Pop_Control	Pop_Count_1
00a0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 680c       |h   |		Jump_Zero	0xaf
00a3 00d8       |    |		Load_Top	At_Offset_0
00a4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00a5 4805       |H   |		Short_Literal	0x5
00a6 4806       |H   |		Short_Literal	0x6
00a7 0262       | b  |		Execute	Discrete,In_Range
00a8 7001       |p   |		Jump_Nonzero	0xaa
00a9 7805       |x   |		Jump	0xaf
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00ac 0227       | '  |		Execute	Access,All_Reference
00ad 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
00ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00af 0831       | 1  |		Execute_Immediate	Raise,0x31
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b6       |    |		.CONST	0x00b6								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 00e1       |    |		Load_Encached	Boolean_Cache
00b4 e002       |    |		Load	0x0,0x2
00b5 0322       | "  |		Declare_Variable	Record
00b6			BODY_00b0:
00b6 00d8       |    |		Load_Top	At_Offset_0
00b7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 8003       |    |		Call	0x0,0x3
00ba 00d9       |    |		Load_Top	At_Offset_1
00bb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bc 00e1       |    |		Load_Encached	Boolean_Cache
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 8004       |    |		Call	0x0,0x4
00bf 00d1       |    |		Pop_Control	Pop_Count_1
00c0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00c1 00d9       |    |		Load_Top	At_Offset_1
00c2 684a       |hJ  |		Jump_Zero	0x10d
00c3 00d8       |    |		Load_Top	At_Offset_0
00c4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c5 4607       |F   |		Jump_Case	0x8
00c6 7809       |x   |		Jump	0xd0								; case 0x0
00c7 7806       |x   |		Jump	0xce								; case 0x1
00c8 782f       |x/  |		Jump	0xf8								; case 0x2
00c9 7835       |x5  |		Jump	0xff								; case 0x3
00ca 783b       |x;  |		Jump	0x106								; case 0x4
00cb 7802       |x   |		Jump	0xce								; case 0x5
00cc 7801       |x   |		Jump	0xce								; case 0x6
00cd 7800       |x   |		Jump	0xce								; case 0x7
00ce 4800       |H   |		Short_Literal	0x0
00cf 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00d0 e5fd       |    |		Load	0x2,-0x3
00d1 4603       |F   |		Jump_Case	0x4
00d2 7805       |x   |		Jump	0xd8								; case 0x0
00d3 780c       |x   |		Jump	0xe0								; case 0x1
00d4 7813       |x   |		Jump	0xe8								; case 0x2
00d5 7800       |x   |		Jump	0xd6								; case 0x3
00d6 4800       |H   |		Short_Literal	0x0
00d7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00d8 e5fe       |    |		Load	0x2,-0x2
00d9 00d9       |    |		Load_Top	At_Offset_1
00da 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00db 0227       | '  |		Execute	Access,All_Reference
00dc 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
00dd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00de 8005       |    |		Call	0x0,0x5
00df 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 00d9       |    |		Load_Top	At_Offset_1
00e2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00e3 0227       | '  |		Execute	Access,All_Reference
00e4 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00e5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00e6 8005       |    |		Call	0x0,0x5
00e7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00e8 e5fe       |    |		Load	0x2,-0x2
00e9 00d9       |    |		Load_Top	At_Offset_1
00ea 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00eb 0227       | '  |		Execute	Access,All_Reference
00ec 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
00ed 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00ee 8005       |    |		Call	0x0,0x5
00ef e5fe       |    |		Load	0x2,-0x2
00f0 00da       |    |		Load_Top	At_Offset_2
00f1 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00f2 0227       | '  |		Execute	Access,All_Reference
00f3 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00f4 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00f5 8005       |    |		Call	0x0,0x5
00f6 0279       | y  |		Execute	Discrete,And
00f7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00f8 e5fe       |    |		Load	0x2,-0x2
00f9 00d9       |    |		Load_Top	At_Offset_1
00fa 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00fb 0227       | '  |		Execute	Access,All_Reference
00fc 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
00fd 8005       |    |		Call	0x0,0x5
00fe 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00ff e5fe       |    |		Load	0x2,-0x2
0100 00d9       |    |		Load_Top	At_Offset_1
0101 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0102 0227       | '  |		Execute	Access,All_Reference
0103 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0104 8005       |    |		Call	0x0,0x5
0105 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0106 e5fe       |    |		Load	0x2,-0x2
0107 00d9       |    |		Load_Top	At_Offset_1
0108 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0109 0227       | '  |		Execute	Access,All_Reference
010a 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
010b 8005       |    |		Call	0x0,0x5
010c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
010d 4800       |H   |		Short_Literal	0x0
010e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011a       |    |		.CONST	0x011a								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0005       |    |		.CONST	0x0005								; Number of locals
0113			INIT_0110:
0113 00e1       |    |		Load_Encached	Boolean_Cache
0114 e002       |    |		Load	0x0,0x2
0115 0322       | "  |		Declare_Variable	Record
0116 00d8       |    |		Load_Top	At_Offset_0
0117 0322       | "  |		Declare_Variable	Record
0118 e006       |    |		Load	0x0,0x6
0119 0007       |    |		Action	Break_Optional
011a			BODY_0110:
011a 00da       |    |		Load_Top	At_Offset_2
011b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011c e5ff       |    |		Load	0x2,-0x1
011d 8003       |    |		Call	0x0,0x3
011e 00db       |    |		Load_Top	At_Offset_3
011f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0120 00e1       |    |		Load_Encached	Boolean_Cache
0121 00db       |    |		Load_Top	At_Offset_3
0122 8004       |    |		Call	0x0,0x4
0123 00d1       |    |		Pop_Control	Pop_Count_1
0124 c402       |    |		Store	0x2,0x2
0125 00db       |    |		Load_Top	At_Offset_3
0126 681f       |h   |		Jump_Zero	0x146
0127 e5fe       |    |		Load	0x2,-0x2
0128 00da       |    |		Load_Top	At_Offset_2
0129 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012a 00e1       |    |		Load_Encached	Boolean_Cache
012b 00da       |    |		Load_Top	At_Offset_2
012c 8004       |    |		Call	0x0,0x4
012d 00d1       |    |		Pop_Control	Pop_Count_1
012e c402       |    |		Store	0x2,0x2
012f 00db       |    |		Load_Top	At_Offset_3
0130 6813       |h   |		Jump_Zero	0x144
0131 e006       |    |		Load	0x0,0x6
0132 03bc       |    |		Declare_Variable	Access,By_Allocation
0133 0039       | 9  |		Store_Top	Access,At_Offset_1
0134 00d9       |    |		Load_Top	At_Offset_1
0135 00d9       |    |		Load_Top	At_Offset_1
0136 0228       | (  |		Execute	Access,All_Write
0137 00da       |    |		Load_Top	At_Offset_2
0138 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0139 0f04       |    |		Execute_Immediate	Equal,0x4
013a 7002       |p   |		Jump_Nonzero	0x13d
013b 4800       |H   |		Short_Literal	0x0
013c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013d 00d8       |    |		Load_Top	At_Offset_0
013e 00db       |    |		Load_Top	At_Offset_3
013f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0140 0227       | '  |		Execute	Access,All_Reference
0141 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0142 8007       |    |		Call	0x0,0x7
0143 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0144 4800       |H   |		Short_Literal	0x0
0145 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0146 4800       |H   |		Short_Literal	0x0
0147 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0152       | R  |		.CONST	0x0152								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0005       |    |		.CONST	0x0005								; Number of locals
014b			INIT_0148:
014b 00e1       |    |		Load_Encached	Boolean_Cache
014c e002       |    |		Load	0x0,0x2
014d 0322       | "  |		Declare_Variable	Record
014e 00d8       |    |		Load_Top	At_Offset_0
014f 0322       | "  |		Declare_Variable	Record
0150 e006       |    |		Load	0x0,0x6
0151 0007       |    |		Action	Break_Optional
0152			BODY_0148:
0152 00da       |    |		Load_Top	At_Offset_2
0153 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0154 e5ff       |    |		Load	0x2,-0x1
0155 8003       |    |		Call	0x0,0x3
0156 00db       |    |		Load_Top	At_Offset_3
0157 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0158 00e1       |    |		Load_Encached	Boolean_Cache
0159 00db       |    |		Load_Top	At_Offset_3
015a 8004       |    |		Call	0x0,0x4
015b 00d1       |    |		Pop_Control	Pop_Count_1
015c c402       |    |		Store	0x2,0x2
015d 00db       |    |		Load_Top	At_Offset_3
015e 681f       |h   |		Jump_Zero	0x17e
015f e5fe       |    |		Load	0x2,-0x2
0160 00da       |    |		Load_Top	At_Offset_2
0161 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0162 00e1       |    |		Load_Encached	Boolean_Cache
0163 00da       |    |		Load_Top	At_Offset_2
0164 8004       |    |		Call	0x0,0x4
0165 00d1       |    |		Pop_Control	Pop_Count_1
0166 c402       |    |		Store	0x2,0x2
0167 00db       |    |		Load_Top	At_Offset_3
0168 6813       |h   |		Jump_Zero	0x17c
0169 e006       |    |		Load	0x0,0x6
016a 03bc       |    |		Declare_Variable	Access,By_Allocation
016b 0039       | 9  |		Store_Top	Access,At_Offset_1
016c 00d9       |    |		Load_Top	At_Offset_1
016d 00d9       |    |		Load_Top	At_Offset_1
016e 0228       | (  |		Execute	Access,All_Write
016f 00da       |    |		Load_Top	At_Offset_2
0170 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0171 0f03       |    |		Execute_Immediate	Equal,0x3
0172 7002       |p   |		Jump_Nonzero	0x175
0173 4800       |H   |		Short_Literal	0x0
0174 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0175 00d8       |    |		Load_Top	At_Offset_0
0176 00db       |    |		Load_Top	At_Offset_3
0177 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0178 0227       | '  |		Execute	Access,All_Reference
0179 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
017a 8008       |    |		Call	0x0,0x8
017b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017c 4800       |H   |		Short_Literal	0x0
017d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017e 4800       |H   |		Short_Literal	0x0
017f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0186       |    |		.CONST	0x0186								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0003       |    |		.CONST	0x0003								; Number of locals
0183			INIT_0180:
0183 00e1       |    |		Load_Encached	Boolean_Cache
0184 e002       |    |		Load	0x0,0x2
0185 0322       | "  |		Declare_Variable	Record
0186			BODY_0180:
0186 00d8       |    |		Load_Top	At_Offset_0
0187 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0188 e5ff       |    |		Load	0x2,-0x1
0189 8003       |    |		Call	0x0,0x3
018a 00d9       |    |		Load_Top	At_Offset_1
018b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
018c 00e1       |    |		Load_Encached	Boolean_Cache
018d 00d9       |    |		Load_Top	At_Offset_1
018e 8004       |    |		Call	0x0,0x4
018f 00d1       |    |		Pop_Control	Pop_Count_1
0190 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0191 00d9       |    |		Load_Top	At_Offset_1
0192 682e       |h.  |		Jump_Zero	0x1c1
0193 00d8       |    |		Load_Top	At_Offset_0
0194 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0195 4607       |F   |		Jump_Case	0x8
0196 7817       |x   |		Jump	0x1ae								; case 0x0
0197 7829       |x)  |		Jump	0x1c1								; case 0x1
0198 7806       |x   |		Jump	0x19f								; case 0x2
0199 780a       |x   |		Jump	0x1a4								; case 0x3
019a 780e       |x   |		Jump	0x1a9								; case 0x4
019b 7825       |x%  |		Jump	0x1c1								; case 0x5
019c 7824       |x$  |		Jump	0x1c1								; case 0x6
019d 7823       |x#  |		Jump	0x1c1								; case 0x7
019e 7822       |x"  |		.XXX[0x1]
019f 00d8       |    |		Load_Top	At_Offset_0
01a0 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01a1 0227       | '  |		Execute	Access,All_Reference
01a2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01a3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a4 00d8       |    |		Load_Top	At_Offset_0
01a5 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01a6 0227       | '  |		Execute	Access,All_Reference
01a7 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
01a8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a9 00d8       |    |		Load_Top	At_Offset_0
01aa 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01ab 0227       | '  |		Execute	Access,All_Reference
01ac 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
01ad 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ae e5fe       |    |		Load	0x2,-0x2
01af 4603       |F   |		Jump_Case	0x4
01b0 780a       |x   |		Jump	0x1bb								; case 0x0
01b1 7803       |x   |		Jump	0x1b5								; case 0x1
01b2 7808       |x   |		Jump	0x1bb								; case 0x2
01b3 780d       |x   |		Jump	0x1c1								; case 0x3
01b4 780c       |x   |		.XXX[0x1]
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01b7 0227       | '  |		Execute	Access,All_Reference
01b8 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01b9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01bb 00d8       |    |		Load_Top	At_Offset_0
01bc 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01bd 0227       | '  |		Execute	Access,All_Reference
01be 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01bf 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01c0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c1 0831       | 1  |		Execute_Immediate	Raise,0x31
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01ce       |    |		.CONST	0x01ce								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0003       |    |		.CONST	0x0003								; Number of locals
01cb			INIT_01c8:
01cb 00e1       |    |		Load_Encached	Boolean_Cache
01cc e002       |    |		Load	0x0,0x2
01cd 0322       | "  |		Declare_Variable	Record
01ce			BODY_01c8:
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d0 e5ff       |    |		Load	0x2,-0x1
01d1 8003       |    |		Call	0x0,0x3
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01d4 00e1       |    |		Load_Encached	Boolean_Cache
01d5 00d9       |    |		Load_Top	At_Offset_1
01d6 8004       |    |		Call	0x0,0x4
01d7 00d1       |    |		Pop_Control	Pop_Count_1
01d8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 6803       |h   |		Jump_Zero	0x1de
01db 00d8       |    |		Load_Top	At_Offset_0
01dc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01de 4800       |H   |		Short_Literal	0x0
01df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e6       |    |		.CONST	0x01e6								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0003       |    |		.CONST	0x0003								; Number of locals
01e3			INIT_01e0:
01e3 00e1       |    |		Load_Encached	Boolean_Cache
01e4 e002       |    |		Load	0x0,0x2
01e5 0322       | "  |		Declare_Variable	Record
01e6			BODY_01e0:
01e6 00d8       |    |		Load_Top	At_Offset_0
01e7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e8 e5ff       |    |		Load	0x2,-0x1
01e9 8003       |    |		Call	0x0,0x3
01ea 00d9       |    |		Load_Top	At_Offset_1
01eb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ec 00e1       |    |		Load_Encached	Boolean_Cache
01ed 00d9       |    |		Load_Top	At_Offset_1
01ee 8004       |    |		Call	0x0,0x4
01ef 00d1       |    |		Pop_Control	Pop_Count_1
01f0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 6802       |h   |		Jump_Zero	0x1f5
01f3 4801       |H   |		Short_Literal	0x1
01f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f5 4800       |H   |		Short_Literal	0x0
01f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f7 0000       |    |		.XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fe       |    |		.CONST	0x01fe								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0003       |    |		.CONST	0x0003								; Number of locals
01fb			INIT_01f8:
01fb 00e1       |    |		Load_Encached	Boolean_Cache
01fc e002       |    |		Load	0x0,0x2
01fd 0322       | "  |		Declare_Variable	Record
01fe			BODY_01f8:
01fe 00d8       |    |		Load_Top	At_Offset_0
01ff 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0200 e5ff       |    |		Load	0x2,-0x1
0201 8003       |    |		Call	0x0,0x3
0202 00d9       |    |		Load_Top	At_Offset_1
0203 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0204 00e1       |    |		Load_Encached	Boolean_Cache
0205 00d9       |    |		Load_Top	At_Offset_1
0206 8004       |    |		Call	0x0,0x4
0207 00d1       |    |		Pop_Control	Pop_Count_1
0208 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0209 00d9       |    |		Load_Top	At_Offset_1
020a 681f       |h   |		Jump_Zero	0x22a
020b 00d8       |    |		Load_Top	At_Offset_0
020c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
020d 4607       |F   |		Jump_Case	0x8
020e 7820       |x   |		Jump	0x22f								; case 0x0
020f 781f       |x   |		Jump	0x22f								; case 0x1
0210 780e       |x   |		Jump	0x21f								; case 0x2
0211 7810       |x   |		Jump	0x222								; case 0x3
0212 7804       |x   |		Jump	0x217								; case 0x4
0213 781b       |x   |		Jump	0x22f								; case 0x5
0214 781a       |x   |		Jump	0x22f								; case 0x6
0215 7819       |x   |		Jump	0x22f								; case 0x7
0216 7818       |x   |		.XXX[0x1]
0217 00d8       |    |		Load_Top	At_Offset_0
0218 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0219 0227       | '  |		Execute	Access,All_Reference
021a 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
021b 0227       | '  |		Execute	Access,All_Reference
021c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021d 8216       |    |		Call	0x1,0x16
021e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021f 00d8       |    |		Load_Top	At_Offset_0
0220 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0221 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0222 00d8       |    |		Load_Top	At_Offset_0
0223 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0224 0227       | '  |		Execute	Access,All_Reference
0225 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0226 0227       | '  |		Execute	Access,All_Reference
0227 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0228 8216       |    |		Call	0x1,0x16
0229 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022a 0092 05d5  |    |		Action	Push_String_Extended,0x5d5					; " "
022c e009       |    |		Load	0x0,0x9
022d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
022e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022f 0831       | 1  |		Execute_Immediate	Raise,0x31
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0236       | 6  |		.CONST	0x0236								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0003       |    |		.CONST	0x0003								; Number of locals
0233			INIT_0230:
0233 00e1       |    |		Load_Encached	Boolean_Cache
0234 e002       |    |		Load	0x0,0x2
0235 0322       | "  |		Declare_Variable	Record
0236			BODY_0230:
0236 00d8       |    |		Load_Top	At_Offset_0
0237 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0238 e5ff       |    |		Load	0x2,-0x1
0239 8003       |    |		Call	0x0,0x3
023a 00d9       |    |		Load_Top	At_Offset_1
023b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
023c 00e1       |    |		Load_Encached	Boolean_Cache
023d 00d9       |    |		Load_Top	At_Offset_1
023e 8004       |    |		Call	0x0,0x4
023f 00d1       |    |		Pop_Control	Pop_Count_1
0240 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0241 00d9       |    |		Load_Top	At_Offset_1
0242 681e       |h   |		Jump_Zero	0x261
0243 00d8       |    |		Load_Top	At_Offset_0
0244 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0245 4801       |H   |		Short_Literal	0x1
0246 4807       |H   |		Short_Literal	0x7
0247 0262       | b  |		Execute	Discrete,In_Range
0248 7018       |p   |		Jump_Nonzero	0x261
0249 7800       |x   |		Jump	0x24a
024a e5fe       |    |		Load	0x2,-0x2
024b 4603       |F   |		Jump_Case	0x4
024c 780c       |x   |		Jump	0x259								; case 0x0
024d 7803       |x   |		Jump	0x251								; case 0x1
024e 7812       |x   |		Jump	0x261								; case 0x2
024f 7811       |x   |		Jump	0x261								; case 0x3
0250 7810       |x   |		.XXX[0x1]
0251 00d8       |    |		Load_Top	At_Offset_0
0252 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0253 0227       | '  |		Execute	Access,All_Reference
0254 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0255 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0256 0227       | '  |		Execute	Access,All_Reference
0257 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0258 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0259 00d8       |    |		Load_Top	At_Offset_0
025a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
025b 0227       | '  |		Execute	Access,All_Reference
025c 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
025d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
025e 0227       | '  |		Execute	Access,All_Reference
025f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0260 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0261 0831       | 1  |		Execute_Immediate	Raise,0x31
0262 0000 0000  |    |		.BLANK	0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026e       | n  |		.CONST	0x026e								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0003       |    |		.CONST	0x0003								; Number of locals
026b			INIT_0268:
026b 00e1       |    |		Load_Encached	Boolean_Cache
026c e002       |    |		Load	0x0,0x2
026d 0322       | "  |		Declare_Variable	Record
026e			BODY_0268:
026e 00d8       |    |		Load_Top	At_Offset_0
026f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0270 e5ff       |    |		Load	0x2,-0x1
0271 8003       |    |		Call	0x0,0x3
0272 00d9       |    |		Load_Top	At_Offset_1
0273 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0274 00e1       |    |		Load_Encached	Boolean_Cache
0275 00d9       |    |		Load_Top	At_Offset_1
0276 8004       |    |		Call	0x0,0x4
0277 00d1       |    |		Pop_Control	Pop_Count_1
0278 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0279 00d9       |    |		Load_Top	At_Offset_1
027a 681e       |h   |		Jump_Zero	0x299
027b 00d8       |    |		Load_Top	At_Offset_0
027c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
027d 4801       |H   |		Short_Literal	0x1
027e 4807       |H   |		Short_Literal	0x7
027f 0262       | b  |		Execute	Discrete,In_Range
0280 7018       |p   |		Jump_Nonzero	0x299
0281 7800       |x   |		Jump	0x282
0282 e5fe       |    |		Load	0x2,-0x2
0283 4603       |F   |		Jump_Case	0x4
0284 780c       |x   |		Jump	0x291								; case 0x0
0285 7803       |x   |		Jump	0x289								; case 0x1
0286 7812       |x   |		Jump	0x299								; case 0x2
0287 7811       |x   |		Jump	0x299								; case 0x3
0288 7810       |x   |		.XXX[0x1]
0289 00d8       |    |		Load_Top	At_Offset_0
028a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
028b 0227       | '  |		Execute	Access,All_Reference
028c 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
028d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
028e 0227       | '  |		Execute	Access,All_Reference
028f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0290 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0291 00d8       |    |		Load_Top	At_Offset_0
0292 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0293 0227       | '  |		Execute	Access,All_Reference
0294 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0295 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0296 0227       | '  |		Execute	Access,All_Reference
0297 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0298 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0299 0831       | 1  |		Execute_Immediate	Raise,0x31
029a 0000 0000  |    |		.BLANK	0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02aa       |    |		.CONST	0x02aa								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0006       |    |		.CONST	0x0006								; Number of locals
02a3			INIT_02a0:
02a3 00e1       |    |		Load_Encached	Boolean_Cache
02a4 03e9       |    |		Declare_Variable	Discrete,Duplicate
02a5 03e9       |    |		Declare_Variable	Discrete,Duplicate
02a6 e002       |    |		Load	0x0,0x2
02a7 0322       | "  |		Declare_Variable	Record
02a8 00d8       |    |		Load_Top	At_Offset_0
02a9 0322       | "  |		Declare_Variable	Record
02aa			BODY_02a0:
02aa 4800       |H   |		Short_Literal	0x0
02ab a402       |    |		Store_Unchecked	0x2,0x2
02ac 00d9       |    |		Load_Top	At_Offset_1
02ad 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ae e5ff       |    |		Load	0x2,-0x1
02af 8003       |    |		Call	0x0,0x3
02b0 00da       |    |		Load_Top	At_Offset_2
02b1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02b2 00d8       |    |		Load_Top	At_Offset_0
02b3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b4 e5fe       |    |		Load	0x2,-0x2
02b5 8003       |    |		Call	0x0,0x3
02b6 00d9       |    |		Load_Top	At_Offset_1
02b7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02b8 00e1       |    |		Load_Encached	Boolean_Cache
02b9 00da       |    |		Load_Top	At_Offset_2
02ba 8004       |    |		Call	0x0,0x4
02bb 00d1       |    |		Pop_Control	Pop_Count_1
02bc c403       |    |		Store	0x2,0x3
02bd 00e1       |    |		Load_Encached	Boolean_Cache
02be 00d9       |    |		Load_Top	At_Offset_1
02bf 8004       |    |		Call	0x0,0x4
02c0 00d1       |    |		Pop_Control	Pop_Count_1
02c1 005b       | [  |		Store_Top	Discrete,At_Offset_3
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 00db       |    |		Load_Top	At_Offset_3
02c4 0279       | y  |		Execute	Discrete,And
02c5 6849       |hI  |		Jump_Zero	0x30f
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02c8 00d9       |    |		Load_Top	At_Offset_1
02c9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02ca 027f       |    |		Execute	Discrete,Equal
02cb 6843       |hC  |		Jump_Zero	0x30f
02cc e5fd       |    |		Load	0x2,-0x3
02cd 4609       |F   |		Jump_Case	0xa
02ce 7832       |x2  |		Jump	0x301								; case 0x0
02cf 783f       |x?  |		Jump	0x30f								; case 0x1
02d0 783e       |x>  |		Jump	0x30f								; case 0x2
02d1 783d       |x=  |		Jump	0x30f								; case 0x3
02d2 7814       |x   |		Jump	0x2e7								; case 0x4
02d3 7819       |x   |		Jump	0x2ed								; case 0x5
02d4 781d       |x   |		Jump	0x2f2								; case 0x6
02d5 7839       |x9  |		Jump	0x30f								; case 0x7
02d6 7838       |x8  |		Jump	0x30f								; case 0x8
02d7 7800       |x   |		Jump	0x2d8								; case 0x9
02d8 00d9       |    |		Load_Top	At_Offset_1
02d9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02da 0f01       |    |		Execute_Immediate	Equal,0x1
02db 6833       |h3  |		Jump_Zero	0x30f
02dc 00d9       |    |		Load_Top	At_Offset_1
02dd 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02de 0227       | '  |		Execute	Access,All_Reference
02df 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02e0 00d9       |    |		Load_Top	At_Offset_1
02e1 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02e2 0227       | '  |		Execute	Access,All_Reference
02e3 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02e4 027f       |    |		Execute	Discrete,Equal
02e5 a402       |    |		Store_Unchecked	0x2,0x2
02e6 7828       |x(  |		Jump	0x30f
02e7 e5fc       |    |		Load	0x2,-0x4
02e8 00d9       |    |		Load_Top	At_Offset_1
02e9 00db       |    |		Load_Top	At_Offset_3
02ea 821e       |    |		Call	0x1,0x1e
02eb a402       |    |		Store_Unchecked	0x2,0x2
02ec 7822       |x"  |		Jump	0x30f
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee 00da       |    |		Load_Top	At_Offset_2
02ef 821f       |    |		Call	0x1,0x1f
02f0 a402       |    |		Store_Unchecked	0x2,0x2
02f1 781d       |x   |		Jump	0x30f
02f2 00d9       |    |		Load_Top	At_Offset_1
02f3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02f4 0f04       |    |		Execute_Immediate	Equal,0x4
02f5 6819       |h   |		Jump_Zero	0x30f
02f6 00d8       |    |		Load_Top	At_Offset_0
02f7 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02f8 0227       | '  |		Execute	Access,All_Reference
02f9 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
02fa 00da       |    |		Load_Top	At_Offset_2
02fb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02fc 0227       | '  |		Execute	Access,All_Reference
02fd 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
02fe 800a       |    |		Call	0x0,0xa
02ff a402       |    |		Store_Unchecked	0x2,0x2
0300 780e       |x   |		Jump	0x30f
0301 00d9       |    |		Load_Top	At_Offset_1
0302 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0303 0f03       |    |		Execute_Immediate	Equal,0x3
0304 680a       |h   |		Jump_Zero	0x30f
0305 00d8       |    |		Load_Top	At_Offset_0
0306 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0307 0227       | '  |		Execute	Access,All_Reference
0308 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0309 00da       |    |		Load_Top	At_Offset_2
030a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
030b 0227       | '  |		Execute	Access,All_Reference
030c 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
030d 800b       |    |		Call	0x0,0xb
030e a402       |    |		Store_Unchecked	0x2,0x2
030f e402       |    |		Load	0x2,0x2
0310 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0311 0000 0000  |    |		.BLANK	0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0327       | '  |		.CONST	0x0327								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0009       |    |		.CONST	0x0009								; Number of locals
031b			INIT_0318:
031b e00c       |    |		Load	0x0,0xc
031c 0322       | "  |		Declare_Variable	Record
031d 00e1       |    |		Load_Encached	Boolean_Cache
031e 03e9       |    |		Declare_Variable	Discrete,Duplicate
031f 03e9       |    |		Declare_Variable	Discrete,Duplicate
0320 03e9       |    |		Declare_Variable	Discrete,Duplicate
0321 e002       |    |		Load	0x0,0x2
0322 0322       | "  |		Declare_Variable	Record
0323 00d8       |    |		Load_Top	At_Offset_0
0324 0322       | "  |		Declare_Variable	Record
0325 e00d       |    |		Load	0x0,0xd
0326 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0327			BODY_0318:
0327 4800       |H   |		Short_Literal	0x0
0328 a403       |    |		Store_Unchecked	0x2,0x3
0329 4800       |H   |		Short_Literal	0x0
032a a404       |    |		Store_Unchecked	0x2,0x4
032b 00da       |    |		Load_Top	At_Offset_2
032c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032d e5ff       |    |		Load	0x2,-0x1
032e 8003       |    |		Call	0x0,0x3
032f 00db       |    |		Load_Top	At_Offset_3
0330 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0331 00d9       |    |		Load_Top	At_Offset_1
0332 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0333 e5fe       |    |		Load	0x2,-0x2
0334 8003       |    |		Call	0x0,0x3
0335 00da       |    |		Load_Top	At_Offset_2
0336 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0337 00e1       |    |		Load_Encached	Boolean_Cache
0338 00db       |    |		Load_Top	At_Offset_3
0339 8004       |    |		Call	0x0,0x4
033a 00d1       |    |		Pop_Control	Pop_Count_1
033b c405       |    |		Store	0x2,0x5
033c 00e1       |    |		Load_Encached	Boolean_Cache
033d 00da       |    |		Load_Top	At_Offset_2
033e 8004       |    |		Call	0x0,0x4
033f 00d1       |    |		Pop_Control	Pop_Count_1
0340 c406       |    |		Store	0x2,0x6
0341 e405       |    |		Load	0x2,0x5
0342 e406       |    |		Load	0x2,0x6
0343 0279       | y  |		Execute	Discrete,And
0344 00db       |    |		Load_Top	At_Offset_3
0345 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0346 0f02       |    |		Execute_Immediate	Equal,0x2
0347 0279       | y  |		Execute	Discrete,And
0348 00da       |    |		Load_Top	At_Offset_2
0349 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
034a 0f00       |    |		Execute_Immediate	Equal,0x0
034b 0279       | y  |		Execute	Discrete,And
034c 6830       |h0  |		Jump_Zero	0x37d
034d e00d       |    |		Load	0x0,0xd
034e 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
034f 00db       |    |		Load_Top	At_Offset_3
0350 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0351 0227       | '  |		Execute	Access,All_Reference
0352 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0353 800e       |    |		Call	0x0,0xe
0354 0039       | 9  |		Store_Top	Access,At_Offset_1
0355 00cf       |    |		Action	Mark_Auxiliary
0356 781d       |x   |		Jump	0x374
0357 00d9       |    |		Load_Top	At_Offset_1
0358 800f       |    |		Call	0x0,0xf
0359 e402       |    |		Load	0x2,0x2
035a 017d       | }  |		Execute	Record,Structure_Write
035b e402       |    |		Load	0x2,0x2
035c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
035d 6812       |h   |		Jump_Zero	0x370
035e e402       |    |		Load	0x2,0x2
035f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0360 0227       | '  |		Execute	Access,All_Reference
0361 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0362 e5fe       |    |		Load	0x2,-0x2
0363 8010       |    |		Call	0x0,0x10
0364 a403       |    |		Store_Unchecked	0x2,0x3
0365 e403       |    |		Load	0x2,0x3
0366 6809       |h   |		Jump_Zero	0x370
0367 00e1       |    |		Load_Encached	Boolean_Cache
0368 e5fc       |    |		Load	0x2,-0x4
0369 e5fd       |    |		Load	0x2,-0x3
036a e408       |    |		Load	0x2,0x8
036b e5ff       |    |		Load	0x2,-0x1
036c 8220       |    |		Call	0x1,0x20
036d c5fd       |    |		Store	0x2,-0x3
036e c5fc       |    |		Store	0x2,-0x4
036f c404       |    |		Store	0x2,0x4
0370 00d9       |    |		Load_Top	At_Offset_1
0371 8011       |    |		Call	0x0,0x11
0372 003a       | :  |		Store_Top	Access,At_Offset_2
0373 00c9       |    |		Action	Pop_Auxiliary_Loop
0374 e403       |    |		Load	0x2,0x3
0375 0f00       |    |		Execute_Immediate	Equal,0x0
0376 00da       |    |		Load_Top	At_Offset_2
0377 8012       |    |		Call	0x0,0x12
0378 0f00       |    |		Execute_Immediate	Equal,0x0
0379 0279       | y  |		Execute	Discrete,And
037a 77dc       |w   |		Jump_Nonzero	0x357
037b 00ce       |    |		Action	Pop_Auxiliary
037c 7806       |x   |		Jump	0x383
037d 4800       |H   |		Short_Literal	0x0
037e a5fc       |    |		Store_Unchecked	0x2,-0x4
037f e5fd       |    |		Load	0x2,-0x3
0380 00ea       |    |		Load_Encached	Null_String_Cache
0381 8013       |    |		Call	0x0,0x13
0382 c5fd       |    |		Store	0x2,-0x3
0383 e403       |    |		Load	0x2,0x3
0384 e404       |    |		Load	0x2,0x4
0385 0279       | y  |		Execute	Discrete,And
0386 a5fb       |    |		Store_Unchecked	0x2,-0x5
0387 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0396       |    |		.CONST	0x0396								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0008       |    |		.CONST	0x0008								; Number of locals
038b			INIT_0388:
038b e00c       |    |		Load	0x0,0xc
038c 0322       | "  |		Declare_Variable	Record
038d 00e1       |    |		Load_Encached	Boolean_Cache
038e 03e9       |    |		Declare_Variable	Discrete,Duplicate
038f 03e9       |    |		Declare_Variable	Discrete,Duplicate
0390 e002       |    |		Load	0x0,0x2
0391 0322       | "  |		Declare_Variable	Record
0392 00d8       |    |		Load_Top	At_Offset_0
0393 0322       | "  |		Declare_Variable	Record
0394 e00d       |    |		Load	0x0,0xd
0395 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0396			BODY_0388:
0396 4800       |H   |		Short_Literal	0x0
0397 a403       |    |		Store_Unchecked	0x2,0x3
0398 00da       |    |		Load_Top	At_Offset_2
0399 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
039a e5ff       |    |		Load	0x2,-0x1
039b 8003       |    |		Call	0x0,0x3
039c 00db       |    |		Load_Top	At_Offset_3
039d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
039e 00e1       |    |		Load_Encached	Boolean_Cache
039f 00db       |    |		Load_Top	At_Offset_3
03a0 8004       |    |		Call	0x0,0x4
03a1 00d1       |    |		Pop_Control	Pop_Count_1
03a2 c404       |    |		Store	0x2,0x4
03a3 e404       |    |		Load	0x2,0x4
03a4 00db       |    |		Load_Top	At_Offset_3
03a5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03a6 0f02       |    |		Execute_Immediate	Equal,0x2
03a7 0279       | y  |		Execute	Discrete,And
03a8 6893       |h   |		Jump_Zero	0x43c
03a9 e00d       |    |		Load	0x0,0xd
03aa 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
03ab 00db       |    |		Load_Top	At_Offset_3
03ac 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03ad 0227       | '  |		Execute	Access,All_Reference
03ae 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03af 800e       |    |		Call	0x0,0xe
03b0 0039       | 9  |		Store_Top	Access,At_Offset_1
03b1 00cf       |    |		Action	Mark_Auxiliary
03b2 7881       |x   |		Jump	0x434
03b3 e402       |    |		Load	0x2,0x2
03b4 00da       |    |		Load_Top	At_Offset_2
03b5 800f       |    |		Call	0x0,0xf
03b6 821d       |    |		Call	0x1,0x1d
03b7 00d1       |    |		Pop_Control	Pop_Count_1
03b8 e402       |    |		Load	0x2,0x2
03b9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ba 6875       |hu  |		Jump_Zero	0x430
03bb e402       |    |		Load	0x2,0x2
03bc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03bd 0227       | '  |		Execute	Access,All_Reference
03be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03bf 00db       |    |		Load_Top	At_Offset_3
03c0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03c1 00e1       |    |		Load_Encached	Boolean_Cache
03c2 00db       |    |		Load_Top	At_Offset_3
03c3 8004       |    |		Call	0x0,0x4
03c4 00d1       |    |		Pop_Control	Pop_Count_1
03c5 c405       |    |		Store	0x2,0x5
03c6 e405       |    |		Load	0x2,0x5
03c7 00db       |    |		Load_Top	At_Offset_3
03c8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03c9 0f00       |    |		Execute_Immediate	Equal,0x0
03ca 0279       | y  |		Execute	Discrete,And
03cb 6864       |hd  |		Jump_Zero	0x430
03cc 00da       |    |		Load_Top	At_Offset_2
03cd 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03ce 0227       | '  |		Execute	Access,All_Reference
03cf 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03d1 6840       |h@  |		Jump_Zero	0x412
03d2 00da       |    |		Load_Top	At_Offset_2
03d3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03d4 0227       | '  |		Execute	Access,All_Reference
03d5 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03d6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03d7 0227       | '  |		Execute	Access,All_Reference
03d8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03d9 8014       |    |		Call	0x0,0x14
03da e5ff       |    |		Load	0x2,-0x1
03db 00db       |    |		Load_Top	At_Offset_3
03dc 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03dd 0227       | '  |		Execute	Access,All_Reference
03de 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03df 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03e0 0227       | '  |		Execute	Access,All_Reference
03e1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03e2 8010       |    |		Call	0x0,0x10
03e3 680f       |h   |		Jump_Zero	0x3f3
03e4 e5fe       |    |		Load	0x2,-0x2
03e5 00db       |    |		Load_Top	At_Offset_3
03e6 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03e7 0227       | '  |		Execute	Access,All_Reference
03e8 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
03e9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ea 0227       | '  |		Execute	Access,All_Reference
03eb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ec 8010       |    |		Call	0x0,0x10
03ed 6842       |hB  |		Jump_Zero	0x430
03ee 4801       |H   |		Short_Literal	0x1
03ef a403       |    |		Store_Unchecked	0x2,0x3
03f0 4801       |H   |		Short_Literal	0x1
03f1 a5fd       |    |		Store_Unchecked	0x2,-0x3
03f2 783d       |x=  |		Jump	0x430
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03f5 0227       | '  |		Execute	Access,All_Reference
03f6 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03f7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03f8 6837       |h7  |		Jump_Zero	0x430
03f9 e5ff       |    |		Load	0x2,-0x1
03fa 00db       |    |		Load_Top	At_Offset_3
03fb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03fc 0227       | '  |		Execute	Access,All_Reference
03fd 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
03fe 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ff 0227       | '  |		Execute	Access,All_Reference
0400 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0401 8010       |    |		Call	0x0,0x10
0402 682d       |h-  |		Jump_Zero	0x430
0403 e5fe       |    |		Load	0x2,-0x2
0404 00db       |    |		Load_Top	At_Offset_3
0405 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0406 0227       | '  |		Execute	Access,All_Reference
0407 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0408 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0409 0227       | '  |		Execute	Access,All_Reference
040a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
040b 8010       |    |		Call	0x0,0x10
040c 6823       |h#  |		Jump_Zero	0x430
040d 4801       |H   |		Short_Literal	0x1
040e a403       |    |		Store_Unchecked	0x2,0x3
040f 4802       |H   |		Short_Literal	0x2
0410 a5fd       |    |		Store_Unchecked	0x2,-0x3
0411 781e       |x   |		Jump	0x430
0412 00da       |    |		Load_Top	At_Offset_2
0413 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0414 0227       | '  |		Execute	Access,All_Reference
0415 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0416 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0417 6818       |h   |		Jump_Zero	0x430
0418 e5ff       |    |		Load	0x2,-0x1
0419 00db       |    |		Load_Top	At_Offset_3
041a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
041b 0227       | '  |		Execute	Access,All_Reference
041c 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
041d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
041e 0227       | '  |		Execute	Access,All_Reference
041f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0420 8010       |    |		Call	0x0,0x10
0421 680e       |h   |		Jump_Zero	0x430
0422 e5fe       |    |		Load	0x2,-0x2
0423 00db       |    |		Load_Top	At_Offset_3
0424 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0425 0227       | '  |		Execute	Access,All_Reference
0426 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0427 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0428 0227       | '  |		Execute	Access,All_Reference
0429 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
042a 8010       |    |		Call	0x0,0x10
042b 6804       |h   |		Jump_Zero	0x430
042c 4801       |H   |		Short_Literal	0x1
042d a403       |    |		Store_Unchecked	0x2,0x3
042e 4802       |H   |		Short_Literal	0x2
042f a5fd       |    |		Store_Unchecked	0x2,-0x3
0430 00d9       |    |		Load_Top	At_Offset_1
0431 8011       |    |		Call	0x0,0x11
0432 003a       | :  |		Store_Top	Access,At_Offset_2
0433 00c9       |    |		Action	Pop_Auxiliary_Loop
0434 e403       |    |		Load	0x2,0x3
0435 0f00       |    |		Execute_Immediate	Equal,0x0
0436 00da       |    |		Load_Top	At_Offset_2
0437 8012       |    |		Call	0x0,0x12
0438 0f00       |    |		Execute_Immediate	Equal,0x0
0439 0279       | y  |		Execute	Discrete,And
043a 7778       |wx  |		Jump_Nonzero	0x3b3
043b 00ce       |    |		Action	Pop_Auxiliary
043c e403       |    |		Load	0x2,0x3
043d 7006       |p   |		Jump_Nonzero	0x444
043e 4800       |H   |		Short_Literal	0x0
043f a5fd       |    |		Store_Unchecked	0x2,-0x3
0440 e5fe       |    |		Load	0x2,-0x2
0441 00ea       |    |		Load_Encached	Null_String_Cache
0442 8013       |    |		Call	0x0,0x13
0443 c5fe       |    |		Store	0x2,-0x2
0444 e403       |    |		Load	0x2,0x3
0445 a5fc       |    |		Store_Unchecked	0x2,-0x4
0446 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0447 0000       |    |		.XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0456       | V  |		.CONST	0x0456								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0008       |    |		.CONST	0x0008								; Number of locals
044b			INIT_0448:
044b e00c       |    |		Load	0x0,0xc
044c 0322       | "  |		Declare_Variable	Record
044d 00e1       |    |		Load_Encached	Boolean_Cache
044e 03e9       |    |		Declare_Variable	Discrete,Duplicate
044f 03e9       |    |		Declare_Variable	Discrete,Duplicate
0450 e002       |    |		Load	0x0,0x2
0451 0322       | "  |		Declare_Variable	Record
0452 00d8       |    |		Load_Top	At_Offset_0
0453 0322       | "  |		Declare_Variable	Record
0454 e00d       |    |		Load	0x0,0xd
0455 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0456			BODY_0448:
0456 4800       |H   |		Short_Literal	0x0
0457 a403       |    |		Store_Unchecked	0x2,0x3
0458 00da       |    |		Load_Top	At_Offset_2
0459 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
045a e5ff       |    |		Load	0x2,-0x1
045b 8003       |    |		Call	0x0,0x3
045c 00db       |    |		Load_Top	At_Offset_3
045d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
045e 00e1       |    |		Load_Encached	Boolean_Cache
045f 00db       |    |		Load_Top	At_Offset_3
0460 8004       |    |		Call	0x0,0x4
0461 00d1       |    |		Pop_Control	Pop_Count_1
0462 c404       |    |		Store	0x2,0x4
0463 e404       |    |		Load	0x2,0x4
0464 00db       |    |		Load_Top	At_Offset_3
0465 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0466 0f02       |    |		Execute_Immediate	Equal,0x2
0467 0279       | y  |		Execute	Discrete,And
0468 6828       |h(  |		Jump_Zero	0x491
0469 e00d       |    |		Load	0x0,0xd
046a 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
046b 00db       |    |		Load_Top	At_Offset_3
046c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
046d 0227       | '  |		Execute	Access,All_Reference
046e 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
046f 800e       |    |		Call	0x0,0xe
0470 0039       | 9  |		Store_Top	Access,At_Offset_1
0471 00cf       |    |		Action	Mark_Auxiliary
0472 7816       |x   |		Jump	0x489
0473 e402       |    |		Load	0x2,0x2
0474 00da       |    |		Load_Top	At_Offset_2
0475 800f       |    |		Call	0x0,0xf
0476 821d       |    |		Call	0x1,0x1d
0477 00d1       |    |		Pop_Control	Pop_Count_1
0478 e402       |    |		Load	0x2,0x2
0479 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
047a 8015       |    |		Call	0x0,0x15
047b e402       |    |		Load	0x2,0x2
047c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047d 0227       | '  |		Execute	Access,All_Reference
047e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
047f 8014       |    |		Call	0x0,0x14
0480 e402       |    |		Load	0x2,0x2
0481 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0482 e5fe       |    |		Load	0x2,-0x2
0483 8010       |    |		Call	0x0,0x10
0484 a403       |    |		Store_Unchecked	0x2,0x3
0485 00d9       |    |		Load_Top	At_Offset_1
0486 8011       |    |		Call	0x0,0x11
0487 003a       | :  |		Store_Top	Access,At_Offset_2
0488 00c9       |    |		Action	Pop_Auxiliary_Loop
0489 e403       |    |		Load	0x2,0x3
048a 0f00       |    |		Execute_Immediate	Equal,0x0
048b 00da       |    |		Load_Top	At_Offset_2
048c 8012       |    |		Call	0x0,0x12
048d 0f00       |    |		Execute_Immediate	Equal,0x0
048e 0279       | y  |		Execute	Discrete,And
048f 77e3       |w   |		Jump_Nonzero	0x473
0490 00ce       |    |		Action	Pop_Auxiliary
0491 e403       |    |		Load	0x2,0x3
0492 e402       |    |		Load	0x2,0x2
0493 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0494 022c       | ,  |		Execute	Access,Not_Null
0495 0279       | y  |		Execute	Discrete,And
0496 6821       |h!  |		Jump_Zero	0x4b8
0497 00d9       |    |		Load_Top	At_Offset_1
0498 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0499 e402       |    |		Load	0x2,0x2
049a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
049b 0227       | '  |		Execute	Access,All_Reference
049c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
049d 8003       |    |		Call	0x0,0x3
049e 00da       |    |		Load_Top	At_Offset_2
049f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04a0 00e1       |    |		Load_Encached	Boolean_Cache
04a1 00da       |    |		Load_Top	At_Offset_2
04a2 8004       |    |		Call	0x0,0x4
04a3 00d1       |    |		Pop_Control	Pop_Count_1
04a4 c405       |    |		Store	0x2,0x5
04a5 00db       |    |		Load_Top	At_Offset_3
04a6 680a       |h   |		Jump_Zero	0x4b1
04a7 00e1       |    |		Load_Encached	Boolean_Cache
04a8 e5fc       |    |		Load	0x2,-0x4
04a9 e5fd       |    |		Load	0x2,-0x3
04aa e407       |    |		Load	0x2,0x7
04ab e5ff       |    |		Load	0x2,-0x1
04ac 8220       |    |		Call	0x1,0x20
04ad c5fd       |    |		Store	0x2,-0x3
04ae c5fc       |    |		Store	0x2,-0x4
04af c403       |    |		Store	0x2,0x3
04b0 780d       |x   |		Jump	0x4be
04b1 4800       |H   |		Short_Literal	0x0
04b2 a5fc       |    |		Store_Unchecked	0x2,-0x4
04b3 e5fd       |    |		Load	0x2,-0x3
04b4 00ea       |    |		Load_Encached	Null_String_Cache
04b5 8013       |    |		Call	0x0,0x13
04b6 c5fd       |    |		Store	0x2,-0x3
04b7 7806       |x   |		Jump	0x4be
04b8 4800       |H   |		Short_Literal	0x0
04b9 a5fc       |    |		Store_Unchecked	0x2,-0x4
04ba e5fd       |    |		Load	0x2,-0x3
04bb 00ea       |    |		Load_Encached	Null_String_Cache
04bc 8013       |    |		Call	0x0,0x13
04bd c5fd       |    |		Store	0x2,-0x3
04be e403       |    |		Load	0x2,0x3
04bf a5fb       |    |		Store_Unchecked	0x2,-0x5
04c0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c1 0000 0000  |    |		.BLANK	0000[0x7]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 00db       |    |		Load_Top	At_Offset_3
04cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04cd 00db       |    |		Load_Top	At_Offset_3
04ce 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04cf 8003       |    |		Call	0x0,0x3
04d0 e5fe       |    |		Load	0x2,-0x2
04d1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04d2 00da       |    |		Load_Top	At_Offset_2
04d3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04d4 e5fe       |    |		Load	0x2,-0x2
04d5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04d7 0000       |    |		.XXX[0x1]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04dc       |    |		.CONST	0x04dc								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0002       |    |		.CONST	0x0002								; Number of locals
04db			INIT_04d8:
04db 00e1       |    |		Load_Encached	Boolean_Cache
04dc			BODY_04d8:
04dc 00db       |    |		Load_Top	At_Offset_3
04dd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04de 4607       |F   |		Jump_Case	0x8
04df 780a       |x   |		Jump	0x4ea								; case 0x0
04e0 7806       |x   |		Jump	0x4e7								; case 0x1
04e1 7844       |xD  |		Jump	0x526								; case 0x2
04e2 784e       |xN  |		Jump	0x531								; case 0x3
04e3 7858       |xX  |		Jump	0x53c								; case 0x4
04e4 7802       |x   |		Jump	0x4e7								; case 0x5
04e5 7801       |x   |		Jump	0x4e7								; case 0x6
04e6 7800       |x   |		Jump	0x4e7								; case 0x7
04e7 4800       |H   |		Short_Literal	0x0
04e8 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
04e9 785c       |x\  |		Jump	0x546
04ea e5fd       |    |		Load	0x2,-0x3
04eb 4603       |F   |		Jump_Case	0x4
04ec 7806       |x   |		Jump	0x4f3								; case 0x0
04ed 7812       |x   |		Jump	0x500								; case 0x1
04ee 781e       |x   |		Jump	0x50d								; case 0x2
04ef 7800       |x   |		Jump	0x4f0								; case 0x3
04f0 4800       |H   |		Short_Literal	0x0
04f1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
04f2 7853       |xS  |		Jump	0x546
04f3 e5fe       |    |		Load	0x2,-0x2
04f4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
04f5 0227       | '  |		Execute	Access,All_Reference
04f6 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04f7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04f8 e5ff       |    |		Load	0x2,-0x1
04f9 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
04fa 0227       | '  |		Execute	Access,All_Reference
04fb 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
04fc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04fd 8016       |    |		Call	0x0,0x16
04fe 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
04ff 7846       |xF  |		Jump	0x546
0500 e5fe       |    |		Load	0x2,-0x2
0501 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0502 0227       | '  |		Execute	Access,All_Reference
0503 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0504 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0505 e5ff       |    |		Load	0x2,-0x1
0506 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0507 0227       | '  |		Execute	Access,All_Reference
0508 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0509 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
050a 8016       |    |		Call	0x0,0x16
050b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
050c 7839       |x9  |		Jump	0x546
050d e5fe       |    |		Load	0x2,-0x2
050e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
050f 0227       | '  |		Execute	Access,All_Reference
0510 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0511 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0512 e5ff       |    |		Load	0x2,-0x1
0513 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0514 0227       | '  |		Execute	Access,All_Reference
0515 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0516 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0517 8016       |    |		Call	0x0,0x16
0518 e5fe       |    |		Load	0x2,-0x2
0519 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
051a 0227       | '  |		Execute	Access,All_Reference
051b 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
051c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
051d e5ff       |    |		Load	0x2,-0x1
051e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
051f 0227       | '  |		Execute	Access,All_Reference
0520 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0521 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0522 8016       |    |		Call	0x0,0x16
0523 0279       | y  |		Execute	Discrete,And
0524 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0525 7820       |x   |		Jump	0x546
0526 e5fe       |    |		Load	0x2,-0x2
0527 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0528 0227       | '  |		Execute	Access,All_Reference
0529 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
052a e5ff       |    |		Load	0x2,-0x1
052b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
052c 0227       | '  |		Execute	Access,All_Reference
052d 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
052e 8016       |    |		Call	0x0,0x16
052f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0530 7815       |x   |		Jump	0x546
0531 e5fe       |    |		Load	0x2,-0x2
0532 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0533 0227       | '  |		Execute	Access,All_Reference
0534 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0535 e5ff       |    |		Load	0x2,-0x1
0536 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0537 0227       | '  |		Execute	Access,All_Reference
0538 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0539 8016       |    |		Call	0x0,0x16
053a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
053b 780a       |x   |		Jump	0x546
053c e5fe       |    |		Load	0x2,-0x2
053d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
053e 0227       | '  |		Execute	Access,All_Reference
053f 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0540 e5ff       |    |		Load	0x2,-0x1
0541 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0542 0227       | '  |		Execute	Access,All_Reference
0543 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0544 8016       |    |		Call	0x0,0x16
0545 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0546 00d8       |    |		Load_Top	At_Offset_0
0547 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054c       | L  |		.CONST	0x054c								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0002       |    |		.CONST	0x0002								; Number of locals
054b			INIT_0548:
054b 00e1       |    |		Load_Encached	Boolean_Cache
054c			BODY_0548:
054c 00db       |    |		Load_Top	At_Offset_3
054d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
054e 4607       |F   |		Jump_Case	0x8
054f 7807       |x   |		Jump	0x557								; case 0x0
0550 7806       |x   |		Jump	0x557								; case 0x1
0551 7805       |x   |		Jump	0x557								; case 0x2
0552 7807       |x   |		Jump	0x55a								; case 0x3
0553 7815       |x   |		Jump	0x569								; case 0x4
0554 7802       |x   |		Jump	0x557								; case 0x5
0555 7801       |x   |		Jump	0x557								; case 0x6
0556 7800       |x   |		Jump	0x557								; case 0x7
0557 4800       |H   |		Short_Literal	0x0
0558 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0559 781d       |x   |		Jump	0x577
055a e5fe       |    |		Load	0x2,-0x2
055b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
055c 0227       | '  |		Execute	Access,All_Reference
055d 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
055e 0227       | '  |		Execute	Access,All_Reference
055f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0560 e5ff       |    |		Load	0x2,-0x1
0561 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0562 0227       | '  |		Execute	Access,All_Reference
0563 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0564 0227       | '  |		Execute	Access,All_Reference
0565 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0566 8010       |    |		Call	0x0,0x10
0567 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0568 780e       |x   |		Jump	0x577
0569 e5fe       |    |		Load	0x2,-0x2
056a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
056b 0227       | '  |		Execute	Access,All_Reference
056c 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
056d 0227       | '  |		Execute	Access,All_Reference
056e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
056f e5ff       |    |		Load	0x2,-0x1
0570 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0571 0227       | '  |		Execute	Access,All_Reference
0572 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0573 0227       | '  |		Execute	Access,All_Reference
0574 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0575 8010       |    |		Call	0x0,0x10
0576 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0577 00d8       |    |		Load_Top	At_Offset_0
0578 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0579 0000 0000  |    |		.BLANK	0000[0x7]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 00db       |    |		Load_Top	At_Offset_3
0584 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0585 0227       | '  |		Execute	Access,All_Reference
0586 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0587 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0588 6849       |hI  |		Jump_Zero	0x5d2
0589 00da       |    |		Load_Top	At_Offset_2
058a e5fe       |    |		Load	0x2,-0x2
058b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
058c 0227       | '  |		Execute	Access,All_Reference
058d 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
058e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
058f 0227       | '  |		Execute	Access,All_Reference
0590 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0591 8010       |    |		Call	0x0,0x10
0592 680f       |h   |		Jump_Zero	0x5a2
0593 4801       |H   |		Short_Literal	0x1
0594 a5fb       |    |		Store_Unchecked	0x2,-0x5
0595 4801       |H   |		Short_Literal	0x1
0596 a5fc       |    |		Store_Unchecked	0x2,-0x4
0597 e5fd       |    |		Load	0x2,-0x3
0598 e5fe       |    |		Load	0x2,-0x2
0599 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
059a 0227       | '  |		Execute	Access,All_Reference
059b 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
059c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
059d 0227       | '  |		Execute	Access,All_Reference
059e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
059f 8003       |    |		Call	0x0,0x3
05a0 c5fd       |    |		Store	0x2,-0x3
05a1 7830       |x0  |		Jump	0x5d2
05a2 00db       |    |		Load_Top	At_Offset_3
05a3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
05a4 0227       | '  |		Execute	Access,All_Reference
05a5 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05a6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05a7 6822       |h"  |		Jump_Zero	0x5ca
05a8 00da       |    |		Load_Top	At_Offset_2
05a9 e5fe       |    |		Load	0x2,-0x2
05aa 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
05ab 0227       | '  |		Execute	Access,All_Reference
05ac 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05ad 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05ae 0227       | '  |		Execute	Access,All_Reference
05af 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05b0 8010       |    |		Call	0x0,0x10
05b1 680f       |h   |		Jump_Zero	0x5c1
05b2 4801       |H   |		Short_Literal	0x1
05b3 a5fb       |    |		Store_Unchecked	0x2,-0x5
05b4 4802       |H   |		Short_Literal	0x2
05b5 a5fc       |    |		Store_Unchecked	0x2,-0x4
05b6 e5fd       |    |		Load	0x2,-0x3
05b7 e5fe       |    |		Load	0x2,-0x2
05b8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
05b9 0227       | '  |		Execute	Access,All_Reference
05ba 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05bb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05bc 0227       | '  |		Execute	Access,All_Reference
05bd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05be 8003       |    |		Call	0x0,0x3
05bf c5fd       |    |		Store	0x2,-0x3
05c0 7811       |x   |		Jump	0x5d2
05c1 4800       |H   |		Short_Literal	0x0
05c2 a5fb       |    |		Store_Unchecked	0x2,-0x5
05c3 4800       |H   |		Short_Literal	0x0
05c4 a5fc       |    |		Store_Unchecked	0x2,-0x4
05c5 e5fd       |    |		Load	0x2,-0x3
05c6 00ea       |    |		Load_Encached	Null_String_Cache
05c7 8013       |    |		Call	0x0,0x13
05c8 c5fd       |    |		Store	0x2,-0x3
05c9 7808       |x   |		Jump	0x5d2
05ca 4800       |H   |		Short_Literal	0x0
05cb a5fb       |    |		Store_Unchecked	0x2,-0x5
05cc 4800       |H   |		Short_Literal	0x0
05cd a5fc       |    |		Store_Unchecked	0x2,-0x4
05ce e5fd       |    |		Load	0x2,-0x3
05cf 00ea       |    |		Load_Encached	Null_String_Cache
05d0 8013       |    |		Call	0x0,0x13
05d1 c5fd       |    |		Store	0x2,-0x3
05d2 e5fd       |    |		Load	0x2,-0x3
05d3 8014       |    |		Call	0x0,0x14
05d4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05d5 ; --------------------------------------------------------------------------------------
05d5 ; STRING TABLE
05d5 ; --------------------------------------------------------------------------------------
05d5 0004       |    |		.STRTAB	0x0004->0x05d7							; " "
05d6 0003       |    |		.STREND 0x0003->0x05d7
05d7 2000       |    |		.STRTAB_STRINGS
05d8 ; --------------------------------------------------------------------------------------
05d8 ; Debug Table
05d8 ; --------------------------------------------------------------------------------------
05d8 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xebbb,0x0000,0x0001,0x0016
05de 000b 0636  |   6|		.DBG4T	0x000b,0x0636,0x8000,0x0000
05e2 002c 0648  | , H|		.DBG4T	0x002c,0x0648,0x8000,0x0000
05e6 005b 065e  | [ ^|		.DBG4T	0x005b,0x065e,0x0002,0x0000
05ea 0073 0667  | s g|		.DBG4T	0x0073,0x0667,0x0002,0x0000
05ee 0093 0670  |   p|		.DBG4T	0x0093,0x0670,0x0002,0x0000
05f2 00b3 0679  |   y|		.DBG4T	0x00b3,0x0679,0x0002,0x4000
05f6 0113 0699  |    |		.DBG4T	0x0113,0x0699,0x0002,0x4000
05fa 014b 06b8  | K  |		.DBG4T	0x014b,0x06b8,0x0002,0x4000
05fe 0183 06d7  |    |		.DBG4T	0x0183,0x06d7,0x0002,0x4000
0602 01cb 06ef  |    |		.DBG4T	0x01cb,0x06ef,0x0002,0x0000
0606 01e3 06f8  |    |		.DBG4T	0x01e3,0x06f8,0x0002,0x0000
060a 01fb 0701  |    |		.DBG4T	0x01fb,0x0701,0x0002,0x4000
060e 0233 0715  | 3  |		.DBG4T	0x0233,0x0715,0x0002,0x4000
0612 026b 0727  | k '|		.DBG4T	0x026b,0x0727,0x0002,0x4000
0616 02a3 0739  |   9|		.DBG4T	0x02a3,0x0739,0x0002,0x4000
061a 031b 075f  |   _|		.DBG4T	0x031b,0x075f,0x0001,0x4000
061e 038b 0789  |    |		.DBG4T	0x038b,0x0789,0x0001,0x4000
0622 044b 07cf  | K  |		.DBG4T	0x044b,0x07cf,0x0001,0x4000
0626 04cb 07ff  |    |		.DBG4T	0x04cb,0x07ff,0x0001,0x0000
062a 04db 0803  |    |		.DBG4T	0x04db,0x0803,0x0002,0x4000
062e 054b 081c  | K  |		.DBG4T	0x054b,0x081c,0x0002,0x4000
0632 0583 0829  |   )|		.DBG4T	0x0583,0x0829,0x0001,0x0000
0636 ; --------------------------------------------------------------------------------------
0636 ; Debug chain
0636 ; --------------------------------------------------------------------------------------
0636 0010 0000  |    |		.DBGLEN	0x0010,0x0000
0638 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug chain
0648 ; --------------------------------------------------------------------------------------
0648 0014 0000  |    |		.DBGLEN	0x0014,0x0000
064a 002c 002e  | , .|		.DBGLNO	0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052
065e ; --------------------------------------------------------------------------------------
065e ; Debug chain
065e ; --------------------------------------------------------------------------------------
065e 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0660 005b 005c  | [ \|		.DBGLNO	0x005b,0x005c,0x005e,0x0064,0x0069,0x006b,0x006e
0667 ; --------------------------------------------------------------------------------------
0667 ; Debug chain
0667 ; --------------------------------------------------------------------------------------
0667 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0669 0073 0074  | s t|		.DBGLNO	0x0073,0x0074,0x0076,0x007c,0x0081,0x0083,0x0087
0670 ; --------------------------------------------------------------------------------------
0670 ; Debug chain
0670 ; --------------------------------------------------------------------------------------
0670 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0672 0093 0094  |    |		.DBGLNO	0x0093,0x0094,0x0096,0x009c,0x00a1,0x00a3,0x00aa
0679 ; --------------------------------------------------------------------------------------
0679 ; Debug chain
0679 ; --------------------------------------------------------------------------------------
0679 0002 000e  |    |		.DBGLEN	0x0002,0x000e
067b 00b3 00b4  |    |		.DBGLNO	0x00b3,0x00b4,0x00b6,0x00bc,0x00c1,0x00c3,0x00ce,0x00d0,0x00d6,0x00d8,0x00e0,0x00e8,0x00f8,0x00ff,0x0106,0x010d
068b 0001 0002  |    |		.XXX[0xe]
068d 0003 0004  |    |
068f 000d 0005  |    |
0691 0009 0006  |    |
0693 0007 0008  |    |
0695 000a 000b  |    |
0697 000c 000e  |    |
0699 ; --------------------------------------------------------------------------------------
0699 ; Debug chain
0699 ; --------------------------------------------------------------------------------------
0699 0003 000d  |    |		.DBGLEN	0x0003,0x000d
069b 0113 0114  |    |		.DBGLNO	0x0113,0x0114,0x0118,0x011a,0x0120,0x0125,0x0127,0x012a,0x012f,0x0131,0x0134,0x0137,0x013b,0x013d,0x0144,0x0146
06ab 0001 0002  |    |		.XXX[0xd]
06ad 0003 0004  |    |
06af 0005 0006  |    |
06b1 0007 0008  |    |
06b3 0009 000b  |    |
06b5 000a 000c  |    |
06b7 000d       |    |
06b8 ; --------------------------------------------------------------------------------------
06b8 ; Debug chain
06b8 ; --------------------------------------------------------------------------------------
06b8 0003 000d  |    |		.DBGLEN	0x0003,0x000d
06ba 014b 014c  | K L|		.DBGLNO	0x014b,0x014c,0x0150,0x0152,0x0158,0x015d,0x015f,0x0162,0x0167,0x0169,0x016c,0x016f,0x0173,0x0175,0x017c,0x017e
06ca 0001 0002  |    |		.XXX[0xd]
06cc 0003 0004  |    |
06ce 0005 0006  |    |
06d0 0007 0008  |    |
06d2 0009 000b  |    |
06d4 000a 000c  |    |
06d6 000d       |    |
06d7 ; --------------------------------------------------------------------------------------
06d7 ; Debug chain
06d7 ; --------------------------------------------------------------------------------------
06d7 0002 000a  |    |		.DBGLEN	0x0002,0x000a
06d9 0183 0184  |    |		.DBGLNO	0x0183,0x0184,0x0186,0x018c,0x0191,0x0193,0x019f,0x01a4,0x01a9,0x01ae,0x01b5,0x01bb
06e5 0001 0002  |    |		.XXX[0xa]
06e7 0003 0004  |    |
06e9 0009 000a  |    |
06eb 000b 0005  |    |
06ed 0007 0006  |    |
06ef ; --------------------------------------------------------------------------------------
06ef ; Debug chain
06ef ; --------------------------------------------------------------------------------------
06ef 0002 0005  |    |		.DBGLEN	0x0002,0x0005
06f1 01cb 01cc  |    |		.DBGLNO	0x01cb,0x01cc,0x01ce,0x01d4,0x01d9,0x01db,0x01de
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug chain
06f8 ; --------------------------------------------------------------------------------------
06f8 0002 0005  |    |		.DBGLEN	0x0002,0x0005
06fa 01e3 01e4  |    |		.DBGLNO	0x01e3,0x01e4,0x01e6,0x01ec,0x01f1,0x01f3,0x01f5
0701 ; --------------------------------------------------------------------------------------
0701 ; Debug chain
0701 ; --------------------------------------------------------------------------------------
0701 0002 0008  |    |		.DBGLEN	0x0002,0x0008
0703 01fb 01fc  |    |		.DBGLNO	0x01fb,0x01fc,0x01fe,0x0204,0x0209,0x020b,0x0217,0x021f,0x0222,0x022a
070d 0001 0002  |    |		.XXX[0x8]
070f 0003 0004  |    |
0711 0006 0007  |    |
0713 0005 0009  |    |
0715 ; --------------------------------------------------------------------------------------
0715 ; Debug chain
0715 ; --------------------------------------------------------------------------------------
0715 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0717 0233 0234  | 3 4|		.DBGLNO	0x0233,0x0234,0x0236,0x023c,0x0241,0x0243,0x024a,0x0251,0x0259
0720 0001 0002  |    |		.XXX[0x7]
0722 0003 0004  |    |
0724 0005 0007  |    |
0726 0006       |    |
0727 ; --------------------------------------------------------------------------------------
0727 ; Debug chain
0727 ; --------------------------------------------------------------------------------------
0727 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0729 026b 026c  | k l|		.DBGLNO	0x026b,0x026c,0x026e,0x0274,0x0279,0x027b,0x0282,0x0289,0x0291
0732 0001 0002  |    |		.XXX[0x7]
0734 0003 0004  |    |
0736 0005 0007  |    |
0738 0006       |    |
0739 ; --------------------------------------------------------------------------------------
0739 ; Debug chain
0739 ; --------------------------------------------------------------------------------------
0739 0002 0011  |    |		.DBGLEN	0x0002,0x0011
073b 02a3 02a6  |    |		.DBGLNO	0x02a3,0x02a6,0x02aa,0x02ac,0x02b2,0x02b8,0x02bd,0x02c2,0x02c6,0x02cc,0x02d8,0x02dc,0x02e7,0x02ed,0x02f2,0x02f6,0x0301,0x0305,0x030f
074e 0001 0002  |    |		.XXX[0x11]
0750 0003 0004  |    |
0752 0005 0006  |    |
0754 0007 0008  |    |
0756 000f 0010  |    |
0758 000b 000c  |    |
075a 000d 000e  |    |
075c 0009 000a  |    |
075e 0012       |    |
075f ; --------------------------------------------------------------------------------------
075f ; Debug chain
075f ; --------------------------------------------------------------------------------------
075f 0004 0012  |    |		.DBGLEN	0x0004,0x0012
0761 031b 031d  |    |		.DBGLNO	0x031b,0x031d,0x0321,0x0325,0x0327,0x0329,0x032b,0x0331,0x0337,0x033c,0x0341,0x034d,0x0357,0x035b,0x035e,0x0365,0x0367,0x0370,0x0374,0x037d,0x037f,0x0383
0777 0001 0002  |    |		.XXX[0x12]
0779 0003 0004  |    |
077b 0005 0006  |    |
077d 0007 0008  |    |
077f 000a 000b  |    |
0781 000c 000d  |    |
0783 000e 000f  |    |
0785 0009 0010  |    |
0787 0011 0012  |    |
0789 ; --------------------------------------------------------------------------------------
0789 ; Debug chain
0789 ; --------------------------------------------------------------------------------------
0789 0004 0020  |    |		.DBGLEN	0x0004,0x0020
078b 038b 038d  |    |		.DBGLNO	0x038b,0x038d,0x0390,0x0394,0x0396,0x0398,0x039e,0x03a3,0x03a9,0x03b3,0x03b8,0x03bb,0x03c1,0x03c6,0x03cc,0x03d2,0x03da,0x03e4,0x03ee,0x03f0,0x03f3,0x03f9,0x0403,0x040d,0x040f,0x0412,0x0418,0x0422,0x042c,0x042e,0x0430,0x0434,0x043c,0x043e,0x0440,0x0444
07af 0001 0002  |    |		.XXX[0x20]
07b1 0003 0004  |    |
07b3 0005 0007  |    |
07b5 0008 0009  |    |
07b7 000a 000b  |    |
07b9 000c 000d  |    |
07bb 000e 000f  |    |
07bd 0010 0011  |    |
07bf 0012 0013  |    |
07c1 0014 0015  |    |
07c3 0016 0017  |    |
07c5 0018 0019  |    |
07c7 001a 001b  |    |
07c9 001c 0006  |    |
07cb 001d 001e  |    |
07cd 001f 0020  |    |
07cf ; --------------------------------------------------------------------------------------
07cf ; Debug chain
07cf ; --------------------------------------------------------------------------------------
07cf 0004 0015  |    |		.DBGLEN	0x0004,0x0015
07d1 044b 044d  | K M|		.DBGLNO	0x044b,0x044d,0x0450,0x0454,0x0456,0x0458,0x045e,0x0463,0x0469,0x0473,0x0478,0x047b,0x0480,0x0485,0x0489,0x0491,0x0497,0x04a0,0x04a5,0x04a7,0x04b1,0x04b3,0x04b8,0x04ba,0x04be
07ea 0001 0002  |    |		.XXX[0x15]
07ec 0003 0004  |    |
07ee 0005 0007  |    |
07f0 0008 0009  |    |
07f2 000a 000b  |    |
07f4 0006 000c  |    |
07f6 000d 000e  |    |
07f8 000f 0010  |    |
07fa 0011 0012  |    |
07fc 0013 0014  |    |
07fe 0015       |    |
07ff ; --------------------------------------------------------------------------------------
07ff ; Debug chain
07ff ; --------------------------------------------------------------------------------------
07ff 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0801 04cb 04d2  |    |		.DBGLNO	0x04cb,0x04d2
0803 ; --------------------------------------------------------------------------------------
0803 ; Debug chain
0803 ; --------------------------------------------------------------------------------------
0803 0001 000b  |    |		.DBGLEN	0x0001,0x000b
0805 04db 04dc  |    |		.DBGLNO	0x04db,0x04dc,0x04e7,0x04ea,0x04f0,0x04f3,0x0500,0x050d,0x0526,0x0531,0x053c,0x0546
0811 0001 000a  |    |		.XXX[0xb]
0813 0002 0006  |    |
0815 0003 0004  |    |
0817 0005 0007  |    |
0819 0008 0009  |    |
081b 000b       |    |
081c ; --------------------------------------------------------------------------------------
081c ; Debug chain
081c ; --------------------------------------------------------------------------------------
081c 0001 0005  |    |		.DBGLEN	0x0001,0x0005
081e 054b 054c  | K L|		.DBGLNO	0x054b,0x054c,0x0557,0x055a,0x0569,0x0577
0824 0001 0004  |    |		.XXX[0x5]
0826 0002 0003  |    |
0828 0005       |    |
0829 ; --------------------------------------------------------------------------------------
0829 ; Debug chain
0829 ; --------------------------------------------------------------------------------------
0829 0000 0011  |    |		.DBGLEN	0x0000,0x0011
082b 0583 0589  |    |		.DBGLNO	0x0583,0x0589,0x0593,0x0595,0x0597,0x05a2,0x05a8,0x05b2,0x05b4,0x05b6,0x05c1,0x05c3,0x05c5,0x05ca,0x05cc,0x05ce,0x05d2
083c 0000 0000  |    |		.BLANK	0000[0x1c4]