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

⟦b81910725⟧

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

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 0500       |    |		.CONST	0x0500								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007a       | z  |		.CONST	0x007a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002a       | *  |		.CONST	0x002a								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
000d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
000e 0129       | )  |		Execute	Any,Make_Visible
000f e001       |    |		Load	0x0,0x1
0010 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0011 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0012 0129       | )  |		Execute	Any,Make_Visible
0013 e001       |    |		Load	0x0,0x1
0014 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0015 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0016 0129       | )  |		Execute	Any,Make_Visible
0017 e001       |    |		Load	0x0,0x1
0018 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0019 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
001a 0129       | )  |		Execute	Any,Make_Visible
001b e001       |    |		Load	0x0,0x1
001c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
001d 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
001e 0129       | )  |		Execute	Any,Make_Visible
001f e001       |    |		Load	0x0,0x1
0020 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0021 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0022 0129       | )  |		Execute	Any,Make_Visible
0023 e001       |    |		Load	0x0,0x1
0024 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0025 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
0026 0129       | )  |		Execute	Any,Make_Visible
0027 e20e       |    |		Load	0x1,0xe
0028 0129       | )  |		Execute	Any,Make_Visible
0029 e20f       |    |		Load	0x1,0xf
002a 0129       | )  |		Execute	Any,Make_Visible
002b e210       |    |		Load	0x1,0x10
002c 0129       | )  |		Execute	Any,Make_Visible
002d e211       |    |		Load	0x1,0x11
002e 0129       | )  |		Execute	Any,Make_Visible
002f e001       |    |		Load	0x0,0x1
0030 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0031 0129       | )  |		Execute	Any,Make_Visible
0032 e001       |    |		Load	0x0,0x1
0033 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0034 0129       | )  |		Execute	Any,Make_Visible
0035 e001       |    |		Load	0x0,0x1
0036 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0037 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0038 0129       | )  |		Execute	Any,Make_Visible
0039 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
003b 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
003d 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
003f 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0041 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0043 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0045 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0047 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0049 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
004b 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
004d 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
004f 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0051 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0053 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0055 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0057 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
0059 00bf       |    |		Action	Accept_Activation
005a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0079 00c7       |    |		Action	Elaborate_Subprogram
007a			BODY_0008:
007a 00bc       |    |		Action	Signal_Activated
007b 00bb       |    |		Action	Signal_Completion
007c 0000 0000  |    |		.BLANK	0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 00a9       |    |		.CONST	0x00a9								; Address of begin
0081 0115       |    |		.CONST	0x0115								; Address of exception handler
0082 0009       |    |		.CONST	0x0009								; Number of locals
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2
0084 e002       |    |		Load	0x0,0x2
0085 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0086 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0087 0092 04e3  |    |		Action	Push_String_Extended,0x4e3					; ".STATE.MODEL"
0089 01cc       |    |		Execute	Vector,Catenate
008a 0007       |    |		Action	Break_Optional
008b e003       |    |		Load	0x0,0x3
008c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
008d 02c7       |    |		Declare_Variable	Any
008e 00d8       |    |		Load_Top	At_Offset_0
008f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0090 e004       |    |		Load	0x0,0x4
0091 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0092 02c7       |    |		Declare_Variable	Any
0093 00d8       |    |		Load_Top	At_Offset_0
0094 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0095 e004       |    |		Load	0x0,0x4
0096 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0097 02c7       |    |		Declare_Variable	Any
0098 00d8       |    |		Load_Top	At_Offset_0
0099 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009a e003       |    |		Load	0x0,0x3
009b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
009c 02c7       |    |		Declare_Variable	Any
009d 00d8       |    |		Load_Top	At_Offset_0
009e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009f e003       |    |		Load	0x0,0x3
00a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a1 e003       |    |		Load	0x0,0x3
00a2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a4 e21a       |    |		Load	0x1,0x1a
00a5 02c7       |    |		Declare_Variable	Any
00a6 e005       |    |		Load	0x0,0x5
00a7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a8 a409       |    |		Store_Unchecked	0x2,0x9
00a9			BODY_0080:
00a9 00be       |    |		Action	Activate_Tasks
00aa e5ff       |    |		Load	0x2,-0x1
00ab e001       |    |		Load	0x0,0x1
00ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ad 1849       | I  |		Execute	Package,Field_Execute,Field_Number 0x49
00ae 6802       |h   |		Jump_Zero	0xb1
00af 00d8       |    |		Load_Top	At_Offset_0
00b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b1 e5ff       |    |		Load	0x2,-0x1
00b2 e001       |    |		Load	0x0,0x1
00b3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00b4 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
00b5 7002       |p   |		Jump_Nonzero	0xb8
00b6 00d8       |    |		Load_Top	At_Offset_0
00b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b8 e003       |    |		Load	0x0,0x3
00b9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00bb e403       |    |		Load	0x2,0x3
00bc 0120       |    |		Execute	Any,Is_Value
00bd 6803       |h   |		Jump_Zero	0xc1
00be e003       |    |		Load	0x0,0x3
00bf 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00c0 7801       |x   |		Jump	0xc2
00c1 e403       |    |		Load	0x2,0x3
00c2 6059       |`Y  |		Indirect_Literal	Discrete,0x11c,{0x00000000, 0x00004000}
00c3 e006       |    |		Load	0x0,0x6
00c4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c5 e007       |    |		Load	0x0,0x7
00c6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00c7 e003       |    |		Load	0x0,0x3
00c8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00c9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ca e402       |    |		Load	0x2,0x2
00cb e003       |    |		Load	0x0,0x3
00cc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00cd 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00ce c403       |    |		Store	0x2,0x3
00cf 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 6802       |h   |		Jump_Zero	0xd4
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d4 e003       |    |		Load	0x0,0x3
00d5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d6 e404       |    |		Load	0x2,0x4
00d7 0120       |    |		Execute	Any,Is_Value
00d8 6803       |h   |		Jump_Zero	0xdc
00d9 e004       |    |		Load	0x0,0x4
00da 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00db 7801       |x   |		Jump	0xdd
00dc e404       |    |		Load	0x2,0x4
00dd 4800       |H   |		Short_Literal	0x0
00de 4800       |H   |		Short_Literal	0x0
00df e006       |    |		Load	0x0,0x6
00e0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e1 e403       |    |		Load	0x2,0x3
00e2 e004       |    |		Load	0x0,0x4
00e3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00e4 c404       |    |		Store	0x2,0x4
00e5 005b       | [  |		Store_Top	Discrete,At_Offset_3
00e6 00da       |    |		Load_Top	At_Offset_2
00e7 6802       |h   |		Jump_Zero	0xea
00e8 00d8       |    |		Load_Top	At_Offset_0
00e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ea e405       |    |		Load	0x2,0x5
00eb 0120       |    |		Execute	Any,Is_Value
00ec 6803       |h   |		Jump_Zero	0xf0
00ed e004       |    |		Load	0x0,0x4
00ee 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00ef 7801       |x   |		Jump	0xf1
00f0 e405       |    |		Load	0x2,0x5
00f1 e404       |    |		Load	0x2,0x4
00f2 e004       |    |		Load	0x0,0x4
00f3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f4 c405       |    |		Store	0x2,0x5
00f5 e405       |    |		Load	0x2,0x5
00f6 e004       |    |		Load	0x0,0x4
00f7 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00f8 c406       |    |		Store	0x2,0x6
00f9 4801       |H   |		Short_Literal	0x1
00fa e002       |    |		Load	0x0,0x2
00fb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00fc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00fd e406       |    |		Load	0x2,0x6
00fe e003       |    |		Load	0x0,0x3
00ff 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0100 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0101 e002       |    |		Load	0x0,0x2
0102 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0103 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0104 c409       |    |		Store	0x2,0x9
0105 00d8       |    |		Load_Top	At_Offset_0
0106 e001       |    |		Load	0x0,0x1
0107 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0108 1849       | I  |		Execute	Package,Field_Execute,Field_Number 0x49
0109 6803       |h   |		Jump_Zero	0x10d
010a e005       |    |		Load	0x0,0x5
010b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010d e003       |    |		Load	0x0,0x3
010e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010f e404       |    |		Load	0x2,0x4
0110 e004       |    |		Load	0x0,0x4
0111 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0112 005b       | [  |		Store_Top	Discrete,At_Offset_3
0113 00d8       |    |		Load_Top	At_Offset_0
0114 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0115			TRAP_0080:
0115 0007       |    |		Action	Break_Optional
0116 e005       |    |		Load	0x0,0x5
0117 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0118 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0119 0000 0000  |    |		.XXX[0x3]
011b 0000       |    |
011c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 013c       | <  |		.CONST	0x013c								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00db       |    |		Load_Top	At_Offset_3
0124 e001       |    |		Load	0x0,0x1
0125 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0126 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0127 7002       |p   |		Jump_Nonzero	0x12a
0128 4800       |H   |		Short_Literal	0x0
0129 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012a 00db       |    |		Load_Top	At_Offset_3
012b e001       |    |		Load	0x0,0x1
012c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
012d 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
012e 7002       |p   |		Jump_Nonzero	0x131
012f 4800       |H   |		Short_Literal	0x0
0130 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0131 00da       |    |		Load_Top	At_Offset_2
0132 821b       |    |		Call	0x1,0x1b
0133 e002       |    |		Load	0x0,0x2
0134 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0135 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0136 e5fe       |    |		Load	0x2,-0x2
0137 e002       |    |		Load	0x0,0x2
0138 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0139 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
013a 01df       |    |		Execute	Vector,Equal
013b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013c			TRAP_0120:
013c 0007       |    |		Action	Break_Optional
013d 4800       |H   |		Short_Literal	0x0
013e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013f 0000       |    |		.XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0148       | H  |		.CONST	0x0148								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 e008       |    |		Load	0x0,0x8
0144 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0145 02c7       |    |		Declare_Variable	Any
0146 00d8       |    |		Load_Top	At_Offset_0
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148			BODY_0140:
0148 0833       | 3  |		Execute_Immediate	Raise,0x33
0149 0000 0000  |    |		.BLANK	0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 821d       |    |		Call	0x1,0x1d
0155 0f00       |    |		Execute_Immediate	Equal,0x0
0156 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0157 0000       |    |		.XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0164       | d  |		.CONST	0x0164								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0004       |    |		.CONST	0x0004								; Number of locals
015b			INIT_0158:
015b e003       |    |		Load	0x0,0x3
015c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015d 02c7       |    |		Declare_Variable	Any
015e 00d8       |    |		Load_Top	At_Offset_0
015f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0160 e003       |    |		Load	0x0,0x3
0161 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0162 00e1       |    |		Load_Encached	Boolean_Cache
0163 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0164			BODY_0158:
0164 e003       |    |		Load	0x0,0x3
0165 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0166 00db       |    |		Load_Top	At_Offset_3
0167 0120       |    |		Execute	Any,Is_Value
0168 6803       |h   |		Jump_Zero	0x16c
0169 e003       |    |		Load	0x0,0x3
016a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016b 7801       |x   |		Jump	0x16d
016c 00db       |    |		Load_Top	At_Offset_3
016d e5ff       |    |		Load	0x2,-0x1
016e e002       |    |		Load	0x0,0x2
016f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0170 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0171 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0172 c402       |    |		Store	0x2,0x2
0173 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0174 e003       |    |		Load	0x0,0x3
0175 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0176 00e1       |    |		Load_Encached	Boolean_Cache
0177 6010       |`   |		Indirect_Literal	Discrete,0x188,{0x00000000, 0x00004000}
0178 e006       |    |		Load	0x0,0x6
0179 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
017a e402       |    |		Load	0x2,0x2
017b e003       |    |		Load	0x0,0x3
017c 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
017d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
017e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
017f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0180 00d9       |    |		Load_Top	At_Offset_1
0181 7002       |p   |		Jump_Nonzero	0x184
0182 00d8       |    |		Load_Top	At_Offset_0
0183 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0184 4800       |H   |		Short_Literal	0x0
0185 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0186 0000 0000  |    |		.XXX[0x2]
0188 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
018c 0000 0000  |    |		.BLANK	0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019b       |    |		.CONST	0x019b								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0004       |    |		.CONST	0x0004								; Number of locals
0193			INIT_0190:
0193 e003       |    |		Load	0x0,0x3
0194 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0195 02c7       |    |		Declare_Variable	Any
0196 00d8       |    |		Load_Top	At_Offset_0
0197 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0198 e003       |    |		Load	0x0,0x3
0199 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019a 00e1       |    |		Load_Encached	Boolean_Cache
019b			BODY_0190:
019b e003       |    |		Load	0x0,0x3
019c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019d 00db       |    |		Load_Top	At_Offset_3
019e 0120       |    |		Execute	Any,Is_Value
019f 6803       |h   |		Jump_Zero	0x1a3
01a0 e003       |    |		Load	0x0,0x3
01a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a2 7801       |x   |		Jump	0x1a4
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 e5ff       |    |		Load	0x2,-0x1
01a5 e002       |    |		Load	0x0,0x2
01a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a7 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
01a8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a9 c402       |    |		Store	0x2,0x2
01aa 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ab e003       |    |		Load	0x0,0x3
01ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ad 00e1       |    |		Load_Encached	Boolean_Cache
01ae 67d9       |g   |		Indirect_Literal	Discrete,0x188,{0x00000000, 0x00004000}
01af e006       |    |		Load	0x0,0x6
01b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b1 e402       |    |		Load	0x2,0x2
01b2 e003       |    |		Load	0x0,0x3
01b3 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
01b4 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
01b5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01b6 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 700f       |p   |		Jump_Nonzero	0x1c8
01b9 e5ff       |    |		Load	0x2,-0x1
01ba e001       |    |		Load	0x0,0x1
01bb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01bc 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
01bd 7008       |p   |		Jump_Nonzero	0x1c6
01be e5ff       |    |		Load	0x2,-0x1
01bf 821f       |    |		Call	0x1,0x1f
01c0 6803       |h   |		Jump_Zero	0x1c4
01c1 00d8       |    |		Load_Top	At_Offset_0
01c2 0f00       |    |		Execute_Immediate	Equal,0x0
01c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c4 4800       |H   |		Short_Literal	0x0
01c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c6 4800       |H   |		Short_Literal	0x0
01c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c8 4800       |H   |		Short_Literal	0x0
01c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ca 0000 0000  |    |		.BLANK	0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 481e       |H   |		Short_Literal	0x1e
01d5 e5ff       |    |		Load	0x2,-0x1
01d6 e005       |    |		Load	0x0,0x5
01d7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01d9 0000 0000  |    |		.BLANK	0000[0x7]
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 00db       |    |		Load_Top	At_Offset_3
01e4 481f       |H   |		Short_Literal	0x1f
01e5 e5ff       |    |		Load	0x2,-0x1
01e6 e005       |    |		Load	0x0,0x5
01e7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e9 0000 0000  |    |		.BLANK	0000[0x7]
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 00db       |    |		Load_Top	At_Offset_3
01f4 481e       |H   |		Short_Literal	0x1e
01f5 e5ff       |    |		Load	0x2,-0x1
01f6 e005       |    |		Load	0x0,0x5
01f7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f9 0000 0000  |    |		.BLANK	0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00db       |    |		Load_Top	At_Offset_3
0204 481f       |H   |		Short_Literal	0x1f
0205 e5ff       |    |		Load	0x2,-0x1
0206 e005       |    |		Load	0x0,0x5
0207 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0208 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0209 0000 0000  |    |		.BLANK	0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0232       | 2  |		.CONST	0x0232								; Address of begin
0211 028c       |    |		.CONST	0x028c								; Address of exception handler
0212 0008       |    |		.CONST	0x0008								; Number of locals
0213			INIT_0210:
0213 e009       |    |		Load	0x0,0x9
0214 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0215 02c7       |    |		Declare_Variable	Any
0216 00d8       |    |		Load_Top	At_Offset_0
0217 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0218 e009       |    |		Load	0x0,0x9
0219 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021a 02c7       |    |		Declare_Variable	Any
021b 00d8       |    |		Load_Top	At_Offset_0
021c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
021d e009       |    |		Load	0x0,0x9
021e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
021f 02c7       |    |		Declare_Variable	Any
0220 00d8       |    |		Load_Top	At_Offset_0
0221 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0222 e003       |    |		Load	0x0,0x3
0223 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0224 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0225 e003       |    |		Load	0x0,0x3
0226 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0227 e009       |    |		Load	0x0,0x9
0228 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0229 02c7       |    |		Declare_Variable	Any
022a 00d8       |    |		Load_Top	At_Offset_0
022b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022c e002       |    |		Load	0x0,0x2
022d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
022e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
022f 02c7       |    |		Declare_Variable	Any
0230 00d8       |    |		Load_Top	At_Offset_0
0231 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0232			BODY_0210:
0232 00be       |    |		Action	Activate_Tasks
0233 e003       |    |		Load	0x0,0x3
0234 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0235 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0236 e402       |    |		Load	0x2,0x2
0237 0120       |    |		Execute	Any,Is_Value
0238 6803       |h   |		Jump_Zero	0x23c
0239 e003       |    |		Load	0x0,0x3
023a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
023b 7801       |x   |		Jump	0x23d
023c e402       |    |		Load	0x2,0x2
023d 6052       |`R  |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x00004000}
023e e006       |    |		Load	0x0,0x6
023f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0240 e007       |    |		Load	0x0,0x7
0241 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0242 e003       |    |		Load	0x0,0x3
0243 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0244 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0245 e5ff       |    |		Load	0x2,-0x1
0246 e002       |    |		Load	0x0,0x2
0247 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0248 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0249 e003       |    |		Load	0x0,0x3
024a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
024b 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
024c c402       |    |		Store	0x2,0x2
024d c405       |    |		Store	0x2,0x5
024e e003       |    |		Load	0x0,0x3
024f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0250 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0251 e403       |    |		Load	0x2,0x3
0252 0120       |    |		Execute	Any,Is_Value
0253 6803       |h   |		Jump_Zero	0x257
0254 e003       |    |		Load	0x0,0x3
0255 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0256 7801       |x   |		Jump	0x258
0257 e403       |    |		Load	0x2,0x3
0258 6037       |`7  |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x00004000}
0259 e006       |    |		Load	0x0,0x6
025a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
025b e007       |    |		Load	0x0,0x7
025c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
025d e003       |    |		Load	0x0,0x3
025e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
025f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0260 e5fe       |    |		Load	0x2,-0x2
0261 e003       |    |		Load	0x0,0x3
0262 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0263 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0264 c403       |    |		Store	0x2,0x3
0265 c405       |    |		Store	0x2,0x5
0266 e003       |    |		Load	0x0,0x3
0267 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0268 e404       |    |		Load	0x2,0x4
0269 4800       |H   |		Short_Literal	0x0
026a 4800       |H   |		Short_Literal	0x0
026b e006       |    |		Load	0x0,0x6
026c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
026d e403       |    |		Load	0x2,0x3
026e e009       |    |		Load	0x0,0x9
026f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0270 c404       |    |		Store	0x2,0x4
0271 005b       | [  |		Store_Top	Discrete,At_Offset_3
0272 e404       |    |		Load	0x2,0x4
0273 e402       |    |		Load	0x2,0x2
0274 e009       |    |		Load	0x0,0x9
0275 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0276 c407       |    |		Store	0x2,0x7
0277 e003       |    |		Load	0x0,0x3
0278 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0279 e404       |    |		Load	0x2,0x4
027a e009       |    |		Load	0x0,0x9
027b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
027c c404       |    |		Store	0x2,0x4
027d 005b       | [  |		Store_Top	Discrete,At_Offset_3
027e 4801       |H   |		Short_Literal	0x1
027f e002       |    |		Load	0x0,0x2
0280 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0281 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0282 00db       |    |		Load_Top	At_Offset_3
0283 e003       |    |		Load	0x0,0x3
0284 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0285 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0286 e002       |    |		Load	0x0,0x2
0287 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0288 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0289 c408       |    |		Store	0x2,0x8
028a 00d8       |    |		Load_Top	At_Offset_0
028b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028c			TRAP_0210:
028c 0007       |    |		Action	Break_Optional
028d e005       |    |		Load	0x0,0x5
028e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
028f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0290 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02ba       |    |		.CONST	0x02ba								; Address of begin
0299 0314       |    |		.CONST	0x0314								; Address of exception handler
029a 0008       |    |		.CONST	0x0008								; Number of locals
029b			INIT_0298:
029b e009       |    |		Load	0x0,0x9
029c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029d 02c7       |    |		Declare_Variable	Any
029e 00d8       |    |		Load_Top	At_Offset_0
029f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a0 e009       |    |		Load	0x0,0x9
02a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02a2 02c7       |    |		Declare_Variable	Any
02a3 00d8       |    |		Load_Top	At_Offset_0
02a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a5 e009       |    |		Load	0x0,0x9
02a6 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02a7 02c7       |    |		Declare_Variable	Any
02a8 00d8       |    |		Load_Top	At_Offset_0
02a9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02aa e003       |    |		Load	0x0,0x3
02ab 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02ad e003       |    |		Load	0x0,0x3
02ae 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02af e009       |    |		Load	0x0,0x9
02b0 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02b1 02c7       |    |		Declare_Variable	Any
02b2 00d8       |    |		Load_Top	At_Offset_0
02b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b4 e002       |    |		Load	0x0,0x2
02b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b7 02c7       |    |		Declare_Variable	Any
02b8 00d8       |    |		Load_Top	At_Offset_0
02b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ba			BODY_0298:
02ba 00be       |    |		Action	Activate_Tasks
02bb e003       |    |		Load	0x0,0x3
02bc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02be e402       |    |		Load	0x2,0x2
02bf 0120       |    |		Execute	Any,Is_Value
02c0 6803       |h   |		Jump_Zero	0x2c4
02c1 e003       |    |		Load	0x0,0x3
02c2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02c3 7801       |x   |		Jump	0x2c5
02c4 e402       |    |		Load	0x2,0x2
02c5 67ca       |g   |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x00004000}
02c6 e006       |    |		Load	0x0,0x6
02c7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c8 e007       |    |		Load	0x0,0x7
02c9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02ca e003       |    |		Load	0x0,0x3
02cb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02cc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02cd e5ff       |    |		Load	0x2,-0x1
02ce e002       |    |		Load	0x0,0x2
02cf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d0 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02d1 e003       |    |		Load	0x0,0x3
02d2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02d3 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02d4 c402       |    |		Store	0x2,0x2
02d5 c405       |    |		Store	0x2,0x5
02d6 e003       |    |		Load	0x0,0x3
02d7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02d8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02d9 e403       |    |		Load	0x2,0x3
02da 0120       |    |		Execute	Any,Is_Value
02db 6803       |h   |		Jump_Zero	0x2df
02dc e003       |    |		Load	0x0,0x3
02dd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02de 7801       |x   |		Jump	0x2e0
02df e403       |    |		Load	0x2,0x3
02e0 67af       |g   |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x00004000}
02e1 e006       |    |		Load	0x0,0x6
02e2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e3 e007       |    |		Load	0x0,0x7
02e4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02e5 e003       |    |		Load	0x0,0x3
02e6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02e7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02e8 e5fe       |    |		Load	0x2,-0x2
02e9 e003       |    |		Load	0x0,0x3
02ea 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02eb 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02ec c403       |    |		Store	0x2,0x3
02ed c405       |    |		Store	0x2,0x5
02ee e003       |    |		Load	0x0,0x3
02ef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f0 e404       |    |		Load	0x2,0x4
02f1 4800       |H   |		Short_Literal	0x0
02f2 4800       |H   |		Short_Literal	0x0
02f3 e006       |    |		Load	0x0,0x6
02f4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f5 e403       |    |		Load	0x2,0x3
02f6 e009       |    |		Load	0x0,0x9
02f7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02f8 c404       |    |		Store	0x2,0x4
02f9 005b       | [  |		Store_Top	Discrete,At_Offset_3
02fa e404       |    |		Load	0x2,0x4
02fb e402       |    |		Load	0x2,0x2
02fc e009       |    |		Load	0x0,0x9
02fd 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02fe c407       |    |		Store	0x2,0x7
02ff e003       |    |		Load	0x0,0x3
0300 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0301 e404       |    |		Load	0x2,0x4
0302 e009       |    |		Load	0x0,0x9
0303 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0304 c404       |    |		Store	0x2,0x4
0305 005b       | [  |		Store_Top	Discrete,At_Offset_3
0306 4801       |H   |		Short_Literal	0x1
0307 e002       |    |		Load	0x0,0x2
0308 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0309 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
030a 00db       |    |		Load_Top	At_Offset_3
030b e003       |    |		Load	0x0,0x3
030c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
030d 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
030e e002       |    |		Load	0x0,0x2
030f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0310 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0311 c408       |    |		Store	0x2,0x8
0312 00d8       |    |		Load_Top	At_Offset_0
0313 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0314			TRAP_0298:
0314 0007       |    |		Action	Break_Optional
0315 e005       |    |		Load	0x0,0x5
0316 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0317 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 033f       | ?  |		.CONST	0x033f								; Address of begin
0319 03a0       |    |		.CONST	0x03a0								; Address of exception handler
031a 0009       |    |		.CONST	0x0009								; Number of locals
031b			INIT_0318:
031b e217       |    |		Load	0x1,0x17
031c 02c7       |    |		Declare_Variable	Any
031d e002       |    |		Load	0x0,0x2
031e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0320 a402       |    |		Store_Unchecked	0x2,0x2
0321 00db       |    |		Load_Top	At_Offset_3
0322 e002       |    |		Load	0x0,0x2
0323 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0324 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0325 0092 04e4  |    |		Action	Push_String_Extended,0x4e4					; ".STATE.IMPORTS"
0327 01cc       |    |		Execute	Vector,Catenate
0328 0007       |    |		Action	Break_Optional
0329 e003       |    |		Load	0x0,0x3
032a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032b 02c7       |    |		Declare_Variable	Any
032c 00d8       |    |		Load_Top	At_Offset_0
032d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
032e e004       |    |		Load	0x0,0x4
032f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0330 02c7       |    |		Declare_Variable	Any
0331 00d8       |    |		Load_Top	At_Offset_0
0332 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0333 e004       |    |		Load	0x0,0x4
0334 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0335 02c7       |    |		Declare_Variable	Any
0336 00d8       |    |		Load_Top	At_Offset_0
0337 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0338 e003       |    |		Load	0x0,0x3
0339 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
033a e003       |    |		Load	0x0,0x3
033b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
033c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
033d 029f 046b  |   k|		Declare_Subprogram	INIT_0468,For_Call
033f			BODY_0318:
033f 00be       |    |		Action	Activate_Tasks
0340 e5ff       |    |		Load	0x2,-0x1
0341 e001       |    |		Load	0x0,0x1
0342 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0343 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0344 7002       |p   |		Jump_Nonzero	0x347
0345 e402       |    |		Load	0x2,0x2
0346 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0347 e5ff       |    |		Load	0x2,-0x1
0348 e001       |    |		Load	0x0,0x1
0349 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
034a 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
034b 7002       |p   |		Jump_Nonzero	0x34e
034c e402       |    |		Load	0x2,0x2
034d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
034e e003       |    |		Load	0x0,0x3
034f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0350 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0351 e404       |    |		Load	0x2,0x4
0352 0120       |    |		Execute	Any,Is_Value
0353 6803       |h   |		Jump_Zero	0x357
0354 e003       |    |		Load	0x0,0x3
0355 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0356 7801       |x   |		Jump	0x358
0357 e404       |    |		Load	0x2,0x4
0358 604b       |`K  |		Indirect_Literal	Discrete,0x3a4,{0x00000000, 0x00004000}
0359 e006       |    |		Load	0x0,0x6
035a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
035b e007       |    |		Load	0x0,0x7
035c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
035d e003       |    |		Load	0x0,0x3
035e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
035f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0360 e403       |    |		Load	0x2,0x3
0361 e003       |    |		Load	0x0,0x3
0362 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0363 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0364 c404       |    |		Store	0x2,0x4
0365 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0366 00d9       |    |		Load_Top	At_Offset_1
0367 6802       |h   |		Jump_Zero	0x36a
0368 e402       |    |		Load	0x2,0x2
0369 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
036a e003       |    |		Load	0x0,0x3
036b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
036c e405       |    |		Load	0x2,0x5
036d 0120       |    |		Execute	Any,Is_Value
036e 6803       |h   |		Jump_Zero	0x372
036f e004       |    |		Load	0x0,0x4
0370 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0371 7801       |x   |		Jump	0x373
0372 e405       |    |		Load	0x2,0x5
0373 4800       |H   |		Short_Literal	0x0
0374 4800       |H   |		Short_Literal	0x0
0375 e006       |    |		Load	0x0,0x6
0376 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0377 e404       |    |		Load	0x2,0x4
0378 e004       |    |		Load	0x0,0x4
0379 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
037a c405       |    |		Store	0x2,0x5
037b 005b       | [  |		Store_Top	Discrete,At_Offset_3
037c 00da       |    |		Load_Top	At_Offset_2
037d 6802       |h   |		Jump_Zero	0x380
037e e402       |    |		Load	0x2,0x2
037f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0380 00db       |    |		Load_Top	At_Offset_3
0381 0120       |    |		Execute	Any,Is_Value
0382 6803       |h   |		Jump_Zero	0x386
0383 e004       |    |		Load	0x0,0x4
0384 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0385 7801       |x   |		Jump	0x387
0386 00db       |    |		Load_Top	At_Offset_3
0387 e405       |    |		Load	0x2,0x5
0388 e004       |    |		Load	0x0,0x4
0389 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
038a c406       |    |		Store	0x2,0x6
038b 00cf       |    |		Action	Mark_Auxiliary
038c 7806       |x   |		Jump	0x393
038d 8409       |    |		Call	0x2,0x9
038e e406       |    |		Load	0x2,0x6
038f e004       |    |		Load	0x0,0x4
0390 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0391 c406       |    |		Store	0x2,0x6
0392 00c9       |    |		Action	Pop_Auxiliary_Loop
0393 e406       |    |		Load	0x2,0x6
0394 e004       |    |		Load	0x0,0x4
0395 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0396 6ff6       |o   |		Jump_Zero	0x38d
0397 00ce       |    |		Action	Pop_Auxiliary
0398 e003       |    |		Load	0x0,0x3
0399 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
039a e405       |    |		Load	0x2,0x5
039b e004       |    |		Load	0x0,0x4
039c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
039d 005b       | [  |		Store_Top	Discrete,At_Offset_3
039e e402       |    |		Load	0x2,0x2
039f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03a0			TRAP_0318:
03a0 0007       |    |		Action	Break_Optional
03a1 e402       |    |		Load	0x2,0x2
03a2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03a3 0000       |    |		.XXX[0x1]
03a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b6       |    |		.CONST	0x03b6								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0002       |    |		.CONST	0x0002								; Number of locals
03ab			INIT_03a8:
03ab e001       |    |		Load	0x0,0x1
03ac 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03ad 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03ae 02c7       |    |		Declare_Variable	Any
03af 4801       |H   |		Short_Literal	0x1
03b0 e5fe       |    |		Load	0x2,-0x2
03b1 e5ff       |    |		Load	0x2,-0x1
03b2 e001       |    |		Load	0x0,0x1
03b3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03b4 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
03b5 a402       |    |		Store_Unchecked	0x2,0x2
03b6			BODY_03a8:
03b6 00d8       |    |		Load_Top	At_Offset_0
03b7 e001       |    |		Load	0x0,0x1
03b8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03b9 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
03ba 0f00       |    |		Execute_Immediate	Equal,0x0
03bb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03bc 0000 0000  |    |		.BLANK	0000[0x4]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03e7       |    |		.CONST	0x03e7								; Address of begin
03c1 0448       | H  |		.CONST	0x0448								; Address of exception handler
03c2 0009       |    |		.CONST	0x0009								; Number of locals
03c3			INIT_03c0:
03c3 e215       |    |		Load	0x1,0x15
03c4 02c7       |    |		Declare_Variable	Any
03c5 e002       |    |		Load	0x0,0x2
03c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c7 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03c8 a402       |    |		Store_Unchecked	0x2,0x2
03c9 00db       |    |		Load_Top	At_Offset_3
03ca e002       |    |		Load	0x0,0x2
03cb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03cc 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03cd 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; ".STATE.REFERENCERS"
03cf 01cc       |    |		Execute	Vector,Catenate
03d0 0007       |    |		Action	Break_Optional
03d1 e003       |    |		Load	0x0,0x3
03d2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03d3 02c7       |    |		Declare_Variable	Any
03d4 00d8       |    |		Load_Top	At_Offset_0
03d5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03d6 e004       |    |		Load	0x0,0x4
03d7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d8 02c7       |    |		Declare_Variable	Any
03d9 00d8       |    |		Load_Top	At_Offset_0
03da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03db e004       |    |		Load	0x0,0x4
03dc 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03dd 02c7       |    |		Declare_Variable	Any
03de 00d8       |    |		Load_Top	At_Offset_0
03df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03e0 e003       |    |		Load	0x0,0x3
03e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03e2 e003       |    |		Load	0x0,0x3
03e3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03e5 029f 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Call
03e7			BODY_03c0:
03e7 00be       |    |		Action	Activate_Tasks
03e8 e5ff       |    |		Load	0x2,-0x1
03e9 e001       |    |		Load	0x0,0x1
03ea 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03eb 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
03ec 7002       |p   |		Jump_Nonzero	0x3ef
03ed e402       |    |		Load	0x2,0x2
03ee 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03ef e5ff       |    |		Load	0x2,-0x1
03f0 e001       |    |		Load	0x0,0x1
03f1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f2 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
03f3 7002       |p   |		Jump_Nonzero	0x3f6
03f4 e402       |    |		Load	0x2,0x2
03f5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03f6 e003       |    |		Load	0x0,0x3
03f7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03f8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f9 e404       |    |		Load	0x2,0x4
03fa 0120       |    |		Execute	Any,Is_Value
03fb 6803       |h   |		Jump_Zero	0x3ff
03fc e003       |    |		Load	0x0,0x3
03fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03fe 7801       |x   |		Jump	0x400
03ff e404       |    |		Load	0x2,0x4
0400 604b       |`K  |		Indirect_Literal	Discrete,0x44c,{0x00000000, 0x00004000}
0401 e006       |    |		Load	0x0,0x6
0402 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0403 e007       |    |		Load	0x0,0x7
0404 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0405 e003       |    |		Load	0x0,0x3
0406 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0407 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0408 e403       |    |		Load	0x2,0x3
0409 e003       |    |		Load	0x0,0x3
040a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
040b 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
040c c404       |    |		Store	0x2,0x4
040d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
040e 00d9       |    |		Load_Top	At_Offset_1
040f 6802       |h   |		Jump_Zero	0x412
0410 e402       |    |		Load	0x2,0x2
0411 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0412 e003       |    |		Load	0x0,0x3
0413 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0414 e405       |    |		Load	0x2,0x5
0415 0120       |    |		Execute	Any,Is_Value
0416 6803       |h   |		Jump_Zero	0x41a
0417 e004       |    |		Load	0x0,0x4
0418 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0419 7801       |x   |		Jump	0x41b
041a e405       |    |		Load	0x2,0x5
041b 4800       |H   |		Short_Literal	0x0
041c 4800       |H   |		Short_Literal	0x0
041d e006       |    |		Load	0x0,0x6
041e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
041f e404       |    |		Load	0x2,0x4
0420 e004       |    |		Load	0x0,0x4
0421 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0422 c405       |    |		Store	0x2,0x5
0423 005b       | [  |		Store_Top	Discrete,At_Offset_3
0424 00da       |    |		Load_Top	At_Offset_2
0425 6802       |h   |		Jump_Zero	0x428
0426 e402       |    |		Load	0x2,0x2
0427 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0428 00db       |    |		Load_Top	At_Offset_3
0429 0120       |    |		Execute	Any,Is_Value
042a 6803       |h   |		Jump_Zero	0x42e
042b e004       |    |		Load	0x0,0x4
042c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
042d 7801       |x   |		Jump	0x42f
042e 00db       |    |		Load_Top	At_Offset_3
042f e405       |    |		Load	0x2,0x5
0430 e004       |    |		Load	0x0,0x4
0431 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0432 c406       |    |		Store	0x2,0x6
0433 00cf       |    |		Action	Mark_Auxiliary
0434 7806       |x   |		Jump	0x43b
0435 8409       |    |		Call	0x2,0x9
0436 e406       |    |		Load	0x2,0x6
0437 e004       |    |		Load	0x0,0x4
0438 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0439 c406       |    |		Store	0x2,0x6
043a 00c9       |    |		Action	Pop_Auxiliary_Loop
043b e406       |    |		Load	0x2,0x6
043c e004       |    |		Load	0x0,0x4
043d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
043e 6ff6       |o   |		Jump_Zero	0x435
043f 00ce       |    |		Action	Pop_Auxiliary
0440 e003       |    |		Load	0x0,0x3
0441 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0442 e405       |    |		Load	0x2,0x5
0443 e004       |    |		Load	0x0,0x4
0444 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0445 005b       | [  |		Store_Top	Discrete,At_Offset_3
0446 e402       |    |		Load	0x2,0x2
0447 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0448			TRAP_03c0:
0448 0007       |    |		Action	Break_Optional
0449 e402       |    |		Load	0x2,0x2
044a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044b 0000       |    |		.XXX[0x1]
044c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 045e       | ^  |		.CONST	0x045e								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0002       |    |		.CONST	0x0002								; Number of locals
0453			INIT_0450:
0453 e001       |    |		Load	0x0,0x1
0454 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0455 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0456 02c7       |    |		Declare_Variable	Any
0457 4801       |H   |		Short_Literal	0x1
0458 e5ff       |    |		Load	0x2,-0x1
0459 e5fe       |    |		Load	0x2,-0x2
045a e001       |    |		Load	0x0,0x1
045b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
045c 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
045d a402       |    |		Store_Unchecked	0x2,0x2
045e			BODY_0450:
045e 00d8       |    |		Load_Top	At_Offset_0
045f e001       |    |		Load	0x0,0x1
0460 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0461 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0462 0f00       |    |		Execute_Immediate	Equal,0x0
0463 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0464 0000 0000  |    |		.BLANK	0000[0x4]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0482       |    |		.CONST	0x0482								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0005       |    |		.CONST	0x0005								; Number of locals
046b			INIT_0468:
046b e003       |    |		Load	0x0,0x3
046c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
046d 02c7       |    |		Declare_Variable	Any
046e e406       |    |		Load	0x2,0x6
046f e004       |    |		Load	0x0,0x4
0470 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0471 a602       |    |		Store_Unchecked	0x3,0x2
0472 00d8       |    |		Load_Top	At_Offset_0
0473 e003       |    |		Load	0x0,0x3
0474 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0475 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0476 e216       |    |		Load	0x1,0x16
0477 02c7       |    |		Declare_Variable	Any
0478 4801       |H   |		Short_Literal	0x1
0479 e002       |    |		Load	0x0,0x2
047a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
047b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
047c 00db       |    |		Load_Top	At_Offset_3
047d e002       |    |		Load	0x0,0x2
047e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
047f 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0480 a604       |    |		Store_Unchecked	0x3,0x4
0481 00e1       |    |		Load_Encached	Boolean_Cache
0482			BODY_0468:
0482 00d9       |    |		Load_Top	At_Offset_1
0483 e001       |    |		Load	0x0,0x1
0484 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0485 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0486 681b       |h   |		Jump_Zero	0x4a2
0487 e5fe       |    |		Load	0x2,-0x2
0488 680f       |h   |		Jump_Zero	0x498
0489 e5ff       |    |		Load	0x2,-0x1
048a 00da       |    |		Load_Top	At_Offset_2
048b 8228       | (  |		Call	0x1,0x28
048c 680a       |h   |		Jump_Zero	0x497
048d 00e1       |    |		Load_Encached	Boolean_Cache
048e e002       |    |		Load	0x0,0x2
048f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0490 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0491 00db       |    |		Load_Top	At_Offset_3
0492 e402       |    |		Load	0x2,0x2
0493 e002       |    |		Load	0x0,0x2
0494 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0495 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0496 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0497 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0498 00e1       |    |		Load_Encached	Boolean_Cache
0499 e002       |    |		Load	0x0,0x2
049a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
049b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
049c 00db       |    |		Load_Top	At_Offset_3
049d e402       |    |		Load	0x2,0x2
049e e002       |    |		Load	0x0,0x2
049f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04a0 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
04a1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04a2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a3 0000 0000  |    |		.BLANK	0000[0x5]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04c2       |    |		.CONST	0x04c2								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0005       |    |		.CONST	0x0005								; Number of locals
04ab			INIT_04a8:
04ab e003       |    |		Load	0x0,0x3
04ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ad 02c7       |    |		Declare_Variable	Any
04ae e406       |    |		Load	0x2,0x6
04af e004       |    |		Load	0x0,0x4
04b0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04b1 a602       |    |		Store_Unchecked	0x3,0x2
04b2 00d8       |    |		Load_Top	At_Offset_0
04b3 e003       |    |		Load	0x0,0x3
04b4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04b5 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
04b6 e214       |    |		Load	0x1,0x14
04b7 02c7       |    |		Declare_Variable	Any
04b8 4801       |H   |		Short_Literal	0x1
04b9 e002       |    |		Load	0x0,0x2
04ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04bc 00db       |    |		Load_Top	At_Offset_3
04bd e002       |    |		Load	0x0,0x2
04be 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04bf 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
04c0 a604       |    |		Store_Unchecked	0x3,0x4
04c1 00e1       |    |		Load_Encached	Boolean_Cache
04c2			BODY_04a8:
04c2 00d9       |    |		Load_Top	At_Offset_1
04c3 e001       |    |		Load	0x0,0x1
04c4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04c5 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
04c6 681b       |h   |		Jump_Zero	0x4e2
04c7 e5fe       |    |		Load	0x2,-0x2
04c8 680f       |h   |		Jump_Zero	0x4d8
04c9 e5ff       |    |		Load	0x2,-0x1
04ca 00da       |    |		Load_Top	At_Offset_2
04cb 822a       | *  |		Call	0x1,0x2a
04cc 680a       |h   |		Jump_Zero	0x4d7
04cd 00e1       |    |		Load_Encached	Boolean_Cache
04ce e002       |    |		Load	0x0,0x2
04cf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04d0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04d1 00db       |    |		Load_Top	At_Offset_3
04d2 e402       |    |		Load	0x2,0x2
04d3 e002       |    |		Load	0x0,0x2
04d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04d5 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
04d6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04d8 00e1       |    |		Load_Encached	Boolean_Cache
04d9 e002       |    |		Load	0x0,0x2
04da 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04db 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04dc 00db       |    |		Load_Top	At_Offset_3
04dd e402       |    |		Load	0x2,0x2
04de e002       |    |		Load	0x0,0x2
04df 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04e0 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
04e1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04e2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04e3 ; --------------------------------------------------------------------------------------
04e3 ; STRING TABLE
04e3 ; --------------------------------------------------------------------------------------
04e3 0008       |    |		.STRTAB	0x0008->0x04e7							; ".STATE.MODEL"
04e4 0012       |    |		.STRTAB	0x0012->0x04ed							; ".STATE.IMPORTS"
04e5 001e       |    |		.STRTAB	0x001e->0x04f4							; ".STATE.REFERENCERS"
04e6 002e       | .  |		.STREND 0x002e->0x04fd
04e7 2e53 5441  |.STA|		.STRTAB_STRINGS
04fd 0000 0000  |    |		.XXX[0x3]
04ff 0000       |    |
0500 ; --------------------------------------------------------------------------------------
0500 ; Debug Table
0500 ; --------------------------------------------------------------------------------------
0500 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0e4c,0x0000,0x0001,0x0000
0506 4bef 4000  |K @ |		.XXX[0x22]
0508 0000 0dc0  |    |
050a 0000 0002  |    |
050c 1126 0097  | &  |
050e de80 0000  |    |
0510 0000 0004  |    |
0512 1d81 6800  |  h |
0514 0000 0006  |    |
0516 831e 8030  |   0|
0518 6a00 0000  |j   |
051a 0002 6408  |  d |
051c 0099 a480  |    |
051e 0000 0000  |    |
0520 28c1 6002  |( ` |
0522 62c0 0099  |b   |
0524 7980 6f00  |y o |
0526 0026 6920  | &i |
0528 0000 0000  |    |		.BLANK	0000[0x5]
052d 1320 4001  |  @ |		.XXX[0x91]
052f 9010 01c0  |    |
0531 0000 0000  |    |
0533 0067 a840  | g @|
0535 5ec0 1316  |^   |
0537 0000 0000  |    |
0539 0139 de00  | 9  |
053b 26d7 f1a7  |&   |
053d e004 e778  |   x|
053f 0000 0000  |    |
0541 4d53 c013  |MS  |
0543 5ae0 04d8  |Z   |
0545 9514 2300  |  # |
0547 4d53 c000  |MS  |
0549 0000 1080  |    |
054b 100b e4c4  |    |
054d 0136 2500  | 6% |
054f 0026 8ae0  | &  |
0551 00a0 0000  |    |
0553 0002 68af  |  h |
0555 0890 004c  |   L|
0557 f0c0 0000  |    |
0559 0004 d46a  |   j|
055b 762e 0099  |v.  |
055d e180 0000  |    |
055f 0002 c020  |    |
0561 17ae 2cd4  |  , |
0563 2c01 33c3  |, 3 |
0565 0000 0000  |    |
0567 0d00 402f  |  @/|
0569 9310 0003  |    |
056b 419c 0000  |A   |
056d 0023 4fc0  | #O |
056f 09ce f000  |    |
0571 0000 009c  |    |
0573 3300 2718  |3 ' |
0575 a009 c9e2  |    |
0577 2846 009c  |(F  |
0579 3300 0000  |3   |
057b 000b c020  |    |
057d 05e9 1802  |    |
057f 7278 0000  |rx  |
0581 4ddb 8000  |M   |
0583 c000 0000  |    |
0585 04dd ba11  |    |
0587 2000 9b6d  |   m|
0589 0000 0000  |    |
058b 09c1 8cec  |    |
058d 5c01 36da  |\ 6 |
058f 0000 0000  |    |
0591 0400 400b  |  @ |
0593 c7a9 d0b0  |    |
0595 026d b400  | m  |
0597 0000 000e  |    |
0599 0080 175c  |   \|
059b a010 02f4  |    |
059d 8c02 1928  |   (|
059f 0099 a480  |    |
05a1 0000 0009  |    |
05a3 9d40 0009  | @  |
05a5 d370 0000  | p  |
05a7 0000 0008  |    |
05a9 0004 eab8  |    |
05ab 0000 0000  |    |
05ad 0000 000c  |    |
05af 0000 0000  |    |
05b1 0004 ed38  |   8|
05b3 0000 0000  |    |
05b5 0004 efac  |    |
05b7 0000 0000  |    |
05b9 0004 eeb8  |    |
05bb 0000 9a2b  |   +|
05bd 8000       |    |
05be 0000 0000  |    |		.BLANK	0000[0x5]
05c3 0027 8960  | ' `|		.XXX[0x37]
05c5 0004 ddb8  |    |
05c7 0000 0080  |    |
05c9 2797 a009  |'   |
05cb 8b00 0145  |   E|
05cd c782 2000  |    |
05cf 306a 0009  |0j  |
05d1 f1c0 027a  |   z|
05d3 c400 9eec  |    |
05d5 8000 a762  |   b|
05d7 e009 e6c0  |    |
05d9 0000 0001  |    |
05db b800 0000  |    |
05dd 0042 24c0  | B$ |
05df 13cd 8000  |    |
05e1 0000 0000  |    |
05e3 0083 b02d  |   -|
05e5 0000 0000  |    |
05e7 0070 63d0  | pc |
05e9 060d 4000  |  @ |
05eb 0000 004f  |   O|
05ed c7c0 1406  |    |
05ef 4000 0000  |@   |
05f1 0003 182c  |   ,|
05f3 004f 9ec0  | O  |
05f5 1400 e006  |    |
05f7 6000 0501  |`   |
05f9 9000       |    |
05fa 0000 0000  |    |		.BLANK	0000[0x4]
05fe 0002 7e3e  |  ~>|		.XXX[0x2]