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

⟦38be57f88⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0678       | x  |		.CONST	0x0678								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ee       |    |		.CONST	0x00ee								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0037       | 7  |		.CONST	0x0037								; Number of locals
000b			INIT_0008:
000b 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
000d 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
000f 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0011 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0013 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0015 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0017 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0019 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
001b 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
001d 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
001f 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0021 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0023 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0025 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0027 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0029 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
002b 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002d 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
002f 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0031 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0033 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0035 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0037 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
0039 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
003b 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
003d 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
003f 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
0041 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0043 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0045 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0047 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0049 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
004b 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
004d 4800       |H   |		Short_Literal	0x0
004e 4802       |H   |		Short_Literal	0x2
004f e001       |    |		Load	0x0,0x1
0050 01d7       |    |		Execute	Vector,Field_Read
0051 02a0       |    |		Declare_Subprogram	Null_Subprogram
0052 038f       |    |		Declare_Type	Package,Defined,Visible
0053 e001       |    |		Load	0x0,0x1
0054 4801       |H   |		Short_Literal	0x1
0055 e001       |    |		Load	0x0,0x1
0056 01d7       |    |		Execute	Vector,Field_Read
0057 4802       |H   |		Short_Literal	0x2
0058 00db       |    |		Load_Top	At_Offset_3
0059 020e       |    |		Execute	Module,Augment_Imports
005a 0386       |    |		Declare_Variable	Package,Visible
005b 0093 0000  |    |		push_full_address	0x0
005d 60a2       |`   |		Indirect_Literal	Discrete,0x100,{0x80000000, 0x00010000}
005e 0273       | s  |		Execute	Discrete,Plus
005f 0129       | )  |		Execute	Any,Make_Visible
0060 e002       |    |		Load	0x0,0x2
0061 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0062 00e1       |    |		Load_Encached	Boolean_Cache
0063 00e1       |    |		Load_Encached	Boolean_Cache
0064 00ec       |    |		Load_Encached	Diana_Tree_Cache
0065 00ec       |    |		Load_Encached	Diana_Tree_Cache
0066 e003       |    |		Load	0x0,0x3
0067 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0068 e004       |    |		Load	0x0,0x4
0069 e005       |    |		Load	0x0,0x5
006a e006       |    |		Load	0x0,0x6
006b 00d8       |    |		Load_Top	At_Offset_0
006c 00e1       |    |		Load_Encached	Boolean_Cache
006d e007       |    |		Load	0x0,0x7
006e 00e1       |    |		Load_Encached	Boolean_Cache
006f e008       |    |		Load	0x0,0x8
0070 029f 0613  |    |		Declare_Subprogram	INIT_0610,For_Call
0072 480e       |H   |		Short_Literal	0xe
0073 032e       | .  |		Declare_Type	Record,Defined,Visible
0074 00bf       |    |		Action	Accept_Activation
0075 00d8       |    |		Load_Top	At_Offset_0
0076 0322       | "  |		Declare_Variable	Record
0077 00d8       |    |		Load_Top	At_Offset_0
0078 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0079 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 029d 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call
0081 029d 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call
0083 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 029d 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call
009f 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 029d 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call
00ab 029d 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call
00ad 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 029d 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call
00bd 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 e009       |    |		Load	0x0,0x9
00c8 a00a       |    |		Store_Unchecked	0x0,0xa
00c9 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00ca a00b       |    |		Store_Unchecked	0x0,0xb
00cb a00c       |    |		Store_Unchecked	0x0,0xc
00cc 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00cd e002       |    |		Load	0x0,0x2
00ce a00d       |    |		Store_Unchecked	0x0,0xd
00cf a00e       |    |		Store_Unchecked	0x0,0xe
00d0 a00f       |    |		Store_Unchecked	0x0,0xf
00d1 a010       |    |		Store_Unchecked	0x0,0x10
00d2 a011       |    |		Store_Unchecked	0x0,0x11
00d3 a012       |    |		Store_Unchecked	0x0,0x12
00d4 a013       |    |		Store_Unchecked	0x0,0x13
00d5 a014       |    |		Store_Unchecked	0x0,0x14
00d6 a015       |    |		Store_Unchecked	0x0,0x15
00d7 a016       |    |		Store_Unchecked	0x0,0x16
00d8 a017       |    |		Store_Unchecked	0x0,0x17
00d9 a018       |    |		Store_Unchecked	0x0,0x18
00da 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00db a019       |    |		Store_Unchecked	0x0,0x19
00dc a01a       |    |		Store_Unchecked	0x0,0x1a
00dd 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00de a01b       |    |		Store_Unchecked	0x0,0x1b
00df a01c       |    |		Store_Unchecked	0x0,0x1c
00e0 a01d       |    |		Store_Unchecked	0x0,0x1d
00e1 a01e       |    |		Store_Unchecked	0x0,0x1e
00e2 a01f       |    |		Store_Unchecked	0x0,0x1f
00e3 a020       |    |		Store_Unchecked	0x0,0x20
00e4 a021       | !  |		Store_Unchecked	0x0,0x21
00e5 a022       | "  |		Store_Unchecked	0x0,0x22
00e6 a023       | #  |		Store_Unchecked	0x0,0x23
00e7 a024       | $  |		Store_Unchecked	0x0,0x24
00e8 a025       | %  |		Store_Unchecked	0x0,0x25
00e9 4822       |H"  |		Short_Literal	0x22
00ea e22e       | .  |		Load	0x1,0x2e
00eb 020e       |    |		Execute	Module,Augment_Imports
00ec e22e       | .  |		Load	0x1,0x2e
00ed 020f       |    |		Execute	Module,Activate
00ee			BODY_0008:
00ee 480d       |H   |		Short_Literal	0xd
00ef e231       | 1  |		Load	0x1,0x31
00f0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f1 00bc       |    |		Action	Signal_Activated
00f2 00bb       |    |		Action	Signal_Completion
00f3 0000 0000  |    |		.BLANK	0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e231       | 1  |		Load	0x1,0x31
00fc 0320       |    |		Declare_Variable	Record,Duplicate
00fd 00cd       |    |		Action	Spare6_Action
00fe 00ca       |    |		Action	Exit_Nullary_Function
00ff 0000       |    |		.XXX[0x1]
0100 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0104 0000 0000  |    |		.BLANK	0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 010f       |    |		.CONST	0x010f								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
010d 0f0d       |    |		Execute_Immediate	Equal,0xd
010e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010f			TRAP_0108:
010f 0007       |    |		Action	Break_Optional
0110 4801       |H   |		Short_Literal	0x1
0111 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0112 0000 0000  |    |		.BLANK	0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 480d       |H   |		Short_Literal	0xd
011c 00db       |    |		Load_Top	At_Offset_3
011d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
011e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
011f 0000       |    |		.XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 820e       |    |		Call	0x1,0xe
0125 6804       |h   |		Jump_Zero	0x12a
0126 820d       |    |		Call	0x1,0xd
0127 e5fe       |    |		Load	0x2,-0x2
0128 017d       | }  |		Execute	Record,Structure_Write
0129 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
012a 00da       |    |		Load_Top	At_Offset_2
012b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012c e5fe       |    |		Load	0x2,-0x2
012d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012e 00da       |    |		Load_Top	At_Offset_2
012f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0130 e5fe       |    |		Load	0x2,-0x2
0131 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0132 00da       |    |		Load_Top	At_Offset_2
0133 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0134 e5fe       |    |		Load	0x2,-0x2
0135 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0136 00da       |    |		Load_Top	At_Offset_2
0137 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0138 e5fe       |    |		Load	0x2,-0x2
0139 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
013a 00da       |    |		Load_Top	At_Offset_2
013b 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
013c e5fe       |    |		Load	0x2,-0x2
013d 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
013e 00da       |    |		Load_Top	At_Offset_2
013f 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0140 e5fe       |    |		Load	0x2,-0x2
0141 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0142 00da       |    |		Load_Top	At_Offset_2
0143 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0144 e5fe       |    |		Load	0x2,-0x2
0145 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0146 00da       |    |		Load_Top	At_Offset_2
0147 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0148 e5fe       |    |		Load	0x2,-0x2
0149 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
014a 00da       |    |		Load_Top	At_Offset_2
014b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
014c e5fe       |    |		Load	0x2,-0x2
014d 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
014e 00da       |    |		Load_Top	At_Offset_2
014f 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0150 8026       | &  |		Call	0x0,0x26
0151 e5fe       |    |		Load	0x2,-0x2
0152 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0153 00da       |    |		Load_Top	At_Offset_2
0154 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0155 8026       | &  |		Call	0x0,0x26
0156 e5fe       |    |		Load	0x2,-0x2
0157 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0158 00da       |    |		Load_Top	At_Offset_2
0159 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
015a e5fe       |    |		Load	0x2,-0x2
015b 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
015c 00da       |    |		Load_Top	At_Offset_2
015d 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
015e e5fe       |    |		Load	0x2,-0x2
015f 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0160 00db       |    |		Load_Top	At_Offset_3
0161 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0162 00db       |    |		Load_Top	At_Offset_3
0163 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0164 8027       | '  |		Call	0x0,0x27
0165 e5fe       |    |		Load	0x2,-0x2
0166 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0167 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 820d       |    |		Call	0x1,0xd
016d 017f       |    |		Execute	Record,Equal
016e 6802       |h   |		Jump_Zero	0x171
016f 480d       |H   |		Short_Literal	0xd
0170 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0171 00da       |    |		Load_Top	At_Offset_2
0172 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0173 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
017d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 00da       |    |		Load_Top	At_Offset_2
0184 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0185 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
018d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018e 0000 0000  |    |		.XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00da       |    |		Load_Top	At_Offset_2
019c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
019d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019e 0000 0000  |    |		.XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 0120       |    |		Execute	Any,Is_Value
01a7 7002       |p   |		Jump_Nonzero	0x1aa
01a8 00d8       |    |		Load_Top	At_Offset_0
01a9 011e       |    |		Execute	Any,Convert
01aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ab 0000 0000  |    |		.BLANK	0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 0120       |    |		Execute	Any,Is_Value
01b7 7002       |p   |		Jump_Nonzero	0x1ba
01b8 00d8       |    |		Load_Top	At_Offset_0
01b9 011e       |    |		Execute	Any,Convert
01ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bb 0000 0000  |    |		.BLANK	0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 0120       |    |		Execute	Any,Is_Value
01c7 7002       |p   |		Jump_Nonzero	0x1ca
01c8 00d8       |    |		Load_Top	At_Offset_0
01c9 011e       |    |		Execute	Any,Convert
01ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cb 0000 0000  |    |		.BLANK	0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 0120       |    |		Execute	Any,Is_Value
01d7 7002       |p   |		Jump_Nonzero	0x1da
01d8 00d8       |    |		Load_Top	At_Offset_0
01d9 011e       |    |		Execute	Any,Convert
01da 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01db 0000 0000  |    |		.BLANK	0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01e5 00d8       |    |		Load_Top	At_Offset_0
01e6 0120       |    |		Execute	Any,Is_Value
01e7 7002       |p   |		Jump_Nonzero	0x1ea
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 011e       |    |		Execute	Any,Convert
01ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01eb 0000 0000  |    |		.BLANK	0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
01f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb e5fd       |    |		Load	0x2,-0x3
01fc 0120       |    |		Execute	Any,Is_Value
01fd 6802       |h   |		Jump_Zero	0x200
01fe e028       | (  |		Load	0x0,0x28
01ff 7801       |x   |		Jump	0x201
0200 e5fd       |    |		Load	0x2,-0x3
0201 00e1       |    |		Load_Encached	Boolean_Cache
0202 e5ff       |    |		Load	0x2,-0x1
0203 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0204 8029       | )  |		Call	0x0,0x29
0205 c5fe       |    |		Store	0x2,-0x2
0206 c5fd       |    |		Store	0x2,-0x3
0207 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2
020c 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
020d 802a       | *  |		Call	0x0,0x2a
020e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020f 0000       |    |		.XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 e5fb       |    |		Load	0x2,-0x5
0214 e5f8       |    |		Load	0x2,-0x8
0215 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0216 00da       |    |		Load_Top	At_Offset_2
0217 8233       | 3  |		Call	0x1,0x33
0218 e5f8       |    |		Load	0x2,-0x8
0219 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
021a e5fa       |    |		Load	0x2,-0x6
021b e5f8       |    |		Load	0x2,-0x8
021c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
021d e5fc       |    |		Load	0x2,-0x4
021e 802b       | +  |		Call	0x0,0x2b
021f 0f00       |    |		Execute_Immediate	Equal,0x0
0220 e5f8       |    |		Load	0x2,-0x8
0221 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0222 e5fc       |    |		Load	0x2,-0x4
0223 e5f8       |    |		Load	0x2,-0x8
0224 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0225 00da       |    |		Load_Top	At_Offset_2
0226 e5f8       |    |		Load	0x2,-0x8
0227 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0228 e5f9       |    |		Load	0x2,-0x7
0229 0f02       |    |		Execute_Immediate	Equal,0x2
022a 6808       |h   |		Jump_Zero	0x233
022b 00eb       |    |		Load_Encached	Diana_Cache
022c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
022d e5f8       |    |		Load	0x2,-0x8
022e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
022f 4805       |H   |		Short_Literal	0x5
0230 e5f8       |    |		Load	0x2,-0x8
0231 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0232 780d       |x   |		Jump	0x240
0233 00db       |    |		Load_Top	At_Offset_3
0234 00db       |    |		Load_Top	At_Offset_3
0235 e02c       | ,  |		Load	0x0,0x2c
0236 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0237 e5f8       |    |		Load	0x2,-0x8
0238 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0239 00eb       |    |		Load_Encached	Diana_Cache
023a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
023b e5fe       |    |		Load	0x2,-0x2
023c e5ff       |    |		Load	0x2,-0x1
023d 8232       | 2  |		Call	0x1,0x32
023e e5f8       |    |		Load	0x2,-0x8
023f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0240 e5f9       |    |		Load	0x2,-0x7
0241 8234       | 4  |		Call	0x1,0x34
0242 e5f8       |    |		Load	0x2,-0x8
0243 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0244 00db       |    |		Load_Top	At_Offset_3
0245 e5f8       |    |		Load	0x2,-0x8
0246 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0247 00db       |    |		Load_Top	At_Offset_3
0248 e5f8       |    |		Load	0x2,-0x8
0249 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
024a 00da       |    |		Load_Top	At_Offset_2
024b 802d       | -  |		Call	0x0,0x2d
024c e5f8       |    |		Load	0x2,-0x8
024d 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
024e e5fd       |    |		Load	0x2,-0x3
024f e5f8       |    |		Load	0x2,-0x8
0250 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0251 e5f9       |    |		Load	0x2,-0x7
0252 0f04       |    |		Execute_Immediate	Equal,0x4
0253 680a       |h   |		Jump_Zero	0x25e
0254 e5f8       |    |		Load	0x2,-0x8
0255 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0256 4805       |H   |		Short_Literal	0x5
0257 4806       |H   |		Short_Literal	0x6
0258 0262       | b  |		Execute	Discrete,In_Range
0259 7001       |p   |		Jump_Nonzero	0x25b
025a 7803       |x   |		Jump	0x25e
025b 4800       |H   |		Short_Literal	0x0
025c e5f8       |    |		Load	0x2,-0x8
025d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
025e e5f8       |    |		Load	0x2,-0x8
025f 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0260 802e       | .  |		Call	0x0,0x2e
0261 e5f8       |    |		Load	0x2,-0x8
0262 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0263 e5f7       |    |		Load	0x2,-0x9
0264 e009       |    |		Load	0x0,0x9
0265 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0266 c5f7       |    |		Store	0x2,-0x9
0267 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00db       |    |		Load_Top	At_Offset_3
026c e5fd       |    |		Load	0x2,-0x3
026d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
026e 4800       |H   |		Short_Literal	0x0
026f e5fd       |    |		Load	0x2,-0x3
0270 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0271 00da       |    |		Load_Top	At_Offset_2
0272 802b       | +  |		Call	0x0,0x2b
0273 0f00       |    |		Execute_Immediate	Equal,0x0
0274 e5fd       |    |		Load	0x2,-0x3
0275 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0276 00da       |    |		Load_Top	At_Offset_2
0277 e5fd       |    |		Load	0x2,-0x3
0278 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0279 00eb       |    |		Load_Encached	Diana_Cache
027a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
027b e5fd       |    |		Load	0x2,-0x3
027c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
027d 00eb       |    |		Load_Encached	Diana_Cache
027e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
027f e5fd       |    |		Load	0x2,-0x3
0280 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0281 4803       |H   |		Short_Literal	0x3
0282 e5fd       |    |		Load	0x2,-0x3
0283 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0284 e02f       | /  |		Load	0x0,0x2f
0285 e5fd       |    |		Load	0x2,-0x3
0286 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0287 e02f       | /  |		Load	0x0,0x2f
0288 e5fd       |    |		Load	0x2,-0x3
0289 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
028a e030       | 0  |		Load	0x0,0x30
028b e5fd       |    |		Load	0x2,-0x3
028c 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
028d e031       | 1  |		Load	0x0,0x31
028e e5fd       |    |		Load	0x2,-0x3
028f 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0290 4806       |H   |		Short_Literal	0x6
0291 e5fd       |    |		Load	0x2,-0x3
0292 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0293 e5fc       |    |		Load	0x2,-0x4
0294 e009       |    |		Load	0x0,0x9
0295 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0296 c5fc       |    |		Store	0x2,-0x4
0297 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c e5fe       |    |		Load	0x2,-0x2
029d 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
029e 00da       |    |		Load_Top	At_Offset_2
029f 802b       | +  |		Call	0x0,0x2b
02a0 0f00       |    |		Execute_Immediate	Equal,0x0
02a1 e5fe       |    |		Load	0x2,-0x2
02a2 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
02a3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a4 0000 0000  |    |		.BLANK	0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 802d       | -  |		Call	0x0,0x2d
02ad e5fc       |    |		Load	0x2,-0x4
02ae 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02af e5fc       |    |		Load	0x2,-0x4
02b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b1 0f07       |    |		Execute_Immediate	Equal,0x7
02b2 7007       |p   |		Jump_Nonzero	0x2ba
02b3 00db       |    |		Load_Top	At_Offset_3
02b4 e5fc       |    |		Load	0x2,-0x4
02b5 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
02b6 e5ff       |    |		Load	0x2,-0x1
02b7 8232       | 2  |		Call	0x1,0x32
02b8 e5fc       |    |		Load	0x2,-0x4
02b9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ba e5fc       |    |		Load	0x2,-0x4
02bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02bc 0f06       |    |		Execute_Immediate	Equal,0x6
02bd 6803       |h   |		Jump_Zero	0x2c1
02be 8032       | 2  |		Call	0x0,0x32
02bf e5fc       |    |		Load	0x2,-0x4
02c0 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
02c1 00da       |    |		Load_Top	At_Offset_2
02c2 e5fc       |    |		Load	0x2,-0x4
02c3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02c4 e5fc       |    |		Load	0x2,-0x4
02c5 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
02c6 7004       |p   |		Jump_Nonzero	0x2cb
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 8233       | 3  |		Call	0x1,0x33
02c9 e5fc       |    |		Load	0x2,-0x4
02ca 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
02cb e5fd       |    |		Load	0x2,-0x3
02cc e5fc       |    |		Load	0x2,-0x4
02cd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02ce 00db       |    |		Load_Top	At_Offset_3
02cf e5fc       |    |		Load	0x2,-0x4
02d0 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02d1 e5fb       |    |		Load	0x2,-0x5
02d2 e009       |    |		Load	0x0,0x9
02d3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02d4 c5fb       |    |		Store	0x2,-0x5
02d5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 00da       |    |		Load_Top	At_Offset_2
02dc e5fd       |    |		Load	0x2,-0x3
02dd 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02de 00db       |    |		Load_Top	At_Offset_3
02df 6803       |h   |		Jump_Zero	0x2e3
02e0 4807       |H   |		Short_Literal	0x7
02e1 e5fd       |    |		Load	0x2,-0x3
02e2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02e3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e4 0000 0000  |    |		.BLANK	0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 4801       |H   |		Short_Literal	0x1
02ec 00db       |    |		Load_Top	At_Offset_3
02ed 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ee 00da       |    |		Load_Top	At_Offset_2
02ef 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
02f0 802e       | .  |		Call	0x0,0x2e
02f1 00db       |    |		Load_Top	At_Offset_3
02f2 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
02f3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f4 0000 0000  |    |		.BLANK	0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc e5fe       |    |		Load	0x2,-0x2
02fd 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02fe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ff 0000       |    |		.XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 00db       |    |		Load_Top	At_Offset_3
0304 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0305 00db       |    |		Load_Top	At_Offset_3
0306 8033       | 3  |		Call	0x0,0x33
0307 e5fe       |    |		Load	0x2,-0x2
0308 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0309 00db       |    |		Load_Top	At_Offset_3
030a 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
030b 00db       |    |		Load_Top	At_Offset_3
030c 8033       | 3  |		Call	0x0,0x33
030d e5fe       |    |		Load	0x2,-0x2
030e 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
030f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0314       |    |		.CONST	0x0314								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0002       |    |		.CONST	0x0002								; Number of locals
0313			INIT_0310:
0313 00ec       |    |		Load_Encached	Diana_Tree_Cache
0314			BODY_0310:
0314 00cf       |    |		Action	Mark_Auxiliary
0315 e5ff       |    |		Load	0x2,-0x1
0316 8034       | 4  |		Call	0x0,0x34
0317 4801       |H   |		Short_Literal	0x1
0318 0263       | c  |		Execute	Discrete,Above_Bound
0319 700c       |p   |		Jump_Nonzero	0x326
031a 00d8       |    |		Load_Top	At_Offset_0
031b e5ff       |    |		Load	0x2,-0x1
031c 8035       | 5  |		Call	0x0,0x35
031d a402       |    |		Store_Unchecked	0x2,0x2
031e e5fe       |    |		Load	0x2,-0x2
031f 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0320 e402       |    |		Load	0x2,0x2
0321 8236       | 6  |		Call	0x1,0x36
0322 e5fe       |    |		Load	0x2,-0x2
0323 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0324 00c8       |    |		Action	Pop_Auxiliary_Range
0325 3ff4       |?   |		Loop_Increasing	0x31a
0326 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0327 0000       |    |		.XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00db       |    |		Load_Top	At_Offset_3
032c 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
032d 00db       |    |		Load_Top	At_Offset_3
032e 8036       | 6  |		Call	0x0,0x36
032f e5fe       |    |		Load	0x2,-0x2
0330 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0331 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0332 0000 0000  |    |		.BLANK	0000[0x6]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0344       | D  |		.CONST	0x0344								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0004       |    |		.CONST	0x0004								; Number of locals
033b			INIT_0338:
033b e028       | (  |		Load	0x0,0x28
033c 02c7       |    |		Declare_Variable	Any
033d 00d8       |    |		Load_Top	At_Offset_0
033e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
033f e008       |    |		Load	0x0,0x8
0340 02c7       |    |		Declare_Variable	Any
0341 00d8       |    |		Load_Top	At_Offset_0
0342 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0343 00ec       |    |		Load_Encached	Diana_Tree_Cache
0344			BODY_0338:
0344 e5fd       |    |		Load	0x2,-0x3
0345 e009       |    |		Load	0x0,0x9
0346 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0347 c5fd       |    |		Store	0x2,-0x3
0348 8032       | 2  |		Call	0x0,0x32
0349 c5fe       |    |		Store	0x2,-0x2
034a 00d9       |    |		Load_Top	At_Offset_1
034b e5ff       |    |		Load	0x2,-0x1
034c 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
034d 8027       | '  |		Call	0x0,0x27
034e c403       |    |		Store	0x2,0x3
034f 00d9       |    |		Load_Top	At_Offset_1
0350 8024       | $  |		Call	0x0,0x24
0351 c403       |    |		Store	0x2,0x3
0352 e5ff       |    |		Load	0x2,-0x1
0353 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0354 460d       |F   |		Jump_Case	0xe
0355 780d       |x   |		Jump	0x363								; case 0x0
0356 780c       |x   |		Jump	0x363								; case 0x1
0357 780b       |x   |		Jump	0x363								; case 0x2
0358 780a       |x   |		Jump	0x363								; case 0x3
0359 7809       |x   |		Jump	0x363								; case 0x4
035a 7808       |x   |		Jump	0x363								; case 0x5
035b 783e       |x>  |		Jump	0x39a								; case 0x6
035c 7806       |x   |		Jump	0x363								; case 0x7
035d 7805       |x   |		Jump	0x363								; case 0x8
035e 780b       |x   |		Jump	0x36a								; case 0x9
035f 7803       |x   |		Jump	0x363								; case 0xa
0360 7802       |x   |		Jump	0x363								; case 0xb
0361 7801       |x   |		Jump	0x363								; case 0xc
0362 7800       |x   |		Jump	0x363								; case 0xd
0363 e5fd       |    |		Load	0x2,-0x3
0364 0092 063b  |   ;|		Action	Push_String_Extended,0x63b					; "Not a valid task name"
0366 e009       |    |		Load	0x0,0x9
0367 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0368 c5fd       |    |		Store	0x2,-0x3
0369 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
036a 4800       |H   |		Short_Literal	0x0
036b e5ff       |    |		Load	0x2,-0x1
036c 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
036d e5ff       |    |		Load	0x2,-0x1
036e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
036f e02c       | ,  |		Load	0x0,0x2c
0370 1849       | I  |		Execute	Package,Field_Execute,Field_Number 0x49
0371 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0372 00d8       |    |		Load_Top	At_Offset_0
0373 00eb       |    |		Load_Encached	Diana_Cache
0374 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0375 0f73       | s  |		Execute_Immediate	Equal,0x73
0376 7007       |p   |		Jump_Nonzero	0x37e
0377 e5fd       |    |		Load	0x2,-0x3
0378 0092 063b  |   ;|		Action	Push_String_Extended,0x63b					; "Not a valid task name"
037a e009       |    |		Load	0x0,0x9
037b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
037c c5fd       |    |		Store	0x2,-0x3
037d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
037e e5fd       |    |		Load	0x2,-0x3
037f 00da       |    |		Load_Top	At_Offset_2
0380 4800       |H   |		Short_Literal	0x0
0381 4800       |H   |		Short_Literal	0x0
0382 4800       |H   |		Short_Literal	0x0
0383 e404       |    |		Load	0x2,0x4
0384 e5ff       |    |		Load	0x2,-0x1
0385 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0386 800b       |    |		Call	0x0,0xb
0387 c403       |    |		Store	0x2,0x3
0388 c5fd       |    |		Store	0x2,-0x3
0389 4802       |H   |		Short_Literal	0x2
038a e5fd       |    |		Load	0x2,-0x3
038b e009       |    |		Load	0x0,0x9
038c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
038d 6807       |h   |		Jump_Zero	0x395
038e e5fd       |    |		Load	0x2,-0x3
038f 0092 063b  |   ;|		Action	Push_String_Extended,0x63b					; "Not a valid task name"
0391 e009       |    |		Load	0x0,0x9
0392 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0393 c5fd       |    |		Store	0x2,-0x3
0394 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0395 e5fd       |    |		Load	0x2,-0x3
0396 00da       |    |		Load_Top	At_Offset_2
0397 8018       |    |		Call	0x0,0x18
0398 c403       |    |		Store	0x2,0x3
0399 c5fd       |    |		Store	0x2,-0x3
039a e5fd       |    |		Load	0x2,-0x3
039b 00da       |    |		Load_Top	At_Offset_2
039c 4801       |H   |		Short_Literal	0x1
039d 4800       |H   |		Short_Literal	0x0
039e 4805       |H   |		Short_Literal	0x5
039f 801e       |    |		Call	0x0,0x1e
03a0 c403       |    |		Store	0x2,0x3
03a1 c5fd       |    |		Store	0x2,-0x3
03a2 e5fd       |    |		Load	0x2,-0x3
03a3 00da       |    |		Load_Top	At_Offset_2
03a4 8037       | 7  |		Call	0x0,0x37
03a5 c403       |    |		Store	0x2,0x3
03a6 c5fd       |    |		Store	0x2,-0x3
03a7 4802       |H   |		Short_Literal	0x2
03a8 e5fd       |    |		Load	0x2,-0x3
03a9 e009       |    |		Load	0x0,0x9
03aa 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ab 7013       |p   |		Jump_Nonzero	0x3bf
03ac e5fd       |    |		Load	0x2,-0x3
03ad 00db       |    |		Load_Top	At_Offset_3
03ae 0120       |    |		Execute	Any,Is_Value
03af 6802       |h   |		Jump_Zero	0x3b2
03b0 e028       | (  |		Load	0x0,0x28
03b1 7801       |x   |		Jump	0x3b3
03b2 00db       |    |		Load_Top	At_Offset_3
03b3 00db       |    |		Load_Top	At_Offset_3
03b4 8038       | 8  |		Call	0x0,0x38
03b5 c402       |    |		Store	0x2,0x2
03b6 c5fd       |    |		Store	0x2,-0x3
03b7 4802       |H   |		Short_Literal	0x2
03b8 e5fd       |    |		Load	0x2,-0x3
03b9 e009       |    |		Load	0x0,0x9
03ba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03bb 7003       |p   |		Jump_Nonzero	0x3bf
03bc 00da       |    |		Load_Top	At_Offset_2
03bd 8039       | 9  |		Call	0x0,0x39
03be c5fe       |    |		Store	0x2,-0x2
03bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 e5fd       |    |		Load	0x2,-0x3
03c4 e009       |    |		Load	0x0,0x9
03c5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03c6 c5fd       |    |		Store	0x2,-0x3
03c7 e5fd       |    |		Load	0x2,-0x3
03c8 00db       |    |		Load_Top	At_Offset_3
03c9 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03ca 8037       | 7  |		Call	0x0,0x37
03cb e5ff       |    |		Load	0x2,-0x1
03cc 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
03cd c5fd       |    |		Store	0x2,-0x3
03ce e5fd       |    |		Load	0x2,-0x3
03cf e5fe       |    |		Load	0x2,-0x2
03d0 e5ff       |    |		Load	0x2,-0x1
03d1 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03d2 803a       | :  |		Call	0x0,0x3a
03d3 00d1       |    |		Pop_Control	Pop_Count_1
03d4 c5fd       |    |		Store	0x2,-0x3
03d5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03d6 0000 0000  |    |		.XXX[0x2]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db e5fd       |    |		Load	0x2,-0x3
03dc e009       |    |		Load	0x0,0x9
03dd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03de c5fd       |    |		Store	0x2,-0x3
03df 00db       |    |		Load_Top	At_Offset_3
03e0 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03e1 8024       | $  |		Call	0x0,0x24
03e2 e5fe       |    |		Load	0x2,-0x2
03e3 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
03e4 e5fd       |    |		Load	0x2,-0x3
03e5 e5fe       |    |		Load	0x2,-0x2
03e6 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03e7 e5ff       |    |		Load	0x2,-0x1
03e8 803b       | ;  |		Call	0x0,0x3b
03e9 e5fe       |    |		Load	0x2,-0x2
03ea 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
03eb c5fd       |    |		Store	0x2,-0x3
03ec e5fd       |    |		Load	0x2,-0x3
03ed e5fe       |    |		Load	0x2,-0x2
03ee 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03ef 8037       | 7  |		Call	0x0,0x37
03f0 e5fe       |    |		Load	0x2,-0x2
03f1 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
03f2 c5fd       |    |		Store	0x2,-0x3
03f3 e5fd       |    |		Load	0x2,-0x3
03f4 e5fe       |    |		Load	0x2,-0x2
03f5 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03f6 803c       | <  |		Call	0x0,0x3c
03f7 c5fd       |    |		Store	0x2,-0x3
03f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03f9 0000 0000  |    |		.BLANK	0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 e5fd       |    |		Load	0x2,-0x3
0404 e009       |    |		Load	0x0,0x9
0405 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0406 c5fd       |    |		Store	0x2,-0x3
0407 e5fd       |    |		Load	0x2,-0x3
0408 e5fe       |    |		Load	0x2,-0x2
0409 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
040a e5ff       |    |		Load	0x2,-0x1
040b 803d       | =  |		Call	0x0,0x3d
040c e5fe       |    |		Load	0x2,-0x2
040d 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
040e c5fd       |    |		Store	0x2,-0x3
040f e5fd       |    |		Load	0x2,-0x3
0410 e5fe       |    |		Load	0x2,-0x2
0411 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0412 803c       | <  |		Call	0x0,0x3c
0413 c5fd       |    |		Store	0x2,-0x3
0414 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0415 0000 0000  |    |		.XXX[0x3]
0417 0000       |    |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b e5fb       |    |		Load	0x2,-0x5
041c e009       |    |		Load	0x0,0x9
041d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
041e c5fb       |    |		Store	0x2,-0x5
041f 00da       |    |		Load_Top	At_Offset_2
0420 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0421 8024       | $  |		Call	0x0,0x24
0422 00db       |    |		Load_Top	At_Offset_3
0423 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0424 e5fb       |    |		Load	0x2,-0x5
0425 00db       |    |		Load_Top	At_Offset_3
0426 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0427 8037       | 7  |		Call	0x0,0x37
0428 e5ff       |    |		Load	0x2,-0x1
0429 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
042a c5fb       |    |		Store	0x2,-0x5
042b e5fb       |    |		Load	0x2,-0x5
042c e5fc       |    |		Load	0x2,-0x4
042d 0120       |    |		Execute	Any,Is_Value
042e 6802       |h   |		Jump_Zero	0x431
042f e03e       | >  |		Load	0x0,0x3e
0430 7801       |x   |		Jump	0x432
0431 e5fc       |    |		Load	0x2,-0x4
0432 e5fd       |    |		Load	0x2,-0x3
0433 0120       |    |		Execute	Any,Is_Value
0434 6802       |h   |		Jump_Zero	0x437
0435 e03f       | ?  |		Load	0x0,0x3f
0436 7801       |x   |		Jump	0x438
0437 e5fd       |    |		Load	0x2,-0x3
0438 00e1       |    |		Load_Encached	Boolean_Cache
0439 e5ff       |    |		Load	0x2,-0x1
043a 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
043b 8040       | @  |		Call	0x0,0x40
043c e5ff       |    |		Load	0x2,-0x1
043d 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
043e c5fe       |    |		Store	0x2,-0x2
043f c5fd       |    |		Store	0x2,-0x3
0440 c5fc       |    |		Store	0x2,-0x4
0441 c5fb       |    |		Store	0x2,-0x5
0442 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0443 0000 0000  |    |		.BLANK	0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044c       | L  |		.CONST	0x044c								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0002       |    |		.CONST	0x0002								; Number of locals
044b			INIT_0448:
044b 00ec       |    |		Load_Encached	Diana_Tree_Cache
044c			BODY_0448:
044c 00db       |    |		Load_Top	At_Offset_3
044d 00eb       |    |		Load_Encached	Diana_Cache
044e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
044f 46ad       |F   |		Jump_Case	0xae
0450 78b6       |x   |		Jump	0x507								; case 0x0
0451 78ac       |x   |		Jump	0x4fe								; case 0x1
0452 78ab       |x   |		Jump	0x4fe								; case 0x2
0453 78aa       |x   |		Jump	0x4fe								; case 0x3
0454 78a9       |x   |		Jump	0x4fe								; case 0x4
0455 78a8       |x   |		Jump	0x4fe								; case 0x5
0456 78a7       |x   |		Jump	0x4fe								; case 0x6
0457 78a6       |x   |		Jump	0x4fe								; case 0x7
0458 78a5       |x   |		Jump	0x4fe								; case 0x8
0459 78a4       |x   |		Jump	0x4fe								; case 0x9
045a 78a3       |x   |		Jump	0x4fe								; case 0xa
045b 78a2       |x   |		Jump	0x4fe								; case 0xb
045c 78a1       |x   |		Jump	0x4fe								; case 0xc
045d 78a0       |x   |		Jump	0x4fe								; case 0xd
045e 789f       |x   |		Jump	0x4fe								; case 0xe
045f 789e       |x   |		Jump	0x4fe								; case 0xf
0460 789d       |x   |		Jump	0x4fe								; case 0x10
0461 789c       |x   |		Jump	0x4fe								; case 0x11
0462 789b       |x   |		Jump	0x4fe								; case 0x12
0463 789a       |x   |		Jump	0x4fe								; case 0x13
0464 7899       |x   |		Jump	0x4fe								; case 0x14
0465 7898       |x   |		Jump	0x4fe								; case 0x15
0466 7897       |x   |		Jump	0x4fe								; case 0x16
0467 7896       |x   |		Jump	0x4fe								; case 0x17
0468 7895       |x   |		Jump	0x4fe								; case 0x18
0469 7894       |x   |		Jump	0x4fe								; case 0x19
046a 7893       |x   |		Jump	0x4fe								; case 0x1a
046b 7892       |x   |		Jump	0x4fe								; case 0x1b
046c 78a8       |x   |		Jump	0x515								; case 0x1c
046d 78a7       |x   |		Jump	0x515								; case 0x1d
046e 78a6       |x   |		Jump	0x515								; case 0x1e
046f 78d0       |x   |		Jump	0x540								; case 0x1f
0470 78a2       |x   |		Jump	0x513								; case 0x20
0471 789b       |x   |		Jump	0x50d								; case 0x21
0472 78d7       |x   |		Jump	0x54a								; case 0x22
0473 78a1       |x   |		Jump	0x515								; case 0x23
0474 78a0       |x   |		Jump	0x515								; case 0x24
0475 789f       |x   |		Jump	0x515								; case 0x25
0476 789e       |x   |		Jump	0x515								; case 0x26
0477 7886       |x   |		Jump	0x4fe								; case 0x27
0478 789c       |x   |		Jump	0x515								; case 0x28
0479 788f       |x   |		Jump	0x509								; case 0x29
047a 789a       |x   |		Jump	0x515								; case 0x2a
047b 7899       |x   |		Jump	0x515								; case 0x2b
047c 788e       |x   |		Jump	0x50b								; case 0x2c
047d 7897       |x   |		Jump	0x515								; case 0x2d
047e 7892       |x   |		Jump	0x511								; case 0x2e
047f 7895       |x   |		Jump	0x515								; case 0x2f
0480 7894       |x   |		Jump	0x515								; case 0x30
0481 7893       |x   |		Jump	0x515								; case 0x31
0482 7892       |x   |		Jump	0x515								; case 0x32
0483 788b       |x   |		Jump	0x50f								; case 0x33
0484 7879       |xy  |		Jump	0x4fe								; case 0x34
0485 7878       |xx  |		Jump	0x4fe								; case 0x35
0486 7877       |xw  |		Jump	0x4fe								; case 0x36
0487 7876       |xv  |		Jump	0x4fe								; case 0x37
0488 7875       |xu  |		Jump	0x4fe								; case 0x38
0489 7874       |xt  |		Jump	0x4fe								; case 0x39
048a 7873       |xs  |		Jump	0x4fe								; case 0x3a
048b 7872       |xr  |		Jump	0x4fe								; case 0x3b
048c 7871       |xq  |		Jump	0x4fe								; case 0x3c
048d 7870       |xp  |		Jump	0x4fe								; case 0x3d
048e 786f       |xo  |		Jump	0x4fe								; case 0x3e
048f 786e       |xn  |		Jump	0x4fe								; case 0x3f
0490 786d       |xm  |		Jump	0x4fe								; case 0x40
0491 786c       |xl  |		Jump	0x4fe								; case 0x41
0492 786b       |xk  |		Jump	0x4fe								; case 0x42
0493 786a       |xj  |		Jump	0x4fe								; case 0x43
0494 7869       |xi  |		Jump	0x4fe								; case 0x44
0495 7868       |xh  |		Jump	0x4fe								; case 0x45
0496 7867       |xg  |		Jump	0x4fe								; case 0x46
0497 7866       |xf  |		Jump	0x4fe								; case 0x47
0498 7865       |xe  |		Jump	0x4fe								; case 0x48
0499 7864       |xd  |		Jump	0x4fe								; case 0x49
049a 7863       |xc  |		Jump	0x4fe								; case 0x4a
049b 7862       |xb  |		Jump	0x4fe								; case 0x4b
049c 78a1       |x   |		Jump	0x53e								; case 0x4c
049d 7860       |x`  |		Jump	0x4fe								; case 0x4d
049e 789d       |x   |		Jump	0x53c								; case 0x4e
049f 785e       |x^  |		Jump	0x4fe								; case 0x4f
04a0 785d       |x]  |		Jump	0x4fe								; case 0x50
04a1 785c       |x\  |		Jump	0x4fe								; case 0x51
04a2 785b       |x[  |		Jump	0x4fe								; case 0x52
04a3 785a       |xZ  |		Jump	0x4fe								; case 0x53
04a4 7859       |xY  |		Jump	0x4fe								; case 0x54
04a5 7858       |xX  |		Jump	0x4fe								; case 0x55
04a6 7857       |xW  |		Jump	0x4fe								; case 0x56
04a7 7856       |xV  |		Jump	0x4fe								; case 0x57
04a8 7855       |xU  |		Jump	0x4fe								; case 0x58
04a9 7854       |xT  |		Jump	0x4fe								; case 0x59
04aa 7853       |xS  |		Jump	0x4fe								; case 0x5a
04ab 7852       |xR  |		Jump	0x4fe								; case 0x5b
04ac 7851       |xQ  |		Jump	0x4fe								; case 0x5c
04ad 7850       |xP  |		Jump	0x4fe								; case 0x5d
04ae 784f       |xO  |		Jump	0x4fe								; case 0x5e
04af 784e       |xN  |		Jump	0x4fe								; case 0x5f
04b0 784d       |xM  |		Jump	0x4fe								; case 0x60
04b1 784c       |xL  |		Jump	0x4fe								; case 0x61
04b2 784b       |xK  |		Jump	0x4fe								; case 0x62
04b3 784a       |xJ  |		Jump	0x4fe								; case 0x63
04b4 788d       |x   |		Jump	0x542								; case 0x64
04b5 788c       |x   |		Jump	0x542								; case 0x65
04b6 7847       |xG  |		Jump	0x4fe								; case 0x66
04b7 7846       |xF  |		Jump	0x4fe								; case 0x67
04b8 7845       |xE  |		Jump	0x4fe								; case 0x68
04b9 7844       |xD  |		Jump	0x4fe								; case 0x69
04ba 7843       |xC  |		Jump	0x4fe								; case 0x6a
04bb 788c       |x   |		Jump	0x548								; case 0x6b
04bc 7887       |x   |		Jump	0x544								; case 0x6c
04bd 7840       |x@  |		Jump	0x4fe								; case 0x6d
04be 7883       |x   |		Jump	0x542								; case 0x6e
04bf 7882       |x   |		Jump	0x542								; case 0x6f
04c0 78a5       |x   |		Jump	0x566								; case 0x70
04c1 78a4       |x   |		Jump	0x566								; case 0x71
04c2 7883       |x   |		Jump	0x546								; case 0x72
04c3 784d       |xM  |		Jump	0x511								; case 0x73
04c4 787d       |x}  |		Jump	0x542								; case 0x74
04c5 787c       |x|  |		Jump	0x542								; case 0x75
04c6 787b       |x{  |		Jump	0x542								; case 0x76
04c7 7836       |x6  |		Jump	0x4fe								; case 0x77
04c8 7835       |x5  |		Jump	0x4fe								; case 0x78
04c9 7834       |x4  |		Jump	0x4fe								; case 0x79
04ca 7833       |x3  |		Jump	0x4fe								; case 0x7a
04cb 7832       |x2  |		Jump	0x4fe								; case 0x7b
04cc 7831       |x1  |		Jump	0x4fe								; case 0x7c
04cd 7830       |x0  |		Jump	0x4fe								; case 0x7d
04ce 782f       |x/  |		Jump	0x4fe								; case 0x7e
04cf 782e       |x.  |		Jump	0x4fe								; case 0x7f
04d0 782d       |x-  |		Jump	0x4fe								; case 0x80
04d1 782c       |x,  |		Jump	0x4fe								; case 0x81
04d2 782b       |x+  |		Jump	0x4fe								; case 0x82
04d3 782a       |x*  |		Jump	0x4fe								; case 0x83
04d4 7829       |x)  |		Jump	0x4fe								; case 0x84
04d5 7828       |x(  |		Jump	0x4fe								; case 0x85
04d6 7827       |x'  |		Jump	0x4fe								; case 0x86
04d7 7826       |x&  |		Jump	0x4fe								; case 0x87
04d8 7825       |x%  |		Jump	0x4fe								; case 0x88
04d9 7824       |x$  |		Jump	0x4fe								; case 0x89
04da 7823       |x#  |		Jump	0x4fe								; case 0x8a
04db 7822       |x"  |		Jump	0x4fe								; case 0x8b
04dc 7821       |x!  |		Jump	0x4fe								; case 0x8c
04dd 7820       |x   |		Jump	0x4fe								; case 0x8d
04de 781f       |x   |		Jump	0x4fe								; case 0x8e
04df 781e       |x   |		Jump	0x4fe								; case 0x8f
04e0 781d       |x   |		Jump	0x4fe								; case 0x90
04e1 781c       |x   |		Jump	0x4fe								; case 0x91
04e2 781b       |x   |		Jump	0x4fe								; case 0x92
04e3 781a       |x   |		Jump	0x4fe								; case 0x93
04e4 7819       |x   |		Jump	0x4fe								; case 0x94
04e5 7818       |x   |		Jump	0x4fe								; case 0x95
04e6 7817       |x   |		Jump	0x4fe								; case 0x96
04e7 7816       |x   |		Jump	0x4fe								; case 0x97
04e8 7815       |x   |		Jump	0x4fe								; case 0x98
04e9 7814       |x   |		Jump	0x4fe								; case 0x99
04ea 7813       |x   |		Jump	0x4fe								; case 0x9a
04eb 7812       |x   |		Jump	0x4fe								; case 0x9b
04ec 7811       |x   |		Jump	0x4fe								; case 0x9c
04ed 7810       |x   |		Jump	0x4fe								; case 0x9d
04ee 780f       |x   |		Jump	0x4fe								; case 0x9e
04ef 780e       |x   |		Jump	0x4fe								; case 0x9f
04f0 780d       |x   |		Jump	0x4fe								; case 0xa0
04f1 780c       |x   |		Jump	0x4fe								; case 0xa1
04f2 7853       |xS  |		Jump	0x546								; case 0xa2
04f3 780a       |x   |		Jump	0x4fe								; case 0xa3
04f4 7809       |x   |		Jump	0x4fe								; case 0xa4
04f5 7808       |x   |		Jump	0x4fe								; case 0xa5
04f6 7807       |x   |		Jump	0x4fe								; case 0xa6
04f7 7806       |x   |		Jump	0x4fe								; case 0xa7
04f8 7805       |x   |		Jump	0x4fe								; case 0xa8
04f9 7804       |x   |		Jump	0x4fe								; case 0xa9
04fa 7803       |x   |		Jump	0x4fe								; case 0xaa
04fb 7802       |x   |		Jump	0x4fe								; case 0xab
04fc 7801       |x   |		Jump	0x4fe								; case 0xac
04fd 7800       |x   |		Jump	0x4fe								; case 0xad
04fe 0092 063c  |   <|		Action	Push_String_Extended,0x63c					; "Runtime.Class: unknown node: "
0500 e5ff       |    |		Load	0x2,-0x1
0501 e041       | A  |		Load	0x0,0x41
0502 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0503 01cc       |    |		Execute	Vector,Catenate
0504 e042       | B  |		Load	0x0,0x42
0505 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0506 7861       |xa  |		Jump	0x568
0507 480d       |H   |		Short_Literal	0xd
0508 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0509 4805       |H   |		Short_Literal	0x5
050a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
050b 4800       |H   |		Short_Literal	0x0
050c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
050d 4801       |H   |		Short_Literal	0x1
050e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
050f 4801       |H   |		Short_Literal	0x1
0510 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0511 4806       |H   |		Short_Literal	0x6
0512 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0513 480c       |H   |		Short_Literal	0xc
0514 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0515 e5fd       |    |		Load	0x2,-0x3
0516 00eb       |    |		Load_Encached	Diana_Cache
0517 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0518 6811       |h   |		Jump_Zero	0x52a
0519 00db       |    |		Load_Top	At_Offset_3
051a 00eb       |    |		Load_Encached	Diana_Cache
051b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
051c 0f30       | 0  |		Execute_Immediate	Equal,0x30
051d 6806       |h   |		Jump_Zero	0x524
051e 00db       |    |		Load_Top	At_Offset_3
051f e003       |    |		Load	0x0,0x3
0520 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0521 7002       |p   |		Jump_Nonzero	0x524
0522 4805       |H   |		Short_Literal	0x5
0523 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0524 e5fe       |    |		Load	0x2,-0x2
0525 e5ff       |    |		Load	0x2,-0x1
0526 e02c       | ,  |		Load	0x0,0x2c
0527 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0528 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0529 7802       |x   |		Jump	0x52c
052a e5fd       |    |		Load	0x2,-0x3
052b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
052c 00d8       |    |		Load_Top	At_Offset_0
052d 00eb       |    |		Load_Encached	Diana_Cache
052e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
052f e5ff       |    |		Load	0x2,-0x1
0530 00eb       |    |		Load_Encached	Diana_Cache
0531 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0532 027f       |    |		Execute	Discrete,Equal
0533 6802       |h   |		Jump_Zero	0x536
0534 4808       |H   |		Short_Literal	0x8
0535 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0536 00eb       |    |		Load_Encached	Diana_Cache
0537 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0538 e5fe       |    |		Load	0x2,-0x2
0539 00da       |    |		Load_Top	At_Offset_2
053a 8232       | 2  |		Call	0x1,0x32
053b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
053c 4802       |H   |		Short_Literal	0x2
053d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
053e 4803       |H   |		Short_Literal	0x3
053f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0540 4804       |H   |		Short_Literal	0x4
0541 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0542 4808       |H   |		Short_Literal	0x8
0543 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0544 480b       |H   |		Short_Literal	0xb
0545 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0546 480a       |H   |		Short_Literal	0xa
0547 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0548 4809       |H   |		Short_Literal	0x9
0549 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
054a 00db       |    |		Load_Top	At_Offset_3
054b e041       | A  |		Load	0x0,0x41
054c 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
054d 00eb       |    |		Load_Encached	Diana_Cache
054e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
054f 0b7b       | {  |		Execute_Immediate	Case_Compare,0x7b
0550 700d       |p   |		Jump_Nonzero	0x55e
0551 0b7a       | z  |		Execute_Immediate	Case_Compare,0x7a
0552 700e       |p   |		Jump_Nonzero	0x561
0553 0f7c       | |  |		Execute_Immediate	Equal,0x7c
0554 700f       |p   |		Jump_Nonzero	0x564
0555 0092 063d  |   =|		Action	Push_String_Extended,0x63d					; "Runtime.Class: unknown generic: "
0557 e5ff       |    |		Load	0x2,-0x1
0558 e041       | A  |		Load	0x0,0x41
0559 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
055a 01cc       |    |		Execute	Vector,Catenate
055b e042       | B  |		Load	0x0,0x42
055c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
055d 780a       |x   |		Jump	0x568
055e 00d1       |    |		Pop_Control	Pop_Count_1
055f 4800       |H   |		Short_Literal	0x0
0560 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0561 00d1       |    |		Pop_Control	Pop_Count_1
0562 4801       |H   |		Short_Literal	0x1
0563 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0564 4805       |H   |		Short_Literal	0x5
0565 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0566 4808       |H   |		Short_Literal	0x8
0567 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0568 0831       | 1  |		Execute_Immediate	Raise,0x31
0569 0000 0000  |    |		.BLANK	0000[0x7]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 00da       |    |		Load_Top	At_Offset_2
0574 00eb       |    |		Load_Encached	Diana_Cache
0575 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0576 00d8       |    |		Load_Top	At_Offset_0
0577 481d       |H   |		Short_Literal	0x1d
0578 4831       |H1  |		Short_Literal	0x31
0579 0262       | b  |		Execute	Discrete,In_Range
057a 680c       |h   |		Jump_Zero	0x587
057b 00d8       |    |		Load_Top	At_Offset_0
057c 481e       |H   |		Short_Literal	0x1e
057d 4827       |H'  |		Short_Literal	0x27
057e 0262       | b  |		Execute	Discrete,In_Range
057f 7007       |p   |		Jump_Nonzero	0x587
0580 4829       |H)  |		Short_Literal	0x29
0581 4830       |H0  |		Short_Literal	0x30
0582 0262       | b  |		Execute	Discrete,In_Range
0583 7004       |p   |		Jump_Nonzero	0x588
0584 7800       |x   |		Jump	0x585
0585 4801       |H   |		Short_Literal	0x1
0586 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0587 00d1       |    |		Pop_Control	Pop_Count_1
0588 4800       |H   |		Short_Literal	0x0
0589 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
058a 0000 0000  |    |		.BLANK	0000[0x6]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 00da       |    |		Load_Top	At_Offset_2
0594 4606       |F   |		Jump_Case	0x7
0595 7808       |x   |		Jump	0x59e								; case 0x0
0596 7807       |x   |		Jump	0x59e								; case 0x1
0597 7808       |x   |		Jump	0x5a0								; case 0x2
0598 780d       |x   |		Jump	0x5a6								; case 0x3
0599 7808       |x   |		Jump	0x5a2								; case 0x4
059a 7809       |x   |		Jump	0x5a4								; case 0x5
059b 7800       |x   |		Jump	0x59c								; case 0x6
059c 4804       |H   |		Short_Literal	0x4
059d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
059e 4800       |H   |		Short_Literal	0x0
059f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a0 4802       |H   |		Short_Literal	0x2
05a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a2 4801       |H   |		Short_Literal	0x1
05a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a4 4803       |H   |		Short_Literal	0x3
05a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a6 4804       |H   |		Short_Literal	0x4
05a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab       |    |		.CONST	0x05ab								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0001       |    |		.CONST	0x0001								; Number of locals
05ab			BODY_05a8:
05ab			INIT_05a8:
05ab 00cf       |    |		Action	Mark_Auxiliary
05ac 4801       |H   |		Short_Literal	0x1
05ad e5fe       |    |		Load	0x2,-0x2
05ae 8034       | 4  |		Call	0x0,0x34
05af 0264       | d  |		Execute	Discrete,Below_Bound
05b0 700a       |p   |		Jump_Nonzero	0x5bb
05b1 00d8       |    |		Load_Top	At_Offset_0
05b2 e5fe       |    |		Load	0x2,-0x2
05b3 8043       | C  |		Call	0x0,0x43
05b4 e5ff       |    |		Load	0x2,-0x1
05b5 021f       |    |		Execute	Heap_Access,Equal
05b6 6802       |h   |		Jump_Zero	0x5b9
05b7 4801       |H   |		Short_Literal	0x1
05b8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05b9 00c8       |    |		Action	Pop_Auxiliary_Range
05ba 37f6       |7   |		Loop_Decreasing	0x5b1
05bb 00ce       |    |		Action	Pop_Auxiliary
05bc 4800       |H   |		Short_Literal	0x0
05bd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05be 0000 0000  |    |		.XXX[0x2]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 00db       |    |		Load_Top	At_Offset_3
05c4 00db       |    |		Load_Top	At_Offset_3
05c5 8235       | 5  |		Call	0x1,0x35
05c6 7004       |p   |		Jump_Nonzero	0x5cb
05c7 00db       |    |		Load_Top	At_Offset_3
05c8 00db       |    |		Load_Top	At_Offset_3
05c9 8033       | 3  |		Call	0x0,0x33
05ca c5fe       |    |		Store	0x2,-0x2
05cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05cc 0000 0000  |    |		.BLANK	0000[0x4]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d9       |    |		.CONST	0x05d9								; Address of begin
05d1 0606       |    |		.CONST	0x0606								; Address of exception handler
05d2 0002       |    |		.CONST	0x0002								; Number of locals
05d3			INIT_05d0:
05d3 49f4       |I   |		Short_Literal	0x1f4
05d4 e044       | D  |		Load	0x0,0x44
05d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05d6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05d7 00d8       |    |		Load_Top	At_Offset_0
05d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05d9			BODY_05d0:
05d9 00d8       |    |		Load_Top	At_Offset_0
05da 0092 063e  |   >|		Action	Push_String_Extended,0x63e					; "{Task:"
05dc e044       | D  |		Load	0x0,0x44
05dd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05de 00d1       |    |		Pop_Control	Pop_Count_1
05df 00d8       |    |		Load_Top	At_Offset_0
05e0 e5ff       |    |		Load	0x2,-0x1
05e1 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
05e2 8045       | E  |		Call	0x0,0x45
05e3 e044       | D  |		Load	0x0,0x44
05e4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05e5 00d1       |    |		Pop_Control	Pop_Count_1
05e6 00d8       |    |		Load_Top	At_Offset_0
05e7 0092 063f  |   ?|		Action	Push_String_Extended,0x63f					; " Stmt:"
05e9 e044       | D  |		Load	0x0,0x44
05ea 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05eb 00d1       |    |		Pop_Control	Pop_Count_1
05ec 00d8       |    |		Load_Top	At_Offset_0
05ed e5ff       |    |		Load	0x2,-0x1
05ee 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
05ef 8046       | F  |		Call	0x0,0x46
05f0 e044       | D  |		Load	0x0,0x44
05f1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05f2 00d1       |    |		Pop_Control	Pop_Count_1
05f3 00db       |    |		Load_Top	At_Offset_3
05f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05f5 6806       |h   |		Jump_Zero	0x5fc
05f6 00d8       |    |		Load_Top	At_Offset_0
05f7 0092 0640  |   @|		Action	Push_String_Extended,0x640					; " Src"
05f9 e044       | D  |		Load	0x0,0x44
05fa 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05fb 00d1       |    |		Pop_Control	Pop_Count_1
05fc 00d8       |    |		Load_Top	At_Offset_0
05fd 0092 0641  |   A|		Action	Push_String_Extended,0x641					; "}"
05ff e044       | D  |		Load	0x0,0x44
0600 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0601 00d1       |    |		Pop_Control	Pop_Count_1
0602 00d8       |    |		Load_Top	At_Offset_0
0603 e044       | D  |		Load	0x0,0x44
0604 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0605 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0606			TRAP_05d0:
0606 0007       |    |		Action	Break_Optional
0607 00d9       |    |		Load_Top	At_Offset_1
0608 e044       | D  |		Load	0x0,0x44
0609 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
060a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
060b 0000 0000  |    |		.BLANK	0000[0x5]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 4601       |F   |		Jump_Case	0x2
0614 7801       |x   |		Jump	0x616								; case 0x0
0615 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0616 00da       |    |		Load_Top	At_Offset_2
0617 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0618 0125       | %  |		Execute	Any,Set_Constraint
0619 00da       |    |		Load_Top	At_Offset_2
061a 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
061b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
061c 00da       |    |		Load_Top	At_Offset_2
061d 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
061e 0125       | %  |		Execute	Any,Set_Constraint
061f 00da       |    |		Load_Top	At_Offset_2
0620 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0621 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0622 00da       |    |		Load_Top	At_Offset_2
0623 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0624 0125       | %  |		Execute	Any,Set_Constraint
0625 00da       |    |		Load_Top	At_Offset_2
0626 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0627 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0628 00da       |    |		Load_Top	At_Offset_2
0629 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
062a 0125       | %  |		Execute	Any,Set_Constraint
062b 00da       |    |		Load_Top	At_Offset_2
062c 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
062d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
062e 00da       |    |		Load_Top	At_Offset_2
062f 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0630 0125       | %  |		Execute	Any,Set_Constraint
0631 00da       |    |		Load_Top	At_Offset_2
0632 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0633 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0634 00da       |    |		Load_Top	At_Offset_2
0635 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
0636 0125       | %  |		Execute	Any,Set_Constraint
0637 00da       |    |		Load_Top	At_Offset_2
0638 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
0639 1c00       |    |		Execute_Immediate	Run_Utility,0x0
063a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
063b ; --------------------------------------------------------------------------------------
063b ; STRING TABLE
063b ; --------------------------------------------------------------------------------------
063b 0010       |    |		.STRTAB	0x0010->0x0643							; "Not a valid task name"
063c 0023       | #  |		.STRTAB	0x0023->0x064d							; "Runtime.Class: unknown node: "
063d 003e       | >  |		.STRTAB	0x003e->0x065c							; "Runtime.Class: unknown generic: "
063e 005c       | \  |		.STRTAB	0x005c->0x066c							; "{Task:"
063f 0060       | `  |		.STRTAB	0x0060->0x066f							; " Stmt:"
0640 0064       | d  |		.STRTAB	0x0064->0x0672							; " Src"
0641 0066       | f  |		.STRTAB	0x0066->0x0674							; "}"
0642 0065       | e  |		.STREND 0x0065->0x0674
0643 4e6f 7420  |Not |		.STRTAB_STRINGS
0675 0000 0000  |    |		.XXX[0x3]
0677 0000       |    |
0678 ; --------------------------------------------------------------------------------------
0678 ; Debug Table
0678 ; --------------------------------------------------------------------------------------
0678 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x163a,0x0000,0x0001,0x0000
067e 0000 0000  |    |		.BLANK	0000[0x182]