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

⟦b9b4aa232⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02f8       |    |		.CONST	0x02f8								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008a       |    |		.CONST	0x008a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000d 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
000f 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0011 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0013 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0015 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0017 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0019 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
001b 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
001d 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
001f 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0021 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0023 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0025 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0027 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0029 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
002b 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
002d 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002f 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0031 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0033 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0035 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0037 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0039 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
003b 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
003d 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
003f 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0041 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0043 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0045 00bf       |    |		Action	Accept_Activation
0046 e002       |    |		Load	0x0,0x2
0047 0007       |    |		Action	Break_Optional
0048 00d8       |    |		Load_Top	At_Offset_0
0049 03bd       |    |		Declare_Variable	Access,Duplicate
004a 00e2       |    |		Load_Encached	Integer_Cache
004b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
004c e003       |    |		Load	0x0,0x3
004d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
004e 00e1       |    |		Load_Encached	Boolean_Cache
004f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0050 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0089 00c7       |    |		Action	Elaborate_Subprogram
008a			BODY_0008:
008a 00bc       |    |		Action	Signal_Activated
008b 00bb       |    |		Action	Signal_Completion
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095       |    |		.CONST	0x0095								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 e004       |    |		Load	0x0,0x4
0094 0322       | "  |		Declare_Variable	Record
0095			BODY_0090:
0095 8218       |    |		Call	0x1,0x18
0096 a22a       | *  |		Store_Unchecked	0x1,0x2a
0097 00ea       |    |		Load_Encached	Null_String_Cache
0098 00ea       |    |		Load_Encached	Null_String_Cache
0099 0092 02c6  |    |		Action	Push_String_Extended,0x2c6					; "string"
009b 8217       |    |		Call	0x1,0x17
009c 00d9       |    |		Load_Top	At_Offset_1
009d 017d       | }  |		Execute	Record,Structure_Write
009e e22a       | *  |		Load	0x1,0x2a
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 821a       |    |		Call	0x1,0x1a
00a1 c22a       | *  |		Store	0x1,0x2a
00a2 00ea       |    |		Load_Encached	Null_String_Cache
00a3 00ea       |    |		Load_Encached	Null_String_Cache
00a4 0092 02c7  |    |		Action	Push_String_Extended,0x2c7					; "boolean"
00a6 8217       |    |		Call	0x1,0x17
00a7 00d9       |    |		Load_Top	At_Offset_1
00a8 017d       | }  |		Execute	Record,Structure_Write
00a9 e22a       | *  |		Load	0x1,0x2a
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab 821a       |    |		Call	0x1,0x1a
00ac c22a       | *  |		Store	0x1,0x2a
00ad 00ea       |    |		Load_Encached	Null_String_Cache
00ae 00ea       |    |		Load_Encached	Null_String_Cache
00af 0092 02c8  |    |		Action	Push_String_Extended,0x2c8					; "enum"
00b1 8217       |    |		Call	0x1,0x17
00b2 00d9       |    |		Load_Top	At_Offset_1
00b3 017d       | }  |		Execute	Record,Structure_Write
00b4 e22a       | *  |		Load	0x1,0x2a
00b5 00d9       |    |		Load_Top	At_Offset_1
00b6 821a       |    |		Call	0x1,0x1a
00b7 c22a       | *  |		Store	0x1,0x2a
00b8 00ea       |    |		Load_Encached	Null_String_Cache
00b9 00ea       |    |		Load_Encached	Null_String_Cache
00ba 0092 02c9  |    |		Action	Push_String_Extended,0x2c9					; "integer"
00bc 8217       |    |		Call	0x1,0x17
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 017d       | }  |		Execute	Record,Structure_Write
00bf e22a       | *  |		Load	0x1,0x2a
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 821a       |    |		Call	0x1,0x1a
00c2 c22a       | *  |		Store	0x1,0x2a
00c3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c4 0000 0000  |    |		.BLANK	0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e22a       | *  |		Load	0x1,0x2a
00cc 00ca       |    |		Action	Exit_Nullary_Function
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 e22a       | *  |		Load	0x1,0x2a
00d4 8222       | "  |		Call	0x1,0x22
00d5 8227       | '  |		Call	0x1,0x27
00d6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2
00dc a22d       | -  |		Store_Unchecked	0x1,0x2d
00dd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00de 0000 0000  |    |		.XXX[0x2]
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 e22d       | -  |		Load	0x1,0x2d
00e4 00ca       |    |		Action	Exit_Nullary_Function
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4801       |H   |		Short_Literal	0x1
00ec a22f       | /  |		Store_Unchecked	0x1,0x2f
00ed 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ee 0000 0000  |    |		.XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7       |    |		.CONST	0x00f7								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0003       |    |		.CONST	0x0003								; Number of locals
00f3			INIT_00f0:
00f3 e004       |    |		Load	0x0,0x4
00f4 0322       | "  |		Declare_Variable	Record
00f5 e002       |    |		Load	0x0,0x2
00f6 0007       |    |		Action	Break_Optional
00f7			BODY_00f0:
00f7 00ea       |    |		Load_Encached	Null_String_Cache
00f8 00ea       |    |		Load_Encached	Null_String_Cache
00f9 e5ff       |    |		Load	0x2,-0x1
00fa 8217       |    |		Call	0x1,0x17
00fb 00da       |    |		Load_Top	At_Offset_2
00fc 017d       | }  |		Execute	Record,Structure_Write
00fd 00d9       |    |		Load_Top	At_Offset_1
00fe e22a       | *  |		Load	0x1,0x2a
00ff 8220       |    |		Call	0x1,0x20
0100 700d       |p   |		Jump_Nonzero	0x10e
0101 e22a       | *  |		Load	0x1,0x2a
0102 8228       | (  |		Call	0x1,0x28
0103 a22b       | +  |		Store_Unchecked	0x1,0x2b
0104 e22a       | *  |		Load	0x1,0x2a
0105 00da       |    |		Load_Top	At_Offset_2
0106 821a       |    |		Call	0x1,0x1a
0107 c22a       | *  |		Store	0x1,0x2a
0108 e22b       | +  |		Load	0x1,0x2b
0109 8229       | )  |		Call	0x1,0x29
010a a22b       | +  |		Store_Unchecked	0x1,0x2b
010b e22b       | +  |		Load	0x1,0x2b
010c a22c       | ,  |		Store_Unchecked	0x1,0x2c
010d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010e e5ff       |    |		Load	0x2,-0x1
010f e22a       | *  |		Load	0x1,0x2a
0110 8224       | $  |		Call	0x1,0x24
0111 0039       | 9  |		Store_Top	Access,At_Offset_1
0112 00d8       |    |		Load_Top	At_Offset_0
0113 a22b       | +  |		Store_Unchecked	0x1,0x2b
0114 e22b       | +  |		Load	0x1,0x2b
0115 a22c       | ,  |		Store_Unchecked	0x1,0x2c
0116 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e22d       | -  |		Load	0x1,0x2d
011c 0f01       |    |		Execute_Immediate	Equal,0x1
011d 6807       |h   |		Jump_Zero	0x125
011e e22e       | .  |		Load	0x1,0x2e
011f 8005       |    |		Call	0x0,0x5
0120 c22e       | .  |		Store	0x1,0x2e
0121 e22e       | .  |		Load	0x1,0x2e
0122 00db       |    |		Load_Top	At_Offset_3
0123 8006       |    |		Call	0x0,0x6
0124 c22e       | .  |		Store	0x1,0x2e
0125 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0126 0000 0000  |    |		.XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012f       | /  |		.CONST	0x012f								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0003       |    |		.CONST	0x0003								; Number of locals
012b			INIT_0128:
012b e004       |    |		Load	0x0,0x4
012c 0322       | "  |		Declare_Variable	Record
012d 00d8       |    |		Load_Top	At_Offset_0
012e 0322       | "  |		Declare_Variable	Record
012f			BODY_0128:
012f e22c       | ,  |		Load	0x1,0x2c
0130 0227       | '  |		Execute	Access,All_Reference
0131 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0132 e22a       | *  |		Load	0x1,0x2a
0133 8220       |    |		Call	0x1,0x20
0134 e5ff       |    |		Load	0x2,-0x1
0135 0092 02c8  |    |		Action	Push_String_Extended,0x2c8					; "enum"
0137 01df       |    |		Execute	Vector,Equal
0138 0279       | y  |		Execute	Discrete,And
0139 680c       |h   |		Jump_Zero	0x146
013a e22c       | ,  |		Load	0x1,0x2c
013b 0229       | )  |		Execute	Access,All_Read
013c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013d 00d8       |    |		Load_Top	At_Offset_0
013e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
013f 0092 02c8  |    |		Action	Push_String_Extended,0x2c8					; "enum"
0141 8006       |    |		Call	0x0,0x6
0142 00d9       |    |		Load_Top	At_Offset_1
0143 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0144 00d1       |    |		Pop_Control	Pop_Count_1
0145 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0146 00ea       |    |		Load_Encached	Null_String_Cache
0147 00ea       |    |		Load_Encached	Null_String_Cache
0148 e5ff       |    |		Load	0x2,-0x1
0149 8217       |    |		Call	0x1,0x17
014a 00d9       |    |		Load_Top	At_Offset_1
014b 017d       | }  |		Execute	Record,Structure_Write
014c 00d8       |    |		Load_Top	At_Offset_0
014d e22a       | *  |		Load	0x1,0x2a
014e 8220       |    |		Call	0x1,0x20
014f 682e       |h.  |		Jump_Zero	0x17e
0150 00ea       |    |		Load_Encached	Null_String_Cache
0151 e5ff       |    |		Load	0x2,-0x1
0152 e22e       | .  |		Load	0x1,0x2e
0153 8007       |    |		Call	0x0,0x7
0154 8217       |    |		Call	0x1,0x17
0155 00da       |    |		Load_Top	At_Offset_2
0156 017d       | }  |		Execute	Record,Structure_Write
0157 e22f       | /  |		Load	0x1,0x2f
0158 6817       |h   |		Jump_Zero	0x170
0159 8218       |    |		Call	0x1,0x18
015a e22b       | +  |		Load	0x1,0x2b
015b 0227       | '  |		Execute	Access,All_Reference
015c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
015d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
015e e22b       | +  |		Load	0x1,0x2b
015f 0229       | )  |		Execute	Access,All_Read
0160 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0161 00d8       |    |		Load_Top	At_Offset_0
0162 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0163 00db       |    |		Load_Top	At_Offset_3
0164 821a       |    |		Call	0x1,0x1a
0165 00d9       |    |		Load_Top	At_Offset_1
0166 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0167 00d1       |    |		Pop_Control	Pop_Count_1
0168 e22b       | +  |		Load	0x1,0x2b
0169 0227       | '  |		Execute	Access,All_Reference
016a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
016b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
016c a22c       | ,  |		Store_Unchecked	0x1,0x2c
016d 4800       |H   |		Short_Literal	0x0
016e a22f       | /  |		Store_Unchecked	0x1,0x2f
016f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0170 e22b       | +  |		Load	0x1,0x2b
0171 0229       | )  |		Execute	Access,All_Read
0172 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0173 00d8       |    |		Load_Top	At_Offset_0
0174 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0175 00db       |    |		Load_Top	At_Offset_3
0176 821a       |    |		Call	0x1,0x1a
0177 00d9       |    |		Load_Top	At_Offset_1
0178 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0179 00d1       |    |		Pop_Control	Pop_Count_1
017a e22c       | ,  |		Load	0x1,0x2c
017b 8229       | )  |		Call	0x1,0x29
017c a22c       | ,  |		Store_Unchecked	0x1,0x2c
017d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
017e 0092 02ca  |    |		Action	Push_String_Extended,0x2ca					; "Unknown type : "
0180 e5ff       |    |		Load	0x2,-0x1
0181 01cc       |    |		Execute	Vector,Catenate
0182 e008       |    |		Load	0x0,0x8
0183 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0184 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d       |    |		.CONST	0x018d								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e004       |    |		Load	0x0,0x4
018c 0322       | "  |		Declare_Variable	Record
018d			BODY_0188:
018d e22d       | -  |		Load	0x1,0x2d
018e 0f01       |    |		Execute_Immediate	Equal,0x1
018f 6810       |h   |		Jump_Zero	0x1a0
0190 00ea       |    |		Load_Encached	Null_String_Cache
0191 00ea       |    |		Load_Encached	Null_String_Cache
0192 e5ff       |    |		Load	0x2,-0x1
0193 8217       |    |		Call	0x1,0x17
0194 00d9       |    |		Load_Top	At_Offset_1
0195 017d       | }  |		Execute	Record,Structure_Write
0196 e22c       | ,  |		Load	0x1,0x2c
0197 0229       | )  |		Execute	Access,All_Read
0198 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0199 00d8       |    |		Load_Top	At_Offset_0
019a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
019b 00da       |    |		Load_Top	At_Offset_2
019c 821a       |    |		Call	0x1,0x1a
019d 00d9       |    |		Load_Top	At_Offset_1
019e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
019f 00d1       |    |		Pop_Control	Pop_Count_1
01a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a1 0000 0000  |    |		.BLANK	0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ad       |    |		.CONST	0x01ad								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab e004       |    |		Load	0x0,0x4
01ac 0322       | "  |		Declare_Variable	Record
01ad			BODY_01a8:
01ad 00d8       |    |		Load_Top	At_Offset_0
01ae 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01af e5ff       |    |		Load	0x2,-0x1
01b0 8006       |    |		Call	0x0,0x6
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b3 00d8       |    |		Load_Top	At_Offset_0
01b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b5 e5fe       |    |		Load	0x2,-0x2
01b6 8006       |    |		Call	0x0,0x6
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b9 00d8       |    |		Load_Top	At_Offset_0
01ba 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01bb e5fd       |    |		Load	0x2,-0x3
01bc 8006       |    |		Call	0x0,0x6
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01bf e002       |    |		Load	0x0,0x2
01c0 00d9       |    |		Load_Top	At_Offset_1
01c1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01c4 0000 0000  |    |		.BLANK	0000[0x4]
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 8009       |    |		Call	0x0,0x9
01cc 00ca       |    |		Action	Exit_Nullary_Function
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 800a       |    |		Call	0x0,0xa
01d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d6 0000 0000  |    |		.XXX[0x2]
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 00db       |    |		Load_Top	At_Offset_3
01dc 00db       |    |		Load_Top	At_Offset_3
01dd 800b       |    |		Call	0x0,0xb
01de c5fe       |    |		Store	0x2,-0x2
01df 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00db       |    |		Load_Top	At_Offset_3
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 800c       |    |		Call	0x0,0xc
01e6 c5fe       |    |		Store	0x2,-0x2
01e7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00db       |    |		Load_Top	At_Offset_3
01ec 00db       |    |		Load_Top	At_Offset_3
01ed 800d       |    |		Call	0x0,0xd
01ee 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ef 0000       |    |		.XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 800e       |    |		Call	0x0,0xe
01f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 800f       |    |		Call	0x0,0xf
01fd 003b       | ;  |		Store_Top	Access,At_Offset_3
01fe 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ff 0000       |    |		.XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2
0204 8010       |    |		Call	0x0,0x10
0205 003b       | ;  |		Store_Top	Access,At_Offset_3
0206 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0207 0000       |    |		.XXX[0x1]
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 00db       |    |		Load_Top	At_Offset_3
020c 00db       |    |		Load_Top	At_Offset_3
020d 8011       |    |		Call	0x0,0x11
020e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
020f 0000       |    |		.XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0215       |    |		.CONST	0x0215								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0002       |    |		.CONST	0x0002								; Number of locals
0213			INIT_0210:
0213 e004       |    |		Load	0x0,0x4
0214 0322       | "  |		Declare_Variable	Record
0215			BODY_0210:
0215 00ea       |    |		Load_Encached	Null_String_Cache
0216 00ea       |    |		Load_Encached	Null_String_Cache
0217 e5fe       |    |		Load	0x2,-0x2
0218 8217       |    |		Call	0x1,0x17
0219 00d9       |    |		Load_Top	At_Offset_1
021a 017d       | }  |		Execute	Record,Structure_Write
021b 00d8       |    |		Load_Top	At_Offset_0
021c e5ff       |    |		Load	0x2,-0x1
021d 8011       |    |		Call	0x0,0x11
021e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021f 0000       |    |		.XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2
0224 8012       |    |		Call	0x0,0x12
0225 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00da       |    |		Load_Top	At_Offset_2
022c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022d 0000 0000  |    |		.XXX[0x3]
022f 0000       |    |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235       | 5  |		.CONST	0x0235								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0002       |    |		.CONST	0x0002								; Number of locals
0233			INIT_0230:
0233 e002       |    |		Load	0x0,0x2
0234 0007       |    |		Action	Break_Optional
0235			BODY_0230:
0235 e5fe       |    |		Load	0x2,-0x2
0236 e5ff       |    |		Load	0x2,-0x1
0237 8221       | !  |		Call	0x1,0x21
0238 6811       |h   |		Jump_Zero	0x24a
0239 00db       |    |		Load_Top	At_Offset_3
023a 8222       | "  |		Call	0x1,0x22
023b 0039       | 9  |		Store_Top	Access,At_Offset_1
023c 00cf       |    |		Action	Mark_Auxiliary
023d 7804       |x   |		Jump	0x242
023e 00d9       |    |		Load_Top	At_Offset_1
023f 821f       |    |		Call	0x1,0x1f
0240 003a       | :  |		Store_Top	Access,At_Offset_2
0241 00c9       |    |		Action	Pop_Auxiliary_Loop
0242 00d9       |    |		Load_Top	At_Offset_1
0243 8219       |    |		Call	0x1,0x19
0244 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0245 8007       |    |		Call	0x0,0x7
0246 e5fe       |    |		Load	0x2,-0x2
0247 01df       |    |		Execute	Vector,Equal
0248 6ff5       |o   |		Jump_Zero	0x23e
0249 00ce       |    |		Action	Pop_Auxiliary
024a 00d8       |    |		Load_Top	At_Offset_0
024b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
024c 0000 0000  |    |		.BLANK	0000[0x4]
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 8013       |    |		Call	0x0,0x13
0255 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0256 0000 0000  |    |		.XXX[0x2]
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 0092 02cb  |    |		Action	Push_String_Extended,0x2cb					; "Name : "
025d 00db       |    |		Load_Top	At_Offset_3
025e 0227       | '  |		Execute	Access,All_Reference
025f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0260 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0261 8007       |    |		Call	0x0,0x7
0262 01cc       |    |		Execute	Vector,Catenate
0263 e008       |    |		Load	0x0,0x8
0264 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0265 0092 02cc  |    |		Action	Push_String_Extended,0x2cc					; ", the_type : "
0267 00db       |    |		Load_Top	At_Offset_3
0268 0227       | '  |		Execute	Access,All_Reference
0269 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
026a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026b 8007       |    |		Call	0x0,0x7
026c 01cc       |    |		Execute	Vector,Catenate
026d e008       |    |		Load	0x0,0x8
026e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
026f 0092 02cd  |    |		Action	Push_String_Extended,0x2cd					; ", string_value : "
0271 00db       |    |		Load_Top	At_Offset_3
0272 0227       | '  |		Execute	Access,All_Reference
0273 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0274 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0275 8007       |    |		Call	0x0,0x7
0276 01cc       |    |		Execute	Vector,Catenate
0277 e008       |    |		Load	0x0,0x8
0278 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0279 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
027a 0000 0000  |    |		.BLANK	0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285       |    |		.CONST	0x0285								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 e002       |    |		Load	0x0,0x2
0284 0007       |    |		Action	Break_Optional
0285			BODY_0280:
0285 00db       |    |		Load_Top	At_Offset_3
0286 0039       | 9  |		Store_Top	Access,At_Offset_1
0287 00cf       |    |		Action	Mark_Auxiliary
0288 7811       |x   |		Jump	0x29a
0289 00d9       |    |		Load_Top	At_Offset_1
028a 8226       | &  |		Call	0x1,0x26
028b 00d9       |    |		Load_Top	At_Offset_1
028c 0227       | '  |		Execute	Access,All_Reference
028d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
028e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
028f 8225       | %  |		Call	0x1,0x25
0290 6805       |h   |		Jump_Zero	0x296
0291 00d9       |    |		Load_Top	At_Offset_1
0292 0227       | '  |		Execute	Access,All_Reference
0293 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0294 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0295 8227       | '  |		Call	0x1,0x27
0296 00d9       |    |		Load_Top	At_Offset_1
0297 821f       |    |		Call	0x1,0x1f
0298 003a       | :  |		Store_Top	Access,At_Offset_2
0299 00c9       |    |		Action	Pop_Auxiliary_Loop
029a 00d9       |    |		Load_Top	At_Offset_1
029b 8225       | %  |		Call	0x1,0x25
029c 77ec       |w   |		Jump_Nonzero	0x289
029d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029e 0000 0000  |    |		.XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5       |    |		.CONST	0x02a5								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 e002       |    |		Load	0x0,0x2
02a4 0007       |    |		Action	Break_Optional
02a5			BODY_02a0:
02a5 00db       |    |		Load_Top	At_Offset_3
02a6 0039       | 9  |		Store_Top	Access,At_Offset_1
02a7 00d8       |    |		Load_Top	At_Offset_0
02a8 8225       | %  |		Call	0x1,0x25
02a9 6811       |h   |		Jump_Zero	0x2bb
02aa 00d8       |    |		Load_Top	At_Offset_0
02ab 0227       | '  |		Execute	Access,All_Reference
02ac 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ad 8225       | %  |		Call	0x1,0x25
02ae 680c       |h   |		Jump_Zero	0x2bb
02af 00cf       |    |		Action	Mark_Auxiliary
02b0 7804       |x   |		Jump	0x2b5
02b1 00d9       |    |		Load_Top	At_Offset_1
02b2 8229       | )  |		Call	0x1,0x29
02b3 003a       | :  |		Store_Top	Access,At_Offset_2
02b4 00c9       |    |		Action	Pop_Auxiliary_Loop
02b5 00d9       |    |		Load_Top	At_Offset_1
02b6 0227       | '  |		Execute	Access,All_Reference
02b7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b8 8225       | %  |		Call	0x1,0x25
02b9 77f7       |w   |		Jump_Nonzero	0x2b1
02ba 00ce       |    |		Action	Pop_Auxiliary
02bb 00d8       |    |		Load_Top	At_Offset_0
02bc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02bd 0000 0000  |    |		.XXX[0x3]
02bf 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2
02c4 8014       |    |		Call	0x0,0x14
02c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c6 ; --------------------------------------------------------------------------------------
02c6 ; STRING TABLE
02c6 ; --------------------------------------------------------------------------------------
02c6 0012       |    |		.STRTAB	0x0012->0x02cf							; "string"
02c7 0016       |    |		.STRTAB	0x0016->0x02d2							; "boolean"
02c8 001b       |    |		.STRTAB	0x001b->0x02d5							; "enum"
02c9 001d       |    |		.STRTAB	0x001d->0x02d7							; "integer"
02ca 0022       | "  |		.STRTAB	0x0022->0x02db							; "Unknown type : "
02cb 002f       | /  |		.STRTAB	0x002f->0x02e2							; "Name : "
02cc 0034       | 4  |		.STRTAB	0x0034->0x02e6							; ", the_type : "
02cd 003f       | ?  |		.STRTAB	0x003f->0x02ec							; ", string_value : "
02ce 004e       | N  |		.STREND 0x004e->0x02f5
02cf 7374 7269  |stri|		.STRTAB_STRINGS
02f5 0000 0000  |    |		.XXX[0x3]
02f7 0000       |    |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug Table
02f8 ; --------------------------------------------------------------------------------------
02f8 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xda4c,0x0000,0x0001,0x001f
02fe 000b 037a  |   z|		.DBG4T	0x000b,0x037a,0x8000,0x8000
0302 0046 03b6  | F  |		.DBG4T	0x0046,0x03b6,0x8000,0x0000
0306 0093 03da  |    |		.DBG4T	0x0093,0x03da,0x0001,0x0000
030a 00cb 03e6  |    |		.DBG4T	0x00cb,0x03e6,0x0002,0x0000
030e 00d3 03e9  |    |		.DBG4T	0x00d3,0x03e9,0x0001,0x0000
0312 00db 03ec  |    |		.DBG4T	0x00db,0x03ec,0x0001,0x0000
0316 00e3 03ef  |    |		.DBG4T	0x00e3,0x03ef,0x0002,0x0000
031a 00eb 03f2  |    |		.DBG4T	0x00eb,0x03f2,0x0001,0x0000
031e 00f3 03f5  |    |		.DBG4T	0x00f3,0x03f5,0x0001,0x0000
0322 011b 0402  |    |		.DBG4T	0x011b,0x0402,0x0001,0x0000
0326 012b 0407  | +  |		.DBG4T	0x012b,0x0407,0x0001,0x0000
032a 018b 0417  |    |		.DBG4T	0x018b,0x0417,0x0001,0x0000
032e 01ab 041d  |    |		.DBG4T	0x01ab,0x041d,0x0002,0x0000
0332 01cb 0425  |   %|		.DBG4T	0x01cb,0x0425,0x0002,0x0000
0336 01d3 0428  |   (|		.DBG4T	0x01d3,0x0428,0x0002,0x0000
033a 01db 042b  |   +|		.DBG4T	0x01db,0x042b,0x0001,0x0000
033e 01e3 042e  |   .|		.DBG4T	0x01e3,0x042e,0x0001,0x0000
0342 01eb 0431  |   1|		.DBG4T	0x01eb,0x0431,0x0002,0x0000
0346 01f3 0434  |   4|		.DBG4T	0x01f3,0x0434,0x0002,0x0000
034a 01fb 0437  |   7|		.DBG4T	0x01fb,0x0437,0x0001,0x0000
034e 0203 043a  |   :|		.DBG4T	0x0203,0x043a,0x0001,0x0000
0352 020b 043d  |   =|		.DBG4T	0x020b,0x043d,0x0002,0x0000
0356 0213 0440  |   @|		.DBG4T	0x0213,0x0440,0x0002,0x0000
035a 0223 0445  | # E|		.DBG4T	0x0223,0x0445,0x0002,0x0000
035e 022b 0448  | + H|		.DBG4T	0x022b,0x0448,0x0002,0x0000
0362 0233 044b  | 3 K|		.DBG4T	0x0233,0x044b,0x0002,0x4000
0366 0253 0458  | S X|		.DBG4T	0x0253,0x0458,0x0002,0x0000
036a 025b 045b  | [ [|		.DBG4T	0x025b,0x045b,0x0001,0x0000
036e 0283 0460  |   `|		.DBG4T	0x0283,0x0460,0x0001,0x4000
0372 02a3 046f  |   o|		.DBG4T	0x02a3,0x046f,0x0002,0x4000
0376 02c3 047e  |   ~|		.DBG4T	0x02c3,0x047e,0x0002,0x0000
037a ; --------------------------------------------------------------------------------------
037a ; Debug chain
037a ; --------------------------------------------------------------------------------------
037a 001d 0000  |    |		.DBGLEN	0x001d,0x0000
037c 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043
0399 0004 0005  |    |		.XXX[0x1d]
039b 0006 0007  |    |
039d 0008 0009  |    |
039f 000a 000b  |    |
03a1 000c 000d  |    |
03a3 000e 000f  |    |
03a5 0010 0011  |    |
03a7 0012 0013  |    |
03a9 0014 0015  |    |
03ab 0016 0017  |    |
03ad 0018 0019  |    |
03af 001a 001b  |    |
03b1 001c 001d  |    |
03b3 001e 001f  |    |
03b5 0020       |    |
03b6 ; --------------------------------------------------------------------------------------
03b6 ; Debug chain
03b6 ; --------------------------------------------------------------------------------------
03b6 0022 0000  | "  |		.DBGLEN	0x0022,0x0000
03b8 0046 0048  | F H|		.DBGLNO	0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088
03da ; --------------------------------------------------------------------------------------
03da ; Debug chain
03da ; --------------------------------------------------------------------------------------
03da 0001 0009  |    |		.DBGLEN	0x0001,0x0009
03dc 0093 0095  |    |		.DBGLNO	0x0093,0x0095,0x0097,0x009e,0x00a2,0x00a9,0x00ad,0x00b4,0x00b8,0x00bf
03e6 ; --------------------------------------------------------------------------------------
03e6 ; Debug chain
03e6 ; --------------------------------------------------------------------------------------
03e6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03e8 00cb       |    |		.DBGLNO	0x00cb
03e9 ; --------------------------------------------------------------------------------------
03e9 ; Debug chain
03e9 ; --------------------------------------------------------------------------------------
03e9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03eb 00d3       |    |		.DBGLNO	0x00d3
03ec ; --------------------------------------------------------------------------------------
03ec ; Debug chain
03ec ; --------------------------------------------------------------------------------------
03ec 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03ee 00db       |    |		.DBGLNO	0x00db
03ef ; --------------------------------------------------------------------------------------
03ef ; Debug chain
03ef ; --------------------------------------------------------------------------------------
03ef 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03f1 00e3       |    |		.DBGLNO	0x00e3
03f2 ; --------------------------------------------------------------------------------------
03f2 ; Debug chain
03f2 ; --------------------------------------------------------------------------------------
03f2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03f4 00eb       |    |		.DBGLNO	0x00eb
03f5 ; --------------------------------------------------------------------------------------
03f5 ; Debug chain
03f5 ; --------------------------------------------------------------------------------------
03f5 0002 0009  |    |		.DBGLEN	0x0002,0x0009
03f7 00f3 00f5  |    |		.DBGLNO	0x00f3,0x00f5,0x00f7,0x00fd,0x0101,0x0104,0x0108,0x010b,0x010e,0x0112,0x0114
0402 ; --------------------------------------------------------------------------------------
0402 ; Debug chain
0402 ; --------------------------------------------------------------------------------------
0402 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0404 011b 011e  |    |		.DBGLNO	0x011b,0x011e,0x0121
0407 ; --------------------------------------------------------------------------------------
0407 ; Debug chain
0407 ; --------------------------------------------------------------------------------------
0407 0001 000d  |    |		.DBGLEN	0x0001,0x000d
0409 012b 012f  | + /|		.DBGLNO	0x012b,0x012f,0x013a,0x0146,0x014c,0x0150,0x0157,0x0159,0x015e,0x0168,0x016d,0x0170,0x017a,0x017e
0417 ; --------------------------------------------------------------------------------------
0417 ; Debug chain
0417 ; --------------------------------------------------------------------------------------
0417 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0419 018b 018d  |    |		.DBGLNO	0x018b,0x018d,0x0190,0x0196
041d ; --------------------------------------------------------------------------------------
041d ; Debug chain
041d ; --------------------------------------------------------------------------------------
041d 0001 0005  |    |		.DBGLEN	0x0001,0x0005
041f 01ab 01ad  |    |		.DBGLNO	0x01ab,0x01ad,0x01b3,0x01b9,0x01bf,0x01c2
0425 ; --------------------------------------------------------------------------------------
0425 ; Debug chain
0425 ; --------------------------------------------------------------------------------------
0425 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0427 01cb       |    |		.DBGLNO	0x01cb
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug chain
0428 ; --------------------------------------------------------------------------------------
0428 0000 0001  |    |		.DBGLEN	0x0000,0x0001
042a 01d3       |    |		.DBGLNO	0x01d3
042b ; --------------------------------------------------------------------------------------
042b ; Debug chain
042b ; --------------------------------------------------------------------------------------
042b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
042d 01db       |    |		.DBGLNO	0x01db
042e ; --------------------------------------------------------------------------------------
042e ; Debug chain
042e ; --------------------------------------------------------------------------------------
042e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0430 01e3       |    |		.DBGLNO	0x01e3
0431 ; --------------------------------------------------------------------------------------
0431 ; Debug chain
0431 ; --------------------------------------------------------------------------------------
0431 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0433 01eb       |    |		.DBGLNO	0x01eb
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug chain
0434 ; --------------------------------------------------------------------------------------
0434 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0436 01f3       |    |		.DBGLNO	0x01f3
0437 ; --------------------------------------------------------------------------------------
0437 ; Debug chain
0437 ; --------------------------------------------------------------------------------------
0437 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0439 01fb       |    |		.DBGLNO	0x01fb
043a ; --------------------------------------------------------------------------------------
043a ; Debug chain
043a ; --------------------------------------------------------------------------------------
043a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
043c 0203       |    |		.DBGLNO	0x0203
043d ; --------------------------------------------------------------------------------------
043d ; Debug chain
043d ; --------------------------------------------------------------------------------------
043d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
043f 020b       |    |		.DBGLNO	0x020b
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug chain
0440 ; --------------------------------------------------------------------------------------
0440 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0442 0213 0215  |    |		.DBGLNO	0x0213,0x0215,0x021b
0445 ; --------------------------------------------------------------------------------------
0445 ; Debug chain
0445 ; --------------------------------------------------------------------------------------
0445 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0447 0223       | #  |		.DBGLNO	0x0223
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug chain
0448 ; --------------------------------------------------------------------------------------
0448 0000 0001  |    |		.DBGLEN	0x0000,0x0001
044a 022b       | +  |		.DBGLNO	0x022b
044b ; --------------------------------------------------------------------------------------
044b ; Debug chain
044b ; --------------------------------------------------------------------------------------
044b 0001 0005  |    |		.DBGLEN	0x0001,0x0005
044d 0233 0235  | 3 5|		.DBGLNO	0x0233,0x0235,0x0239,0x023e,0x0242,0x024a
0453 0001 0002  |    |		.XXX[0x5]
0455 0004 0003  |    |
0457 0005       |    |
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug chain
0458 ; --------------------------------------------------------------------------------------
0458 0000 0001  |    |		.DBGLEN	0x0000,0x0001
045a 0253       | S  |		.DBGLNO	0x0253
045b ; --------------------------------------------------------------------------------------
045b ; Debug chain
045b ; --------------------------------------------------------------------------------------
045b 0000 0003  |    |		.DBGLEN	0x0000,0x0003
045d 025b 0265  | [ e|		.DBGLNO	0x025b,0x0265,0x026f
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug chain
0460 ; --------------------------------------------------------------------------------------
0460 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0462 0283 0285  |    |		.DBGLNO	0x0283,0x0285,0x0289,0x028b,0x0291,0x0296,0x029a
0469 0001 0003  |    |		.XXX[0x6]
046b 0004 0005  |    |
046d 0006 0002  |    |
046f ; --------------------------------------------------------------------------------------
046f ; Debug chain
046f ; --------------------------------------------------------------------------------------
046f 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0471 02a3 02a5  |    |		.DBGLNO	0x02a3,0x02a5,0x02a7,0x02aa,0x02b1,0x02b5,0x02bb
0478 0001 0002  |    |		.XXX[0x6]
047a 0003 0005  |    |
047c 0004 0006  |    |
047e ; --------------------------------------------------------------------------------------
047e ; Debug chain
047e ; --------------------------------------------------------------------------------------
047e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0480 02c3       |    |		.DBGLNO	0x02c3
0481 0000 0000  |    |		.BLANK	0000[0x17f]