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

⟦8b26efa96⟧

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

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 03d0       |    |		.CONST	0x03d0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0018       |    |		.CONST	0x0018								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 029d 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call
0012 029d 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0017 00c7       |    |		Action	Elaborate_Subprogram
0018			BODY_0008:
0018 00bc       |    |		Action	Signal_Activated
0019 00bb       |    |		Action	Signal_Completion
001a 0000 0000  |    |		.BLANK	0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0060       | `  |		.CONST	0x0060								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0015       |    |		.CONST	0x0015								; Number of locals
0023			INIT_0020:
0023 e001       |    |		Load	0x0,0x1
0024 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0025 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0026 02c7       |    |		Declare_Variable	Any
0027 4801       |H   |		Short_Literal	0x1
0028 e001       |    |		Load	0x0,0x1
0029 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
002b e5ff       |    |		Load	0x2,-0x1
002c e001       |    |		Load	0x0,0x1
002d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
002f a402       |    |		Store_Unchecked	0x2,0x2
0030 4800       |H   |		Short_Literal	0x0
0031 4804       |H   |		Short_Literal	0x4
0032 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
0034 03fd       |    |		Declare_Type	Discrete,Defined
0035 4800       |H   |		Short_Literal	0x0
0036 4802       |H   |		Short_Literal	0x2
0037 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0039 03fd       |    |		Declare_Type	Discrete,Defined
003a 00d8       |    |		Load_Top	At_Offset_0
003b 0007       |    |		Action	Break_Optional
003c 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
003e 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
0040 029f 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Call
0042 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0044 029f 024b  |   K|		Declare_Subprogram	INIT_0248,For_Call
0046 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
0048 a002       |    |		Store_Unchecked	0x0,0x2
0049 00c6       |    |		Action	Check_Subprogram_Elaborated
004a 4807       |H   |		Short_Literal	0x7
004b 4802       |H   |		Short_Literal	0x2
004c 0099       |    |		Action	Reference_Dynamic
004d e403       |    |		Load	0x2,0x3
004e 4806       |H   |		Short_Literal	0x6
004f 4802       |H   |		Short_Literal	0x2
0050 0099       |    |		Action	Reference_Dynamic
0051 480a       |H   |		Short_Literal	0xa
0052 4802       |H   |		Short_Literal	0x2
0053 0099       |    |		Action	Reference_Dynamic
0054 4809       |H   |		Short_Literal	0x9
0055 4802       |H   |		Short_Literal	0x2
0056 0099       |    |		Action	Reference_Dynamic
0057 480b       |H   |		Short_Literal	0xb
0058 4802       |H   |		Short_Literal	0x2
0059 0099       |    |		Action	Reference_Dynamic
005a 0092 0314  |    |		Action	Push_String_Extended,0x314					; "TASKING ANALYSIS"
005c e003       |    |		Load	0x0,0x3
005d e004       |    |		Load	0x0,0x4
005e 4815       |H   |		Short_Literal	0x15
005f 0007       |    |		Action	Break_Optional
0060			BODY_0020:
0060 e402       |    |		Load	0x2,0x2
0061 e001       |    |		Load	0x0,0x1
0062 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0063 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0064 680a       |h   |		Jump_Zero	0x6f
0065 e005       |    |		Load	0x0,0x5
0066 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0067 4807       |H   |		Short_Literal	0x7
0068 e5ff       |    |		Load	0x2,-0x1
0069 0092 0315  |    |		Action	Push_String_Extended,0x315					; " is not a valid pathname"
006b 01cc       |    |		Execute	Vector,Catenate
006c e006       |    |		Load	0x0,0x6
006d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
006e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
006f e5fd       |    |		Load	0x2,-0x3
0070 e402       |    |		Load	0x2,0x2
0071 0092 0316  |    |		Action	Push_String_Extended,0x316					; "<PROFILE>"
0073 480c       |H   |		Short_Literal	0xc
0074 4802       |H   |		Short_Literal	0x2
0075 0099       |    |		Action	Reference_Dynamic
0076 e40d       |    |		Load	0x2,0xd
0077 480e       |H   |		Short_Literal	0xe
0078 4802       |H   |		Short_Literal	0x2
0079 0099       |    |		Action	Reference_Dynamic
007a 480f       |H   |		Short_Literal	0xf
007b 4802       |H   |		Short_Literal	0x2
007c 0099       |    |		Action	Reference_Dynamic
007d 4810       |H   |		Short_Literal	0x10
007e 4802       |H   |		Short_Literal	0x2
007f 0099       |    |		Action	Reference_Dynamic
0080 4811       |H   |		Short_Literal	0x11
0081 4802       |H   |		Short_Literal	0x2
0082 0099       |    |		Action	Reference_Dynamic
0083 e412       |    |		Load	0x2,0x12
0084 4813       |H   |		Short_Literal	0x13
0085 4802       |H   |		Short_Literal	0x2
0086 0099       |    |		Action	Reference_Dynamic
0087 8002       |    |		Call	0x0,0x2
0088 c402       |    |		Store	0x2,0x2
0089 c5fd       |    |		Store	0x2,-0x3
008a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
008b 0000 0000  |    |		.BLANK	0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009d       |    |		.CONST	0x009d								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0003       |    |		.CONST	0x0003								; Number of locals
0093			INIT_0090:
0093 e007       |    |		Load	0x0,0x7
0094 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0095 02c7       |    |		Declare_Variable	Any
0096 00d8       |    |		Load_Top	At_Offset_0
0097 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0098 e008       |    |		Load	0x0,0x8
0099 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009a 02c7       |    |		Declare_Variable	Any
009b 00d8       |    |		Load_Top	At_Offset_0
009c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009d			BODY_0090:
009d 00d9       |    |		Load_Top	At_Offset_1
009e 00d9       |    |		Load_Top	At_Offset_1
009f e5fe       |    |		Load	0x2,-0x2
00a0 8009       |    |		Call	0x0,0x9
00a1 c403       |    |		Store	0x2,0x3
00a2 c402       |    |		Store	0x2,0x2
00a3 00d8       |    |		Load_Top	At_Offset_0
00a4 e008       |    |		Load	0x0,0x8
00a5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00a6 4802       |H   |		Short_Literal	0x2
00a7 4803       |H   |		Short_Literal	0x3
00a8 0262       | b  |		Execute	Discrete,In_Range
00a9 700f       |p   |		Jump_Nonzero	0xb9
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab e5fd       |    |		Load	0x2,-0x3
00ac e5ff       |    |		Load	0x2,-0x1
00ad 820d       |    |		Call	0x1,0xd
00ae c402       |    |		Store	0x2,0x2
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 e007       |    |		Load	0x0,0x7
00b1 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00b2 c402       |    |		Store	0x2,0x2
00b3 4801       |H   |		Short_Literal	0x1
00b4 4800       |H   |		Short_Literal	0x0
00b5 e5fe       |    |		Load	0x2,-0x2
00b6 e00a       |    |		Load	0x0,0xa
00b7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00b8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00b9 e005       |    |		Load	0x0,0x5
00ba 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bb 4807       |H   |		Short_Literal	0x7
00bc 0092 0317  |    |		Action	Push_String_Extended,0x317					; "Problem creating object "
00be e5fe       |    |		Load	0x2,-0x2
00bf 01cc       |    |		Execute	Vector,Catenate
00c0 0092 0318  |    |		Action	Push_String_Extended,0x318					; ".  "
00c2 01cc       |    |		Execute	Vector,Catenate
00c3 00db       |    |		Load_Top	At_Offset_3
00c4 e008       |    |		Load	0x0,0x8
00c5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00c6 01cc       |    |		Execute	Vector,Catenate
00c7 e006       |    |		Load	0x0,0x6
00c8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00c9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00da       |    |		.CONST	0x00da								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 e00b       |    |		Load	0x0,0xb
00d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d5 02c7       |    |		Declare_Variable	Any
00d6 00db       |    |		Load_Top	At_Offset_3
00d7 e00b       |    |		Load	0x0,0xb
00d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d9 a402       |    |		Store_Unchecked	0x2,0x2
00da			BODY_00d0:
00da 00d8       |    |		Load_Top	At_Offset_0
00db e00b       |    |		Load	0x0,0xb
00dc 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00dd 6842       |hB  |		Jump_Zero	0x120
00de 00d8       |    |		Load_Top	At_Offset_0
00df e00c       |    |		Load	0x0,0xc
00e0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e1 4626       |F&  |		Jump_Case	0x27
00e2 7826       |x&  |		Jump	0x109								; case 0x0
00e3 7825       |x%  |		Jump	0x109								; case 0x1
00e4 7824       |x$  |		Jump	0x109								; case 0x2
00e5 7823       |x#  |		Jump	0x109								; case 0x3
00e6 7822       |x"  |		Jump	0x109								; case 0x4
00e7 7821       |x!  |		Jump	0x109								; case 0x5
00e8 7820       |x   |		Jump	0x109								; case 0x6
00e9 781f       |x   |		Jump	0x109								; case 0x7
00ea 781e       |x   |		Jump	0x109								; case 0x8
00eb 7827       |x'  |		Jump	0x113								; case 0x9
00ec 781c       |x   |		Jump	0x109								; case 0xa
00ed 7825       |x%  |		Jump	0x113								; case 0xb
00ee 781a       |x   |		Jump	0x109								; case 0xc
00ef 7823       |x#  |		Jump	0x113								; case 0xd
00f0 7818       |x   |		Jump	0x109								; case 0xe
00f1 7817       |x   |		Jump	0x109								; case 0xf
00f2 7816       |x   |		Jump	0x109								; case 0x10
00f3 7815       |x   |		Jump	0x109								; case 0x11
00f4 7814       |x   |		Jump	0x109								; case 0x12
00f5 7813       |x   |		Jump	0x109								; case 0x13
00f6 7812       |x   |		Jump	0x109								; case 0x14
00f7 7811       |x   |		Jump	0x109								; case 0x15
00f8 7810       |x   |		Jump	0x109								; case 0x16
00f9 780f       |x   |		Jump	0x109								; case 0x17
00fa 780e       |x   |		Jump	0x109								; case 0x18
00fb 780d       |x   |		Jump	0x109								; case 0x19
00fc 7813       |x   |		Jump	0x110								; case 0x1a
00fd 780b       |x   |		Jump	0x109								; case 0x1b
00fe 780a       |x   |		Jump	0x109								; case 0x1c
00ff 7809       |x   |		Jump	0x109								; case 0x1d
0100 7808       |x   |		Jump	0x109								; case 0x1e
0101 7807       |x   |		Jump	0x109								; case 0x1f
0102 7806       |x   |		Jump	0x109								; case 0x20
0103 7805       |x   |		Jump	0x109								; case 0x21
0104 7804       |x   |		Jump	0x109								; case 0x22
0105 7803       |x   |		Jump	0x109								; case 0x23
0106 7802       |x   |		Jump	0x109								; case 0x24
0107 7801       |x   |		Jump	0x109								; case 0x25
0108 7800       |x   |		Jump	0x109								; case 0x26
0109 e5fd       |    |		Load	0x2,-0x3
010a e5fe       |    |		Load	0x2,-0x2
010b 00da       |    |		Load_Top	At_Offset_2
010c 820f       |    |		Call	0x1,0xf
010d c5fe       |    |		Store	0x2,-0x2
010e c5fd       |    |		Store	0x2,-0x3
010f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0110 00d8       |    |		Load_Top	At_Offset_0
0111 c5fe       |    |		Store	0x2,-0x2
0112 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0113 e5fd       |    |		Load	0x2,-0x3
0114 e00b       |    |		Load	0x0,0xb
0115 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0116 6802       |h   |		Jump_Zero	0x119
0117 00d8       |    |		Load_Top	At_Offset_0
0118 c5fd       |    |		Store	0x2,-0x3
0119 e5fd       |    |		Load	0x2,-0x3
011a e5fe       |    |		Load	0x2,-0x2
011b 00da       |    |		Load_Top	At_Offset_2
011c 820f       |    |		Call	0x1,0xf
011d c5fe       |    |		Store	0x2,-0x2
011e c5fd       |    |		Store	0x2,-0x3
011f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0120 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0137       | 7  |		.CONST	0x0137								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0003       |    |		.CONST	0x0003								; Number of locals
012b			INIT_0128:
012b e00b       |    |		Load	0x0,0xb
012c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012d 02c7       |    |		Declare_Variable	Any
012e e00b       |    |		Load	0x0,0xb
012f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0130 a402       |    |		Store_Unchecked	0x2,0x2
0131 e00b       |    |		Load	0x0,0xb
0132 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0133 02c7       |    |		Declare_Variable	Any
0134 e00b       |    |		Load	0x0,0xb
0135 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0136 a403       |    |		Store_Unchecked	0x2,0x3
0137			BODY_0128:
0137 00d8       |    |		Load_Top	At_Offset_0
0138 00da       |    |		Load_Top	At_Offset_2
0139 e5ff       |    |		Load	0x2,-0x1
013a 820f       |    |		Call	0x1,0xf
013b c402       |    |		Store	0x2,0x2
013c c403       |    |		Store	0x2,0x3
013d 00d9       |    |		Load_Top	At_Offset_1
013e e00b       |    |		Load	0x0,0xb
013f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0140 6802       |h   |		Jump_Zero	0x143
0141 00d8       |    |		Load_Top	At_Offset_0
0142 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0143 00d9       |    |		Load_Top	At_Offset_1
0144 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0145 0000 0000  |    |		.XXX[0x3]
0147 0000       |    |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 4607       |F   |		Jump_Case	0x8
014c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
014d 7806       |x   |		Jump	0x154								; case 0x1
014e 7809       |x   |		Jump	0x158								; case 0x2
014f 780d       |x   |		Jump	0x15d								; case 0x3
0150 7810       |x   |		Jump	0x161								; case 0x4
0151 7811       |x   |		Jump	0x163								; case 0x5
0152 7812       |x   |		Jump	0x165								; case 0x6
0153 7815       |x   |		Jump	0x169								; case 0x7
0154 00da       |    |		Load_Top	At_Offset_2
0155 0091 030c  |    |		Action	Push_String_Extended_Indexed,0x30c				; "TASK_NAME"
0157 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0158 00db       |    |		Load_Top	At_Offset_3
0159 00db       |    |		Load_Top	At_Offset_3
015a 00e0       |    |		Load_Encached	Standard_Cache
015b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015d 00da       |    |		Load_Top	At_Offset_2
015e 00e0       |    |		Load_Encached	Standard_Cache
015f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0160 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0161 00db       |    |		Load_Top	At_Offset_3
0162 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0163 00db       |    |		Load_Top	At_Offset_3
0164 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0165 e403       |    |		Load	0x2,0x3
0166 00dc       |    |		Load_Top	At_Offset_4
0167 0267       | g  |		Execute	Discrete,Predecessor
0168 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0169 e403       |    |		Load	0x2,0x3
016a 00dc       |    |		Load_Top	At_Offset_4
016b 0268       | h  |		Execute	Discrete,Successor
016c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 4607       |F   |		Jump_Case	0x8
0174 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0175 7806       |x   |		Jump	0x17c								; case 0x1
0176 7809       |x   |		Jump	0x180								; case 0x2
0177 780d       |x   |		Jump	0x185								; case 0x3
0178 7810       |x   |		Jump	0x189								; case 0x4
0179 7811       |x   |		Jump	0x18b								; case 0x5
017a 7812       |x   |		Jump	0x18d								; case 0x6
017b 7815       |x   |		Jump	0x191								; case 0x7
017c 00da       |    |		Load_Top	At_Offset_2
017d 0091 0311  |    |		Action	Push_String_Extended_Indexed,0x311				; "AN_ENTRY"
017f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0180 00db       |    |		Load_Top	At_Offset_3
0181 00db       |    |		Load_Top	At_Offset_3
0182 00e0       |    |		Load_Encached	Standard_Cache
0183 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0184 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0185 00da       |    |		Load_Top	At_Offset_2
0186 00e0       |    |		Load_Encached	Standard_Cache
0187 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0188 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0189 00db       |    |		Load_Top	At_Offset_3
018a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018b 00db       |    |		Load_Top	At_Offset_3
018c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018d e404       |    |		Load	0x2,0x4
018e 00dc       |    |		Load_Top	At_Offset_4
018f 0267       | g  |		Execute	Discrete,Predecessor
0190 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0191 e404       |    |		Load	0x2,0x4
0192 00dc       |    |		Load_Top	At_Offset_4
0193 0268       | h  |		Execute	Discrete,Successor
0194 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0195 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 4800       |H   |		Short_Literal	0x0
019c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019d 0000 0000  |    |		.XXX[0x3]
019f 0000       |    |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 e00b       |    |		Load	0x0,0xb
01a5 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
01a6 4606       |F   |		Jump_Case	0x7
01a7 7806       |x   |		Jump	0x1ae								; case 0x0
01a8 7805       |x   |		Jump	0x1ae								; case 0x1
01a9 7806       |x   |		Jump	0x1b0								; case 0x2
01aa 781d       |x   |		Jump	0x1c8								; case 0x3
01ab 7802       |x   |		Jump	0x1ae								; case 0x4
01ac 7801       |x   |		Jump	0x1ae								; case 0x5
01ad 7800       |x   |		Jump	0x1ae								; case 0x6
01ae 4800       |H   |		Short_Literal	0x0
01af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 e00c       |    |		Load	0x0,0xc
01b2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01b3 0f1c       |    |		Execute_Immediate	Equal,0x1c
01b4 7002       |p   |		Jump_Nonzero	0x1b7
01b5 4800       |H   |		Short_Literal	0x0
01b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b7 00da       |    |		Load_Top	At_Offset_2
01b8 e00d       |    |		Load	0x0,0xd
01b9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ba 680b       |h   |		Jump_Zero	0x1c6
01bb 4801       |H   |		Short_Literal	0x1
01bc 00db       |    |		Load_Top	At_Offset_3
01bd e00b       |    |		Load	0x0,0xb
01be 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
01bf e00b       |    |		Load	0x0,0xb
01c0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01c1 6804       |h   |		Jump_Zero	0x1c6
01c2 4800       |H   |		Short_Literal	0x0
01c3 a405       |    |		Store_Unchecked	0x2,0x5
01c4 4801       |H   |		Short_Literal	0x1
01c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c6 4800       |H   |		Short_Literal	0x0
01c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c8 00da       |    |		Load_Top	At_Offset_2
01c9 e00e       |    |		Load	0x0,0xe
01ca 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01cb 4613       |F   |		Jump_Case	0x14
01cc 7813       |x   |		Jump	0x1e0								; case 0x0
01cd 7812       |x   |		Jump	0x1e0								; case 0x1
01ce 7811       |x   |		Jump	0x1e0								; case 0x2
01cf 7810       |x   |		Jump	0x1e0								; case 0x3
01d0 780f       |x   |		Jump	0x1e0								; case 0x4
01d1 780e       |x   |		Jump	0x1e0								; case 0x5
01d2 7813       |x   |		Jump	0x1e6								; case 0x6
01d3 780c       |x   |		Jump	0x1e0								; case 0x7
01d4 780b       |x   |		Jump	0x1e0								; case 0x8
01d5 780a       |x   |		Jump	0x1e0								; case 0x9
01d6 7809       |x   |		Jump	0x1e0								; case 0xa
01d7 7808       |x   |		Jump	0x1e0								; case 0xb
01d8 7807       |x   |		Jump	0x1e0								; case 0xc
01d9 7806       |x   |		Jump	0x1e0								; case 0xd
01da 7805       |x   |		Jump	0x1e0								; case 0xe
01db 7806       |x   |		Jump	0x1e2								; case 0xf
01dc 7803       |x   |		Jump	0x1e0								; case 0x10
01dd 7808       |x   |		Jump	0x1e6								; case 0x11
01de 7807       |x   |		Jump	0x1e6								; case 0x12
01df 7800       |x   |		Jump	0x1e0								; case 0x13
01e0 4800       |H   |		Short_Literal	0x0
01e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e2 4801       |H   |		Short_Literal	0x1
01e3 a405       |    |		Store_Unchecked	0x2,0x5
01e4 4801       |H   |		Short_Literal	0x1
01e5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e6 4802       |H   |		Short_Literal	0x2
01e7 a405       |    |		Store_Unchecked	0x2,0x5
01e8 4801       |H   |		Short_Literal	0x1
01e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ea 0000 0000  |    |		.BLANK	0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fd       |    |		.CONST	0x01fd								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0003       |    |		.CONST	0x0003								; Number of locals
01f3			INIT_01f0:
01f3 e00b       |    |		Load	0x0,0xb
01f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f5 02c7       |    |		Declare_Variable	Any
01f6 00db       |    |		Load_Top	At_Offset_3
01f7 e00c       |    |		Load	0x0,0xc
01f8 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
01f9 a602       |    |		Store_Unchecked	0x3,0x2
01fa 00d8       |    |		Load_Top	At_Offset_0
01fb e00c       |    |		Load	0x0,0xc
01fc 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01fd			BODY_01f0:
01fd 00d9       |    |		Load_Top	At_Offset_1
01fe e00c       |    |		Load	0x0,0xc
01ff 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0200 0f1b       |    |		Execute_Immediate	Equal,0x1b
0201 7002       |p   |		Jump_Nonzero	0x204
0202 00d8       |    |		Load_Top	At_Offset_0
0203 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0204 00d8       |    |		Load_Top	At_Offset_0
0205 0092 0319  |    |		Action	Push_String_Extended,0x319					; "(type)"
0207 01cc       |    |		Execute	Vector,Catenate
0208 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0209 0000 0000  |    |		.BLANK	0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2
0214 4604       |F   |		Jump_Case	0x5
0215 7810       |x   |		Jump	0x226								; case 0x0
0216 7812       |x   |		Jump	0x229								; case 0x1
0217 7814       |x   |		Jump	0x22c								; case 0x2
0218 7821       |x!  |		Jump	0x23a								; case 0x3
0219 7800       |x   |		Jump	0x21a								; case 0x4
021a e405       |    |		Load	0x2,0x5
021b 4602       |F   |		Jump_Case	0x3
021c 7805       |x   |		Jump	0x222								; case 0x0
021d 7806       |x   |		Jump	0x224								; case 0x1
021e 7800       |x   |		Jump	0x21f								; case 0x2
021f 0092 031a  |    |		Action	Push_String_Extended,0x31a					; "The name of the Caller"
0221 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0222 00ea       |    |		Load_Encached	Null_String_Cache
0223 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0224 00ea       |    |		Load_Encached	Null_String_Cache
0225 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0226 0092 031b  |    |		Action	Push_String_Extended,0x31b					; "Name of the task"
0228 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0229 0092 031c  |    |		Action	Push_String_Extended,0x31c					; "Name of the called or accepted entry"
022b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
022c e405       |    |		Load	0x2,0x5
022d 4602       |F   |		Jump_Case	0x3
022e 7805       |x   |		Jump	0x234								; case 0x0
022f 7807       |x   |		Jump	0x237								; case 0x1
0230 7800       |x   |		Jump	0x231								; case 0x2
0231 0092 031d  |    |		Action	Push_String_Extended,0x31d					; "See entry call next column"
0233 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0234 0092 031e  |    |		Action	Push_String_Extended,0x31e					; "Probable error; entry has no accepts"
0236 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0237 0092 031f  |    |		Action	Push_String_Extended,0x31f					; "An accept statement"
0239 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
023a e405       |    |		Load	0x2,0x5
023b 4602       |F   |		Jump_Case	0x3
023c 7805       |x   |		Jump	0x242								; case 0x0
023d 7806       |x   |		Jump	0x244								; case 0x1
023e 7800       |x   |		Jump	0x23f								; case 0x2
023f 0092 0320  |    |		Action	Push_String_Extended,0x320					; "The entry Call"
0241 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0242 00ea       |    |		Load_Encached	Null_String_Cache
0243 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0244 00ea       |    |		Load_Encached	Null_String_Cache
0245 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0246 0000 0000  |    |		.XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0250       | P  |		.CONST	0x0250								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0002       |    |		.CONST	0x0002								; Number of locals
024b			INIT_0248:
024b e00b       |    |		Load	0x0,0xb
024c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
024d 02c7       |    |		Declare_Variable	Any
024e 00d8       |    |		Load_Top	At_Offset_0
024f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0250			BODY_0248:
0250 e405       |    |		Load	0x2,0x5
0251 4602       |F   |		Jump_Case	0x3
0252 7827       |x'  |		Jump	0x27a								; case 0x0
0253 783b       |x;  |		Jump	0x28f								; case 0x1
0254 7800       |x   |		Jump	0x255								; case 0x2
0255 4801       |H   |		Short_Literal	0x1
0256 e7fe       |    |		Load	0x3,-0x2
0257 e00b       |    |		Load	0x0,0xb
0258 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
0259 c602       |    |		Store	0x3,0x2
025a 00db       |    |		Load_Top	At_Offset_3
025b 4604       |F   |		Jump_Case	0x5
025c 7809       |x   |		Jump	0x266								; case 0x0
025d 780f       |x   |		Jump	0x26d								; case 0x1
025e 7812       |x   |		Jump	0x271								; case 0x2
025f 7813       |x   |		Jump	0x273								; case 0x3
0260 7800       |x   |		Jump	0x261								; case 0x4
0261 e7fe       |    |		Load	0x3,-0x2
0262 8210       |    |		Call	0x1,0x10
0263 e00c       |    |		Load	0x0,0xc
0264 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0265 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0266 00d8       |    |		Load_Top	At_Offset_0
0267 e00c       |    |		Load	0x0,0xc
0268 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0269 e00b       |    |		Load	0x0,0xb
026a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
026b 8408       |    |		Call	0x2,0x8
026c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
026d 00d8       |    |		Load_Top	At_Offset_0
026e e00c       |    |		Load	0x0,0xc
026f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0270 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0271 00ea       |    |		Load_Encached	Null_String_Cache
0272 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0273 4820       |H   |		Short_Literal	0x20
0274 e7fe       |    |		Load	0x3,-0x2
0275 e00b       |    |		Load	0x0,0xb
0276 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0277 e00f       |    |		Load	0x0,0xf
0278 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0279 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
027a 00db       |    |		Load_Top	At_Offset_3
027b 4604       |F   |		Jump_Case	0x5
027c 7806       |x   |		Jump	0x283								; case 0x0
027d 780a       |x   |		Jump	0x288								; case 0x1
027e 780d       |x   |		Jump	0x28c								; case 0x2
027f 7801       |x   |		Jump	0x281								; case 0x3
0280 7800       |x   |		Jump	0x281								; case 0x4
0281 00ea       |    |		Load_Encached	Null_String_Cache
0282 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0283 e7fe       |    |		Load	0x3,-0x2
0284 e00b       |    |		Load	0x0,0xb
0285 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0286 8408       |    |		Call	0x2,0x8
0287 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0288 e7fe       |    |		Load	0x3,-0x2
0289 e00c       |    |		Load	0x0,0xc
028a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
028b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028c 0092 0321  |   !|		Action	Push_String_Extended,0x321					; "***NO ACCEPTS***"
028e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028f e7fe       |    |		Load	0x3,-0x2
0290 e00e       |    |		Load	0x0,0xe
0291 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0292 c602       |    |		Store	0x3,0x2
0293 00db       |    |		Load_Top	At_Offset_3
0294 4604       |F   |		Jump_Case	0x5
0295 7807       |x   |		Jump	0x29d								; case 0x0
0296 780b       |x   |		Jump	0x2a2								; case 0x1
0297 780e       |x   |		Jump	0x2a6								; case 0x2
0298 7801       |x   |		Jump	0x29a								; case 0x3
0299 7800       |x   |		Jump	0x29a								; case 0x4
029a 0092 0322  |   "|		Action	Push_String_Extended,0x322					; " "
029c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
029d 00d8       |    |		Load_Top	At_Offset_0
029e e00b       |    |		Load	0x0,0xb
029f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02a0 8408       |    |		Call	0x2,0x8
02a1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 e00c       |    |		Load	0x0,0xc
02a4 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02a5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a6 4820       |H   |		Short_Literal	0x20
02a7 e7fe       |    |		Load	0x3,-0x2
02a8 e00b       |    |		Load	0x0,0xb
02a9 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
02aa e00f       |    |		Load	0x0,0xf
02ab 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ad 0000 0000  |    |		.XXX[0x3]
02af 0000       |    |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b8       |    |		.CONST	0x02b8								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0002       |    |		.CONST	0x0002								; Number of locals
02b3			INIT_02b0:
02b3 e00b       |    |		Load	0x0,0xb
02b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b5 02c7       |    |		Declare_Variable	Any
02b6 00d8       |    |		Load_Top	At_Offset_0
02b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b8			BODY_02b0:
02b8 e00b       |    |		Load	0x0,0xb
02b9 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02ba c7fc       |    |		Store	0x3,-0x4
02bb e405       |    |		Load	0x2,0x5
02bc 4602       |F   |		Jump_Case	0x3
02bd 7821       |x!  |		Jump	0x2df								; case 0x0
02be 7833       |x3  |		Jump	0x2f2								; case 0x1
02bf 7800       |x   |		Jump	0x2c0								; case 0x2
02c0 4801       |H   |		Short_Literal	0x1
02c1 e7fe       |    |		Load	0x3,-0x2
02c2 e00b       |    |		Load	0x0,0xb
02c3 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
02c4 c602       |    |		Store	0x3,0x2
02c5 00db       |    |		Load_Top	At_Offset_3
02c6 4604       |F   |		Jump_Case	0x5
02c7 7808       |x   |		Jump	0x2d0								; case 0x0
02c8 780c       |x   |		Jump	0x2d5								; case 0x1
02c9 780e       |x   |		Jump	0x2d8								; case 0x2
02ca 7811       |x   |		Jump	0x2dc								; case 0x3
02cb 7800       |x   |		Jump	0x2cc								; case 0x4
02cc e7fe       |    |		Load	0x3,-0x2
02cd 8210       |    |		Call	0x1,0x10
02ce c7fd       |    |		Store	0x3,-0x3
02cf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d0 00d8       |    |		Load_Top	At_Offset_0
02d1 e00b       |    |		Load	0x0,0xb
02d2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d3 c7fd       |    |		Store	0x3,-0x3
02d4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d5 00d8       |    |		Load_Top	At_Offset_0
02d6 c7fd       |    |		Store	0x3,-0x3
02d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d8 e00b       |    |		Load	0x0,0xb
02d9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02da c7fd       |    |		Store	0x3,-0x3
02db 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02dc e7fe       |    |		Load	0x3,-0x2
02dd c7fd       |    |		Store	0x3,-0x3
02de 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02df 00db       |    |		Load_Top	At_Offset_3
02e0 4604       |F   |		Jump_Case	0x5
02e1 7808       |x   |		Jump	0x2ea								; case 0x0
02e2 780c       |x   |		Jump	0x2ef								; case 0x1
02e3 7802       |x   |		Jump	0x2e6								; case 0x2
02e4 7801       |x   |		Jump	0x2e6								; case 0x3
02e5 7800       |x   |		Jump	0x2e6								; case 0x4
02e6 e00b       |    |		Load	0x0,0xb
02e7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e8 c7fd       |    |		Store	0x3,-0x3
02e9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02ea e7fe       |    |		Load	0x3,-0x2
02eb e00b       |    |		Load	0x0,0xb
02ec 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02ed c7fd       |    |		Store	0x3,-0x3
02ee 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02ef e7fe       |    |		Load	0x3,-0x2
02f0 c7fd       |    |		Store	0x3,-0x3
02f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02f2 e7fe       |    |		Load	0x3,-0x2
02f3 e00e       |    |		Load	0x0,0xe
02f4 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02f5 c602       |    |		Store	0x3,0x2
02f6 00db       |    |		Load_Top	At_Offset_3
02f7 4604       |F   |		Jump_Case	0x5
02f8 7808       |x   |		Jump	0x301								; case 0x0
02f9 780c       |x   |		Jump	0x306								; case 0x1
02fa 780e       |x   |		Jump	0x309								; case 0x2
02fb 7801       |x   |		Jump	0x2fd								; case 0x3
02fc 7800       |x   |		Jump	0x2fd								; case 0x4
02fd e00b       |    |		Load	0x0,0xb
02fe 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ff c7fd       |    |		Store	0x3,-0x3
0300 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0301 00d8       |    |		Load_Top	At_Offset_0
0302 e00b       |    |		Load	0x0,0xb
0303 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0304 c7fd       |    |		Store	0x3,-0x3
0305 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0306 00d8       |    |		Load_Top	At_Offset_0
0307 c7fd       |    |		Store	0x3,-0x3
0308 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0309 e7fe       |    |		Load	0x3,-0x2
030a c7fd       |    |		Store	0x3,-0x3
030b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030c ; --------------------------------------------------------------------------------------
030c ; STRING TABLE
030c ; --------------------------------------------------------------------------------------
030c 0030       | 0  |		.STRTAB	0x0030->0x0324							; "TASK_NAME"
030d 0037       | 7  |		.STRTAB	0x0037->0x0328							; "ENTRY_NAME"
030e 003f       | ?  |		.STRTAB	0x003f->0x032d							; "ACCEPTS"
030f 0044       | D  |		.STRTAB	0x0044->0x0331							; "ENTRY_CALLS"
0310 004d       | M  |		.STRTAB	0x004d->0x0336							; "CALLER"
0311 0051       | Q  |		.STRTAB	0x0051->0x0339							; "AN_ENTRY"
0312 0057       | W  |		.STRTAB	0x0057->0x033d							; "AN_ACCEPT"
0313 005e       | ^  |		.STRTAB	0x005e->0x0342							; "AN_ENTRY_CALL"
0314 0069       | i  |		.STRTAB	0x0069->0x0348							; "TASKING ANALYSIS"
0315 0077       | w  |		.STRTAB	0x0077->0x0350							; " is not a valid pathname"
0316 008d       |    |		.STRTAB	0x008d->0x035c							; "<PROFILE>"
0317 0094       |    |		.STRTAB	0x0094->0x0361							; "Problem creating object "
0318 00aa       |    |		.STRTAB	0x00aa->0x036d							; ".  "
0319 00ab       |    |		.STRTAB	0x00ab->0x036e							; "(type)"
031a 00af       |    |		.STRTAB	0x00af->0x0371							; "The name of the Caller"
031b 00c3       |    |		.STRTAB	0x00c3->0x037c							; "Name of the task"
031c 00d1       |    |		.STRTAB	0x00d1->0x0384							; "Name of the called or accepted entry"
031d 00f3       |    |		.STRTAB	0x00f3->0x0396							; "See entry call next column"
031e 010b       |    |		.STRTAB	0x010b->0x03a3							; "Probable error; entry has no accepts"
031f 012d       | -  |		.STRTAB	0x012d->0x03b5							; "An accept statement"
0320 013e       | >  |		.STRTAB	0x013e->0x03bf							; "The entry Call"
0321 014a       | J  |		.STRTAB	0x014a->0x03c6							; "***NO ACCEPTS***"
0322 0158       | X  |		.STRTAB	0x0158->0x03ce							; " "
0323 0157       | W  |		.STREND 0x0157->0x03ce
0324 5441 534b  |TASK|		.STRTAB_STRINGS
03cf 0000       |    |		.XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug Table
03d0 ; --------------------------------------------------------------------------------------
03d0 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2f74,0x0000,0x0001,0x000e
03d6 000b 040e  |    |		.DBG4T	0x000b,0x040e,0x8000,0x0000
03da 0010 0412  |    |		.DBG4T	0x0010,0x0412,0x8000,0x0000
03de 0023 0418  | #  |		.DBG4T	0x0023,0x0418,0x0001,0x0000
03e2 0093 0428  |   (|		.DBG4T	0x0093,0x0428,0x0001,0x4000
03e6 00d3 0438  |   8|		.DBG4T	0x00d3,0x0438,0x0001,0x4000
03ea 012b 044b  | + K|		.DBG4T	0x012b,0x044b,0x0002,0x0000
03ee 014b 0000  | K  |		.DBG4T	0x014b,0x0000,0x0005,0x0000
03f2 0173 0000  | s  |		.DBG4T	0x0173,0x0000,0x0005,0x0000
03f6 019b 0453  |   S|		.DBG4T	0x019b,0x0453,0x0002,0x0000
03fa 01a3 0456  |   V|		.DBG4T	0x01a3,0x0456,0x0002,0x4000
03fe 01f3 0474  |   t|		.DBG4T	0x01f3,0x0474,0x0002,0x4000
0402 0213 047e  |   ~|		.DBG4T	0x0213,0x047e,0x0002,0x4000
0406 024b 049e  | K  |		.DBG4T	0x024b,0x049e,0x0002,0x4000
040a 02b3 04c7  |    |		.DBG4T	0x02b3,0x04c7,0x0001,0x4000
040e ; --------------------------------------------------------------------------------------
040e ; Debug chain
040e ; --------------------------------------------------------------------------------------
040e 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0410 000b 000d  |    |		.DBGLNO	0x000b,0x000d
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug chain
0412 ; --------------------------------------------------------------------------------------
0412 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0414 0010 0012  |    |		.DBGLNO	0x0010,0x0012,0x0014,0x0016
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug chain
0418 ; --------------------------------------------------------------------------------------
0418 000b 0003  |    |		.DBGLEN	0x000b,0x0003
041a 0023 0030  | # 0|		.DBGLNO	0x0023,0x0030,0x0035,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x0060,0x0065,0x006f
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug chain
0428 ; --------------------------------------------------------------------------------------
0428 0002 0006  |    |		.DBGLEN	0x0002,0x0006
042a 0093 0098  |    |		.DBGLNO	0x0093,0x0098,0x009d,0x00a3,0x00aa,0x00af,0x00b3,0x00b9
0432 0001 0002  |    |		.XXX[0x6]
0434 0004 0005  |    |
0436 0006 0003  |    |
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug chain
0438 ; --------------------------------------------------------------------------------------
0438 0001 0008  |    |		.DBGLEN	0x0001,0x0008
043a 00d3 00da  |    |		.DBGLNO	0x00d3,0x00da,0x00de,0x0109,0x0110,0x0113,0x0117,0x0119,0x0120
0443 0001 0003  |    |		.XXX[0x8]
0445 0008 0004  |    |
0447 0005 0006  |    |
0449 0007 0002  |    |
044b ; --------------------------------------------------------------------------------------
044b ; Debug chain
044b ; --------------------------------------------------------------------------------------
044b 0002 0004  |    |		.DBGLEN	0x0002,0x0004
044d 012b 0131  | + 1|		.DBGLNO	0x012b,0x0131,0x0137,0x013d,0x0141,0x0143
0453 ; --------------------------------------------------------------------------------------
0453 ; Debug chain
0453 ; --------------------------------------------------------------------------------------
0453 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0455 019b       |    |		.DBGLNO	0x019b
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug chain
0456 ; --------------------------------------------------------------------------------------
0456 0000 000e  |    |		.DBGLEN	0x0000,0x000e
0458 01a3 01ae  |    |		.DBGLNO	0x01a3,0x01ae,0x01b0,0x01b5,0x01b7,0x01c2,0x01c4,0x01c6,0x01c8,0x01e0,0x01e2,0x01e4,0x01e6,0x01e8
0466 0001 000e  |    |		.XXX[0xe]
0468 0002 0007  |    |
046a 0003 0004  |    |
046c 0005 0006  |    |
046e 0008 000d  |    |
0470 0009 000a  |    |
0472 000b 000c  |    |
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug chain
0474 ; --------------------------------------------------------------------------------------
0474 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0476 01f3 01fa  |    |		.DBGLNO	0x01f3,0x01fa,0x01fd,0x0202,0x0204
047b 0001 0003  |    |		.XXX[0x3]
047d 0002       |    |
047e ; --------------------------------------------------------------------------------------
047e ; Debug chain
047e ; --------------------------------------------------------------------------------------
047e 0000 000f  |    |		.DBGLEN	0x0000,0x000f
0480 0213 021a  |    |		.DBGLNO	0x0213,0x021a,0x021f,0x0222,0x0224,0x0226,0x0229,0x022c,0x0231,0x0234,0x0237,0x023a,0x023f,0x0242,0x0244
048f 0001 000c  |    |		.XXX[0xf]
0491 000f 000d  |    |
0493 000e 0002  |    |
0495 0003 0004  |    |
0497 0007 0005  |    |
0499 0006 0008  |    |
049b 000b 0009  |    |
049d 000a       |    |
049e ; --------------------------------------------------------------------------------------
049e ; Debug chain
049e ; --------------------------------------------------------------------------------------
049e 0001 0013  |    |		.DBGLEN	0x0001,0x0013
04a0 024b 0250  | K P|		.DBGLNO	0x024b,0x0250,0x0255,0x025a,0x0261,0x0266,0x026d,0x0271,0x0273,0x027a,0x0281,0x0283,0x0288,0x028c,0x028f,0x0293,0x029a,0x029d,0x02a2,0x02a6
04b4 0001 000d  |    |		.XXX[0x13]
04b6 000e 0013  |    |
04b8 000f 0010  |    |
04ba 0011 0012  |    |
04bc 0002 0006  |    |
04be 0003 0004  |    |
04c0 0005 0007  |    |
04c2 0008 000c  |    |
04c4 0009 000a  |    |
04c6 000b       |    |
04c7 ; --------------------------------------------------------------------------------------
04c7 ; Debug chain
04c7 ; --------------------------------------------------------------------------------------
04c7 0001 0013  |    |		.DBGLEN	0x0001,0x0013
04c9 02b3 02b8  |    |		.DBGLNO	0x02b3,0x02b8,0x02bb,0x02c0,0x02c5,0x02cc,0x02d0,0x02d5,0x02d8,0x02dc,0x02df,0x02e6,0x02ea,0x02ef,0x02f2,0x02f6,0x02fd,0x0301,0x0306,0x0309
04dd 0001 0002  |    |		.XXX[0x13]
04df 000d 000e  |    |
04e1 0013 000f  |    |
04e3 0010 0011  |    |
04e5 0012 0003  |    |
04e7 0006 0004  |    |
04e9 0005 0007  |    |
04eb 0008 000c  |    |
04ed 0009 000a  |    |
04ef 000b       |    |
04f0 0000 0000  |    |		.BLANK	0000[0x110]