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

⟦d418540dc⟧

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

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 0330       | 0  |		.CONST	0x0330								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x308, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 009d       |    |		.CONST	0x009d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002a       | *  |		.CONST	0x002a								; Number of locals
000b			INIT_0008:
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c e002       |    |		Load	0x0,0x2
000d e003       |    |		Load	0x0,0x3
000e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
000f e003       |    |		Load	0x0,0x3
0010 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0011 e003       |    |		Load	0x0,0x3
0012 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0013 e003       |    |		Load	0x0,0x3
0014 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 4806       |H   |		Short_Literal	0x6
0017 032e       | .  |		Declare_Type	Record,Defined,Visible
0018 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
001a 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
001c 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
001e 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0020 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0022 029c 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible
0024 029c 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible
0026 0093 0000  |    |		push_full_address	0x0
0028 6093       |`   |		Indirect_Literal	Discrete,0xbc,{0x80000000, 0x00010000}
0029 0273       | s  |		Execute	Discrete,Plus
002a e004       |    |		Load	0x0,0x4
002b 0273       | s  |		Execute	Discrete,Plus
002c e005       |    |		Load	0x0,0x5
002d 0273       | s  |		Execute	Discrete,Plus
002e e20d       |    |		Load	0x1,0xd
002f 00e3       |    |		Load_Encached	Natural_Cache
0030 4800       |H   |		Short_Literal	0x0
0031 4832       |H2  |		Short_Literal	0x32
0032 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0033 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0034 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0035 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0036 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0037 e006       |    |		Load	0x0,0x6
0038 0386       |    |		Declare_Variable	Package,Visible
0039 00d8       |    |		Load_Top	At_Offset_0
003a 020f       |    |		Execute	Module,Activate
003b 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
003d 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
003f 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0041 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0043 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0045 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0047 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0049 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
004b 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
004d 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
004f 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0051 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0053 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0055 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0057 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0059 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
005b 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
005d 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
005f 0093 0000  |    |		push_full_address	0x0
0061 6056       |`V  |		Indirect_Literal	Discrete,0xb8,{0x80000000, 0x00010000}
0062 0273       | s  |		Execute	Discrete,Plus
0063 0129       | )  |		Execute	Any,Make_Visible
0064 00bf       |    |		Action	Accept_Activation
0065 e007       |    |		Load	0x0,0x7
0066 e215       |    |		Load	0x1,0x15
0067 0098       |    |		Execute	Package,Field_Read_Dynamic
0068 0322       | "  |		Declare_Variable	Record
0069 4800       |H   |		Short_Literal	0x0
006a 0093 0303  |    |		push_full_address	INIT_0300
006c 00f5       |    |		Load_Encached	Unused21
006d 037d       | }  |		Declare_Type	Task,Defined
006e 036f       | o  |		Declare_Variable	Task
006f 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
009c 00c7       |    |		Action	Elaborate_Subprogram
009d			BODY_0008:
009d			BODY_0008:
009d 00be       |    |		Action	Activate_Tasks
009e 4800       |H   |		Short_Literal	0x0
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 e008       |    |		Load	0x0,0x8
00a3 e215       |    |		Load	0x1,0x15
00a4 0096       |    |		Execute	Package,Entry
00a5 00d1       |    |		Pop_Control	Pop_Count_1
00a6 4800       |H   |		Short_Literal	0x0
00a7 00d9       |    |		Load_Top	At_Offset_1
00a8 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
00a9 00bc       |    |		Action	Signal_Activated
00aa 00bb       |    |		Action	Signal_Completion
00ab 0000 0000  |    |		.BLANK	0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b6 0000 0000  |    |		.XXX[0x2]
00b8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00bc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2
00cc e5fe       |    |		Load	0x2,-0x2
00cd 017d       | }  |		Execute	Record,Structure_Write
00ce 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00cf 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
00d4 e5fe       |    |		Load	0x2,-0x2
00d5 017f       |    |		Execute	Record,Equal
00d6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fe       |    |		Load	0x2,-0x2
00dd 027f       |    |		Execute	Discrete,Equal
00de 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00df 0000       |    |		.XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 00d8       |    |		Load_Top	At_Offset_0
00e5 00e3       |    |		Load_Encached	Natural_Cache
00e6 0260       | `  |		Execute	Discrete,In_Type
00e7 7001       |p   |		Jump_Nonzero	0xe9
00e8 0801       |    |		Execute_Immediate	Raise,0x1
00e9 820f       |    |		Call	0x1,0xf
00ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00eb 0000 0000  |    |		.BLANK	0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 00e3       |    |		Load_Encached	Natural_Cache
00f6 0260       | `  |		Execute	Discrete,In_Type
00f7 7001       |p   |		Jump_Nonzero	0xf9
00f8 0801       |    |		Execute_Immediate	Raise,0x1
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb 00e3       |    |		Load_Encached	Natural_Cache
00fc 0260       | `  |		Execute	Discrete,In_Type
00fd 7001       |p   |		Jump_Nonzero	0xff
00fe 0801       |    |		Execute_Immediate	Raise,0x1
00ff 8212       |    |		Call	0x1,0x12
0100 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d       |    |		.CONST	0x010d								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b e20d       |    |		Load	0x1,0xd
010c 0322       | "  |		Declare_Variable	Record
010d			BODY_0108:
010d 00db       |    |		Load_Top	At_Offset_3
010e 00d9       |    |		Load_Top	At_Offset_1
010f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0110 e5fe       |    |		Load	0x2,-0x2
0111 00d9       |    |		Load_Top	At_Offset_1
0112 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0113 e5fd       |    |		Load	0x2,-0x3
0114 00d9       |    |		Load_Top	At_Offset_1
0115 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0116 e5fc       |    |		Load	0x2,-0x4
0117 00d9       |    |		Load_Top	At_Offset_1
0118 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0119 e5fb       |    |		Load	0x2,-0x5
011a 00d9       |    |		Load_Top	At_Offset_1
011b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
011c e5fa       |    |		Load	0x2,-0x6
011d 00d9       |    |		Load_Top	At_Offset_1
011e 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
011f 4800       |H   |		Short_Literal	0x0
0120 e22a       | *  |		Load	0x1,0x2a
0121 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0122 e229       | )  |		Load	0x1,0x29
0123 00d9       |    |		Load_Top	At_Offset_1
0124 e009       |    |		Load	0x0,0x9
0125 e215       |    |		Load	0x1,0x15
0126 0096       |    |		Execute	Package,Entry
0127 00d1       |    |		Pop_Control	Pop_Count_1
0128 4800       |H   |		Short_Literal	0x0
0129 e22a       | *  |		Load	0x1,0x2a
012a 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
012b 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4800       |H   |		Short_Literal	0x0
0134 e22a       | *  |		Load	0x1,0x2a
0135 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0136 e229       | )  |		Load	0x1,0x29
0137 00db       |    |		Load_Top	At_Offset_3
0138 e00a       |    |		Load	0x0,0xa
0139 e215       |    |		Load	0x1,0x15
013a 0096       |    |		Execute	Package,Entry
013b 00d1       |    |		Pop_Control	Pop_Count_1
013c 4800       |H   |		Short_Literal	0x0
013d e22a       | *  |		Load	0x1,0x2a
013e 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
013f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145       | E  |		.CONST	0x0145								; Address of begin
0141 0162       | b  |		.CONST	0x0162								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 e20d       |    |		Load	0x1,0xd
0144 0322       | "  |		Declare_Variable	Record
0145			BODY_0140:
0145 4800       |H   |		Short_Literal	0x0
0146 e22a       | *  |		Load	0x1,0x2a
0147 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0148 00db       |    |		Load_Top	At_Offset_3
0149 e229       | )  |		Load	0x1,0x29
014a e00b       |    |		Load	0x0,0xb
014b e215       |    |		Load	0x1,0x15
014c 0096       |    |		Execute	Package,Entry
014d 00d9       |    |		Load_Top	At_Offset_1
014e 017d       | }  |		Execute	Record,Structure_Write
014f 4800       |H   |		Short_Literal	0x0
0150 e22a       | *  |		Load	0x1,0x2a
0151 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0152 00d8       |    |		Load_Top	At_Offset_0
0153 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0154 a5fe       |    |		Store_Unchecked	0x2,-0x2
0155 00d8       |    |		Load_Top	At_Offset_0
0156 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0157 a5fd       |    |		Store_Unchecked	0x2,-0x3
0158 00d8       |    |		Load_Top	At_Offset_0
0159 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
015a a5fc       |    |		Store_Unchecked	0x2,-0x4
015b 00d8       |    |		Load_Top	At_Offset_0
015c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
015d a5fb       |    |		Store_Unchecked	0x2,-0x5
015e 00d8       |    |		Load_Top	At_Offset_0
015f 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0160 a5fa       |    |		Store_Unchecked	0x2,-0x6
0161 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0162			TRAP_0140:
0162 e00c       |    |		Load	0x0,0xc
0163 e215       |    |		Load	0x1,0x15
0164 0098       |    |		Execute	Package,Field_Read_Dynamic
0165 010f       |    |		Execute	Exception,Equal
0166 6805       |h   |		Jump_Zero	0x16c
0167 4800       |H   |		Short_Literal	0x0
0168 e22a       | *  |		Load	0x1,0x2a
0169 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
016a e228       | (  |		Load	0x1,0x28
016b 0257       | W  |		Execute	Discrete,Raise
016c 0100       |    |		Execute	Exception,Raise
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175       | u  |		.CONST	0x0175								; Address of begin
0171 0185       |    |		.CONST	0x0185								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 e20d       |    |		Load	0x1,0xd
0174 0322       | "  |		Declare_Variable	Record
0175			BODY_0170:
0175 4800       |H   |		Short_Literal	0x0
0176 e22a       | *  |		Load	0x1,0x2a
0177 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0178 00db       |    |		Load_Top	At_Offset_3
0179 e229       | )  |		Load	0x1,0x29
017a e00b       |    |		Load	0x0,0xb
017b e215       |    |		Load	0x1,0x15
017c 0096       |    |		Execute	Package,Entry
017d 00d9       |    |		Load_Top	At_Offset_1
017e 017d       | }  |		Execute	Record,Structure_Write
017f 4800       |H   |		Short_Literal	0x0
0180 e22a       | *  |		Load	0x1,0x2a
0181 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0182 00d8       |    |		Load_Top	At_Offset_0
0183 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0184 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0185			TRAP_0170:
0185 e00c       |    |		Load	0x0,0xc
0186 e215       |    |		Load	0x1,0x15
0187 0098       |    |		Execute	Package,Field_Read_Dynamic
0188 010f       |    |		Execute	Exception,Equal
0189 6805       |h   |		Jump_Zero	0x18f
018a 4800       |H   |		Short_Literal	0x0
018b e22a       | *  |		Load	0x1,0x2a
018c 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
018d e228       | (  |		Load	0x1,0x28
018e 0257       | W  |		Execute	Discrete,Raise
018f 0100       |    |		Execute	Exception,Raise
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195       |    |		.CONST	0x0195								; Address of begin
0191 01a5       |    |		.CONST	0x01a5								; Address of exception handler
0192 0002       |    |		.CONST	0x0002								; Number of locals
0193			INIT_0190:
0193 e20d       |    |		Load	0x1,0xd
0194 0322       | "  |		Declare_Variable	Record
0195			BODY_0190:
0195 4800       |H   |		Short_Literal	0x0
0196 e22a       | *  |		Load	0x1,0x2a
0197 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0198 00db       |    |		Load_Top	At_Offset_3
0199 e229       | )  |		Load	0x1,0x29
019a e00b       |    |		Load	0x0,0xb
019b e215       |    |		Load	0x1,0x15
019c 0096       |    |		Execute	Package,Entry
019d 00d9       |    |		Load_Top	At_Offset_1
019e 017d       | }  |		Execute	Record,Structure_Write
019f 4800       |H   |		Short_Literal	0x0
01a0 e22a       | *  |		Load	0x1,0x2a
01a1 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
01a2 00d8       |    |		Load_Top	At_Offset_0
01a3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a5			TRAP_0190:
01a5 e00c       |    |		Load	0x0,0xc
01a6 e215       |    |		Load	0x1,0x15
01a7 0098       |    |		Execute	Package,Field_Read_Dynamic
01a8 010f       |    |		Execute	Exception,Equal
01a9 6805       |h   |		Jump_Zero	0x1af
01aa 4800       |H   |		Short_Literal	0x0
01ab e22a       | *  |		Load	0x1,0x2a
01ac 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
01ad e228       | (  |		Load	0x1,0x28
01ae 0257       | W  |		Execute	Discrete,Raise
01af 0100       |    |		Execute	Exception,Raise
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5       |    |		.CONST	0x01b5								; Address of begin
01b1 01c5       |    |		.CONST	0x01c5								; Address of exception handler
01b2 0002       |    |		.CONST	0x0002								; Number of locals
01b3			INIT_01b0:
01b3 e20d       |    |		Load	0x1,0xd
01b4 0322       | "  |		Declare_Variable	Record
01b5			BODY_01b0:
01b5 4800       |H   |		Short_Literal	0x0
01b6 e22a       | *  |		Load	0x1,0x2a
01b7 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
01b8 00db       |    |		Load_Top	At_Offset_3
01b9 e229       | )  |		Load	0x1,0x29
01ba e00b       |    |		Load	0x0,0xb
01bb e215       |    |		Load	0x1,0x15
01bc 0096       |    |		Execute	Package,Entry
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 017d       | }  |		Execute	Record,Structure_Write
01bf 4800       |H   |		Short_Literal	0x0
01c0 e22a       | *  |		Load	0x1,0x2a
01c1 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c5			TRAP_01b0:
01c5 e00c       |    |		Load	0x0,0xc
01c6 e215       |    |		Load	0x1,0x15
01c7 0098       |    |		Execute	Package,Field_Read_Dynamic
01c8 010f       |    |		Execute	Exception,Equal
01c9 6805       |h   |		Jump_Zero	0x1cf
01ca 4800       |H   |		Short_Literal	0x0
01cb e22a       | *  |		Load	0x1,0x2a
01cc 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
01cd e228       | (  |		Load	0x1,0x28
01ce 0257       | W  |		Execute	Discrete,Raise
01cf 0100       |    |		Execute	Exception,Raise
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5       |    |		.CONST	0x01d5								; Address of begin
01d1 01e5       |    |		.CONST	0x01e5								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 e20d       |    |		Load	0x1,0xd
01d4 0322       | "  |		Declare_Variable	Record
01d5			BODY_01d0:
01d5 4800       |H   |		Short_Literal	0x0
01d6 e22a       | *  |		Load	0x1,0x2a
01d7 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
01d8 00db       |    |		Load_Top	At_Offset_3
01d9 e229       | )  |		Load	0x1,0x29
01da e00b       |    |		Load	0x0,0xb
01db e215       |    |		Load	0x1,0x15
01dc 0096       |    |		Execute	Package,Entry
01dd 00d9       |    |		Load_Top	At_Offset_1
01de 017d       | }  |		Execute	Record,Structure_Write
01df 4800       |H   |		Short_Literal	0x0
01e0 e22a       | *  |		Load	0x1,0x2a
01e1 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
01e2 00d8       |    |		Load_Top	At_Offset_0
01e3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e5			TRAP_01d0:
01e5 e00c       |    |		Load	0x0,0xc
01e6 e215       |    |		Load	0x1,0x15
01e7 0098       |    |		Execute	Package,Field_Read_Dynamic
01e8 010f       |    |		Execute	Exception,Equal
01e9 6805       |h   |		Jump_Zero	0x1ef
01ea 4800       |H   |		Short_Literal	0x0
01eb e22a       | *  |		Load	0x1,0x2a
01ec 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
01ed e228       | (  |		Load	0x1,0x28
01ee 0257       | W  |		Execute	Discrete,Raise
01ef 0100       |    |		Execute	Exception,Raise
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5       |    |		.CONST	0x01f5								; Address of begin
01f1 0205       |    |		.CONST	0x0205								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 e20d       |    |		Load	0x1,0xd
01f4 0322       | "  |		Declare_Variable	Record
01f5			BODY_01f0:
01f5 4800       |H   |		Short_Literal	0x0
01f6 e22a       | *  |		Load	0x1,0x2a
01f7 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
01f8 00db       |    |		Load_Top	At_Offset_3
01f9 e229       | )  |		Load	0x1,0x29
01fa e00b       |    |		Load	0x0,0xb
01fb e215       |    |		Load	0x1,0x15
01fc 0096       |    |		Execute	Package,Entry
01fd 00d9       |    |		Load_Top	At_Offset_1
01fe 017d       | }  |		Execute	Record,Structure_Write
01ff 4800       |H   |		Short_Literal	0x0
0200 e22a       | *  |		Load	0x1,0x2a
0201 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0202 00d8       |    |		Load_Top	At_Offset_0
0203 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0204 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0205			TRAP_01f0:
0205 e00c       |    |		Load	0x0,0xc
0206 e215       |    |		Load	0x1,0x15
0207 0098       |    |		Execute	Package,Field_Read_Dynamic
0208 010f       |    |		Execute	Exception,Equal
0209 6805       |h   |		Jump_Zero	0x20f
020a 4800       |H   |		Short_Literal	0x0
020b e22a       | *  |		Load	0x1,0x2a
020c 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
020d e228       | (  |		Load	0x1,0x28
020e 0257       | W  |		Execute	Discrete,Raise
020f 0100       |    |		Execute	Exception,Raise
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0214       |    |		.CONST	0x0214								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0002       |    |		.CONST	0x0002								; Number of locals
0213			INIT_0210:
0213 00e1       |    |		Load_Encached	Boolean_Cache
0214			BODY_0210:
0214 4800       |H   |		Short_Literal	0x0
0215 e22a       | *  |		Load	0x1,0x2a
0216 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0217 00db       |    |		Load_Top	At_Offset_3
0218 e229       | )  |		Load	0x1,0x29
0219 e00d       |    |		Load	0x0,0xd
021a e215       |    |		Load	0x1,0x15
021b 0096       |    |		Execute	Package,Entry
021c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
021d 4800       |H   |		Short_Literal	0x0
021e e22a       | *  |		Load	0x1,0x2a
021f 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0220 00d8       |    |		Load_Top	At_Offset_0
0221 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0222 0000 0000  |    |		.BLANK	0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f       | /  |		.CONST	0x022f								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b e00e       |    |		Load	0x0,0xe
022c e215       |    |		Load	0x1,0x15
022d 0098       |    |		Execute	Package,Field_Read_Dynamic
022e 0322       | "  |		Declare_Variable	Record
022f			BODY_0228:
022f 4800       |H   |		Short_Literal	0x0
0230 e22a       | *  |		Load	0x1,0x2a
0231 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0232 e229       | )  |		Load	0x1,0x29
0233 e00f       |    |		Load	0x0,0xf
0234 e215       |    |		Load	0x1,0x15
0235 0096       |    |		Execute	Package,Entry
0236 00d9       |    |		Load_Top	At_Offset_1
0237 017d       | }  |		Execute	Record,Structure_Write
0238 4800       |H   |		Short_Literal	0x0
0239 e22a       | *  |		Load	0x1,0x2a
023a 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
023b 00d8       |    |		Load_Top	At_Offset_0
023c 00ca       |    |		Action	Exit_Nullary_Function
023d 0000 0000  |    |		.XXX[0x3]
023f 0000       |    |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0247       | G  |		.CONST	0x0247								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 e00e       |    |		Load	0x0,0xe
0244 e215       |    |		Load	0x1,0x15
0245 0098       |    |		Execute	Package,Field_Read_Dynamic
0246 0322       | "  |		Declare_Variable	Record
0247			BODY_0240:
0247 4800       |H   |		Short_Literal	0x0
0248 e22a       | *  |		Load	0x1,0x2a
0249 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
024a 00db       |    |		Load_Top	At_Offset_3
024b e229       | )  |		Load	0x1,0x29
024c e010       |    |		Load	0x0,0x10
024d e215       |    |		Load	0x1,0x15
024e 0096       |    |		Execute	Package,Entry
024f 00d9       |    |		Load_Top	At_Offset_1
0250 017d       | }  |		Execute	Record,Structure_Write
0251 4800       |H   |		Short_Literal	0x0
0252 e22a       | *  |		Load	0x1,0x2a
0253 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0254 00d8       |    |		Load_Top	At_Offset_0
0255 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0256 0000 0000  |    |		.XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025c       | \  |		.CONST	0x025c								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0002       |    |		.CONST	0x0002								; Number of locals
025b			INIT_0258:
025b 00e1       |    |		Load_Encached	Boolean_Cache
025c			BODY_0258:
025c 4800       |H   |		Short_Literal	0x0
025d e22a       | *  |		Load	0x1,0x2a
025e 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
025f 00db       |    |		Load_Top	At_Offset_3
0260 e229       | )  |		Load	0x1,0x29
0261 e011       |    |		Load	0x0,0x11
0262 e215       |    |		Load	0x1,0x15
0263 0096       |    |		Execute	Package,Entry
0264 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0265 4800       |H   |		Short_Literal	0x0
0266 e22a       | *  |		Load	0x1,0x2a
0267 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0268 00d8       |    |		Load_Top	At_Offset_0
0269 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026a 0000 0000  |    |		.BLANK	0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0275       | u  |		.CONST	0x0275								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0002       |    |		.CONST	0x0002								; Number of locals
0273			INIT_0270:
0273 e20d       |    |		Load	0x1,0xd
0274 0322       | "  |		Declare_Variable	Record
0275			BODY_0270:
0275 4800       |H   |		Short_Literal	0x0
0276 e22a       | *  |		Load	0x1,0x2a
0277 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0278 00db       |    |		Load_Top	At_Offset_3
0279 e229       | )  |		Load	0x1,0x29
027a e012       |    |		Load	0x0,0x12
027b e215       |    |		Load	0x1,0x15
027c 0096       |    |		Execute	Package,Entry
027d 00d9       |    |		Load_Top	At_Offset_1
027e 017d       | }  |		Execute	Record,Structure_Write
027f 4800       |H   |		Short_Literal	0x0
0280 e22a       | *  |		Load	0x1,0x2a
0281 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
0282 00d8       |    |		Load_Top	At_Offset_0
0283 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0284 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d       |    |		.CONST	0x028d								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0002       |    |		.CONST	0x0002								; Number of locals
028b			INIT_0288:
028b e20d       |    |		Load	0x1,0xd
028c 0322       | "  |		Declare_Variable	Record
028d			BODY_0288:
028d 4800       |H   |		Short_Literal	0x0
028e e22a       | *  |		Load	0x1,0x2a
028f 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0290 00db       |    |		Load_Top	At_Offset_3
0291 e229       | )  |		Load	0x1,0x29
0292 e012       |    |		Load	0x0,0x12
0293 e215       |    |		Load	0x1,0x15
0294 0096       |    |		Execute	Package,Entry
0295 00d9       |    |		Load_Top	At_Offset_1
0296 017d       | }  |		Execute	Record,Structure_Write
0297 4800       |H   |		Short_Literal	0x0
0298 e22a       | *  |		Load	0x1,0x2a
0299 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
029a 00d8       |    |		Load_Top	At_Offset_0
029b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
029c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
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 e20d       |    |		Load	0x1,0xd
02a4 0322       | "  |		Declare_Variable	Record
02a5			BODY_02a0:
02a5 4800       |H   |		Short_Literal	0x0
02a6 e22a       | *  |		Load	0x1,0x2a
02a7 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
02a8 00db       |    |		Load_Top	At_Offset_3
02a9 e229       | )  |		Load	0x1,0x29
02aa e012       |    |		Load	0x0,0x12
02ab e215       |    |		Load	0x1,0x15
02ac 0096       |    |		Execute	Package,Entry
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae 017d       | }  |		Execute	Record,Structure_Write
02af 4800       |H   |		Short_Literal	0x0
02b0 e22a       | *  |		Load	0x1,0x2a
02b1 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
02b2 00d8       |    |		Load_Top	At_Offset_0
02b3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b5 0000 0000  |    |		.XXX[0x3]
02b7 0000       |    |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd       |    |		.CONST	0x02bd								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e20d       |    |		Load	0x1,0xd
02bc 0322       | "  |		Declare_Variable	Record
02bd			BODY_02b8:
02bd 4800       |H   |		Short_Literal	0x0
02be e22a       | *  |		Load	0x1,0x2a
02bf 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
02c0 00db       |    |		Load_Top	At_Offset_3
02c1 e229       | )  |		Load	0x1,0x29
02c2 e012       |    |		Load	0x0,0x12
02c3 e215       |    |		Load	0x1,0x15
02c4 0096       |    |		Execute	Package,Entry
02c5 00d9       |    |		Load_Top	At_Offset_1
02c6 017d       | }  |		Execute	Record,Structure_Write
02c7 4800       |H   |		Short_Literal	0x0
02c8 e22a       | *  |		Load	0x1,0x2a
02c9 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
02ca 00d8       |    |		Load_Top	At_Offset_0
02cb 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02cc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cd 0000 0000  |    |		.XXX[0x3]
02cf 0000       |    |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d5       |    |		.CONST	0x02d5								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0002       |    |		.CONST	0x0002								; Number of locals
02d3			INIT_02d0:
02d3 e20d       |    |		Load	0x1,0xd
02d4 0322       | "  |		Declare_Variable	Record
02d5			BODY_02d0:
02d5 4800       |H   |		Short_Literal	0x0
02d6 e22a       | *  |		Load	0x1,0x2a
02d7 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
02d8 00db       |    |		Load_Top	At_Offset_3
02d9 e229       | )  |		Load	0x1,0x29
02da e012       |    |		Load	0x0,0x12
02db e215       |    |		Load	0x1,0x15
02dc 0096       |    |		Execute	Package,Entry
02dd 00d9       |    |		Load_Top	At_Offset_1
02de 017d       | }  |		Execute	Record,Structure_Write
02df 4800       |H   |		Short_Literal	0x0
02e0 e22a       | *  |		Load	0x1,0x2a
02e1 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e5 0000 0000  |    |		.XXX[0x3]
02e7 0000       |    |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed       |    |		.CONST	0x02ed								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0002       |    |		.CONST	0x0002								; Number of locals
02eb			INIT_02e8:
02eb e20d       |    |		Load	0x1,0xd
02ec 0322       | "  |		Declare_Variable	Record
02ed			BODY_02e8:
02ed 4800       |H   |		Short_Literal	0x0
02ee e22a       | *  |		Load	0x1,0x2a
02ef 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
02f0 00db       |    |		Load_Top	At_Offset_3
02f1 e229       | )  |		Load	0x1,0x29
02f2 e012       |    |		Load	0x0,0x12
02f3 e215       |    |		Load	0x1,0x15
02f4 0096       |    |		Execute	Package,Entry
02f5 00d9       |    |		Load_Top	At_Offset_1
02f6 017d       | }  |		Execute	Record,Structure_Write
02f7 4800       |H   |		Short_Literal	0x0
02f8 e22a       | *  |		Load	0x1,0x2a
02f9 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
02fa 00d8       |    |		Load_Top	At_Offset_0
02fb 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02fd 0000 0000  |    |		.XXX[0x3]
02ff 0000       |    |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0313       |    |		.CONST	0x0313								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0010       |    |		.CONST	0x0010								; Number of locals
0303			INIT_0300:
0303 4800       |H   |		Short_Literal	0x0
0304 02cb       |    |		Declare_Variable	Entry
0305 4800       |H   |		Short_Literal	0x0
0306 02cb       |    |		Declare_Variable	Entry
0307 00bf       |    |		Action	Accept_Activation
0308 480d 4864  |H Hd|		Declare_Variable	Select	0x000, 0x001,
030a 4800 4801  |H H |				[0x000]: 0x001 = 0x0008,
030c 4800 4801  |H H |				[0x00d]: 0x064 = 0x0320
030e 02cf       |    |
030f 480e       |H   |		Short_Literal	0xe
0310 0299 032b  |   +|		Declare_Subprogram	INIT_0328,For_Accept
0312 00bc       |    |		Action	Signal_Activated
0313			BODY_0300:
0313 00cf       |    |		Action	Mark_Auxiliary
0314 00da       |    |		Load_Top	At_Offset_2
0315 013f       | ?  |		Execute	Select,Rendezvous
0316 00d1       |    |		Pop_Control	Pop_Count_1
0317 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0318 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0319 0137       | 7  |		Execute	Entry,Rendezvous
031a 00c9       |    |		Action	Pop_Auxiliary_Loop
031b 7ff8       |    |		Jump	0x314
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; See instruction 0x02cf at 0x308, index=0xd
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 4100       |A   |		End_Rendezvous	0x0
0324 0000 0000  |    |		.BLANK	0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 4100       |A   |		End_Rendezvous	0x0
032c 0000 0000  |    |		.BLANK	0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug Table
0330 ; --------------------------------------------------------------------------------------
0330 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0xd1af,0x0000,0x0001,0x0000
0336 0000 0c33  |   3|		.XXX[0xb1]
0338 0cca 2c04  |  , |
033a 0000 1e16  |    |
033c 0007 0c13  |    |
033e 0000 0f33  |   3|
0340 0cca 2c04  |  , |
0342 0000 1e16  |    |
0344 0007 0c13  |    |
0346 0000 1333  |   3|
0348 fa63 4b73  | cKs|
034a 2800 0000  |(   |
034c 4800 0000  |H   |
034e 910a 4b79  |  Ky|
0350 724b 7972  |rKyr|
0352 2b73 22fa  |+s" |
0354 7b32 fa63  |{2 c|
0356 4b73 2800  |Ks( |
0358 0000 9800  |    |
035a 0000 bb2b  |   +|
035c 234b a37b  |#K {|
035e 9173 bb4b  | s K|
0360 7323 7bb9  |s#{ |
0362 73a3 930b  |s   |
0364 739b 837b  |s  {|
0366 9b28 0000  | (  |
0368 0010 0000  |    |
036a 0090 0000  |    |
036c 0212 1436  |   6|
036e f6d6 d616  |    |
0370 e647 32e4  | G2 |
0372 5646 9746  |VF F|
0374 f722 e576  | " v|
0376 96e6 46f7  |  F |
0378 72e5 4726  |r G&|
037a 16e7 3706  |  7 |
037c f736 5000  | 6P |
037e 0001 0000  |    |
0380 0000 b656  |   V|
0382 e645 f6f6  | E  |
0384 65f7 0616  |e   |
0386 7650 0000  |vP  |
0388 0040 0000  | @  |
038a 0120 0000  |    |
038c 02e4 292d  |  )-|
038e e5ca 8caf  |    |
0390 0e8b e92d  |   -|
0392 e5c8 adcc  |    |
0394 8be9 eccb  |    |
0396 ea0c 2cec  |  , |
0398 a000 0001  |    |
039a 2000 0002  |    |
039c 4429 2de5  |D)- |
039e c92d e5c8  | -  |
03a0 adcc 8be9  |    |
03a2 eccb ea0c  |    |
03a4 2cec a000  |,   |
03a6 000b 4000  |  @ |
03a8 0001 0cec  |    |
03aa adcc ae4c  |   L|
03ac 2e8c a000  |.   |
03ae 0000 4000  |  @ |
03b0 0005 c000  |    |
03b2 0014 8855  |   U|
03b4 1bdb db1c  |    |
03b6 cb91 195c  |   \|
03b8 da59 db8b  | Y  |
03ba 9499 5b19  |  [ |
03bc 585c d94b  |X\ K|
03be 9498 5d1a  |  ] |
03c0 5bdb 985b  |[  [|
03c2 17cc 8c4d  |   M|
03c4 8dcb 9419  |    |
03c6 1b17 d0db  |    |
03c8 db5b 585b  | [X[|
03ca 991c cb94  |    |
03cc 995d 9b8b  | ]  |
03ce 955b 9a5d  | [ ]|
03d0 1ccb 9119  |    |
03d2 5cda 59db  |\ Y |
03d4 8b91 d95b  |   [|
03d6 995c 985d  | \ ]|
03d8 1957 d358  | W X|
03da 5c9a dd5c  |\  \|
03dc 0000 0007  |    |
03de 8000 0002  |    |
03e0 599a 5b1b  |Y [ |
03e2 17db 5bd9  |  [ |
03e4 1940 0000  | @  |
03e6 0080       |    |
03e7 0000 0000  |    |		.BLANK	0000[0x5]
03ec 0028 e7f1  | (  |		.XXX[0x14]
03ee 0300 e004  |    |
03f0 0001 0404  |    |
03f2 0000 0700  |    |
03f4 0028 e7f1  | (  |
03f6 0300 f260  |   `|
03f8 ff22 022e  | " .|
03fa 4000 0001  |@   |
03fc 0000 0000  |    |
03fe 0000 000e  |    |