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

⟦e7c227e94⟧

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

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 0408       |    |		.CONST	0x0408								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008e       |    |		.CONST	0x008e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002d       | -  |		.CONST	0x002d								; Number of locals
000b			INIT_0008:
000b 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000d 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0013 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0015 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0017 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0019 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
001b 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
001d 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
001f 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0021 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0023 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0025 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0027 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0029 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
002b 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
002d 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
002f 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0031 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0033 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0035 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0037 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
0039 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
003b 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
003d 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
003f 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0041 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
0043 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
0045 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0047 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0049 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
004b 00bf       |    |		Action	Accept_Activation
004c 029d 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call
004e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
008d 00c7       |    |		Action	Elaborate_Subprogram
008e			BODY_0008:
008e 00bc       |    |		Action	Signal_Activated
008f 00bb       |    |		Action	Signal_Completion
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 e5f9       |    |		Load	0x2,-0x7
0094 e003       |    |		Load	0x0,0x3
0095 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0096 c5f9       |    |		Store	0x2,-0x7
0097 e5f9       |    |		Load	0x2,-0x7
0098 e5fa       |    |		Load	0x2,-0x6
0099 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
009a e5fb       |    |		Load	0x2,-0x5
009b e5fc       |    |		Load	0x2,-0x4
009c e5fd       |    |		Load	0x2,-0x3
009d e5ff       |    |		Load	0x2,-0x1
009e e5fe       |    |		Load	0x2,-0x2
009f e5fa       |    |		Load	0x2,-0x6
00a0 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00a1 e5fa       |    |		Load	0x2,-0x6
00a2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00a3 8004       |    |		Call	0x0,0x4
00a4 e5fa       |    |		Load	0x2,-0x6
00a5 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
00a6 c5f9       |    |		Store	0x2,-0x7
00a7 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab e5fa       |    |		Load	0x2,-0x6
00ac e003       |    |		Load	0x0,0x3
00ad 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00ae c5fa       |    |		Store	0x2,-0x6
00af e5fa       |    |		Load	0x2,-0x6
00b0 e5fb       |    |		Load	0x2,-0x5
00b1 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
00b2 e5fc       |    |		Load	0x2,-0x4
00b3 e5fd       |    |		Load	0x2,-0x3
00b4 e5fe       |    |		Load	0x2,-0x2
00b5 e5ff       |    |		Load	0x2,-0x1
00b6 e5fb       |    |		Load	0x2,-0x5
00b7 8005       |    |		Call	0x0,0x5
00b8 8006       |    |		Call	0x0,0x6
00b9 e5fb       |    |		Load	0x2,-0x5
00ba 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
00bb c5fa       |    |		Store	0x2,-0x6
00bc 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00bd 0000 0000  |    |		.XXX[0x3]
00bf 0000       |    |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 e5fa       |    |		Load	0x2,-0x6
00c4 e003       |    |		Load	0x0,0x3
00c5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00c6 c5fa       |    |		Store	0x2,-0x6
00c7 e5fa       |    |		Load	0x2,-0x6
00c8 e5fb       |    |		Load	0x2,-0x5
00c9 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
00ca e5fc       |    |		Load	0x2,-0x4
00cb e5fd       |    |		Load	0x2,-0x3
00cc e5fb       |    |		Load	0x2,-0x5
00cd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ce e5fe       |    |		Load	0x2,-0x2
00cf e5ff       |    |		Load	0x2,-0x1
00d0 8007       |    |		Call	0x0,0x7
00d1 e5fb       |    |		Load	0x2,-0x5
00d2 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
00d3 c5fa       |    |		Store	0x2,-0x6
00d4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00d5 0000 0000  |    |		.XXX[0x3]
00d7 0000       |    |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e3       |    |		.CONST	0x00e3								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0002       |    |		.CONST	0x0002								; Number of locals
00db			INIT_00d8:
00db 00db       |    |		Load_Top	At_Offset_3
00dc e5fa       |    |		Load	0x2,-0x6
00dd 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
00de e5ff       |    |		Load	0x2,-0x1
00df 8008       |    |		Call	0x0,0x8
00e0 e009       |    |		Load	0x0,0x9
00e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e2 03f1       |    |		Declare_Variable	Discrete,With_Value
00e3			BODY_00d8:
00e3 e5f9       |    |		Load	0x2,-0x7
00e4 e003       |    |		Load	0x0,0x3
00e5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00e6 c5f9       |    |		Store	0x2,-0x7
00e7 e5f9       |    |		Load	0x2,-0x7
00e8 e5fa       |    |		Load	0x2,-0x6
00e9 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
00ea e5fb       |    |		Load	0x2,-0x5
00eb e5fc       |    |		Load	0x2,-0x4
00ec e5fd       |    |		Load	0x2,-0x3
00ed e402       |    |		Load	0x2,0x2
00ee e5fe       |    |		Load	0x2,-0x2
00ef e5ff       |    |		Load	0x2,-0x1
00f0 800a       |    |		Call	0x0,0xa
00f1 e5fa       |    |		Load	0x2,-0x6
00f2 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
00f3 c5f9       |    |		Store	0x2,-0x7
00f4 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0103       |    |		.CONST	0x0103								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0002       |    |		.CONST	0x0002								; Number of locals
00fb			INIT_00f8:
00fb 00db       |    |		Load_Top	At_Offset_3
00fc e5fa       |    |		Load	0x2,-0x6
00fd 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
00fe e5ff       |    |		Load	0x2,-0x1
00ff 8008       |    |		Call	0x0,0x8
0100 e009       |    |		Load	0x0,0x9
0101 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0102 03f1       |    |		Declare_Variable	Discrete,With_Value
0103			BODY_00f8:
0103 e5f9       |    |		Load	0x2,-0x7
0104 e003       |    |		Load	0x0,0x3
0105 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0106 c5f9       |    |		Store	0x2,-0x7
0107 e5f9       |    |		Load	0x2,-0x7
0108 e5fa       |    |		Load	0x2,-0x6
0109 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
010a e5fb       |    |		Load	0x2,-0x5
010b e5fc       |    |		Load	0x2,-0x4
010c e5fd       |    |		Load	0x2,-0x3
010d e402       |    |		Load	0x2,0x2
010e e5fe       |    |		Load	0x2,-0x2
010f e5ff       |    |		Load	0x2,-0x1
0110 800b       |    |		Call	0x0,0xb
0111 e5fa       |    |		Load	0x2,-0x6
0112 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0113 c5f9       |    |		Store	0x2,-0x7
0114 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0115 0000 0000  |    |		.XXX[0x3]
0117 0000       |    |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0123       | #  |		.CONST	0x0123								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b 00db       |    |		Load_Top	At_Offset_3
011c e5fa       |    |		Load	0x2,-0x6
011d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
011e e5ff       |    |		Load	0x2,-0x1
011f 8008       |    |		Call	0x0,0x8
0120 e009       |    |		Load	0x0,0x9
0121 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0122 03f1       |    |		Declare_Variable	Discrete,With_Value
0123			BODY_0118:
0123 e5f9       |    |		Load	0x2,-0x7
0124 e003       |    |		Load	0x0,0x3
0125 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0126 c5f9       |    |		Store	0x2,-0x7
0127 e5f9       |    |		Load	0x2,-0x7
0128 e5fa       |    |		Load	0x2,-0x6
0129 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
012a e5fb       |    |		Load	0x2,-0x5
012b e5fc       |    |		Load	0x2,-0x4
012c e5fd       |    |		Load	0x2,-0x3
012d e402       |    |		Load	0x2,0x2
012e e5fe       |    |		Load	0x2,-0x2
012f e5ff       |    |		Load	0x2,-0x1
0130 800c       |    |		Call	0x0,0xc
0131 e5fa       |    |		Load	0x2,-0x6
0132 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0133 c5f9       |    |		Store	0x2,-0x7
0134 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0143       | C  |		.CONST	0x0143								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0002       |    |		.CONST	0x0002								; Number of locals
013b			INIT_0138:
013b 00db       |    |		Load_Top	At_Offset_3
013c e5fa       |    |		Load	0x2,-0x6
013d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
013e e5ff       |    |		Load	0x2,-0x1
013f 8008       |    |		Call	0x0,0x8
0140 e009       |    |		Load	0x0,0x9
0141 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0142 03f1       |    |		Declare_Variable	Discrete,With_Value
0143			BODY_0138:
0143 e5f9       |    |		Load	0x2,-0x7
0144 e003       |    |		Load	0x0,0x3
0145 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0146 c5f9       |    |		Store	0x2,-0x7
0147 e5f9       |    |		Load	0x2,-0x7
0148 e5fa       |    |		Load	0x2,-0x6
0149 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
014a e5fb       |    |		Load	0x2,-0x5
014b e5fc       |    |		Load	0x2,-0x4
014c e5fd       |    |		Load	0x2,-0x3
014d e402       |    |		Load	0x2,0x2
014e e5fe       |    |		Load	0x2,-0x2
014f e5ff       |    |		Load	0x2,-0x1
0150 800d       |    |		Call	0x0,0xd
0151 e5fa       |    |		Load	0x2,-0x6
0152 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0153 c5f9       |    |		Store	0x2,-0x7
0154 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0164       | d  |		.CONST	0x0164								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0003       |    |		.CONST	0x0003								; Number of locals
015b			INIT_0158:
015b 00db       |    |		Load_Top	At_Offset_3
015c e5fa       |    |		Load	0x2,-0x6
015d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
015e e5ff       |    |		Load	0x2,-0x1
015f 8008       |    |		Call	0x0,0x8
0160 e009       |    |		Load	0x0,0x9
0161 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0162 03f1       |    |		Declare_Variable	Discrete,With_Value
0163 00e1       |    |		Load_Encached	Boolean_Cache
0164			BODY_0158:
0164 e5f9       |    |		Load	0x2,-0x7
0165 e003       |    |		Load	0x0,0x3
0166 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0167 c5f9       |    |		Store	0x2,-0x7
0168 e5f9       |    |		Load	0x2,-0x7
0169 e5fa       |    |		Load	0x2,-0x6
016a 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
016b e5fb       |    |		Load	0x2,-0x5
016c e5fc       |    |		Load	0x2,-0x4
016d e5fd       |    |		Load	0x2,-0x3
016e e402       |    |		Load	0x2,0x2
016f e5fe       |    |		Load	0x2,-0x2
0170 e5ff       |    |		Load	0x2,-0x1
0171 800d       |    |		Call	0x0,0xd
0172 e5fa       |    |		Load	0x2,-0x6
0173 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0174 c5f9       |    |		Store	0x2,-0x7
0175 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0183       |    |		.CONST	0x0183								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b 00db       |    |		Load_Top	At_Offset_3
017c e5fa       |    |		Load	0x2,-0x6
017d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
017e e5ff       |    |		Load	0x2,-0x1
017f 8008       |    |		Call	0x0,0x8
0180 e009       |    |		Load	0x0,0x9
0181 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0182 03f1       |    |		Declare_Variable	Discrete,With_Value
0183			BODY_0178:
0183 e5f9       |    |		Load	0x2,-0x7
0184 e003       |    |		Load	0x0,0x3
0185 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0186 c5f9       |    |		Store	0x2,-0x7
0187 e5f9       |    |		Load	0x2,-0x7
0188 e5fa       |    |		Load	0x2,-0x6
0189 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
018a e5fb       |    |		Load	0x2,-0x5
018b e5fc       |    |		Load	0x2,-0x4
018c e5fd       |    |		Load	0x2,-0x3
018d e402       |    |		Load	0x2,0x2
018e e5fe       |    |		Load	0x2,-0x2
018f e5ff       |    |		Load	0x2,-0x1
0190 800a       |    |		Call	0x0,0xa
0191 e5fa       |    |		Load	0x2,-0x6
0192 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0193 c5f9       |    |		Store	0x2,-0x7
0194 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0195 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a3       |    |		.CONST	0x01a3								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b 00db       |    |		Load_Top	At_Offset_3
019c e5fa       |    |		Load	0x2,-0x6
019d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
019e e5ff       |    |		Load	0x2,-0x1
019f 8008       |    |		Call	0x0,0x8
01a0 e009       |    |		Load	0x0,0x9
01a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a2 03f1       |    |		Declare_Variable	Discrete,With_Value
01a3			BODY_0198:
01a3 e5f9       |    |		Load	0x2,-0x7
01a4 e003       |    |		Load	0x0,0x3
01a5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01a6 c5f9       |    |		Store	0x2,-0x7
01a7 e5f9       |    |		Load	0x2,-0x7
01a8 e5fa       |    |		Load	0x2,-0x6
01a9 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
01aa e5fb       |    |		Load	0x2,-0x5
01ab e5fc       |    |		Load	0x2,-0x4
01ac e5fd       |    |		Load	0x2,-0x3
01ad e402       |    |		Load	0x2,0x2
01ae e5fe       |    |		Load	0x2,-0x2
01af e5ff       |    |		Load	0x2,-0x1
01b0 800c       |    |		Call	0x0,0xc
01b1 e5fa       |    |		Load	0x2,-0x6
01b2 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
01b3 c5f9       |    |		Store	0x2,-0x7
01b4 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01b5 0000 0000  |    |		.XXX[0x3]
01b7 0000       |    |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb e5fa       |    |		Load	0x2,-0x6
01bc e003       |    |		Load	0x0,0x3
01bd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01be c5fa       |    |		Store	0x2,-0x6
01bf e5fa       |    |		Load	0x2,-0x6
01c0 e5fb       |    |		Load	0x2,-0x5
01c1 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
01c2 e5fc       |    |		Load	0x2,-0x4
01c3 e5fd       |    |		Load	0x2,-0x3
01c4 e5fb       |    |		Load	0x2,-0x5
01c5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01c6 e5ff       |    |		Load	0x2,-0x1
01c7 800e       |    |		Call	0x0,0xe
01c8 e5fb       |    |		Load	0x2,-0x5
01c9 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
01ca c5fa       |    |		Store	0x2,-0x6
01cb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01cc 0000 0000  |    |		.BLANK	0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01db       |    |		.CONST	0x01db								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 e5fb       |    |		Load	0x2,-0x5
01d5 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
01d6 e5ff       |    |		Load	0x2,-0x1
01d7 8008       |    |		Call	0x0,0x8
01d8 e009       |    |		Load	0x0,0x9
01d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01da 03f1       |    |		Declare_Variable	Discrete,With_Value
01db			BODY_01d0:
01db e5fa       |    |		Load	0x2,-0x6
01dc e003       |    |		Load	0x0,0x3
01dd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01de c5fa       |    |		Store	0x2,-0x6
01df e5fa       |    |		Load	0x2,-0x6
01e0 e5fb       |    |		Load	0x2,-0x5
01e1 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
01e2 e5fc       |    |		Load	0x2,-0x4
01e3 e5fd       |    |		Load	0x2,-0x3
01e4 e402       |    |		Load	0x2,0x2
01e5 e5fe       |    |		Load	0x2,-0x2
01e6 e5ff       |    |		Load	0x2,-0x1
01e7 800f       |    |		Call	0x0,0xf
01e8 e5fb       |    |		Load	0x2,-0x5
01e9 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
01ea c5fa       |    |		Store	0x2,-0x6
01eb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01ec 0000 0000  |    |		.BLANK	0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fb       |    |		.CONST	0x01fb								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 e5fa       |    |		Load	0x2,-0x6
01f5 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
01f6 e5ff       |    |		Load	0x2,-0x1
01f7 8008       |    |		Call	0x0,0x8
01f8 e009       |    |		Load	0x0,0x9
01f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01fa 03f1       |    |		Declare_Variable	Discrete,With_Value
01fb			BODY_01f0:
01fb e5f9       |    |		Load	0x2,-0x7
01fc e003       |    |		Load	0x0,0x3
01fd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01fe c5f9       |    |		Store	0x2,-0x7
01ff e5f9       |    |		Load	0x2,-0x7
0200 e5fa       |    |		Load	0x2,-0x6
0201 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0202 e5fb       |    |		Load	0x2,-0x5
0203 e5fc       |    |		Load	0x2,-0x4
0204 e5fd       |    |		Load	0x2,-0x3
0205 e402       |    |		Load	0x2,0x2
0206 e5fe       |    |		Load	0x2,-0x2
0207 e5ff       |    |		Load	0x2,-0x1
0208 8010       |    |		Call	0x0,0x10
0209 e5fa       |    |		Load	0x2,-0x6
020a 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
020b c5f9       |    |		Store	0x2,-0x7
020c 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
020d 0000 0000  |    |		.XXX[0x3]
020f 0000       |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021b       |    |		.CONST	0x021b								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0002       |    |		.CONST	0x0002								; Number of locals
0213			INIT_0210:
0213 00db       |    |		Load_Top	At_Offset_3
0214 e5fb       |    |		Load	0x2,-0x5
0215 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0216 e5ff       |    |		Load	0x2,-0x1
0217 8008       |    |		Call	0x0,0x8
0218 e009       |    |		Load	0x0,0x9
0219 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021a 03f1       |    |		Declare_Variable	Discrete,With_Value
021b			BODY_0210:
021b e5fa       |    |		Load	0x2,-0x6
021c e003       |    |		Load	0x0,0x3
021d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
021e c5fa       |    |		Store	0x2,-0x6
021f e5fa       |    |		Load	0x2,-0x6
0220 e5fb       |    |		Load	0x2,-0x5
0221 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0222 e5fc       |    |		Load	0x2,-0x4
0223 e5fd       |    |		Load	0x2,-0x3
0224 e402       |    |		Load	0x2,0x2
0225 e5fb       |    |		Load	0x2,-0x5
0226 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0227 e5fe       |    |		Load	0x2,-0x2
0228 e5ff       |    |		Load	0x2,-0x1
0229 8011       |    |		Call	0x0,0x11
022a e5fb       |    |		Load	0x2,-0x5
022b 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
022c c5fa       |    |		Store	0x2,-0x6
022d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023b       | ;  |		.CONST	0x023b								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0002       |    |		.CONST	0x0002								; Number of locals
0233			INIT_0230:
0233 00db       |    |		Load_Top	At_Offset_3
0234 e5fb       |    |		Load	0x2,-0x5
0235 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0236 e5ff       |    |		Load	0x2,-0x1
0237 8008       |    |		Call	0x0,0x8
0238 e009       |    |		Load	0x0,0x9
0239 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023a 03f1       |    |		Declare_Variable	Discrete,With_Value
023b			BODY_0230:
023b e5fa       |    |		Load	0x2,-0x6
023c e003       |    |		Load	0x0,0x3
023d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
023e c5fa       |    |		Store	0x2,-0x6
023f e5fa       |    |		Load	0x2,-0x6
0240 e5fb       |    |		Load	0x2,-0x5
0241 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0242 e5fc       |    |		Load	0x2,-0x4
0243 e5fd       |    |		Load	0x2,-0x3
0244 e402       |    |		Load	0x2,0x2
0245 e5fe       |    |		Load	0x2,-0x2
0246 e5ff       |    |		Load	0x2,-0x1
0247 8012       |    |		Call	0x0,0x12
0248 e5fb       |    |		Load	0x2,-0x5
0249 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
024a c5fa       |    |		Store	0x2,-0x6
024b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
024c 0000 0000  |    |		.BLANK	0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025b       | [  |		.CONST	0x025b								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0002       |    |		.CONST	0x0002								; Number of locals
0253			INIT_0250:
0253 00db       |    |		Load_Top	At_Offset_3
0254 e5fa       |    |		Load	0x2,-0x6
0255 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0256 e5ff       |    |		Load	0x2,-0x1
0257 8008       |    |		Call	0x0,0x8
0258 e009       |    |		Load	0x0,0x9
0259 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
025a 03f1       |    |		Declare_Variable	Discrete,With_Value
025b			BODY_0250:
025b e5f9       |    |		Load	0x2,-0x7
025c e003       |    |		Load	0x0,0x3
025d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
025e c5f9       |    |		Store	0x2,-0x7
025f e5f9       |    |		Load	0x2,-0x7
0260 e5fa       |    |		Load	0x2,-0x6
0261 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0262 e5fb       |    |		Load	0x2,-0x5
0263 e5fc       |    |		Load	0x2,-0x4
0264 e5fd       |    |		Load	0x2,-0x3
0265 e402       |    |		Load	0x2,0x2
0266 e5fe       |    |		Load	0x2,-0x2
0267 e5ff       |    |		Load	0x2,-0x1
0268 8013       |    |		Call	0x0,0x13
0269 e5fa       |    |		Load	0x2,-0x6
026a 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
026b c5f9       |    |		Store	0x2,-0x7
026c 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
026d 0000 0000  |    |		.XXX[0x3]
026f 0000       |    |
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027b       | {  |		.CONST	0x027b								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0002       |    |		.CONST	0x0002								; Number of locals
0273			INIT_0270:
0273 00db       |    |		Load_Top	At_Offset_3
0274 e5fa       |    |		Load	0x2,-0x6
0275 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0276 e5ff       |    |		Load	0x2,-0x1
0277 8008       |    |		Call	0x0,0x8
0278 e009       |    |		Load	0x0,0x9
0279 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027a 03f1       |    |		Declare_Variable	Discrete,With_Value
027b			BODY_0270:
027b e5f9       |    |		Load	0x2,-0x7
027c e003       |    |		Load	0x0,0x3
027d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
027e c5f9       |    |		Store	0x2,-0x7
027f e5f9       |    |		Load	0x2,-0x7
0280 e5fa       |    |		Load	0x2,-0x6
0281 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0282 e5fb       |    |		Load	0x2,-0x5
0283 e5fc       |    |		Load	0x2,-0x4
0284 e5fd       |    |		Load	0x2,-0x3
0285 e402       |    |		Load	0x2,0x2
0286 e5fe       |    |		Load	0x2,-0x2
0287 e5fa       |    |		Load	0x2,-0x6
0288 8005       |    |		Call	0x0,0x5
0289 e5ff       |    |		Load	0x2,-0x1
028a 8014       |    |		Call	0x0,0x14
028b e5fa       |    |		Load	0x2,-0x6
028c 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
028d c5f9       |    |		Store	0x2,-0x7
028e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
028f 0000       |    |		.XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029b       |    |		.CONST	0x029b								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0002       |    |		.CONST	0x0002								; Number of locals
0293			INIT_0290:
0293 00db       |    |		Load_Top	At_Offset_3
0294 e5fa       |    |		Load	0x2,-0x6
0295 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0296 e5ff       |    |		Load	0x2,-0x1
0297 8008       |    |		Call	0x0,0x8
0298 e009       |    |		Load	0x0,0x9
0299 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
029a 03f1       |    |		Declare_Variable	Discrete,With_Value
029b			BODY_0290:
029b e5f9       |    |		Load	0x2,-0x7
029c e003       |    |		Load	0x0,0x3
029d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
029e c5f9       |    |		Store	0x2,-0x7
029f e5f9       |    |		Load	0x2,-0x7
02a0 e5fa       |    |		Load	0x2,-0x6
02a1 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
02a2 e5fb       |    |		Load	0x2,-0x5
02a3 e5fc       |    |		Load	0x2,-0x4
02a4 e5fd       |    |		Load	0x2,-0x3
02a5 e402       |    |		Load	0x2,0x2
02a6 e5fe       |    |		Load	0x2,-0x2
02a7 e5fa       |    |		Load	0x2,-0x6
02a8 8005       |    |		Call	0x0,0x5
02a9 e5ff       |    |		Load	0x2,-0x1
02aa 8014       |    |		Call	0x0,0x14
02ab e5fa       |    |		Load	0x2,-0x6
02ac 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
02ad c5f9       |    |		Store	0x2,-0x7
02ae 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02af 0000       |    |		.XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 e5fc       |    |		Load	0x2,-0x4
02b4 e003       |    |		Load	0x0,0x3
02b5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02b6 c5fc       |    |		Store	0x2,-0x4
02b7 e5fc       |    |		Load	0x2,-0x4
02b8 e5fd       |    |		Load	0x2,-0x3
02b9 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
02ba 8015       |    |		Call	0x0,0x15
02bb e5fd       |    |		Load	0x2,-0x3
02bc 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
02bd c5fc       |    |		Store	0x2,-0x4
02be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bf 0000       |    |		.XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 e5fc       |    |		Load	0x2,-0x4
02c4 e003       |    |		Load	0x0,0x3
02c5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02c6 c5fc       |    |		Store	0x2,-0x4
02c7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02ce       |    |		.CONST	0x02ce								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0002       |    |		.CONST	0x0002								; Number of locals
02cb			INIT_02c8:
02cb e5fc       |    |		Load	0x2,-0x4
02cc 8016       |    |		Call	0x0,0x16
02cd 8017       |    |		Call	0x0,0x17
02ce			BODY_02c8:
02ce e5fb       |    |		Load	0x2,-0x5
02cf e003       |    |		Load	0x0,0x3
02d0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02d1 c5fb       |    |		Store	0x2,-0x5
02d2 e5fb       |    |		Load	0x2,-0x5
02d3 e5fc       |    |		Load	0x2,-0x4
02d4 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
02d5 e5fd       |    |		Load	0x2,-0x3
02d6 e5fc       |    |		Load	0x2,-0x4
02d7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02d8 e5fe       |    |		Load	0x2,-0x2
02d9 e5ff       |    |		Load	0x2,-0x1
02da e5fc       |    |		Load	0x2,-0x4
02db 8016       |    |		Call	0x0,0x16
02dc 8018       |    |		Call	0x0,0x18
02dd e5fc       |    |		Load	0x2,-0x4
02de 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
02df c5fb       |    |		Store	0x2,-0x5
02e0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02e1 0000 0000  |    |		.BLANK	0000[0x7]
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 e5fb       |    |		Load	0x2,-0x5
02ec e003       |    |		Load	0x0,0x3
02ed 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02ee c5fb       |    |		Store	0x2,-0x5
02ef e5fb       |    |		Load	0x2,-0x5
02f0 e5fc       |    |		Load	0x2,-0x4
02f1 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
02f2 e5fd       |    |		Load	0x2,-0x3
02f3 e5fe       |    |		Load	0x2,-0x2
02f4 e5fc       |    |		Load	0x2,-0x4
02f5 8019       |    |		Call	0x0,0x19
02f6 e5ff       |    |		Load	0x2,-0x1
02f7 801a       |    |		Call	0x0,0x1a
02f8 e5fc       |    |		Load	0x2,-0x4
02f9 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
02fa c5fb       |    |		Store	0x2,-0x5
02fb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02fc 0000 0000  |    |		.BLANK	0000[0x4]
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 e5fc       |    |		Load	0x2,-0x4
0304 e003       |    |		Load	0x0,0x3
0305 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0306 c5fc       |    |		Store	0x2,-0x4
0307 e5fc       |    |		Load	0x2,-0x4
0308 e5fd       |    |		Load	0x2,-0x3
0309 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
030a 4800       |H   |		Short_Literal	0x0
030b e5fe       |    |		Load	0x2,-0x2
030c e5ff       |    |		Load	0x2,-0x1
030d 801b       |    |		Call	0x0,0x1b
030e e5fd       |    |		Load	0x2,-0x3
030f 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0310 c5fc       |    |		Store	0x2,-0x4
0311 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0312 0000 0000  |    |		.BLANK	0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b e5f7       |    |		Load	0x2,-0x9
031c e003       |    |		Load	0x0,0x3
031d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
031e c5f7       |    |		Store	0x2,-0x9
031f e5f7       |    |		Load	0x2,-0x9
0320 00e5       |    |		Load_Encached	Long_Integer_Cache
0321 00e5       |    |		Load_Encached	Long_Integer_Cache
0322 00e1       |    |		Load_Encached	Boolean_Cache
0323 e5fb       |    |		Load	0x2,-0x5
0324 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0325 e5fc       |    |		Load	0x2,-0x4
0326 4800       |H   |		Short_Literal	0x0
0327 e5fd       |    |		Load	0x2,-0x3
0328 e5fe       |    |		Load	0x2,-0x2
0329 e5ff       |    |		Load	0x2,-0x1
032a e5fb       |    |		Load	0x2,-0x5
032b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
032c 801c       |    |		Call	0x0,0x1c
032d e5fb       |    |		Load	0x2,-0x5
032e 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
032f c5fa       |    |		Store	0x2,-0x6
0330 c5f9       |    |		Store	0x2,-0x7
0331 c5f8       |    |		Store	0x2,-0x8
0332 c5f7       |    |		Store	0x2,-0x9
0333 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0334 0000 0000  |    |		.BLANK	0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b e5fc       |    |		Load	0x2,-0x4
033c e003       |    |		Load	0x0,0x3
033d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
033e c5fc       |    |		Store	0x2,-0x4
033f e5fc       |    |		Load	0x2,-0x4
0340 e5fd       |    |		Load	0x2,-0x3
0341 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0342 e5fe       |    |		Load	0x2,-0x2
0343 e5ff       |    |		Load	0x2,-0x1
0344 e5fd       |    |		Load	0x2,-0x3
0345 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0346 822d       | -  |		Call	0x1,0x2d
0347 801d       |    |		Call	0x0,0x1d
0348 e5fd       |    |		Load	0x2,-0x3
0349 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
034a c5fc       |    |		Store	0x2,-0x4
034b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
034c 0000 0000  |    |		.BLANK	0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 e5fb       |    |		Load	0x2,-0x5
0354 e003       |    |		Load	0x0,0x3
0355 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0356 c5fb       |    |		Store	0x2,-0x5
0357 e5fb       |    |		Load	0x2,-0x5
0358 e5fc       |    |		Load	0x2,-0x4
0359 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
035a e5fd       |    |		Load	0x2,-0x3
035b 801e       |    |		Call	0x0,0x1e
035c e5fc       |    |		Load	0x2,-0x4
035d 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
035e c5fb       |    |		Store	0x2,-0x5
035f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 e5fc       |    |		Load	0x2,-0x4
0364 e003       |    |		Load	0x0,0x3
0365 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0366 c5fc       |    |		Store	0x2,-0x4
0367 e5fc       |    |		Load	0x2,-0x4
0368 e5fd       |    |		Load	0x2,-0x3
0369 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
036a e5fe       |    |		Load	0x2,-0x2
036b 4800       |H   |		Short_Literal	0x0
036c e5ff       |    |		Load	0x2,-0x1
036d 801f       |    |		Call	0x0,0x1f
036e e5fd       |    |		Load	0x2,-0x3
036f 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0370 c5fc       |    |		Store	0x2,-0x4
0371 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0372 0000 0000  |    |		.BLANK	0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b e5fa       |    |		Load	0x2,-0x6
037c e003       |    |		Load	0x0,0x3
037d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
037e c5fa       |    |		Store	0x2,-0x6
037f e5fa       |    |		Load	0x2,-0x6
0380 e5fb       |    |		Load	0x2,-0x5
0381 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0382 e5fc       |    |		Load	0x2,-0x4
0383 e5fd       |    |		Load	0x2,-0x3
0384 e5fe       |    |		Load	0x2,-0x2
0385 e5ff       |    |		Load	0x2,-0x1
0386 8020       |    |		Call	0x0,0x20
0387 e5fb       |    |		Load	0x2,-0x5
0388 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0389 c5fa       |    |		Store	0x2,-0x6
038a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
038b 0000 0000  |    |		.BLANK	0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 e5fd       |    |		Load	0x2,-0x3
0394 e003       |    |		Load	0x0,0x3
0395 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0396 c5fd       |    |		Store	0x2,-0x3
0397 e5fd       |    |		Load	0x2,-0x3
0398 e5fe       |    |		Load	0x2,-0x2
0399 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
039a e5ff       |    |		Load	0x2,-0x1
039b 8021       | !  |		Call	0x0,0x21
039c e5fe       |    |		Load	0x2,-0x2
039d 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
039e c5fd       |    |		Store	0x2,-0x3
039f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 e5f9       |    |		Load	0x2,-0x7
03a4 e003       |    |		Load	0x0,0x3
03a5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03a6 c5f9       |    |		Store	0x2,-0x7
03a7 e5f9       |    |		Load	0x2,-0x7
03a8 e5fa       |    |		Load	0x2,-0x6
03a9 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03aa e5fb       |    |		Load	0x2,-0x5
03ab e5fc       |    |		Load	0x2,-0x4
03ac e5fd       |    |		Load	0x2,-0x3
03ad e5fe       |    |		Load	0x2,-0x2
03ae e5ff       |    |		Load	0x2,-0x1
03af 8022       | "  |		Call	0x0,0x22
03b0 e5fa       |    |		Load	0x2,-0x6
03b1 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
03b2 c5f9       |    |		Store	0x2,-0x7
03b3 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03b4 0000 0000  |    |		.BLANK	0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb 00da       |    |		Load_Top	At_Offset_2
03bc 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03bd 8023       | #  |		Call	0x0,0x23
03be 00db       |    |		Load_Top	At_Offset_3
03bf 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
03c0 00db       |    |		Load_Top	At_Offset_3
03c1 e003       |    |		Load	0x0,0x3
03c2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03c3 c5fe       |    |		Store	0x2,-0x2
03c4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03c5 0000 0000  |    |		.XXX[0x3]
03c7 0000       |    |
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 00db       |    |		Load_Top	At_Offset_3
03cc e003       |    |		Load	0x0,0x3
03cd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03ce c5fe       |    |		Store	0x2,-0x2
03cf 00db       |    |		Load_Top	At_Offset_3
03d0 00db       |    |		Load_Top	At_Offset_3
03d1 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
03d2 8024       | $  |		Call	0x0,0x24
03d3 e5ff       |    |		Load	0x2,-0x1
03d4 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
03d5 c5fe       |    |		Store	0x2,-0x2
03d6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03d7 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
03dc 00eb       |    |		Load_Encached	Diana_Cache
03dd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03de 00d8       |    |		Load_Top	At_Offset_0
03df 4864       |Hd  |		Short_Literal	0x64
03e0 4876       |Hv  |		Short_Literal	0x76
03e1 0262       | b  |		Execute	Discrete,In_Range
03e2 6821       |h!  |		Jump_Zero	0x404
03e3 0a9c       |    |		Execute_Immediate	Plus,-0x64
03e4 4612       |F   |		Jump_Case	0x13
03e5 7818       |x   |		Jump	0x3fe								; case 0x0
03e6 7811       |x   |		Jump	0x3f8								; case 0x1
03e7 781d       |x   |		Jump	0x405								; case 0x2
03e8 781c       |x   |		Jump	0x405								; case 0x3
03e9 781b       |x   |		Jump	0x405								; case 0x4
03ea 781a       |x   |		Jump	0x405								; case 0x5
03eb 7819       |x   |		Jump	0x405								; case 0x6
03ec 7813       |x   |		Jump	0x400								; case 0x7
03ed 7817       |x   |		Jump	0x405								; case 0x8
03ee 7816       |x   |		Jump	0x405								; case 0x9
03ef 780c       |x   |		Jump	0x3fc								; case 0xa
03f0 7809       |x   |		Jump	0x3fa								; case 0xb
03f1 7813       |x   |		Jump	0x405								; case 0xc
03f2 7812       |x   |		Jump	0x405								; case 0xd
03f3 7811       |x   |		Jump	0x405								; case 0xe
03f4 780d       |x   |		Jump	0x402								; case 0xf
03f5 7804       |x   |		Jump	0x3fa								; case 0x10
03f6 7807       |x   |		Jump	0x3fe								; case 0x11
03f7 7800       |x   |		Jump	0x3f8								; case 0x12
03f8 4802       |H   |		Short_Literal	0x2
03f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fa 4800       |H   |		Short_Literal	0x0
03fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fc 4801       |H   |		Short_Literal	0x1
03fd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fe 4804       |H   |		Short_Literal	0x4
03ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0400 4803       |H   |		Short_Literal	0x3
0401 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0402 4805       |H   |		Short_Literal	0x5
0403 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0404 00d1       |    |		Pop_Control	Pop_Count_1
0405 4806       |H   |		Short_Literal	0x6
0406 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug Table
0408 ; --------------------------------------------------------------------------------------
0408 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0xc10e,0x0000,0x0001,0x0000
040e 0000 0000  |    |		.BLANK	0000[0x1f2]