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

⟦4d51a3afa⟧

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

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 0318       |    |		.CONST	0x0318								; 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 00ad       |    |		.CONST	0x00ad								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0031       | 1  |		.CONST	0x0031								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000c 00e3       |    |		Load_Encached	Natural_Cache
000d 0266       | f  |		Execute	Discrete,Bounds
000e 00da       |    |		Load_Top	At_Offset_2
000f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0010 4801       |H   |		Short_Literal	0x1
0011 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0012 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0013 00c4       |    |		Action	Make_Default
0014 e001       |    |		Load	0x0,0x1
0015 0129       | )  |		Execute	Any,Make_Visible
0016 e002       |    |		Load	0x0,0x2
0017 0129       | )  |		Execute	Any,Make_Visible
0018 e003       |    |		Load	0x0,0x3
0019 0129       | )  |		Execute	Any,Make_Visible
001a 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
001c 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
001e 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0020 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0022 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0024 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0026 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0028 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
002a 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
002c 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
002e 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0030 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0032 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0034 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0036 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0038 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
003a 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
003c 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
003e 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0040 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0042 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0044 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0046 00e9       |    |		Load_Encached	String_Cache
0047 02a0       |    |		Declare_Subprogram	Null_Subprogram
0048 03ad       |    |		Declare_Type	Heap_Access,Defined
0049 00e2       |    |		Load_Encached	Integer_Cache
004a 00e9       |    |		Load_Encached	String_Cache
004b 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
004d 4800       |H   |		Short_Literal	0x0
004e 4801       |H   |		Short_Literal	0x1
004f 4800       |H   |		Short_Literal	0x0
0050 4800       |H   |		Short_Literal	0x0
0051 4801       |H   |		Short_Literal	0x1
0052 4801       |H   |		Short_Literal	0x1
0053 031d       |    |		Declare_Type	Variant_Record,Defined
0054 00d8       |    |		Load_Top	At_Offset_0
0055 02a0       |    |		Declare_Subprogram	Null_Subprogram
0056 e20d       |    |		Load	0x1,0xd
0057 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0058 e20d       |    |		Load	0x1,0xd
0059 0007       |    |		Action	Break_Optional
005a e20e       |    |		Load	0x1,0xe
005b 02a0       |    |		Declare_Subprogram	Null_Subprogram
005c 03ad       |    |		Declare_Type	Heap_Access,Defined
005d 00d8       |    |		Load_Top	At_Offset_0
005e 0007       |    |		Action	Break_Optional
005f e22a       | *  |		Load	0x1,0x2a
0060 00d8       |    |		Load_Top	At_Offset_0
0061 e22a       | *  |		Load	0x1,0x2a
0062 00d8       |    |		Load_Top	At_Offset_0
0063 e22a       | *  |		Load	0x1,0x2a
0064 00d8       |    |		Load_Top	At_Offset_0
0065 e22a       | *  |		Load	0x1,0x2a
0066 00d8       |    |		Load_Top	At_Offset_0
0067 e22a       | *  |		Load	0x1,0x2a
0068 00e1       |    |		Load_Encached	Boolean_Cache
0069 e22a       | *  |		Load	0x1,0x2a
006a 00e2       |    |		Load_Encached	Integer_Cache
006b 00e2       |    |		Load_Encached	Integer_Cache
006c e22a       | *  |		Load	0x1,0x2a
006d 00d8       |    |		Load_Top	At_Offset_0
006e e22a       | *  |		Load	0x1,0x2a
006f 00d8       |    |		Load_Top	At_Offset_0
0070 e22d       | -  |		Load	0x1,0x2d
0071 00d8       |    |		Load_Top	At_Offset_0
0072 02a0       |    |		Declare_Subprogram	Null_Subprogram
0073 4813       |H   |		Short_Literal	0x13
0074 032d       | -  |		Declare_Type	Record,Defined
0075 00d8       |    |		Load_Top	At_Offset_0
0076 02a0       |    |		Declare_Subprogram	Null_Subprogram
0077 e20f       |    |		Load	0x1,0xf
0078 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0079 e20f       |    |		Load	0x1,0xf
007a 0129       | )  |		Execute	Any,Make_Visible
007b c210       |    |		Store	0x1,0x10
007c 00bf       |    |		Action	Accept_Activation
007d 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
007f 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
0081 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad			BODY_0008:
00ad 00bc       |    |		Action	Signal_Activated
00ae 00bb       |    |		Action	Signal_Completion
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7       |    |		.CONST	0x00b7								; Address of begin
00b1 00ce       |    |		.CONST	0x00ce								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 e004       |    |		Load	0x0,0x4
00b4 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
00b5 e20d       |    |		Load	0x1,0xd
00b6 0007       |    |		Action	Break_Optional
00b7			BODY_00b0:
00b7 e5ff       |    |		Load	0x2,-0x1
00b8 01db       |    |		Execute	Vector,Length
00b9 7002       |p   |		Jump_Nonzero	0xbc
00ba e20d       |    |		Load	0x1,0xd
00bb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00bc e5fe       |    |		Load	0x2,-0x2
00bd e005       |    |		Load	0x0,0x5
00be 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00bf 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
00c0 e5ff       |    |		Load	0x2,-0x1
00c1 01db       |    |		Execute	Vector,Length
00c2 e22b       | +  |		Load	0x1,0x2b
00c3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c4 e20d       |    |		Load	0x1,0xd
00c5 00db       |    |		Load_Top	At_Offset_3
00c6 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
00c7 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 00d9       |    |		Load_Top	At_Offset_1
00ca 0217       |    |		Execute	Heap_Access,All_Reference
00cb 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00cc 00d8       |    |		Load_Top	At_Offset_0
00cd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00ce			TRAP_00b0:
00ce e005       |    |		Load	0x0,0x5
00cf 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00d0 010f       |    |		Execute	Exception,Equal
00d1 6802       |h   |		Jump_Zero	0xd4
00d2 e212       |    |		Load	0x1,0x12
00d3 0257       | W  |		Execute	Discrete,Raise
00d4 e005       |    |		Load	0x0,0x5
00d5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00d6 010f       |    |		Execute	Exception,Equal
00d7 6802       |h   |		Jump_Zero	0xda
00d8 e211       |    |		Load	0x1,0x11
00d9 0257       | W  |		Execute	Discrete,Raise
00da 0100       |    |		Execute	Exception,Raise
00db 0000 0000  |    |		.BLANK	0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00eb       |    |		.CONST	0x00eb								; Address of begin
00e1 0177       | w  |		.CONST	0x0177								; Address of exception handler
00e2 0005       |    |		.CONST	0x0005								; Number of locals
00e3			INIT_00e0:
00e3 e22d       | -  |		Load	0x1,0x2d
00e4 0007       |    |		Action	Break_Optional
00e5 00d8       |    |		Load_Top	At_Offset_0
00e6 0007       |    |		Action	Break_Optional
00e7 e20f       |    |		Load	0x1,0xf
00e8 0007       |    |		Action	Break_Optional
00e9 e004       |    |		Load	0x0,0x4
00ea 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
00eb			BODY_00e0:
00eb e5ee       |    |		Load	0x2,-0x12
00ec 01db       |    |		Execute	Vector,Length
00ed 7003       |p   |		Jump_Nonzero	0xf1
00ee e22d       | -  |		Load	0x1,0x2d
00ef a402       |    |		Store_Unchecked	0x2,0x2
00f0 7809       |x   |		Jump	0xfa
00f1 e5ec       |    |		Load	0x2,-0x14
00f2 e005       |    |		Load	0x0,0x5
00f3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00f4 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00f5 e5ee       |    |		Load	0x2,-0x12
00f6 e22d       | -  |		Load	0x1,0x2d
00f7 00da       |    |		Load_Top	At_Offset_2
00f8 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
00f9 a402       |    |		Store_Unchecked	0x2,0x2
00fa e5ed       |    |		Load	0x2,-0x13
00fb 01db       |    |		Execute	Vector,Length
00fc 7003       |p   |		Jump_Nonzero	0x100
00fd e22d       | -  |		Load	0x1,0x2d
00fe 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00ff 7809       |x   |		Jump	0x109
0100 e5ec       |    |		Load	0x2,-0x14
0101 e005       |    |		Load	0x0,0x5
0102 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0103 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0104 e5ed       |    |		Load	0x2,-0x13
0105 e22d       | -  |		Load	0x1,0x2d
0106 00da       |    |		Load_Top	At_Offset_2
0107 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0108 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0109 e20f       |    |		Load	0x1,0xf
010a 00d9       |    |		Load_Top	At_Offset_1
010b 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
010c 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
010d 00d8       |    |		Load_Top	At_Offset_0
010e e5ff       |    |		Load	0x2,-0x1
010f 8230       | 0  |		Call	0x1,0x30
0110 00da       |    |		Load_Top	At_Offset_2
0111 0217       |    |		Execute	Heap_Access,All_Reference
0112 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0113 00d8       |    |		Load_Top	At_Offset_0
0114 e5fe       |    |		Load	0x2,-0x2
0115 8230       | 0  |		Call	0x1,0x30
0116 00da       |    |		Load_Top	At_Offset_2
0117 0217       |    |		Execute	Heap_Access,All_Reference
0118 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0119 00d8       |    |		Load_Top	At_Offset_0
011a e5fd       |    |		Load	0x2,-0x3
011b 8230       | 0  |		Call	0x1,0x30
011c 00da       |    |		Load_Top	At_Offset_2
011d 0217       |    |		Execute	Heap_Access,All_Reference
011e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
011f 00d8       |    |		Load_Top	At_Offset_0
0120 e5fc       |    |		Load	0x2,-0x4
0121 8230       | 0  |		Call	0x1,0x30
0122 00da       |    |		Load_Top	At_Offset_2
0123 0217       |    |		Execute	Heap_Access,All_Reference
0124 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0125 00d8       |    |		Load_Top	At_Offset_0
0126 e5fb       |    |		Load	0x2,-0x5
0127 8230       | 0  |		Call	0x1,0x30
0128 00da       |    |		Load_Top	At_Offset_2
0129 0217       |    |		Execute	Heap_Access,All_Reference
012a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
012b 00d8       |    |		Load_Top	At_Offset_0
012c e5fa       |    |		Load	0x2,-0x6
012d 8230       | 0  |		Call	0x1,0x30
012e 00da       |    |		Load_Top	At_Offset_2
012f 0217       |    |		Execute	Heap_Access,All_Reference
0130 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0131 00d8       |    |		Load_Top	At_Offset_0
0132 e5f9       |    |		Load	0x2,-0x7
0133 8230       | 0  |		Call	0x1,0x30
0134 00da       |    |		Load_Top	At_Offset_2
0135 0217       |    |		Execute	Heap_Access,All_Reference
0136 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0137 00d8       |    |		Load_Top	At_Offset_0
0138 e5f8       |    |		Load	0x2,-0x8
0139 8230       | 0  |		Call	0x1,0x30
013a 00da       |    |		Load_Top	At_Offset_2
013b 0217       |    |		Execute	Heap_Access,All_Reference
013c 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
013d 00d8       |    |		Load_Top	At_Offset_0
013e e5f7       |    |		Load	0x2,-0x9
013f 8230       | 0  |		Call	0x1,0x30
0140 00da       |    |		Load_Top	At_Offset_2
0141 0217       |    |		Execute	Heap_Access,All_Reference
0142 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0143 e5f6       |    |		Load	0x2,-0xa
0144 00da       |    |		Load_Top	At_Offset_2
0145 0217       |    |		Execute	Heap_Access,All_Reference
0146 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0147 00d8       |    |		Load_Top	At_Offset_0
0148 e5f5       |    |		Load	0x2,-0xb
0149 8230       | 0  |		Call	0x1,0x30
014a 00da       |    |		Load_Top	At_Offset_2
014b 0217       |    |		Execute	Heap_Access,All_Reference
014c 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
014d e5f4       |    |		Load	0x2,-0xc
014e 00da       |    |		Load_Top	At_Offset_2
014f 0217       |    |		Execute	Heap_Access,All_Reference
0150 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0151 e5f3       |    |		Load	0x2,-0xd
0152 00da       |    |		Load_Top	At_Offset_2
0153 0217       |    |		Execute	Heap_Access,All_Reference
0154 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0155 00d8       |    |		Load_Top	At_Offset_0
0156 e5f2       |    |		Load	0x2,-0xe
0157 8230       | 0  |		Call	0x1,0x30
0158 00da       |    |		Load_Top	At_Offset_2
0159 0217       |    |		Execute	Heap_Access,All_Reference
015a 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
015b 00d8       |    |		Load_Top	At_Offset_0
015c e5f1       |    |		Load	0x2,-0xf
015d 8230       | 0  |		Call	0x1,0x30
015e 00da       |    |		Load_Top	At_Offset_2
015f 0217       |    |		Execute	Heap_Access,All_Reference
0160 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0161 00d8       |    |		Load_Top	At_Offset_0
0162 e5f0       |    |		Load	0x2,-0x10
0163 8230       | 0  |		Call	0x1,0x30
0164 00da       |    |		Load_Top	At_Offset_2
0165 0217       |    |		Execute	Heap_Access,All_Reference
0166 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
0167 00d8       |    |		Load_Top	At_Offset_0
0168 e5ef       |    |		Load	0x2,-0x11
0169 8230       | 0  |		Call	0x1,0x30
016a 00da       |    |		Load_Top	At_Offset_2
016b 0217       |    |		Execute	Heap_Access,All_Reference
016c 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
016d 00db       |    |		Load_Top	At_Offset_3
016e 00da       |    |		Load_Top	At_Offset_2
016f 0217       |    |		Execute	Heap_Access,All_Reference
0170 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0171 00da       |    |		Load_Top	At_Offset_2
0172 00da       |    |		Load_Top	At_Offset_2
0173 0217       |    |		Execute	Heap_Access,All_Reference
0174 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
0175 00d9       |    |		Load_Top	At_Offset_1
0176 4414       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x14
0177			TRAP_00e0:
0177 e005       |    |		Load	0x0,0x5
0178 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0179 010f       |    |		Execute	Exception,Equal
017a 6802       |h   |		Jump_Zero	0x17d
017b e212       |    |		Load	0x1,0x12
017c 0257       | W  |		Execute	Discrete,Raise
017d e005       |    |		Load	0x0,0x5
017e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
017f 010f       |    |		Execute	Exception,Equal
0180 6802       |h   |		Jump_Zero	0x183
0181 e211       |    |		Load	0x1,0x11
0182 0257       | W  |		Execute	Discrete,Raise
0183 0100       |    |		Execute	Exception,Raise
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 00db       |    |		Load_Top	At_Offset_3
018c e006       |    |		Load	0x0,0x6
018d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018e c5fe       |    |		Store	0x2,-0x2
018f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
019c 8231       | 1  |		Call	0x1,0x31
019d 6802       |h   |		Jump_Zero	0x1a0
019e e213       |    |		Load	0x1,0x13
019f 0257       | W  |		Execute	Discrete,Raise
01a0 00da       |    |		Load_Top	At_Offset_2
01a1 0217       |    |		Execute	Heap_Access,All_Reference
01a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a3 0217       |    |		Execute	Heap_Access,All_Reference
01a4 0335       | 5  |		Declare_Variable	Array,Duplicate
01a5 00cd       |    |		Action	Spare6_Action
01a6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a7 0000       |    |		.XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 8231       | 1  |		Call	0x1,0x31
01ad 6802       |h   |		Jump_Zero	0x1b0
01ae e213       |    |		Load	0x1,0x13
01af 0257       | W  |		Execute	Discrete,Raise
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 0217       |    |		Execute	Heap_Access,All_Reference
01b2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b3 0217       |    |		Execute	Heap_Access,All_Reference
01b4 0335       | 5  |		Declare_Variable	Array,Duplicate
01b5 00cd       |    |		Action	Spare6_Action
01b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b7 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
01bc 8231       | 1  |		Call	0x1,0x31
01bd 6802       |h   |		Jump_Zero	0x1c0
01be e213       |    |		Load	0x1,0x13
01bf 0257       | W  |		Execute	Discrete,Raise
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 0217       |    |		Execute	Heap_Access,All_Reference
01c2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01c3 0217       |    |		Execute	Heap_Access,All_Reference
01c4 0335       | 5  |		Declare_Variable	Array,Duplicate
01c5 00cd       |    |		Action	Spare6_Action
01c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 8231       | 1  |		Call	0x1,0x31
01cd 6802       |h   |		Jump_Zero	0x1d0
01ce e213       |    |		Load	0x1,0x13
01cf 0257       | W  |		Execute	Discrete,Raise
01d0 00da       |    |		Load_Top	At_Offset_2
01d1 0217       |    |		Execute	Heap_Access,All_Reference
01d2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01d3 0217       |    |		Execute	Heap_Access,All_Reference
01d4 0335       | 5  |		Declare_Variable	Array,Duplicate
01d5 00cd       |    |		Action	Spare6_Action
01d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d7 0000       |    |		.XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc 8231       | 1  |		Call	0x1,0x31
01dd 6802       |h   |		Jump_Zero	0x1e0
01de e213       |    |		Load	0x1,0x13
01df 0257       | W  |		Execute	Discrete,Raise
01e0 00da       |    |		Load_Top	At_Offset_2
01e1 0217       |    |		Execute	Heap_Access,All_Reference
01e2 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
01e3 0217       |    |		Execute	Heap_Access,All_Reference
01e4 0335       | 5  |		Declare_Variable	Array,Duplicate
01e5 00cd       |    |		Action	Spare6_Action
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 0000       |    |		.XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2
01ec 8231       | 1  |		Call	0x1,0x31
01ed 6802       |h   |		Jump_Zero	0x1f0
01ee e213       |    |		Load	0x1,0x13
01ef 0257       | W  |		Execute	Discrete,Raise
01f0 00da       |    |		Load_Top	At_Offset_2
01f1 0217       |    |		Execute	Heap_Access,All_Reference
01f2 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
01f3 7002       |p   |		Jump_Nonzero	0x1f6
01f4 4800       |H   |		Short_Literal	0x0
01f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 0217       |    |		Execute	Heap_Access,All_Reference
01f8 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
01f9 0217       |    |		Execute	Heap_Access,All_Reference
01fa 01db       |    |		Execute	Vector,Length
01fb 00d8       |    |		Load_Top	At_Offset_0
01fc 00e2       |    |		Load_Encached	Integer_Cache
01fd 0260       | `  |		Execute	Discrete,In_Type
01fe 7001       |p   |		Jump_Nonzero	0x200
01ff 0801       |    |		Execute_Immediate	Raise,0x1
0200 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0201 0000 0000  |    |		.BLANK	0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2
020c 8231       | 1  |		Call	0x1,0x31
020d 6802       |h   |		Jump_Zero	0x210
020e e213       |    |		Load	0x1,0x13
020f 0257       | W  |		Execute	Discrete,Raise
0210 00da       |    |		Load_Top	At_Offset_2
0211 0217       |    |		Execute	Heap_Access,All_Reference
0212 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
0213 0217       |    |		Execute	Heap_Access,All_Reference
0214 0335       | 5  |		Declare_Variable	Array,Duplicate
0215 00cd       |    |		Action	Spare6_Action
0216 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0217 0000       |    |		.XXX[0x1]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 8231       | 1  |		Call	0x1,0x31
021d 6802       |h   |		Jump_Zero	0x220
021e e213       |    |		Load	0x1,0x13
021f 0257       | W  |		Execute	Discrete,Raise
0220 00da       |    |		Load_Top	At_Offset_2
0221 0217       |    |		Execute	Heap_Access,All_Reference
0222 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
0223 7002       |p   |		Jump_Nonzero	0x226
0224 4800       |H   |		Short_Literal	0x0
0225 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0226 00da       |    |		Load_Top	At_Offset_2
0227 0217       |    |		Execute	Heap_Access,All_Reference
0228 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
0229 0217       |    |		Execute	Heap_Access,All_Reference
022a 01db       |    |		Execute	Vector,Length
022b 00d8       |    |		Load_Top	At_Offset_0
022c 00e2       |    |		Load_Encached	Integer_Cache
022d 0260       | `  |		Execute	Discrete,In_Type
022e 7001       |p   |		Jump_Nonzero	0x230
022f 0801       |    |		Execute_Immediate	Raise,0x1
0230 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0231 0000 0000  |    |		.BLANK	0000[0x7]
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 8231       | 1  |		Call	0x1,0x31
023d 6802       |h   |		Jump_Zero	0x240
023e e213       |    |		Load	0x1,0x13
023f 0257       | W  |		Execute	Discrete,Raise
0240 00da       |    |		Load_Top	At_Offset_2
0241 0217       |    |		Execute	Heap_Access,All_Reference
0242 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0243 0217       |    |		Execute	Heap_Access,All_Reference
0244 0335       | 5  |		Declare_Variable	Array,Duplicate
0245 00cd       |    |		Action	Spare6_Action
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 8231       | 1  |		Call	0x1,0x31
024d 6802       |h   |		Jump_Zero	0x250
024e e213       |    |		Load	0x1,0x13
024f 0257       | W  |		Execute	Discrete,Raise
0250 00da       |    |		Load_Top	At_Offset_2
0251 0217       |    |		Execute	Heap_Access,All_Reference
0252 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0253 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0254 0000 0000  |    |		.BLANK	0000[0x4]
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 8231       | 1  |		Call	0x1,0x31
025d 6802       |h   |		Jump_Zero	0x260
025e e213       |    |		Load	0x1,0x13
025f 0257       | W  |		Execute	Discrete,Raise
0260 00da       |    |		Load_Top	At_Offset_2
0261 0217       |    |		Execute	Heap_Access,All_Reference
0262 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0263 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0264 0000 0000  |    |		.BLANK	0000[0x4]
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 8231       | 1  |		Call	0x1,0x31
026d 6802       |h   |		Jump_Zero	0x270
026e e213       |    |		Load	0x1,0x13
026f 0257       | W  |		Execute	Discrete,Raise
0270 00da       |    |		Load_Top	At_Offset_2
0271 0217       |    |		Execute	Heap_Access,All_Reference
0272 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0273 0217       |    |		Execute	Heap_Access,All_Reference
0274 0335       | 5  |		Declare_Variable	Array,Duplicate
0275 00cd       |    |		Action	Spare6_Action
0276 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0277 0000       |    |		.XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2
027c 8231       | 1  |		Call	0x1,0x31
027d 6802       |h   |		Jump_Zero	0x280
027e e213       |    |		Load	0x1,0x13
027f 0257       | W  |		Execute	Discrete,Raise
0280 00da       |    |		Load_Top	At_Offset_2
0281 0217       |    |		Execute	Heap_Access,All_Reference
0282 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0283 0217       |    |		Execute	Heap_Access,All_Reference
0284 01db       |    |		Execute	Vector,Length
0285 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0286 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0287 0000       |    |		.XXX[0x1]
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 8231       | 1  |		Call	0x1,0x31
028d 6802       |h   |		Jump_Zero	0x290
028e e213       |    |		Load	0x1,0x13
028f 0257       | W  |		Execute	Discrete,Raise
0290 00da       |    |		Load_Top	At_Offset_2
0291 0217       |    |		Execute	Heap_Access,All_Reference
0292 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0293 0217       |    |		Execute	Heap_Access,All_Reference
0294 0335       | 5  |		Declare_Variable	Array,Duplicate
0295 00cd       |    |		Action	Spare6_Action
0296 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 8231       | 1  |		Call	0x1,0x31
029d 6802       |h   |		Jump_Zero	0x2a0
029e e213       |    |		Load	0x1,0x13
029f 0257       | W  |		Execute	Discrete,Raise
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 0217       |    |		Execute	Heap_Access,All_Reference
02a2 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a4 0000 0000  |    |		.BLANK	0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 8231       | 1  |		Call	0x1,0x31
02ad 6802       |h   |		Jump_Zero	0x2b0
02ae e213       |    |		Load	0x1,0x13
02af 0257       | W  |		Execute	Discrete,Raise
02b0 00da       |    |		Load_Top	At_Offset_2
02b1 0217       |    |		Execute	Heap_Access,All_Reference
02b2 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
02b3 0217       |    |		Execute	Heap_Access,All_Reference
02b4 0335       | 5  |		Declare_Variable	Array,Duplicate
02b5 00cd       |    |		Action	Spare6_Action
02b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b7 0000       |    |		.XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 8231       | 1  |		Call	0x1,0x31
02bd 6802       |h   |		Jump_Zero	0x2c0
02be e213       |    |		Load	0x1,0x13
02bf 0257       | W  |		Execute	Discrete,Raise
02c0 00da       |    |		Load_Top	At_Offset_2
02c1 0217       |    |		Execute	Heap_Access,All_Reference
02c2 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
02c3 0217       |    |		Execute	Heap_Access,All_Reference
02c4 0335       | 5  |		Declare_Variable	Array,Duplicate
02c5 00cd       |    |		Action	Spare6_Action
02c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c7 0000       |    |		.XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc 0217       |    |		Execute	Heap_Access,All_Reference
02cd 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02ce 0335       | 5  |		Declare_Variable	Array,Duplicate
02cf 00cd       |    |		Action	Spare6_Action
02d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d1 0000 0000  |    |		.BLANK	0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd       |    |		.CONST	0x02dd								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0002       |    |		.CONST	0x0002								; Number of locals
02db			INIT_02d8:
02db e22a       | *  |		Load	0x1,0x2a
02dc 0007       |    |		Action	Break_Optional
02dd			BODY_02d8:
02dd 00db       |    |		Load_Top	At_Offset_3
02de e22a       | *  |		Load	0x1,0x2a
02df e5fe       |    |		Load	0x2,-0x2
02e0 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02e1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02e4 0000 0000  |    |		.BLANK	0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 021d       |    |		Execute	Heap_Access,Is_Null
02ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ee 0000 0000  |    |		.XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 4608       |F   |		Jump_Case	0x9
02f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02f5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02f6 7819       |x   |		Jump	0x310								; case 0x2
02f7 7818       |x   |		Jump	0x310								; case 0x3
02f8 7817       |x   |		Jump	0x310								; case 0x4
02f9 7816       |x   |		Jump	0x310								; case 0x5
02fa 7815       |x   |		Jump	0x310								; case 0x6
02fb 7801       |x   |		Jump	0x2fd								; case 0x7
02fc 7809       |x   |		Jump	0x306								; case 0x8
02fd 00db       |    |		Load_Top	At_Offset_3
02fe 4801       |H   |		Short_Literal	0x1
02ff e5fe       |    |		Load	0x2,-0x2
0300 00e9       |    |		Load_Encached	String_Cache
0301 035b       | [  |		Declare_Type	Array,Constrained
0302 4801       |H   |		Short_Literal	0x1
0303 e5ff       |    |		Load	0x2,-0x1
0304 031b       |    |		Declare_Type	Variant_Record,Constrained
0305 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0306 00db       |    |		Load_Top	At_Offset_3
0307 00db       |    |		Load_Top	At_Offset_3
0308 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0309 4801       |H   |		Short_Literal	0x1
030a e5fe       |    |		Load	0x2,-0x2
030b 00e9       |    |		Load_Encached	String_Cache
030c 0334       | 4  |		Declare_Variable	Array,With_Constraint
030d 2d02       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
030e 016a       | j  |		QQ_execute	Variant_Record,XXX
030f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0310 0869       | i  |		Execute_Immediate	Raise,0x69
0311 0000 0000  |    |		.BLANK	0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug Table
0318 ; --------------------------------------------------------------------------------------
0318 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x2e73,0x0000,0x0001,0x0000
031e 0000 0000  |    |		.BLANK	0000[0xe2]