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

⟦e93d7143f⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02c8       |    |		.CONST	0x02c8								; 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 00de       |    |		.CONST	0x00de								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0035       | 5  |		.CONST	0x0035								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000c 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
000e 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0010 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0012 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0014 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0016 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0018 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
001a 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
001c 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
001e 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0020 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0022 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0024 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0026 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0028 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
002a 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
002c 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
002e 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0030 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0032 0093 0000  |    |		push_full_address	0x0
0034 60bb       |`   |		Indirect_Literal	Discrete,0xf0,{0x80000000, 0x00020000}
0035 0273       | s  |		Execute	Discrete,Plus
0036 e002       |    |		Load	0x0,0x2
0037 0273       | s  |		Execute	Discrete,Plus
0038 e003       |    |		Load	0x0,0x3
0039 0273       | s  |		Execute	Discrete,Plus
003a e20d       |    |		Load	0x1,0xd
003b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
003c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
003d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
003e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003f e004       |    |		Load	0x0,0x4
0040 0386       |    |		Declare_Variable	Package,Visible
0041 00d8       |    |		Load_Top	At_Offset_0
0042 020f       |    |		Execute	Module,Activate
0043 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0045 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0047 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0049 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
004b 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
004d 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
004f 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0051 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0053 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0055 e005       |    |		Load	0x0,0x5
0056 02a0       |    |		Declare_Subprogram	Null_Subprogram
0057 4818       |H   |		Short_Literal	0x18
0058 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0059 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
005b 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
005d 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
005f 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0061 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0063 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0065 0093 0000  |    |		push_full_address	0x0
0067 6084       |`   |		Indirect_Literal	Discrete,0xec,{0x80000000, 0x00010000}
0068 0273       | s  |		Execute	Discrete,Plus
0069 e002       |    |		Load	0x0,0x2
006a 0273       | s  |		Execute	Discrete,Plus
006b e006       |    |		Load	0x0,0x6
006c 0273       | s  |		Execute	Discrete,Plus
006d 480a       |H   |		Short_Literal	0xa
006e e007       |    |		Load	0x0,0x7
006f a008       |    |		Store_Unchecked	0x0,0x8
0070 a009       |    |		Store_Unchecked	0x0,0x9
0071 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0072 a00a       |    |		Store_Unchecked	0x0,0xa
0073 e22b       | +  |		Load	0x1,0x2b
0074 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0075 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0076 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0077 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0078 a00b       |    |		Store_Unchecked	0x0,0xb
0079 e00c       |    |		Load	0x0,0xc
007a 0386       |    |		Declare_Variable	Package,Visible
007b 00d8       |    |		Load_Top	At_Offset_0
007c 020f       |    |		Execute	Module,Activate
007d e007       |    |		Load	0x0,0x7
007e e00d       |    |		Load	0x0,0xd
007f 00e3       |    |		Load_Encached	Natural_Cache
0080 00e3       |    |		Load_Encached	Natural_Cache
0081 00e3       |    |		Load_Encached	Natural_Cache
0082 00e3       |    |		Load_Encached	Natural_Cache
0083 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
0085 4806       |H   |		Short_Literal	0x6
0086 032e       | .  |		Declare_Type	Record,Defined,Visible
0087 00d8       |    |		Load_Top	At_Offset_0
0088 02a0       |    |		Declare_Subprogram	Null_Subprogram
0089 e20d       |    |		Load	0x1,0xd
008a 03a3       |    |		Complete_Type	Heap_Access,By_Defining
008b e00e       |    |		Load	0x0,0xe
008c e007       |    |		Load	0x0,0x7
008d 00d8       |    |		Load_Top	At_Offset_0
008e e007       |    |		Load	0x0,0x7
008f 00e1       |    |		Load_Encached	Boolean_Cache
0090 e00f       |    |		Load	0x0,0xf
0091 e221       | !  |		Load	0x1,0x21
0092 0098       |    |		Execute	Package,Field_Read_Dynamic
0093 02a0       |    |		Declare_Subprogram	Null_Subprogram
0094 4806       |H   |		Short_Literal	0x6
0095 032e       | .  |		Declare_Type	Record,Defined,Visible
0096 00d8       |    |		Load_Top	At_Offset_0
0097 02a0       |    |		Declare_Subprogram	Null_Subprogram
0098 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0099 00bf       |    |		Action	Accept_Activation
009a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00cf 00c7       |    |		Action	Elaborate_Subprogram
00d0 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00d1 00c7       |    |		Action	Elaborate_Subprogram
00d2 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00d3 00c7       |    |		Action	Elaborate_Subprogram
00d4 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00d5 00c7       |    |		Action	Elaborate_Subprogram
00d6 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00d7 00c7       |    |		Action	Elaborate_Subprogram
00d8 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00d9 00c7       |    |		Action	Elaborate_Subprogram
00da 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00db 00c7       |    |		Action	Elaborate_Subprogram
00dc 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00dd 00c7       |    |		Action	Elaborate_Subprogram
00de			BODY_0008:
00de 00bc       |    |		Action	Signal_Activated
00df 00bb       |    |		Action	Signal_Completion
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 8213       |    |		Call	0x1,0x13
00e5 e5fe       |    |		Load	0x2,-0x2
00e6 8213       |    |		Call	0x1,0x13
00e7 01df       |    |		Execute	Vector,Equal
00e8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e9 0000 0000  |    |		.XXX[0x3]
00eb 0000       |    |
00ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00f0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00f4 0000 0000  |    |		.BLANK	0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e20d       |    |		Load	0x1,0xd
00fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 6808       |h   |		Jump_Zero	0x10d
0105 00da       |    |		Load_Top	At_Offset_2
0106 0219       |    |		Execute	Heap_Access,All_Read
0107 00d8       |    |		Load_Top	At_Offset_0
0108 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0109 8009       |    |		Call	0x0,0x9
010a 00d9       |    |		Load_Top	At_Offset_1
010b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
010c 00d1       |    |		Pop_Control	Pop_Count_1
010d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 0217       |    |		Execute	Heap_Access,All_Reference
0115 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0116 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0117 0000       |    |		.XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2
011c 0217       |    |		Execute	Heap_Access,All_Reference
011d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011f 0000       |    |		.XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 0217       |    |		Execute	Heap_Access,All_Reference
0125 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0126 8010       |    |		Call	0x0,0x10
0127 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c 0217       |    |		Execute	Heap_Access,All_Reference
012d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
012e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012f 0000       |    |		.XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2
0134 0217       |    |		Execute	Heap_Access,All_Reference
0135 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0136 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c 0217       |    |		Execute	Heap_Access,All_Reference
013d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
013e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013f 0000       |    |		.XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 0217       |    |		Execute	Heap_Access,All_Reference
0145 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0146 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0147 0000       |    |		.XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b e5fd       |    |		Load	0x2,-0x3
014c 0219       |    |		Execute	Heap_Access,All_Read
014d 00d8       |    |		Load_Top	At_Offset_0
014e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
014f e5fe       |    |		Load	0x2,-0x2
0150 e5ff       |    |		Load	0x2,-0x1
0151 8011       |    |		Call	0x0,0x11
0152 00d9       |    |		Load_Top	At_Offset_1
0153 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0154 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c e5fe       |    |		Load	0x2,-0x2
015d 0217       |    |		Execute	Heap_Access,All_Reference
015e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
015f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 e5fe       |    |		Load	0x2,-0x2
0165 0217       |    |		Execute	Heap_Access,All_Reference
0166 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0167 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c e5fe       |    |		Load	0x2,-0x2
016d 0217       |    |		Execute	Heap_Access,All_Reference
016e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
016f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00da       |    |		Load_Top	At_Offset_2
0174 e5fe       |    |		Load	0x2,-0x2
0175 0217       |    |		Execute	Heap_Access,All_Reference
0176 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0177 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c e5fd       |    |		Load	0x2,-0x3
017d 0217       |    |		Execute	Heap_Access,All_Reference
017e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
017f 00db       |    |		Load_Top	At_Offset_3
0180 e5fd       |    |		Load	0x2,-0x3
0181 0217       |    |		Execute	Heap_Access,All_Reference
0182 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0183 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c e5fd       |    |		Load	0x2,-0x3
018d 0217       |    |		Execute	Heap_Access,All_Reference
018e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
018f 00db       |    |		Load_Top	At_Offset_3
0190 e5fd       |    |		Load	0x2,-0x3
0191 0217       |    |		Execute	Heap_Access,All_Reference
0192 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0193 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0194 0000 0000  |    |		.BLANK	0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00db       |    |		Load_Top	At_Offset_3
019c 820f       |    |		Call	0x1,0xf
019d a5fd       |    |		Store_Unchecked	0x2,-0x3
019e e20d       |    |		Load	0x1,0xd
019f e5fe       |    |		Load	0x2,-0x2
01a0 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
01a1 00d8       |    |		Load_Top	At_Offset_0
01a2 0217       |    |		Execute	Heap_Access,All_Reference
01a3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a4 a5fd       |    |		Store_Unchecked	0x2,-0x3
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 00db       |    |		Load_Top	At_Offset_3
01a7 8012       |    |		Call	0x0,0x12
01a8 8013       |    |		Call	0x0,0x13
01a9 e5fd       |    |		Load	0x2,-0x3
01aa 0217       |    |		Execute	Heap_Access,All_Reference
01ab 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ac 00db       |    |		Load_Top	At_Offset_3
01ad 8014       |    |		Call	0x0,0x14
01ae e5fd       |    |		Load	0x2,-0x3
01af 0217       |    |		Execute	Heap_Access,All_Reference
01b0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b2 0000 0000  |    |		.BLANK	0000[0x6]
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 e5fd       |    |		Load	0x2,-0x3
01bc 8210       |    |		Call	0x1,0x10
01bd c5fd       |    |		Store	0x2,-0x3
01be 00db       |    |		Load_Top	At_Offset_3
01bf 820f       |    |		Call	0x1,0xf
01c0 a5fd       |    |		Store_Unchecked	0x2,-0x3
01c1 e20d       |    |		Load	0x1,0xd
01c2 e5fe       |    |		Load	0x2,-0x2
01c3 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
01c4 00d8       |    |		Load_Top	At_Offset_0
01c5 0217       |    |		Execute	Heap_Access,All_Reference
01c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c7 a5fd       |    |		Store_Unchecked	0x2,-0x3
01c8 00da       |    |		Load_Top	At_Offset_2
01c9 0217       |    |		Execute	Heap_Access,All_Reference
01ca 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01cb e5fd       |    |		Load	0x2,-0x3
01cc 0217       |    |		Execute	Heap_Access,All_Reference
01cd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01ce 00da       |    |		Load_Top	At_Offset_2
01cf 0217       |    |		Execute	Heap_Access,All_Reference
01d0 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01d1 e5fd       |    |		Load	0x2,-0x3
01d2 0217       |    |		Execute	Heap_Access,All_Reference
01d3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01d4 00da       |    |		Load_Top	At_Offset_2
01d5 0217       |    |		Execute	Heap_Access,All_Reference
01d6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01d7 e5fd       |    |		Load	0x2,-0x3
01d8 0217       |    |		Execute	Heap_Access,All_Reference
01d9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01da 00da       |    |		Load_Top	At_Offset_2
01db 0217       |    |		Execute	Heap_Access,All_Reference
01dc 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01dd e5fd       |    |		Load	0x2,-0x3
01de 0217       |    |		Execute	Heap_Access,All_Reference
01df 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01e0 e5fd       |    |		Load	0x2,-0x3
01e1 0219       |    |		Execute	Heap_Access,All_Read
01e2 00d8       |    |		Load_Top	At_Offset_0
01e3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e4 e5fe       |    |		Load	0x2,-0x2
01e5 e5ff       |    |		Load	0x2,-0x1
01e6 0217       |    |		Execute	Heap_Access,All_Reference
01e7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e8 8015       |    |		Call	0x0,0x15
01e9 00d9       |    |		Load_Top	At_Offset_1
01ea 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01eb 00d1       |    |		Pop_Control	Pop_Count_1
01ec e5fd       |    |		Load	0x2,-0x3
01ed 0219       |    |		Execute	Heap_Access,All_Read
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f0 e5fe       |    |		Load	0x2,-0x2
01f1 e5ff       |    |		Load	0x2,-0x1
01f2 0217       |    |		Execute	Heap_Access,All_Reference
01f3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f4 8011       |    |		Call	0x0,0x11
01f5 00d9       |    |		Load_Top	At_Offset_1
01f6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fd       |    |		.CONST	0x01fd								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb e235       | 5  |		Load	0x1,0x35
01fc 0007       |    |		Action	Break_Optional
01fd			BODY_01f8:
01fd e235       | 5  |		Load	0x1,0x35
01fe 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01ff e235       | 5  |		Load	0x1,0x35
0200 e5f9       |    |		Load	0x2,-0x7
0201 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0202 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0203 00d8       |    |		Load_Top	At_Offset_0
0204 0219       |    |		Execute	Heap_Access,All_Read
0205 00d8       |    |		Load_Top	At_Offset_0
0206 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0207 e5f9       |    |		Load	0x2,-0x7
0208 e5ff       |    |		Load	0x2,-0x1
0209 8015       |    |		Call	0x0,0x15
020a 00d9       |    |		Load_Top	At_Offset_1
020b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
020c 00d1       |    |		Pop_Control	Pop_Count_1
020d 00d8       |    |		Load_Top	At_Offset_0
020e 0219       |    |		Execute	Heap_Access,All_Read
020f 00d8       |    |		Load_Top	At_Offset_0
0210 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0211 e5f9       |    |		Load	0x2,-0x7
0212 e5fe       |    |		Load	0x2,-0x2
0213 8015       |    |		Call	0x0,0x15
0214 00d9       |    |		Load_Top	At_Offset_1
0215 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0216 00d1       |    |		Pop_Control	Pop_Count_1
0217 00d8       |    |		Load_Top	At_Offset_0
0218 0219       |    |		Execute	Heap_Access,All_Read
0219 00d8       |    |		Load_Top	At_Offset_0
021a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
021b e5f9       |    |		Load	0x2,-0x7
021c e5fd       |    |		Load	0x2,-0x3
021d 8015       |    |		Call	0x0,0x15
021e 00d9       |    |		Load_Top	At_Offset_1
021f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0220 00d1       |    |		Pop_Control	Pop_Count_1
0221 e5fc       |    |		Load	0x2,-0x4
0222 00d9       |    |		Load_Top	At_Offset_1
0223 0217       |    |		Execute	Heap_Access,All_Reference
0224 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0225 e5fb       |    |		Load	0x2,-0x5
0226 00d9       |    |		Load_Top	At_Offset_1
0227 0217       |    |		Execute	Heap_Access,All_Reference
0228 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0229 e5fa       |    |		Load	0x2,-0x6
022a 00d9       |    |		Load_Top	At_Offset_1
022b 0217       |    |		Execute	Heap_Access,All_Reference
022c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
022d 00d8       |    |		Load_Top	At_Offset_0
022e 4407       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x7
022f 0000       |    |		.XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0234 0000 0000  |    |		.BLANK	0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 00da       |    |		Load_Top	At_Offset_2
023c 021d       |    |		Execute	Heap_Access,Is_Null
023d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023e 0000 0000  |    |		.XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 0217       |    |		Execute	Heap_Access,All_Reference
0245 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0246 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0247 0000       |    |		.XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00da       |    |		Load_Top	At_Offset_2
024c 0217       |    |		Execute	Heap_Access,All_Reference
024d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
024e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024f 0000       |    |		.XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 0217       |    |		Execute	Heap_Access,All_Reference
0255 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0256 8010       |    |		Call	0x0,0x10
0257 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c 0217       |    |		Execute	Heap_Access,All_Reference
025d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
025e 8010       |    |		Call	0x0,0x10
025f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 0217       |    |		Execute	Heap_Access,All_Reference
0265 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0266 8010       |    |		Call	0x0,0x10
0267 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c 0217       |    |		Execute	Heap_Access,All_Reference
026d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
026e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026f 0000       |    |		.XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 4801       |H   |		Short_Literal	0x1
0274 00d8       |    |		Load_Top	At_Offset_0
0275 e005       |    |		Load	0x0,0x5
0276 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0277 e22b       | +  |		Load	0x1,0x2b
0278 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0279 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027a 0000 0000  |    |		.BLANK	0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 0833       | 3  |		Execute_Immediate	Raise,0x33
0284 0000 0000  |    |		.BLANK	0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 00da       |    |		Load_Top	At_Offset_2
028c a5fd       |    |		Store_Unchecked	0x2,-0x3
028d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028e 0000 0000  |    |		.XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 e5fe       |    |		Load	0x2,-0x2
0295 022f       | /  |		Execute	Access,Equal
0296 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0297 0000       |    |		.XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 8008       |    |		Call	0x0,0x8
029d a5fe       |    |		Store_Unchecked	0x2,-0x2
029e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029f 0000       |    |		.XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e5fd       |    |		Load	0x2,-0x3
02a4 e5fe       |    |		Load	0x2,-0x2
02a5 e5ff       |    |		Load	0x2,-0x1
02a6 8015       |    |		Call	0x0,0x15
02a7 c5fd       |    |		Store	0x2,-0x3
02a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02a9 0000 0000  |    |		.BLANK	0000[0x7]
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 4601       |F   |		Jump_Case	0x2
02b4 7801       |x   |		Jump	0x2b6								; case 0x0
02b5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02b6 4800       |H   |		Short_Literal	0x0
02b7 00db       |    |		Load_Top	At_Offset_3
02b8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02b9 4800       |H   |		Short_Literal	0x0
02ba 00db       |    |		Load_Top	At_Offset_3
02bb 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02bc 4800       |H   |		Short_Literal	0x0
02bd 00db       |    |		Load_Top	At_Offset_3
02be 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02bf 4800       |H   |		Short_Literal	0x0
02c0 00db       |    |		Load_Top	At_Offset_3
02c1 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02c2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02c3 0000 0000  |    |		.BLANK	0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug Table
02c8 ; --------------------------------------------------------------------------------------
02c8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x7627,0x0000,0x0001,0x0000
02ce 0000 0000  |    |		.BLANK	0000[0x132]