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

⟦6fba5246f⟧

    Length: 4096 (0x1000)
    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 0478       | x  |		.CONST	0x0478								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x43b, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 00a0       |    |		.CONST	0x00a0								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0033       | 3  |		.CONST	0x0033								; Number of locals
000b			INIT_0008:
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d 00db       |    |		Load_Top	At_Offset_3
000e 00db       |    |		Load_Top	At_Offset_3
000f 029f 0403  |    |		Declare_Subprogram	INIT_0400,For_Call
0011 4802       |H   |		Short_Literal	0x2
0012 032e       | .  |		Declare_Type	Record,Defined,Visible
0013 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0015 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0017 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0019 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
001b 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
001d 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
001f 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0021 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0023 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0025 4804       |H   |		Short_Literal	0x4
0026 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0027 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0029 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
002b 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
002d 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
002f e001       |    |		Load	0x0,0x1
0030 0129       | )  |		Execute	Any,Make_Visible
0031 e002       |    |		Load	0x0,0x2
0032 0129       | )  |		Execute	Any,Make_Visible
0033 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0035 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0037 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0039 4802       |H   |		Short_Literal	0x2
003a 032a       | *  |		Declare_Type	Record,Incomplete
003b 00d8       |    |		Load_Top	At_Offset_0
003c 02a0       |    |		Declare_Subprogram	Null_Subprogram
003d 4818       |H   |		Short_Literal	0x18
003e 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
003f e214       |    |		Load	0x1,0x14
0040 00d9       |    |		Load_Top	At_Offset_1
0041 029f 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Call
0043 e228       | (  |		Load	0x1,0x28
0044 0326       | &  |		Complete_Type	Record,By_Defining
0045 4803       |H   |		Short_Literal	0x3
0046 032a       | *  |		Declare_Type	Record,Incomplete
0047 00d8       |    |		Load_Top	At_Offset_0
0048 02a0       |    |		Declare_Subprogram	Null_Subprogram
0049 e213       |    |		Load	0x1,0x13
004a 03c7       |    |		Complete_Type	Access,By_Defining
004b e213       |    |		Load	0x1,0x13
004c 00e3       |    |		Load_Encached	Natural_Cache
004d 00db       |    |		Load_Top	At_Offset_3
004e 00e1       |    |		Load_Encached	Boolean_Cache
004f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0050 e21e       |    |		Load	0x1,0x1e
0051 0326       | &  |		Complete_Type	Record,By_Defining
0052 4800       |H   |		Short_Literal	0x0
0053 e20f       |    |		Load	0x1,0xf
0054 0aff       |    |		Execute_Immediate	Plus,-0x1
0055 00e2       |    |		Load_Encached	Integer_Cache
0056 03f8       |    |		Declare_Type	Discrete,Constrained
0057 4800       |H   |		Short_Literal	0x0
0058 00d9       |    |		Load_Top	At_Offset_1
0059 0269       | i  |		Execute	Discrete,Last
005a e229       | )  |		Load	0x1,0x29
005b 02a0       |    |		Declare_Subprogram	Null_Subprogram
005c 4801       |H   |		Short_Literal	0x1
005d 035d       | ]  |		Declare_Type	Array,Defined
005e 00db       |    |		Load_Top	At_Offset_3
005f 00d9       |    |		Load_Top	At_Offset_1
0060 00e3       |    |		Load_Encached	Natural_Cache
0061 029f 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Call
0063 e22a       | *  |		Load	0x1,0x2a
0064 0326       | &  |		Complete_Type	Record,By_Defining
0065 00bf       |    |		Action	Accept_Activation
0066 4800       |H   |		Short_Literal	0x0
0067 0093 0423  |   #|		push_full_address	INIT_0420
0069 00f5       |    |		Load_Encached	Unused21
006a 037d       | }  |		Declare_Type	Task,Defined
006b 036f       | o  |		Declare_Variable	Task
006c 029d 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call
006e 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call
0070 029d 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call
0072 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 029d 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call
007c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 029d 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call
0080 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 029d 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call
008a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
0093 00b6       |    |		Action	Make_Scope
0094 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0095 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0096 4804       |H   |		Short_Literal	0x4
0097 e22d       | -  |		Load	0x1,0x2d
0098 020e       |    |		Execute	Module,Augment_Imports
0099 0007       |    |		Action	Break_Optional
009a 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0			BODY_0008:
00a0			BODY_0008:
00a0 00be       |    |		Action	Activate_Tasks
00a1 00bc       |    |		Action	Signal_Activated
00a2 00bb       |    |		Action	Signal_Completion
00a3 0000 0000  |    |		.BLANK	0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b2       |    |		.CONST	0x00b2								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0004       |    |		.CONST	0x0004								; Number of locals
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac 0227       | '  |		Execute	Access,All_Reference
00ad 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ae 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
00b0 029f 032b  |   +|		Declare_Subprogram	INIT_0328,For_Call
00b2			BODY_00a8:
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 6801       |h   |		Jump_Zero	0xb5
00b4 8403       |    |		Call	0x2,0x3
00b5 8404       |    |		Call	0x2,0x4
00b6 0831       | 1  |		Execute_Immediate	Raise,0x31
00b7 0000       |    |		.XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c2       |    |		.CONST	0x00c2								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0004       |    |		.CONST	0x0004								; Number of locals
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 0227       | '  |		Execute	Access,All_Reference
00bd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00be 029f 034b  |   K|		Declare_Subprogram	INIT_0348,For_Call
00c0 029f 0363  |   c|		Declare_Subprogram	INIT_0360,For_Call
00c2			BODY_00b8:
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 6801       |h   |		Jump_Zero	0xc5
00c4 8403       |    |		Call	0x2,0x3
00c5 8404       |    |		Call	0x2,0x4
00c6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c7 0000       |    |		.XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d2       |    |		.CONST	0x00d2								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0004       |    |		.CONST	0x0004								; Number of locals
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 0227       | '  |		Execute	Access,All_Reference
00cd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ce 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
00d0 029f 0393  |    |		Declare_Subprogram	INIT_0390,For_Call
00d2			BODY_00c8:
00d2 00da       |    |		Load_Top	At_Offset_2
00d3 6801       |h   |		Jump_Zero	0xd5
00d4 8403       |    |		Call	0x2,0x3
00d5 8404       |    |		Call	0x2,0x4
00d6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 e5fc       |    |		Load	0x2,-0x4
00dc e5fd       |    |		Load	0x2,-0x3
00dd e5fe       |    |		Load	0x2,-0x2
00de e211       |    |		Load	0x1,0x11
00df 0119       |    |		Execute	Any,Check_In_Formal_Type
00e0 e5ff       |    |		Load	0x2,-0x1
00e1 e210       |    |		Load	0x1,0x10
00e2 0119       |    |		Execute	Any,Check_In_Formal_Type
00e3 4804       |H   |		Short_Literal	0x4
00e4 e22d       | -  |		Load	0x1,0x2d
00e5 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00e6 c5fc       |    |		Store	0x2,-0x4
00e7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
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 00db       |    |		Load_Top	At_Offset_3
00ec 00db       |    |		Load_Top	At_Offset_3
00ed e210       |    |		Load	0x1,0x10
00ee 0119       |    |		Execute	Any,Check_In_Formal_Type
00ef 4802       |H   |		Short_Literal	0x2
00f0 e22d       | -  |		Load	0x1,0x2d
00f1 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
00f2 c5fe       |    |		Store	0x2,-0x2
00f3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f4 0000 0000  |    |		.BLANK	0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e213       |    |		Load	0x1,0x13
00fc 03bc       |    |		Declare_Variable	Access,By_Allocation
00fd 00d8       |    |		Load_Top	At_Offset_0
00fe 0227       | '  |		Execute	Access,All_Reference
00ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0100 003b       | ;  |		Store_Top	Access,At_Offset_3
0101 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0102 0000 0000  |    |		.BLANK	0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00cf       |    |		Action	Mark_Auxiliary
010c e22b       | +  |		Load	0x1,0x2b
010d 0269       | i  |		Execute	Discrete,Last
010e 4800       |H   |		Short_Literal	0x0
010f 0263       | c  |		Execute	Discrete,Above_Bound
0110 700a       |p   |		Jump_Nonzero	0x11b
0111 00d8       |    |		Load_Top	At_Offset_0
0112 e5ff       |    |		Load	0x2,-0x1
0113 0227       | '  |		Execute	Access,All_Reference
0114 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0115 01d7       |    |		Execute	Vector,Field_Read
0116 6802       |h   |		Jump_Zero	0x119
0117 4800       |H   |		Short_Literal	0x0
0118 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0119 00c8       |    |		Action	Pop_Auxiliary_Range
011a 3ff6       |?   |		Loop_Increasing	0x111
011b 00ce       |    |		Action	Pop_Auxiliary
011c 4801       |H   |		Short_Literal	0x1
011d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011e 0000 0000  |    |		.XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 4801       |H   |		Short_Literal	0x1
0125 e22d       | -  |		Load	0x1,0x2d
0126 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
0127 003b       | ;  |		Store_Top	Access,At_Offset_3
0128 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0129 0000 0000  |    |		.BLANK	0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135       | 5  |		.CONST	0x0135								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0002       |    |		.CONST	0x0002								; Number of locals
0133			INIT_0130:
0133 029f 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Call
0135			BODY_0130:
0135 4800       |H   |		Short_Literal	0x0
0136 e5fe       |    |		Load	0x2,-0x2
0137 0227       | '  |		Execute	Access,All_Reference
0138 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0139 00cf       |    |		Action	Mark_Auxiliary
013a e22b       | +  |		Load	0x1,0x2b
013b 0269       | i  |		Execute	Discrete,Last
013c 4800       |H   |		Short_Literal	0x0
013d 0263       | c  |		Execute	Discrete,Above_Bound
013e 7013       |p   |		Jump_Nonzero	0x152
013f e5fe       |    |		Load	0x2,-0x2
0140 0229       | )  |		Execute	Access,All_Read
0141 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0142 00d9       |    |		Load_Top	At_Offset_1
0143 00d8       |    |		Load_Top	At_Offset_0
0144 00da       |    |		Load_Top	At_Offset_2
0145 01d7       |    |		Execute	Vector,Field_Read
0146 00db       |    |		Load_Top	At_Offset_3
0147 e5ff       |    |		Load	0x2,-0x1
0148 0227       | '  |		Execute	Access,All_Reference
0149 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
014a 01d7       |    |		Execute	Vector,Field_Read
014b 8402       |    |		Call	0x2,0x2
014c 00d9       |    |		Load_Top	At_Offset_1
014d 00db       |    |		Load_Top	At_Offset_3
014e 01d6       |    |		Execute	Vector,Field_Write
014f 00d2       |    |		Pop_Control	Pop_Count_2
0150 00c8       |    |		Action	Pop_Auxiliary_Range
0151 3fed       |?   |		Loop_Increasing	0x13f
0152 00ce       |    |		Action	Pop_Auxiliary
0153 e229       | )  |		Load	0x1,0x29
0154 e5fe       |    |		Load	0x2,-0x2
0155 0227       | '  |		Execute	Access,All_Reference
0156 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0157 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d       | ]  |		.CONST	0x015d								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b e21e       |    |		Load	0x1,0x1e
015c 0322       | "  |		Declare_Variable	Record
015d			BODY_0158:
015d 00db       |    |		Load_Top	At_Offset_3
015e 7004       |p   |		Jump_Nonzero	0x163
015f 4801       |H   |		Short_Literal	0x1
0160 e5fe       |    |		Load	0x2,-0x2
0161 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0162 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0163 00cf       |    |		Action	Mark_Auxiliary
0164 e22b       | +  |		Load	0x1,0x2b
0165 0269       | i  |		Execute	Discrete,Last
0166 4800       |H   |		Short_Literal	0x0
0167 0263       | c  |		Execute	Discrete,Above_Bound
0168 7019       |p   |		Jump_Nonzero	0x182
0169 00d8       |    |		Load_Top	At_Offset_0
016a e5ff       |    |		Load	0x2,-0x1
016b 0227       | '  |		Execute	Access,All_Reference
016c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
016d 01d7       |    |		Execute	Vector,Field_Read
016e e402       |    |		Load	0x2,0x2
016f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0170 00db       |    |		Load_Top	At_Offset_3
0171 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0172 680d       |h   |		Jump_Zero	0x180
0173 4800       |H   |		Short_Literal	0x0
0174 e402       |    |		Load	0x2,0x2
0175 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0176 00d8       |    |		Load_Top	At_Offset_0
0177 e402       |    |		Load	0x2,0x2
0178 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0179 e5ff       |    |		Load	0x2,-0x1
017a e402       |    |		Load	0x2,0x2
017b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
017c 00db       |    |		Load_Top	At_Offset_3
017d e5fe       |    |		Load	0x2,-0x2
017e 017d       | }  |		Execute	Record,Structure_Write
017f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0180 00c8       |    |		Action	Pop_Auxiliary_Range
0181 3fe7       |?   |		Loop_Increasing	0x169
0182 00ce       |    |		Action	Pop_Auxiliary
0183 4801       |H   |		Short_Literal	0x1
0184 00d9       |    |		Load_Top	At_Offset_1
0185 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0186 00d8       |    |		Load_Top	At_Offset_0
0187 e5fe       |    |		Load	0x2,-0x2
0188 017d       | }  |		Execute	Record,Structure_Write
0189 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
018a 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
0194 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0195 0227       | '  |		Execute	Access,All_Reference
0196 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0197 00db       |    |		Load_Top	At_Offset_3
0198 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0199 00cf       |    |		Action	Mark_Auxiliary
019a 7819       |x   |		Jump	0x1b4
019b 00db       |    |		Load_Top	At_Offset_3
019c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
019d e22b       | +  |		Load	0x1,0x2b
019e 0269       | i  |		Execute	Discrete,Last
019f 027f       |    |		Execute	Discrete,Equal
01a0 6804       |h   |		Jump_Zero	0x1a5
01a1 4801       |H   |		Short_Literal	0x1
01a2 e5ff       |    |		Load	0x2,-0x1
01a3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01a7 0a01       |    |		Execute_Immediate	Plus,0x1
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01aa 00db       |    |		Load_Top	At_Offset_3
01ab 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01ac e5ff       |    |		Load	0x2,-0x1
01ad 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ae 0227       | '  |		Execute	Access,All_Reference
01af 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01b0 01d7       |    |		Execute	Vector,Field_Read
01b1 e5ff       |    |		Load	0x2,-0x1
01b2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b3 00c9       |    |		Action	Pop_Auxiliary_Loop
01b4 00db       |    |		Load_Top	At_Offset_3
01b5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b6 6fe4       |o   |		Jump_Zero	0x19b
01b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 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 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01bd 0227       | '  |		Execute	Access,All_Reference
01be 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01bf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c0 00d8       |    |		Load_Top	At_Offset_0
01c1 0120       |    |		Execute	Any,Is_Value
01c2 7002       |p   |		Jump_Nonzero	0x1c5
01c3 00d8       |    |		Load_Top	At_Offset_0
01c4 011e       |    |		Execute	Any,Convert
01c5 e210       |    |		Load	0x1,0x10
01c6 0119       |    |		Execute	Any,Check_In_Formal_Type
01c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ce 0000 0000  |    |		.XXX[0x2]
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 e213       |    |		Load	0x1,0x13
01d4 00ca       |    |		Action	Exit_Nullary_Function
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
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 022d       | -  |		Execute	Access,Is_Null
01dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01de 0000 0000  |    |		.XXX[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 00da       |    |		Load_Top	At_Offset_2
01e4 0227       | '  |		Execute	Access,All_Reference
01e5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
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 e210       |    |		Load	0x1,0x10
01ed 0119       |    |		Execute	Any,Check_In_Formal_Type
01ee 8212       |    |		Call	0x1,0x12
01ef e20f       |    |		Load	0x1,0xf
01f0 026e       | n  |		Execute	Discrete,Modulo
01f1 00d8       |    |		Load_Top	At_Offset_0
01f2 e22b       | +  |		Load	0x1,0x2b
01f3 0260       | `  |		Execute	Discrete,In_Type
01f4 7001       |p   |		Jump_Nonzero	0x1f6
01f5 0801       |    |		Execute_Immediate	Raise,0x1
01f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f7 0000       |    |		.XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0203       |    |		.CONST	0x0203								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb 00db       |    |		Load_Top	At_Offset_3
01fc e210       |    |		Load	0x1,0x10
01fd 0119       |    |		Execute	Any,Check_In_Formal_Type
01fe 822e       | .  |		Call	0x1,0x2e
01ff 00db       |    |		Load_Top	At_Offset_3
0200 0227       | '  |		Execute	Access,All_Reference
0201 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0202 01d7       |    |		Execute	Vector,Field_Read
0203			BODY_01f8:
0203 00cf       |    |		Action	Mark_Auxiliary
0204 7805       |x   |		Jump	0x20a
0205 00d9       |    |		Load_Top	At_Offset_1
0206 0227       | '  |		Execute	Access,All_Reference
0207 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0208 003a       | :  |		Store_Top	Access,At_Offset_2
0209 00c9       |    |		Action	Pop_Auxiliary_Loop
020a 00d9       |    |		Load_Top	At_Offset_1
020b 6807       |h   |		Jump_Zero	0x213
020c 00d9       |    |		Load_Top	At_Offset_1
020d 0227       | '  |		Execute	Access,All_Reference
020e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
020f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0210 e5fe       |    |		Load	0x2,-0x2
0211 012e       | .  |		Execute	Any,Not_Equal
0212 77f2       |w   |		Jump_Nonzero	0x205
0213 00ce       |    |		Action	Pop_Auxiliary
0214 00d8       |    |		Load_Top	At_Offset_0
0215 6804       |h   |		Jump_Zero	0x21a
0216 00d8       |    |		Load_Top	At_Offset_0
0217 e5ff       |    |		Load	0x2,-0x1
0218 0227       | '  |		Execute	Access,All_Reference
0219 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
021a 00d8       |    |		Load_Top	At_Offset_0
021b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021c 0000 0000  |    |		.BLANK	0000[0x4]
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 a5fd       |    |		Store_Unchecked	0x2,-0x3
0225 e229       | )  |		Load	0x1,0x29
0226 a5fc       |    |		Store_Unchecked	0x2,-0x4
0227 00cf       |    |		Action	Mark_Auxiliary
0228 7807       |x   |		Jump	0x230
0229 e5fd       |    |		Load	0x2,-0x3
022a a5fc       |    |		Store_Unchecked	0x2,-0x4
022b e5fd       |    |		Load	0x2,-0x3
022c 0227       | '  |		Execute	Access,All_Reference
022d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022e a5fd       |    |		Store_Unchecked	0x2,-0x3
022f 00c9       |    |		Action	Pop_Auxiliary_Loop
0230 e5fd       |    |		Load	0x2,-0x3
0231 6807       |h   |		Jump_Zero	0x239
0232 e5fd       |    |		Load	0x2,-0x3
0233 0227       | '  |		Execute	Access,All_Reference
0234 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0235 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0236 e5fe       |    |		Load	0x2,-0x2
0237 012e       | .  |		Execute	Any,Not_Equal
0238 77f0       |w   |		Jump_Nonzero	0x229
0239 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
023a 0000 0000  |    |		.BLANK	0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0254       | T  |		.CONST	0x0254								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0005       |    |		.CONST	0x0005								; Number of locals
0243			INIT_0240:
0243 e5fc       |    |		Load	0x2,-0x4
0244 0227       | '  |		Execute	Access,All_Reference
0245 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0246 0007       |    |		Action	Break_Optional
0247 00db       |    |		Load_Top	At_Offset_3
0248 e210       |    |		Load	0x1,0x10
0249 0119       |    |		Execute	Any,Check_In_Formal_Type
024a 822e       | .  |		Call	0x1,0x2e
024b e5fc       |    |		Load	0x2,-0x4
024c 0227       | '  |		Execute	Access,All_Reference
024d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
024e 01d5       |    |		Execute	Vector,Field_Reference
024f 0007       |    |		Action	Break_Optional
0250 e229       | )  |		Load	0x1,0x29
0251 0007       |    |		Action	Break_Optional
0252 00d8       |    |		Load_Top	At_Offset_0
0253 0007       |    |		Action	Break_Optional
0254			BODY_0240:
0254 00d8       |    |		Load_Top	At_Offset_0
0255 00da       |    |		Load_Top	At_Offset_2
0256 e5ff       |    |		Load	0x2,-0x1
0257 e210       |    |		Load	0x1,0x10
0258 0119       |    |		Execute	Any,Check_In_Formal_Type
0259 e403       |    |		Load	0x2,0x3
025a 8230       | 0  |		Call	0x1,0x30
025b 003b       | ;  |		Store_Top	Access,At_Offset_3
025c 0039       | 9  |		Store_Top	Access,At_Offset_1
025d 00d9       |    |		Load_Top	At_Offset_1
025e 7020       |p   |		Jump_Nonzero	0x27f
025f e228       | (  |		Load	0x1,0x28
0260 0322       | "  |		Declare_Variable	Record
0261 00d8       |    |		Load_Top	At_Offset_0
0262 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0263 e5ff       |    |		Load	0x2,-0x1
0264 e214       |    |		Load	0x1,0x14
0265 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0266 0119       |    |		Execute	Any,Check_In_Formal_Type
0267 00d9       |    |		Load_Top	At_Offset_1
0268 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0269 e5fe       |    |		Load	0x2,-0x2
026a e214       |    |		Load	0x1,0x14
026b 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
026c 0119       |    |		Execute	Any,Check_In_Formal_Type
026d 00d0       |    |		Action	Swap_Control
026e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
026f 00db       |    |		Load_Top	At_Offset_3
0270 00d9       |    |		Load_Top	At_Offset_1
0271 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0272 e229       | )  |		Load	0x1,0x29
0273 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0274 a403       |    |		Store_Unchecked	0x2,0x3
0275 00da       |    |		Load_Top	At_Offset_2
0276 a402       |    |		Store_Unchecked	0x2,0x2
0277 e5fc       |    |		Load	0x2,-0x4
0278 0227       | '  |		Execute	Access,All_Reference
0279 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
027a 0a01       |    |		Execute_Immediate	Plus,0x1
027b e5fc       |    |		Load	0x2,-0x4
027c 0227       | '  |		Execute	Access,All_Reference
027d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
027e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
027f e5fd       |    |		Load	0x2,-0x3
0280 6802       |h   |		Jump_Zero	0x283
0281 e224       | $  |		Load	0x1,0x24
0282 0257       | W  |		Execute	Discrete,Raise
0283 00d8       |    |		Load_Top	At_Offset_0
0284 701b       |p   |		Jump_Nonzero	0x2a0
0285 e228       | (  |		Load	0x1,0x28
0286 0322       | "  |		Declare_Variable	Record
0287 00d8       |    |		Load_Top	At_Offset_0
0288 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0289 e5ff       |    |		Load	0x2,-0x1
028a e214       |    |		Load	0x1,0x14
028b 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
028c 0119       |    |		Execute	Any,Check_In_Formal_Type
028d 00d9       |    |		Load_Top	At_Offset_1
028e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
028f e5fe       |    |		Load	0x2,-0x2
0290 e214       |    |		Load	0x1,0x14
0291 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0292 0119       |    |		Execute	Any,Check_In_Formal_Type
0293 00d0       |    |		Action	Swap_Control
0294 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0295 00da       |    |		Load_Top	At_Offset_2
0296 0227       | '  |		Execute	Access,All_Reference
0297 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0298 00d9       |    |		Load_Top	At_Offset_1
0299 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
029a e229       | )  |		Load	0x1,0x29
029b 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
029c a403       |    |		Store_Unchecked	0x2,0x3
029d 00da       |    |		Load_Top	At_Offset_2
029e a402       |    |		Store_Unchecked	0x2,0x2
029f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02a0 e228       | (  |		Load	0x1,0x28
02a1 0322       | "  |		Declare_Variable	Record
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 e214       |    |		Load	0x1,0x14
02a6 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
02a7 0119       |    |		Execute	Any,Check_In_Formal_Type
02a8 00d9       |    |		Load_Top	At_Offset_1
02a9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02aa e5fe       |    |		Load	0x2,-0x2
02ab e214       |    |		Load	0x1,0x14
02ac 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
02ad 0119       |    |		Execute	Any,Check_In_Formal_Type
02ae 00d0       |    |		Action	Swap_Control
02af 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02b0 00da       |    |		Load_Top	At_Offset_2
02b1 0227       | '  |		Execute	Access,All_Reference
02b2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b3 00d9       |    |		Load_Top	At_Offset_1
02b4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02b5 e229       | )  |		Load	0x1,0x29
02b6 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
02b7 00d9       |    |		Load_Top	At_Offset_1
02b8 0227       | '  |		Execute	Access,All_Reference
02b9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ba 00d8       |    |		Load_Top	At_Offset_0
02bb 0227       | '  |		Execute	Access,All_Reference
02bc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02bd a402       |    |		Store_Unchecked	0x2,0x2
02be 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02bf 0000       |    |		.XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02d4       |    |		.CONST	0x02d4								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0005       |    |		.CONST	0x0005								; Number of locals
02c3			INIT_02c0:
02c3 00db       |    |		Load_Top	At_Offset_3
02c4 0227       | '  |		Execute	Access,All_Reference
02c5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02c6 0007       |    |		Action	Break_Optional
02c7 00db       |    |		Load_Top	At_Offset_3
02c8 e210       |    |		Load	0x1,0x10
02c9 0119       |    |		Execute	Any,Check_In_Formal_Type
02ca 822e       | .  |		Call	0x1,0x2e
02cb e5fe       |    |		Load	0x2,-0x2
02cc 0227       | '  |		Execute	Access,All_Reference
02cd 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02ce 01d5       |    |		Execute	Vector,Field_Reference
02cf 0007       |    |		Action	Break_Optional
02d0 e229       | )  |		Load	0x1,0x29
02d1 0007       |    |		Action	Break_Optional
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 0007       |    |		Action	Break_Optional
02d4			BODY_02c0:
02d4 00d8       |    |		Load_Top	At_Offset_0
02d5 00da       |    |		Load_Top	At_Offset_2
02d6 e5ff       |    |		Load	0x2,-0x1
02d7 e210       |    |		Load	0x1,0x10
02d8 0119       |    |		Execute	Any,Check_In_Formal_Type
02d9 e403       |    |		Load	0x2,0x3
02da 8230       | 0  |		Call	0x1,0x30
02db 003b       | ;  |		Store_Top	Access,At_Offset_3
02dc 0039       | 9  |		Store_Top	Access,At_Offset_1
02dd 00d9       |    |		Load_Top	At_Offset_1
02de 7002       |p   |		Jump_Nonzero	0x2e1
02df e223       | #  |		Load	0x1,0x23
02e0 0257       | W  |		Execute	Discrete,Raise
02e1 00d8       |    |		Load_Top	At_Offset_0
02e2 7005       |p   |		Jump_Nonzero	0x2e8
02e3 00d9       |    |		Load_Top	At_Offset_1
02e4 0227       | '  |		Execute	Access,All_Reference
02e5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e6 a403       |    |		Store_Unchecked	0x2,0x3
02e7 7806       |x   |		Jump	0x2ee
02e8 00d9       |    |		Load_Top	At_Offset_1
02e9 0227       | '  |		Execute	Access,All_Reference
02ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02eb 00d9       |    |		Load_Top	At_Offset_1
02ec 0227       | '  |		Execute	Access,All_Reference
02ed 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ee e5fe       |    |		Load	0x2,-0x2
02ef 0227       | '  |		Execute	Access,All_Reference
02f0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02f1 0aff       |    |		Execute_Immediate	Plus,-0x1
02f2 e5fe       |    |		Load	0x2,-0x2
02f3 0227       | '  |		Execute	Access,All_Reference
02f4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02f5 e229       | )  |		Load	0x1,0x29
02f6 a402       |    |		Store_Unchecked	0x2,0x2
02f7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb e229       | )  |		Load	0x1,0x29
02fc 00db       |    |		Load_Top	At_Offset_3
02fd 0227       | '  |		Execute	Access,All_Reference
02fe 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ff 00cf       |    |		Action	Mark_Auxiliary
0300 e22b       | +  |		Load	0x1,0x2b
0301 0269       | i  |		Execute	Discrete,Last
0302 4800       |H   |		Short_Literal	0x0
0303 0263       | c  |		Execute	Discrete,Above_Bound
0304 7008       |p   |		Jump_Nonzero	0x30d
0305 e229       | )  |		Load	0x1,0x29
0306 00d9       |    |		Load_Top	At_Offset_1
0307 e5ff       |    |		Load	0x2,-0x1
0308 0227       | '  |		Execute	Access,All_Reference
0309 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
030a 01d6       |    |		Execute	Vector,Field_Write
030b 00c8       |    |		Action	Pop_Auxiliary_Range
030c 3ff8       |?   |		Loop_Increasing	0x305
030d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
030e 0000 0000  |    |		.XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0317       |    |		.CONST	0x0317								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0002       |    |		.CONST	0x0002								; Number of locals
0313			INIT_0310:
0313 e402       |    |		Load	0x2,0x2
0314 0227       | '  |		Execute	Access,All_Reference
0315 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0316 0007       |    |		Action	Break_Optional
0317			BODY_0310:
0317 00d8       |    |		Load_Top	At_Offset_0
0318 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0319 e5fe       |    |		Load	0x2,-0x2
031a 012f       | /  |		Execute	Any,Equal
031b 680b       |h   |		Jump_Zero	0x327
031c 00d8       |    |		Load_Top	At_Offset_0
031d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
031e 00d8       |    |		Load_Top	At_Offset_0
031f 0120       |    |		Execute	Any,Is_Value
0320 7002       |p   |		Jump_Nonzero	0x323
0321 00d8       |    |		Load_Top	At_Offset_0
0322 011e       |    |		Execute	Any,Convert
0323 e211       |    |		Load	0x1,0x11
0324 0119       |    |		Execute	Any,Check_In_Formal_Type
0325 00cb       |    |		Action	Pop_Block_With_Result
0326 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0327 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0330       | 0  |		.CONST	0x0330								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b e5fe       |    |		Load	0x2,-0x2
032c e210       |    |		Load	0x1,0x10
032d 0119       |    |		Execute	Any,Check_In_Formal_Type
032e e5ff       |    |		Load	0x2,-0x1
032f 822f       | /  |		Call	0x1,0x2f
0330			BODY_0328:
0330 00d8       |    |		Load_Top	At_Offset_0
0331 680d       |h   |		Jump_Zero	0x33f
0332 00d8       |    |		Load_Top	At_Offset_0
0333 0227       | '  |		Execute	Access,All_Reference
0334 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0335 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0336 00d8       |    |		Load_Top	At_Offset_0
0337 0120       |    |		Execute	Any,Is_Value
0338 7002       |p   |		Jump_Nonzero	0x33b
0339 00d8       |    |		Load_Top	At_Offset_0
033a 011e       |    |		Execute	Any,Convert
033b e211       |    |		Load	0x1,0x11
033c 0119       |    |		Execute	Any,Check_In_Formal_Type
033d 00cb       |    |		Action	Pop_Block_With_Result
033e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
033f e223       | #  |		Load	0x1,0x23
0340 0257       | W  |		Execute	Discrete,Raise
0341 0000 0000  |    |		.BLANK	0000[0x7]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034f       | O  |		.CONST	0x034f								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b e402       |    |		Load	0x2,0x2
034c 0227       | '  |		Execute	Access,All_Reference
034d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
034e 0007       |    |		Action	Break_Optional
034f			BODY_0348:
034f 00d8       |    |		Load_Top	At_Offset_0
0350 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0351 e5fe       |    |		Load	0x2,-0x2
0352 012f       | /  |		Execute	Any,Equal
0353 6807       |h   |		Jump_Zero	0x35b
0354 00d8       |    |		Load_Top	At_Offset_0
0355 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0356 c5fd       |    |		Store	0x2,-0x3
0357 4801       |H   |		Short_Literal	0x1
0358 a5fc       |    |		Store_Unchecked	0x2,-0x4
0359 00cc       |    |		Action	Pop_Block
035a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
035b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
035c 0000 0000  |    |		.BLANK	0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0368       | h  |		.CONST	0x0368								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0002       |    |		.CONST	0x0002								; Number of locals
0363			INIT_0360:
0363 e5fe       |    |		Load	0x2,-0x2
0364 e210       |    |		Load	0x1,0x10
0365 0119       |    |		Execute	Any,Check_In_Formal_Type
0366 e5ff       |    |		Load	0x2,-0x1
0367 822f       | /  |		Call	0x1,0x2f
0368			BODY_0360:
0368 00d8       |    |		Load_Top	At_Offset_0
0369 6808       |h   |		Jump_Zero	0x372
036a 00d8       |    |		Load_Top	At_Offset_0
036b 0227       | '  |		Execute	Access,All_Reference
036c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
036d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
036e c5fd       |    |		Store	0x2,-0x3
036f 4801       |H   |		Short_Literal	0x1
0370 a5fc       |    |		Store_Unchecked	0x2,-0x4
0371 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0372 4800       |H   |		Short_Literal	0x0
0373 a5fc       |    |		Store_Unchecked	0x2,-0x4
0374 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0375 0000 0000  |    |		.XXX[0x3]
0377 0000       |    |
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037f       |    |		.CONST	0x037f								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0002       |    |		.CONST	0x0002								; Number of locals
037b			INIT_0378:
037b e402       |    |		Load	0x2,0x2
037c 0227       | '  |		Execute	Access,All_Reference
037d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
037e 0007       |    |		Action	Break_Optional
037f			BODY_0378:
037f 00d8       |    |		Load_Top	At_Offset_0
0380 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0381 e5fe       |    |		Load	0x2,-0x2
0382 012f       | /  |		Execute	Any,Equal
0383 6807       |h   |		Jump_Zero	0x38b
0384 00d8       |    |		Load_Top	At_Offset_0
0385 e5fd       |    |		Load	0x2,-0x3
0386 017d       | }  |		Execute	Record,Structure_Write
0387 4801       |H   |		Short_Literal	0x1
0388 a5fc       |    |		Store_Unchecked	0x2,-0x4
0389 00cc       |    |		Action	Pop_Block
038a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
038b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
038c 0000 0000  |    |		.BLANK	0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0398       |    |		.CONST	0x0398								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0002       |    |		.CONST	0x0002								; Number of locals
0393			INIT_0390:
0393 e5fe       |    |		Load	0x2,-0x2
0394 e210       |    |		Load	0x1,0x10
0395 0119       |    |		Execute	Any,Check_In_Formal_Type
0396 e5ff       |    |		Load	0x2,-0x1
0397 822f       | /  |		Call	0x1,0x2f
0398			BODY_0390:
0398 00d8       |    |		Load_Top	At_Offset_0
0399 6808       |h   |		Jump_Zero	0x3a2
039a 00d8       |    |		Load_Top	At_Offset_0
039b 0227       | '  |		Execute	Access,All_Reference
039c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
039d e5fd       |    |		Load	0x2,-0x3
039e 017d       | }  |		Execute	Record,Structure_Write
039f 4801       |H   |		Short_Literal	0x1
03a0 a5fc       |    |		Store_Unchecked	0x2,-0x4
03a1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03a2 4800       |H   |		Short_Literal	0x0
03a3 a5fc       |    |		Store_Unchecked	0x2,-0x4
03a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03a5 0000 0000  |    |		.XXX[0x3]
03a7 0000       |    |
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ad       |    |		.CONST	0x03ad								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0002       |    |		.CONST	0x0002								; Number of locals
03ab			INIT_03a8:
03ab 00da       |    |		Load_Top	At_Offset_2
03ac 0007       |    |		Action	Break_Optional
03ad			BODY_03a8:
03ad e229       | )  |		Load	0x1,0x29
03ae a7fe       |    |		Store_Unchecked	0x3,-0x2
03af 00cf       |    |		Action	Mark_Auxiliary
03b0 7819       |x   |		Jump	0x3ca
03b1 e228       | (  |		Load	0x1,0x28
03b2 0322       | "  |		Declare_Variable	Record
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 0227       | '  |		Execute	Access,All_Reference
03b5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03b6 00d9       |    |		Load_Top	At_Offset_1
03b7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b8 e7fe       |    |		Load	0x3,-0x2
03b9 00d9       |    |		Load_Top	At_Offset_1
03ba 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03bb e229       | )  |		Load	0x1,0x29
03bc 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03bd a7fe       |    |		Store_Unchecked	0x3,-0x2
03be e5fe       |    |		Load	0x2,-0x2
03bf 0227       | '  |		Execute	Access,All_Reference
03c0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03c1 0a01       |    |		Execute_Immediate	Plus,0x1
03c2 e5fe       |    |		Load	0x2,-0x2
03c3 0227       | '  |		Execute	Access,All_Reference
03c4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03c5 00d9       |    |		Load_Top	At_Offset_1
03c6 0227       | '  |		Execute	Access,All_Reference
03c7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03c8 003a       | :  |		Store_Top	Access,At_Offset_2
03c9 00c9       |    |		Action	Pop_Auxiliary_Loop
03ca 00d9       |    |		Load_Top	At_Offset_1
03cb 77e5       |w   |		Jump_Nonzero	0x3b1
03cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03cd 0000 0000  |    |		.XXX[0x3]
03cf 0000       |    |
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 4608       |F   |		Jump_Case	0x9
03d4 7808       |x   |		Jump	0x3dd								; case 0x0
03d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
03d6 780a       |x   |		Jump	0x3e1								; case 0x2
03d7 7809       |x   |		Jump	0x3e1								; case 0x3
03d8 7808       |x   |		Jump	0x3e1								; case 0x4
03d9 7807       |x   |		Jump	0x3e1								; case 0x5
03da 7806       |x   |		Jump	0x3e1								; case 0x6
03db 7805       |x   |		Jump	0x3e1								; case 0x7
03dc 7804       |x   |		Jump	0x3e1								; case 0x8
03dd 00da       |    |		Load_Top	At_Offset_2
03de 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03e0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03e1 0869       | i  |		Execute_Immediate	Raise,0x69
03e2 0000 0000  |    |		.BLANK	0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 4608       |F   |		Jump_Case	0x9
03ec 7808       |x   |		Jump	0x3f5								; case 0x0
03ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
03ee 780a       |x   |		Jump	0x3f9								; case 0x2
03ef 7809       |x   |		Jump	0x3f9								; case 0x3
03f0 7808       |x   |		Jump	0x3f9								; case 0x4
03f1 7807       |x   |		Jump	0x3f9								; case 0x5
03f2 7806       |x   |		Jump	0x3f9								; case 0x6
03f3 7805       |x   |		Jump	0x3f9								; case 0x7
03f4 7804       |x   |		Jump	0x3f9								; case 0x8
03f5 4800       |H   |		Short_Literal	0x0
03f6 00db       |    |		Load_Top	At_Offset_3
03f7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03f8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03f9 0869       | i  |		Execute_Immediate	Raise,0x69
03fa 0000 0000  |    |		.BLANK	0000[0x6]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 4608       |F   |		Jump_Case	0x9
0404 7808       |x   |		Jump	0x40d								; case 0x0
0405 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0406 7813       |x   |		Jump	0x41a								; case 0x2
0407 7812       |x   |		Jump	0x41a								; case 0x3
0408 7811       |x   |		Jump	0x41a								; case 0x4
0409 7810       |x   |		Jump	0x41a								; case 0x5
040a 780f       |x   |		Jump	0x41a								; case 0x6
040b 780e       |x   |		Jump	0x41a								; case 0x7
040c 780d       |x   |		Jump	0x41a								; case 0x8
040d 00da       |    |		Load_Top	At_Offset_2
040e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
040f 0125       | %  |		Execute	Any,Set_Constraint
0410 00da       |    |		Load_Top	At_Offset_2
0411 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0412 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0413 00da       |    |		Load_Top	At_Offset_2
0414 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0415 0125       | %  |		Execute	Any,Set_Constraint
0416 00da       |    |		Load_Top	At_Offset_2
0417 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0418 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0419 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
041a 0869       | i  |		Execute_Immediate	Raise,0x69
041b 0000 0000  |    |		.BLANK	0000[0x5]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 042d       | -  |		.CONST	0x042d								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0010       |    |		.CONST	0x0010								; Number of locals
0423			INIT_0420:
0423 4804       |H   |		Short_Literal	0x4
0424 02cb       |    |		Declare_Variable	Entry
0425 4802       |H   |		Short_Literal	0x2
0426 02cb       |    |		Declare_Variable	Entry
0427 4801       |H   |		Short_Literal	0x1
0428 02cb       |    |		Declare_Variable	Entry
0429 00bf       |    |		Action	Accept_Activation
042a 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
042c 00bc       |    |		Action	Signal_Activated
042d			BODY_0420:
042d 00cf       |    |		Action	Mark_Auxiliary
042e 8210       |    |		Call	0x1,0x10
042f 00c9       |    |		Action	Pop_Auxiliary_Loop
0430 7ffd       |    |		Jump	0x42e
0431 0000 0000  |    |		.BLANK	0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0446       | F  |		.CONST	0x0446								; Address of begin
0439 0449       | I  |		.CONST	0x0449								; Address of exception handler
043a 0002       |    |		.CONST	0x0002								; Number of locals
043b			INIT_0438:
043b 480f 488a  |H H |		Declare_Variable	Select	0x000, 0x003,
043d 480e 488b  |H H |				[0x000]: 0x001 = 0x0008,
043f 480d 488d  |H H |				[0x00d]: 0x08d = 0x0468,
0441 4800 4801  |H H |				[0x00e]: 0x08b = 0x0458,
0443 4800 4803  |H H |				[0x00f]: 0x08a = 0x0450
0445 02cf       |    |
0446			BODY_0438:
0446 00d8       |    |		Load_Top	At_Offset_0
0447 013f       | ?  |		Execute	Select,Rendezvous
0448 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0449			TRAP_0438:
0449 0007       |    |		Action	Break_Optional
044a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
044b 0000 0000  |    |		.BLANK	0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; See instruction 0x02cf at 0x43b, index=0xf
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00db       |    |		Load_Top	At_Offset_3
0454 8001       |    |		Call	0x0,0x1
0455 c7fe       |    |		Store	0x3,-0x2
0456 4101       |A   |		End_Rendezvous	0x1
0457 0000       |    |		.XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; See instruction 0x02cf at 0x43b, index=0xe
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b e7fd       |    |		Load	0x3,-0x3
045c e7fe       |    |		Load	0x3,-0x2
045d e002       |    |		Load	0x0,0x2
045e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
045f 0119       |    |		Execute	Any,Check_In_Formal_Type
0460 8003       |    |		Call	0x0,0x3
0461 c7fd       |    |		Store	0x3,-0x3
0462 4101       |A   |		End_Rendezvous	0x1
0463 0000 0000  |    |		.BLANK	0000[0x5]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; See instruction 0x02cf at 0x43b, index=0xd
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b e7fb       |    |		Load	0x3,-0x5
046c e7fc       |    |		Load	0x3,-0x4
046d e7fd       |    |		Load	0x3,-0x3
046e e002       |    |		Load	0x0,0x2
046f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0470 0119       |    |		Execute	Any,Check_In_Formal_Type
0471 e7fe       |    |		Load	0x3,-0x2
0472 e002       |    |		Load	0x0,0x2
0473 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0474 0119       |    |		Execute	Any,Check_In_Formal_Type
0475 8004       |    |		Call	0x0,0x4
0476 c7fb       |    |		Store	0x3,-0x5
0477 4101       |A   |		End_Rendezvous	0x1
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug Table
0478 ; --------------------------------------------------------------------------------------
0478 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x2e70,0x0000,0x0001,0x0028
047e 000b 051e  |    |		.DBG4T	0x000b,0x051e,0xc000,0x0000
0482 0066 053e  | f >|		.DBG4T	0x0066,0x053e,0xc000,0x8000
0486 00ab 0570  |   p|		.DBG4T	0x00ab,0x0570,0x1002,0x0000
048a 00bb 0576  |   v|		.DBG4T	0x00bb,0x0576,0x1001,0x0000
048e 00cb 057c  |   ||		.DBG4T	0x00cb,0x057c,0x1001,0x0000
0492 00db 0582  |    |		.DBG4T	0x00db,0x0582,0x1001,0x0000
0496 00eb 0585  |    |		.DBG4T	0x00eb,0x0585,0x1001,0x0000
049a 00fb 0588  |    |		.DBG4T	0x00fb,0x0588,0x1001,0x0000
049e 010b 058b  |    |		.DBG4T	0x010b,0x058b,0x1002,0x0000
04a2 0123 0591  | #  |		.DBG4T	0x0123,0x0591,0x1001,0x0000
04a6 0133 0594  | 3  |		.DBG4T	0x0133,0x0594,0x1001,0x0000
04aa 015b 059b  | [  |		.DBG4T	0x015b,0x059b,0x1001,0x0000
04ae 0193 05ab  |    |		.DBG4T	0x0193,0x05ab,0x1001,0x4000
04b2 01bb 05bb  |    |		.DBG4T	0x01bb,0x05bb,0x1002,0x0000
04b6 01cb 05be  |    |		.DBG4T	0x01cb,0x05be,0x1002,0x0000
04ba 01d3 05c1  |    |		.DBG4T	0x01d3,0x05c1,0x1002,0x0000
04be 01db 05c4  |    |		.DBG4T	0x01db,0x05c4,0x1002,0x0000
04c2 01e3 05c7  |    |		.DBG4T	0x01e3,0x05c7,0x1002,0x0000
04c6 01eb 05ca  |    |		.DBG4T	0x01eb,0x05ca,0x1002,0x0000
04ca 01fb 05cd  |    |		.DBG4T	0x01fb,0x05cd,0x1002,0x4000
04ce 0223 05da  | #  |		.DBG4T	0x0223,0x05da,0x1001,0x4000
04d2 0243 05e6  | C  |		.DBG4T	0x0243,0x05e6,0x1001,0x0000
04d6 02c3 05f8  |    |		.DBG4T	0x02c3,0x05f8,0x1001,0x0000
04da 02fb 0606  |    |		.DBG4T	0x02fb,0x0606,0x1001,0x0000
04de 0313 060b  |    |		.DBG4T	0x0313,0x060b,0x1004,0x0000
04e2 032b 0610  | +  |		.DBG4T	0x032b,0x0610,0x1004,0x0000
04e6 034b 0616  | K  |		.DBG4T	0x034b,0x0616,0x1004,0x0000
04ea 0363 061d  | c  |		.DBG4T	0x0363,0x061d,0x1004,0x0000
04ee 037b 0624  | { $|		.DBG4T	0x037b,0x0624,0x1004,0x0000
04f2 0393 062b  |   +|		.DBG4T	0x0393,0x062b,0x1004,0x0000
04f6 03ab 0632  |   2|		.DBG4T	0x03ab,0x0632,0x1001,0x4000
04fa 03d3 0000  |    |		.DBG4T	0x03d3,0x0000,0x1005,0x0000
04fe 03eb 0000  |    |		.DBG4T	0x03eb,0x0000,0x1005,0x0000
0502 0403 0000  |    |		.DBG4T	0x0403,0x0000,0x1005,0x0000
0506 0423 063f  | # ?|		.DBG4T	0x0423,0x063f,0x0000,0x0000
050a 042a 0644  | * D|		.DBG4T	0x042a,0x0644,0x0000,0x4000
050e 043b 0648  | ; H|		.DBG4T	0x043b,0x0648,0x0004,0x4000
0512 0453 064e  | S N|		.DBG4T	0x0453,0x064e,0x0003,0x0000
0516 045b 0651  | [ Q|		.DBG4T	0x045b,0x0651,0x0003,0x0000
051a 046b 0654  | k T|		.DBG4T	0x046b,0x0654,0x0003,0x0000
051e ; --------------------------------------------------------------------------------------
051e ; Debug chain
051e ; --------------------------------------------------------------------------------------
051e 001e 0000  |    |		.DBGLEN	0x001e,0x0000
0520 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003f,0x0045,0x0047,0x004b,0x0052,0x0057,0x005e
053e ; --------------------------------------------------------------------------------------
053e ; Debug chain
053e ; --------------------------------------------------------------------------------------
053e 0018 0000  |    |		.DBGLEN	0x0018,0x0000
0540 0066 006c  | f l|		.DBGLNO	0x0066,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x009a,0x009c,0x009e
0558 0001 0002  |    |		.XXX[0x18]
055a 0004 0005  |    |
055c 0006 0007  |    |
055e 0008 0009  |    |
0560 000a 000b  |    |
0562 000c 000d  |    |
0564 000e 000f  |    |
0566 0010 0011  |    |
0568 0012 0013  |    |
056a 0014 0015  |    |
056c 0016 0017  |    |
056e 0018 0019  |    |
0570 ; --------------------------------------------------------------------------------------
0570 ; Debug chain
0570 ; --------------------------------------------------------------------------------------
0570 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0572 00ab 00b2  |    |		.DBGLNO	0x00ab,0x00b2,0x00b4,0x00b5
0576 ; --------------------------------------------------------------------------------------
0576 ; Debug chain
0576 ; --------------------------------------------------------------------------------------
0576 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0578 00bb 00c2  |    |		.DBGLNO	0x00bb,0x00c2,0x00c4,0x00c5
057c ; --------------------------------------------------------------------------------------
057c ; Debug chain
057c ; --------------------------------------------------------------------------------------
057c 0001 0003  |    |		.DBGLEN	0x0001,0x0003
057e 00cb 00d2  |    |		.DBGLNO	0x00cb,0x00d2,0x00d4,0x00d5
0582 ; --------------------------------------------------------------------------------------
0582 ; Debug chain
0582 ; --------------------------------------------------------------------------------------
0582 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0584 00db       |    |		.DBGLNO	0x00db
0585 ; --------------------------------------------------------------------------------------
0585 ; Debug chain
0585 ; --------------------------------------------------------------------------------------
0585 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0587 00eb       |    |		.DBGLNO	0x00eb
0588 ; --------------------------------------------------------------------------------------
0588 ; Debug chain
0588 ; --------------------------------------------------------------------------------------
0588 0000 0001  |    |		.DBGLEN	0x0000,0x0001
058a 00fb       |    |		.DBGLNO	0x00fb
058b ; --------------------------------------------------------------------------------------
058b ; Debug chain
058b ; --------------------------------------------------------------------------------------
058b 0000 0004  |    |		.DBGLEN	0x0000,0x0004
058d 010c 0111  |    |		.DBGLNO	0x010c,0x0111,0x0117,0x011c
0591 ; --------------------------------------------------------------------------------------
0591 ; Debug chain
0591 ; --------------------------------------------------------------------------------------
0591 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0593 0123       | #  |		.DBGLNO	0x0123
0594 ; --------------------------------------------------------------------------------------
0594 ; Debug chain
0594 ; --------------------------------------------------------------------------------------
0594 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0596 0133 0135  | 3 5|		.DBGLNO	0x0133,0x0135,0x013a,0x013f,0x0153
059b ; --------------------------------------------------------------------------------------
059b ; Debug chain
059b ; --------------------------------------------------------------------------------------
059b 0001 000d  |    |		.DBGLEN	0x0001,0x000d
059d 015b 015d  | [ ]|		.DBGLNO	0x015b,0x015d,0x015f,0x0162,0x0164,0x0169,0x0170,0x0173,0x0176,0x0179,0x017c,0x017f,0x0183,0x0186
05ab ; --------------------------------------------------------------------------------------
05ab ; Debug chain
05ab ; --------------------------------------------------------------------------------------
05ab 0000 0007  |    |		.DBGLEN	0x0000,0x0007
05ad 0193 019b  |    |		.DBGLNO	0x0193,0x019b,0x01a1,0x01a4,0x01a5,0x01aa,0x01b4
05b4 0001 0003  |    |		.XXX[0x7]
05b6 0004 0005  |    |
05b8 0006 0007  |    |
05ba 0002       |    |
05bb ; --------------------------------------------------------------------------------------
05bb ; Debug chain
05bb ; --------------------------------------------------------------------------------------
05bb 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05bd 01bb       |    |		.DBGLNO	0x01bb
05be ; --------------------------------------------------------------------------------------
05be ; Debug chain
05be ; --------------------------------------------------------------------------------------
05be 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05c0 01cb       |    |		.DBGLNO	0x01cb
05c1 ; --------------------------------------------------------------------------------------
05c1 ; Debug chain
05c1 ; --------------------------------------------------------------------------------------
05c1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05c3 01d3       |    |		.DBGLNO	0x01d3
05c4 ; --------------------------------------------------------------------------------------
05c4 ; Debug chain
05c4 ; --------------------------------------------------------------------------------------
05c4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05c6 01db       |    |		.DBGLNO	0x01db
05c7 ; --------------------------------------------------------------------------------------
05c7 ; Debug chain
05c7 ; --------------------------------------------------------------------------------------
05c7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05c9 01e3       |    |		.DBGLNO	0x01e3
05ca ; --------------------------------------------------------------------------------------
05ca ; Debug chain
05ca ; --------------------------------------------------------------------------------------
05ca 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05cc 01eb       |    |		.DBGLNO	0x01eb
05cd ; --------------------------------------------------------------------------------------
05cd ; Debug chain
05cd ; --------------------------------------------------------------------------------------
05cd 0001 0005  |    |		.DBGLEN	0x0001,0x0005
05cf 01fb 0205  |    |		.DBGLNO	0x01fb,0x0205,0x020a,0x0214,0x0216,0x021a
05d5 0002 0001  |    |		.XXX[0x5]
05d7 0003 0004  |    |
05d9 0005       |    |
05da ; --------------------------------------------------------------------------------------
05da ; Debug chain
05da ; --------------------------------------------------------------------------------------
05da 0000 0005  |    |		.DBGLEN	0x0000,0x0005
05dc 0223 0225  | # %|		.DBGLNO	0x0223,0x0225,0x0229,0x022b,0x0230
05e1 0001 0002  |    |		.XXX[0x5]
05e3 0004 0005  |    |
05e5 0003       |    |
05e6 ; --------------------------------------------------------------------------------------
05e6 ; Debug chain
05e6 ; --------------------------------------------------------------------------------------
05e6 0004 000c  |    |		.DBGLEN	0x0004,0x000c
05e8 0243 0247  | C G|		.DBGLNO	0x0243,0x0247,0x0250,0x0252,0x0254,0x025d,0x025f,0x0275,0x0277,0x027f,0x0281,0x0283,0x0285,0x029d,0x02a0,0x02ba
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug chain
05f8 ; --------------------------------------------------------------------------------------
05f8 0004 0008  |    |		.DBGLEN	0x0004,0x0008
05fa 02c3 02c7  |    |		.DBGLNO	0x02c3,0x02c7,0x02d0,0x02d2,0x02d4,0x02dd,0x02df,0x02e1,0x02e3,0x02e8,0x02ee,0x02f5
0606 ; --------------------------------------------------------------------------------------
0606 ; Debug chain
0606 ; --------------------------------------------------------------------------------------
0606 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0608 02fb 0300  |    |		.DBGLNO	0x02fb,0x0300,0x0305
060b ; --------------------------------------------------------------------------------------
060b ; Debug chain
060b ; --------------------------------------------------------------------------------------
060b 0001 0002  |    |		.DBGLEN	0x0001,0x0002
060d 0313 0317  |    |		.DBGLNO	0x0313,0x0317,0x031c
0610 ; --------------------------------------------------------------------------------------
0610 ; Debug chain
0610 ; --------------------------------------------------------------------------------------
0610 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0612 032b 0330  | + 0|		.DBGLNO	0x032b,0x0330,0x0332,0x033f
0616 ; --------------------------------------------------------------------------------------
0616 ; Debug chain
0616 ; --------------------------------------------------------------------------------------
0616 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0618 034b 034f  | K O|		.DBGLNO	0x034b,0x034f,0x0354,0x0357,0x0359
061d ; --------------------------------------------------------------------------------------
061d ; Debug chain
061d ; --------------------------------------------------------------------------------------
061d 0001 0004  |    |		.DBGLEN	0x0001,0x0004
061f 0363 0368  | c h|		.DBGLNO	0x0363,0x0368,0x036a,0x036f,0x0372
0624 ; --------------------------------------------------------------------------------------
0624 ; Debug chain
0624 ; --------------------------------------------------------------------------------------
0624 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0626 037b 037f  | {  |		.DBGLNO	0x037b,0x037f,0x0384,0x0387,0x0389
062b ; --------------------------------------------------------------------------------------
062b ; Debug chain
062b ; --------------------------------------------------------------------------------------
062b 0001 0004  |    |		.DBGLEN	0x0001,0x0004
062d 0393 0398  |    |		.DBGLNO	0x0393,0x0398,0x039a,0x039f,0x03a2
0632 ; --------------------------------------------------------------------------------------
0632 ; Debug chain
0632 ; --------------------------------------------------------------------------------------
0632 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0634 03ab 03ad  |    |		.DBGLNO	0x03ab,0x03ad,0x03b1,0x03be,0x03c5,0x03ca
063a 0001 0003  |    |		.XXX[0x5]
063c 0004 0005  |    |
063e 0002       |    |
063f ; --------------------------------------------------------------------------------------
063f ; Debug chain
063f ; --------------------------------------------------------------------------------------
063f 0003 0000  |    |		.DBGLEN	0x0003,0x0000
0641 0423 0425  | # %|		.DBGLNO	0x0423,0x0425,0x0427
0644 ; --------------------------------------------------------------------------------------
0644 ; Debug chain
0644 ; --------------------------------------------------------------------------------------
0644 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0646 042e       | .  |		.DBGLNO	0x042e
0647 0002       |    |		.XXX[0x1]
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug chain
0648 ; --------------------------------------------------------------------------------------
0648 0000 0002  |    |		.DBGLEN	0x0000,0x0002
064a 0446 044a  | F J|		.DBGLNO	0x0446,0x044a
064c 0001 0005  |    |		.XXX[0x2]
064e ; --------------------------------------------------------------------------------------
064e ; Debug chain
064e ; --------------------------------------------------------------------------------------
064e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0650 0453       | S  |		.DBGLNO	0x0453
0651 ; --------------------------------------------------------------------------------------
0651 ; Debug chain
0651 ; --------------------------------------------------------------------------------------
0651 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0653 045b       | [  |		.DBGLNO	0x045b
0654 ; --------------------------------------------------------------------------------------
0654 ; Debug chain
0654 ; --------------------------------------------------------------------------------------
0654 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0656 046b       | k  |		.DBGLNO	0x046b
0657 0000 0000  |    |		.BLANK	0000[0x1a9]