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

⟦a4547d141⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03d8       |    |		.CONST	0x03d8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0058       | X  |		.CONST	0x0058								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0015 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0017 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0019 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
001b 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
001d 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
001f 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0021 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0023 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0025 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0027 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0029 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
002b 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
002d 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
002f 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0031 00bf       |    |		Action	Accept_Activation
0032 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0057 00c7       |    |		Action	Elaborate_Subprogram
0058			BODY_0008:
0058 00bc       |    |		Action	Signal_Activated
0059 00bb       |    |		Action	Signal_Completion
005a 0000 0000  |    |		.BLANK	0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 e5fe       |    |		Load	0x2,-0x2
0064 4805       |H   |		Short_Literal	0x5
0065 e5ff       |    |		Load	0x2,-0x1
0066 e001       |    |		Load	0x0,0x1
0067 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0068 e5fe       |    |		Load	0x2,-0x2
0069 e002       |    |		Load	0x0,0x2
006a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
006b 6803       |h   |		Jump_Zero	0x6f
006c e002       |    |		Load	0x0,0x2
006d 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
006e 0257       | W  |		Execute	Discrete,Raise
006f e003       |    |		Load	0x0,0x3
0070 0257       | W  |		Execute	Discrete,Raise
0071 0000 0000  |    |		.BLANK	0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e5fe       |    |		Load	0x2,-0x2
007c 4808       |H   |		Short_Literal	0x8
007d e5ff       |    |		Load	0x2,-0x1
007e e001       |    |		Load	0x0,0x1
007f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0080 e5fe       |    |		Load	0x2,-0x2
0081 e002       |    |		Load	0x0,0x2
0082 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0083 6803       |h   |		Jump_Zero	0x87
0084 e002       |    |		Load	0x0,0x2
0085 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0086 0257       | W  |		Execute	Discrete,Raise
0087 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e5fe       |    |		Load	0x2,-0x2
008c 4803       |H   |		Short_Literal	0x3
008d e5ff       |    |		Load	0x2,-0x1
008e e001       |    |		Load	0x0,0x1
008f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0090 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0091 0000 0000  |    |		.BLANK	0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b e5fe       |    |		Load	0x2,-0x2
009c 4806       |H   |		Short_Literal	0x6
009d e5ff       |    |		Load	0x2,-0x1
009e e001       |    |		Load	0x0,0x1
009f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00a1 0000 0000  |    |		.BLANK	0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab e004       |    |		Load	0x0,0x4
00ac 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ad e005       |    |		Load	0x0,0x5
00ae 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00af 7004       |p   |		Jump_Nonzero	0xb4
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 0092 036d  |   m|		Action	Push_String_Extended,0x36d					; "Operator capability is required"
00b3 820d       |    |		Call	0x1,0xd
00b4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c0       |    |		.CONST	0x00c0								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e006       |    |		Load	0x0,0x6
00bc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00bd 02c7       |    |		Declare_Variable	Any
00be 00d8       |    |		Load_Top	At_Offset_0
00bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c0			BODY_00b8:
00c0 00d8       |    |		Load_Top	At_Offset_0
00c1 e5fd       |    |		Load	0x2,-0x3
00c2 0120       |    |		Execute	Any,Is_Value
00c3 6803       |h   |		Jump_Zero	0xc7
00c4 e002       |    |		Load	0x0,0x2
00c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c6 7801       |x   |		Jump	0xc8
00c7 e5fd       |    |		Load	0x2,-0x3
00c8 e5fe       |    |		Load	0x2,-0x2
00c9 e002       |    |		Load	0x0,0x2
00ca 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
00cb c5fd       |    |		Store	0x2,-0x3
00cc c402       |    |		Store	0x2,0x2
00cd e5fd       |    |		Load	0x2,-0x3
00ce 4800       |H   |		Short_Literal	0x0
00cf 0092 036e  |   n|		Action	Push_String_Extended,0x36e					; "["
00d1 e5ff       |    |		Load	0x2,-0x1
00d2 01cc       |    |		Execute	Vector,Catenate
00d3 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; " ("
00d5 01cc       |    |		Execute	Vector,Catenate
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 821e       |    |		Call	0x1,0x1e
00d8 01cc       |    |		Execute	Vector,Catenate
00d9 0092 0370  |   p|		Action	Push_String_Extended,0x370					; ")]"
00db 01cc       |    |		Execute	Vector,Catenate
00dc e001       |    |		Load	0x0,0x1
00dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00de e002       |    |		Load	0x0,0x2
00df 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00e0 e402       |    |		Load	0x2,0x2
00e1 e001       |    |		Load	0x0,0x1
00e2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00e3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e4 0000 0000  |    |		.BLANK	0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f0       |    |		.CONST	0x00f0								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb e006       |    |		Load	0x0,0x6
00ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ed 02c7       |    |		Declare_Variable	Any
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f0			BODY_00e8:
00f0 00d8       |    |		Load_Top	At_Offset_0
00f1 e5fb       |    |		Load	0x2,-0x5
00f2 0120       |    |		Execute	Any,Is_Value
00f3 6803       |h   |		Jump_Zero	0xf7
00f4 e002       |    |		Load	0x0,0x2
00f5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f6 7801       |x   |		Jump	0xf8
00f7 e5fb       |    |		Load	0x2,-0x5
00f8 e5fc       |    |		Load	0x2,-0x4
00f9 e002       |    |		Load	0x0,0x2
00fa 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
00fb c5fb       |    |		Store	0x2,-0x5
00fc c402       |    |		Store	0x2,0x2
00fd e5fb       |    |		Load	0x2,-0x5
00fe 4800       |H   |		Short_Literal	0x0
00ff 0092 036e  |   n|		Action	Push_String_Extended,0x36e					; "["
0101 e5ff       |    |		Load	0x2,-0x1
0102 01cc       |    |		Execute	Vector,Catenate
0103 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; " ("
0105 01cc       |    |		Execute	Vector,Catenate
0106 e5fe       |    |		Load	0x2,-0x2
0107 821e       |    |		Call	0x1,0x1e
0108 01cc       |    |		Execute	Vector,Catenate
0109 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
010b 01cc       |    |		Execute	Vector,Catenate
010c e5fd       |    |		Load	0x2,-0x3
010d 821e       |    |		Call	0x1,0x1e
010e 01cc       |    |		Execute	Vector,Catenate
010f 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0111 01cc       |    |		Execute	Vector,Catenate
0112 e5fc       |    |		Load	0x2,-0x4
0113 821e       |    |		Call	0x1,0x1e
0114 01cc       |    |		Execute	Vector,Catenate
0115 0092 0370  |   p|		Action	Push_String_Extended,0x370					; ")]"
0117 01cc       |    |		Execute	Vector,Catenate
0118 e001       |    |		Load	0x0,0x1
0119 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011a e002       |    |		Load	0x0,0x2
011b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011c e402       |    |		Load	0x2,0x2
011d e001       |    |		Load	0x0,0x1
011e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
011f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0128       | (  |		.CONST	0x0128								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 e006       |    |		Load	0x0,0x6
0124 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0125 02c7       |    |		Declare_Variable	Any
0126 00d8       |    |		Load_Top	At_Offset_0
0127 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0128			BODY_0120:
0128 00d8       |    |		Load_Top	At_Offset_0
0129 e5fa       |    |		Load	0x2,-0x6
012a 0120       |    |		Execute	Any,Is_Value
012b 6803       |h   |		Jump_Zero	0x12f
012c e002       |    |		Load	0x0,0x2
012d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012e 7801       |x   |		Jump	0x130
012f e5fa       |    |		Load	0x2,-0x6
0130 e5fb       |    |		Load	0x2,-0x5
0131 e002       |    |		Load	0x0,0x2
0132 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
0133 c5fa       |    |		Store	0x2,-0x6
0134 c402       |    |		Store	0x2,0x2
0135 e5fa       |    |		Load	0x2,-0x6
0136 4800       |H   |		Short_Literal	0x0
0137 0092 036e  |   n|		Action	Push_String_Extended,0x36e					; "["
0139 e5ff       |    |		Load	0x2,-0x1
013a 01cc       |    |		Execute	Vector,Catenate
013b 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; " ("
013d 01cc       |    |		Execute	Vector,Catenate
013e e5fe       |    |		Load	0x2,-0x2
013f 821e       |    |		Call	0x1,0x1e
0140 01cc       |    |		Execute	Vector,Catenate
0141 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0143 01cc       |    |		Execute	Vector,Catenate
0144 e5fd       |    |		Load	0x2,-0x3
0145 821e       |    |		Call	0x1,0x1e
0146 01cc       |    |		Execute	Vector,Catenate
0147 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0149 01cc       |    |		Execute	Vector,Catenate
014a e5fc       |    |		Load	0x2,-0x4
014b 821e       |    |		Call	0x1,0x1e
014c 01cc       |    |		Execute	Vector,Catenate
014d 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
014f 01cc       |    |		Execute	Vector,Catenate
0150 e5fb       |    |		Load	0x2,-0x5
0151 821e       |    |		Call	0x1,0x1e
0152 01cc       |    |		Execute	Vector,Catenate
0153 0092 0370  |   p|		Action	Push_String_Extended,0x370					; ")]"
0155 01cc       |    |		Execute	Vector,Catenate
0156 e001       |    |		Load	0x0,0x1
0157 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0158 e002       |    |		Load	0x0,0x2
0159 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
015a e402       |    |		Load	0x2,0x2
015b e001       |    |		Load	0x0,0x1
015c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
015d 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
015e 0000 0000  |    |		.XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168       | h  |		.CONST	0x0168								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0002       |    |		.CONST	0x0002								; Number of locals
0163			INIT_0160:
0163 e006       |    |		Load	0x0,0x6
0164 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0165 02c7       |    |		Declare_Variable	Any
0166 00d8       |    |		Load_Top	At_Offset_0
0167 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0168			BODY_0160:
0168 00d8       |    |		Load_Top	At_Offset_0
0169 e5f9       |    |		Load	0x2,-0x7
016a 0120       |    |		Execute	Any,Is_Value
016b 6803       |h   |		Jump_Zero	0x16f
016c e002       |    |		Load	0x0,0x2
016d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016e 7801       |x   |		Jump	0x170
016f e5f9       |    |		Load	0x2,-0x7
0170 e5fa       |    |		Load	0x2,-0x6
0171 e002       |    |		Load	0x0,0x2
0172 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
0173 c5f9       |    |		Store	0x2,-0x7
0174 c402       |    |		Store	0x2,0x2
0175 e5f9       |    |		Load	0x2,-0x7
0176 4800       |H   |		Short_Literal	0x0
0177 0092 036e  |   n|		Action	Push_String_Extended,0x36e					; "["
0179 e5ff       |    |		Load	0x2,-0x1
017a 01cc       |    |		Execute	Vector,Catenate
017b 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; " ("
017d 01cc       |    |		Execute	Vector,Catenate
017e e5fe       |    |		Load	0x2,-0x2
017f 821e       |    |		Call	0x1,0x1e
0180 01cc       |    |		Execute	Vector,Catenate
0181 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0183 01cc       |    |		Execute	Vector,Catenate
0184 e5fd       |    |		Load	0x2,-0x3
0185 821e       |    |		Call	0x1,0x1e
0186 01cc       |    |		Execute	Vector,Catenate
0187 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0189 01cc       |    |		Execute	Vector,Catenate
018a e5fc       |    |		Load	0x2,-0x4
018b 821e       |    |		Call	0x1,0x1e
018c 01cc       |    |		Execute	Vector,Catenate
018d 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
018f 01cc       |    |		Execute	Vector,Catenate
0190 e5fb       |    |		Load	0x2,-0x5
0191 821e       |    |		Call	0x1,0x1e
0192 01cc       |    |		Execute	Vector,Catenate
0193 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0195 01cc       |    |		Execute	Vector,Catenate
0196 e5fa       |    |		Load	0x2,-0x6
0197 821e       |    |		Call	0x1,0x1e
0198 01cc       |    |		Execute	Vector,Catenate
0199 0092 0370  |   p|		Action	Push_String_Extended,0x370					; ")]"
019b 01cc       |    |		Execute	Vector,Catenate
019c e001       |    |		Load	0x0,0x1
019d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
019e e002       |    |		Load	0x0,0x2
019f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01a0 e402       |    |		Load	0x2,0x2
01a1 e001       |    |		Load	0x0,0x1
01a2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01a3 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01a4 0000 0000  |    |		.BLANK	0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b0       |    |		.CONST	0x01b0								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab e006       |    |		Load	0x0,0x6
01ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ad 02c7       |    |		Declare_Variable	Any
01ae 00d8       |    |		Load_Top	At_Offset_0
01af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b0			BODY_01a8:
01b0 00d8       |    |		Load_Top	At_Offset_0
01b1 e5f8       |    |		Load	0x2,-0x8
01b2 0120       |    |		Execute	Any,Is_Value
01b3 6803       |h   |		Jump_Zero	0x1b7
01b4 e002       |    |		Load	0x0,0x2
01b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b6 7801       |x   |		Jump	0x1b8
01b7 e5f8       |    |		Load	0x2,-0x8
01b8 e5f9       |    |		Load	0x2,-0x7
01b9 e002       |    |		Load	0x0,0x2
01ba 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
01bb c5f8       |    |		Store	0x2,-0x8
01bc c402       |    |		Store	0x2,0x2
01bd e5f8       |    |		Load	0x2,-0x8
01be 4800       |H   |		Short_Literal	0x0
01bf 0092 036e  |   n|		Action	Push_String_Extended,0x36e					; "["
01c1 e5ff       |    |		Load	0x2,-0x1
01c2 01cc       |    |		Execute	Vector,Catenate
01c3 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; " ("
01c5 01cc       |    |		Execute	Vector,Catenate
01c6 e5fe       |    |		Load	0x2,-0x2
01c7 821e       |    |		Call	0x1,0x1e
01c8 01cc       |    |		Execute	Vector,Catenate
01c9 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
01cb 01cc       |    |		Execute	Vector,Catenate
01cc e5fd       |    |		Load	0x2,-0x3
01cd 821e       |    |		Call	0x1,0x1e
01ce 01cc       |    |		Execute	Vector,Catenate
01cf 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
01d1 01cc       |    |		Execute	Vector,Catenate
01d2 e5fc       |    |		Load	0x2,-0x4
01d3 821e       |    |		Call	0x1,0x1e
01d4 01cc       |    |		Execute	Vector,Catenate
01d5 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
01d7 01cc       |    |		Execute	Vector,Catenate
01d8 e5fb       |    |		Load	0x2,-0x5
01d9 821e       |    |		Call	0x1,0x1e
01da 01cc       |    |		Execute	Vector,Catenate
01db 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
01dd 01cc       |    |		Execute	Vector,Catenate
01de e5fa       |    |		Load	0x2,-0x6
01df 821e       |    |		Call	0x1,0x1e
01e0 01cc       |    |		Execute	Vector,Catenate
01e1 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
01e3 01cc       |    |		Execute	Vector,Catenate
01e4 e5f9       |    |		Load	0x2,-0x7
01e5 821e       |    |		Call	0x1,0x1e
01e6 01cc       |    |		Execute	Vector,Catenate
01e7 0092 0370  |   p|		Action	Push_String_Extended,0x370					; ")]"
01e9 01cc       |    |		Execute	Vector,Catenate
01ea e001       |    |		Load	0x0,0x1
01eb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ec e002       |    |		Load	0x0,0x2
01ed 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01ee e402       |    |		Load	0x2,0x2
01ef e001       |    |		Load	0x0,0x1
01f0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01f1 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
01f2 0000 0000  |    |		.BLANK	0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0200       |    |		.CONST	0x0200								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb e006       |    |		Load	0x0,0x6
01fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fd 02c7       |    |		Declare_Variable	Any
01fe 00d8       |    |		Load_Top	At_Offset_0
01ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0200			BODY_01f8:
0200 00d8       |    |		Load_Top	At_Offset_0
0201 e5f7       |    |		Load	0x2,-0x9
0202 0120       |    |		Execute	Any,Is_Value
0203 6803       |h   |		Jump_Zero	0x207
0204 e002       |    |		Load	0x0,0x2
0205 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0206 7801       |x   |		Jump	0x208
0207 e5f7       |    |		Load	0x2,-0x9
0208 e5f8       |    |		Load	0x2,-0x8
0209 e002       |    |		Load	0x0,0x2
020a 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
020b c5f7       |    |		Store	0x2,-0x9
020c c402       |    |		Store	0x2,0x2
020d e5f7       |    |		Load	0x2,-0x9
020e 4800       |H   |		Short_Literal	0x0
020f 0092 036e  |   n|		Action	Push_String_Extended,0x36e					; "["
0211 e5ff       |    |		Load	0x2,-0x1
0212 01cc       |    |		Execute	Vector,Catenate
0213 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; " ("
0215 01cc       |    |		Execute	Vector,Catenate
0216 e5fe       |    |		Load	0x2,-0x2
0217 821e       |    |		Call	0x1,0x1e
0218 01cc       |    |		Execute	Vector,Catenate
0219 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
021b 01cc       |    |		Execute	Vector,Catenate
021c e5fd       |    |		Load	0x2,-0x3
021d 821e       |    |		Call	0x1,0x1e
021e 01cc       |    |		Execute	Vector,Catenate
021f 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0221 01cc       |    |		Execute	Vector,Catenate
0222 e5fc       |    |		Load	0x2,-0x4
0223 821e       |    |		Call	0x1,0x1e
0224 01cc       |    |		Execute	Vector,Catenate
0225 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0227 01cc       |    |		Execute	Vector,Catenate
0228 e5fb       |    |		Load	0x2,-0x5
0229 821e       |    |		Call	0x1,0x1e
022a 01cc       |    |		Execute	Vector,Catenate
022b 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
022d 01cc       |    |		Execute	Vector,Catenate
022e e5fa       |    |		Load	0x2,-0x6
022f 821e       |    |		Call	0x1,0x1e
0230 01cc       |    |		Execute	Vector,Catenate
0231 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0233 01cc       |    |		Execute	Vector,Catenate
0234 e5f9       |    |		Load	0x2,-0x7
0235 821e       |    |		Call	0x1,0x1e
0236 01cc       |    |		Execute	Vector,Catenate
0237 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0239 01cc       |    |		Execute	Vector,Catenate
023a e5f8       |    |		Load	0x2,-0x8
023b 821e       |    |		Call	0x1,0x1e
023c 01cc       |    |		Execute	Vector,Catenate
023d 0092 0370  |   p|		Action	Push_String_Extended,0x370					; ")]"
023f 01cc       |    |		Execute	Vector,Catenate
0240 e001       |    |		Load	0x0,0x1
0241 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0242 e002       |    |		Load	0x0,0x2
0243 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0244 e402       |    |		Load	0x2,0x2
0245 e001       |    |		Load	0x0,0x1
0246 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0247 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
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 e006       |    |		Load	0x0,0x6
024c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
024d 02c7       |    |		Declare_Variable	Any
024e 00d8       |    |		Load_Top	At_Offset_0
024f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0250			BODY_0248:
0250 00d8       |    |		Load_Top	At_Offset_0
0251 e5f6       |    |		Load	0x2,-0xa
0252 0120       |    |		Execute	Any,Is_Value
0253 6803       |h   |		Jump_Zero	0x257
0254 e002       |    |		Load	0x0,0x2
0255 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0256 7801       |x   |		Jump	0x258
0257 e5f6       |    |		Load	0x2,-0xa
0258 e5f7       |    |		Load	0x2,-0x9
0259 e002       |    |		Load	0x0,0x2
025a 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
025b c5f6       |    |		Store	0x2,-0xa
025c c402       |    |		Store	0x2,0x2
025d e5f6       |    |		Load	0x2,-0xa
025e 4800       |H   |		Short_Literal	0x0
025f 0092 036e  |   n|		Action	Push_String_Extended,0x36e					; "["
0261 e5ff       |    |		Load	0x2,-0x1
0262 01cc       |    |		Execute	Vector,Catenate
0263 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; " ("
0265 01cc       |    |		Execute	Vector,Catenate
0266 e5fe       |    |		Load	0x2,-0x2
0267 821e       |    |		Call	0x1,0x1e
0268 01cc       |    |		Execute	Vector,Catenate
0269 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
026b 01cc       |    |		Execute	Vector,Catenate
026c e5fd       |    |		Load	0x2,-0x3
026d 821e       |    |		Call	0x1,0x1e
026e 01cc       |    |		Execute	Vector,Catenate
026f 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0271 01cc       |    |		Execute	Vector,Catenate
0272 e5fc       |    |		Load	0x2,-0x4
0273 821e       |    |		Call	0x1,0x1e
0274 01cc       |    |		Execute	Vector,Catenate
0275 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0277 01cc       |    |		Execute	Vector,Catenate
0278 e5fb       |    |		Load	0x2,-0x5
0279 821e       |    |		Call	0x1,0x1e
027a 01cc       |    |		Execute	Vector,Catenate
027b 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
027d 01cc       |    |		Execute	Vector,Catenate
027e e5fa       |    |		Load	0x2,-0x6
027f 821e       |    |		Call	0x1,0x1e
0280 01cc       |    |		Execute	Vector,Catenate
0281 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0283 01cc       |    |		Execute	Vector,Catenate
0284 e5f9       |    |		Load	0x2,-0x7
0285 821e       |    |		Call	0x1,0x1e
0286 01cc       |    |		Execute	Vector,Catenate
0287 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
0289 01cc       |    |		Execute	Vector,Catenate
028a e5f8       |    |		Load	0x2,-0x8
028b 821e       |    |		Call	0x1,0x1e
028c 01cc       |    |		Execute	Vector,Catenate
028d 0092 0371  |   q|		Action	Push_String_Extended,0x371					; ", "
028f 01cc       |    |		Execute	Vector,Catenate
0290 e5f7       |    |		Load	0x2,-0x9
0291 821e       |    |		Call	0x1,0x1e
0292 01cc       |    |		Execute	Vector,Catenate
0293 0092 0370  |   p|		Action	Push_String_Extended,0x370					; ")]"
0295 01cc       |    |		Execute	Vector,Catenate
0296 e001       |    |		Load	0x0,0x1
0297 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0298 e002       |    |		Load	0x0,0x2
0299 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
029a e402       |    |		Load	0x2,0x2
029b e001       |    |		Load	0x0,0x1
029c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
029d 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
029e 0000 0000  |    |		.XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5       |    |		.CONST	0x02a5								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 029f 0363  |   c|		Declare_Subprogram	INIT_0360,For_Call
02a5			BODY_02a0:
02a5 e5fd       |    |		Load	0x2,-0x3
02a6 4800       |H   |		Short_Literal	0x0
02a7 0092 0372  |   r|		Action	Push_String_Extended,0x372					; "[end of "
02a9 e5ff       |    |		Load	0x2,-0x1
02aa 01cc       |    |		Execute	Vector,Catenate
02ab 8402       |    |		Call	0x2,0x2
02ac 01cc       |    |		Execute	Vector,Catenate
02ad 0092 0373  |   s|		Action	Push_String_Extended,0x373					; "]"
02af 01cc       |    |		Execute	Vector,Catenate
02b0 e001       |    |		Load	0x0,0x1
02b1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02b3 0000 0000  |    |		.BLANK	0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb e5fe       |    |		Load	0x2,-0x2
02bc 0092 0374  |   t|		Action	Push_String_Extended,0x374					; "Terminated because of errors noted previously."
02be e5ff       |    |		Load	0x2,-0x1
02bf 8219       |    |		Call	0x1,0x19
02c0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c1 0000 0000  |    |		.BLANK	0000[0x7]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 02d7       |    |		.CONST	0x02d7								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb e5fd       |    |		Load	0x2,-0x3
02cc 0092 0375  |   u|		Action	Push_String_Extended,0x375					; "Internal Error - Unexpected exception: "
02ce e5fe       |    |		Load	0x2,-0x2
02cf 01cc       |    |		Execute	Vector,Catenate
02d0 820e       |    |		Call	0x1,0xe
02d1 e5fd       |    |		Load	0x2,-0x3
02d2 0092 0376  |   v|		Action	Push_String_Extended,0x376					; "Unexpected exception"
02d4 e5ff       |    |		Load	0x2,-0x1
02d5 8219       |    |		Call	0x1,0x19
02d6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02d7			TRAP_02c8:
02d7 0007       |    |		Action	Break_Optional
02d8 e5fd       |    |		Load	0x2,-0x3
02d9 0092 0377  |   w|		Action	Push_String_Extended,0x377					; "Unexpected_exception"
02db e5ff       |    |		Load	0x2,-0x1
02dc 8219       |    |		Call	0x1,0x19
02dd 00d8       |    |		Load_Top	At_Offset_0
02de 0101       |    |		Execute	Exception,Reraise
02df 0000       |    |		.XXX[0x1]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 482b       |H+  |		Short_Literal	0x2b
02e4 4820       |H   |		Short_Literal	0x20
02e5 4800       |H   |		Short_Literal	0x0
02e6 480a       |H   |		Short_Literal	0xa
02e7 e5ff       |    |		Load	0x2,-0x1
02e8 8007       |    |		Call	0x0,0x7
02e9 01ca       |    |		Execute	Vector,Prepend
02ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02eb 0000 0000  |    |		.BLANK	0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 482b       |H+  |		Short_Literal	0x2b
02f4 4820       |H   |		Short_Literal	0x20
02f5 4800       |H   |		Short_Literal	0x0
02f6 480a       |H   |		Short_Literal	0xa
02f7 e5ff       |    |		Load	0x2,-0x1
02f8 8008       |    |		Call	0x0,0x8
02f9 01ca       |    |		Execute	Vector,Prepend
02fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02fb 0000 0000  |    |		.BLANK	0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 e5ff       |    |		Load	0x2,-0x1
0304 01db       |    |		Execute	Vector,Length
0305 7003       |p   |		Jump_Nonzero	0x309
0306 0092 0378  |   x|		Action	Push_String_Extended,0x378					; "\x22\x22"
0308 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0309 e5ff       |    |		Load	0x2,-0x1
030a 01dd       |    |		Execute	Vector,First
030b e5ff       |    |		Load	0x2,-0x1
030c 01d7       |    |		Execute	Vector,Field_Read
030d 0f2b       | +  |		Execute_Immediate	Equal,0x2b
030e 680f       |h   |		Jump_Zero	0x31e
030f e5ff       |    |		Load	0x2,-0x1
0310 01dd       |    |		Execute	Vector,First
0311 0a01       |    |		Execute_Immediate	Plus,0x1
0312 00d8       |    |		Load_Top	At_Offset_0
0313 00e2       |    |		Load_Encached	Integer_Cache
0314 0260       | `  |		Execute	Discrete,In_Type
0315 7001       |p   |		Jump_Nonzero	0x317
0316 0801       |    |		Execute_Immediate	Raise,0x1
0317 e5ff       |    |		Load	0x2,-0x1
0318 01dc       |    |		Execute	Vector,Last
0319 e5ff       |    |		Load	0x2,-0x1
031a 01cf       |    |		Execute	Vector,Slice_Read
031b 0335       | 5  |		Declare_Variable	Array,Duplicate
031c 00cd       |    |		Action	Spare6_Action
031d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031e 0092 0379  |   y|		Action	Push_String_Extended,0x379					; "\x22"
0320 e5ff       |    |		Load	0x2,-0x1
0321 01cc       |    |		Execute	Vector,Catenate
0322 0092 0379  |   y|		Action	Push_String_Extended,0x379					; "\x22"
0324 01cc       |    |		Execute	Vector,Catenate
0325 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0326 0000 0000  |    |		.XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032d       | -  |		.CONST	0x032d								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b e006       |    |		Load	0x0,0x6
032c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
032d			BODY_0328:
032d e5fc       |    |		Load	0x2,-0x4
032e 460b       |F   |		Jump_Case	0xc
032f 780b       |x   |		Jump	0x33b								; case 0x0
0330 780a       |x   |		Jump	0x33b								; case 0x1
0331 7809       |x   |		Jump	0x33b								; case 0x2
0332 780b       |x   |		Jump	0x33e								; case 0x3
0333 7807       |x   |		Jump	0x33b								; case 0x4
0334 780c       |x   |		Jump	0x341								; case 0x5
0335 7805       |x   |		Jump	0x33b								; case 0x6
0336 780a       |x   |		Jump	0x341								; case 0x7
0337 7803       |x   |		Jump	0x33b								; case 0x8
0338 7802       |x   |		Jump	0x33b								; case 0x9
0339 7801       |x   |		Jump	0x33b								; case 0xa
033a 7800       |x   |		Jump	0x33b								; case 0xb
033b 4800       |H   |		Short_Literal	0x0
033c a402       |    |		Store_Unchecked	0x2,0x2
033d 7805       |x   |		Jump	0x343
033e 4801       |H   |		Short_Literal	0x1
033f a402       |    |		Store_Unchecked	0x2,0x2
0340 7802       |x   |		Jump	0x343
0341 4802       |H   |		Short_Literal	0x2
0342 a402       |    |		Store_Unchecked	0x2,0x2
0343 482e       |H.  |		Short_Literal	0x2e
0344 e5fd       |    |		Load	0x2,-0x3
0345 0092 037a  |   z|		Action	Push_String_Extended,0x37a					; "  "
0347 01cc       |    |		Execute	Vector,Catenate
0348 e009       |    |		Load	0x0,0x9
0349 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
034a e009       |    |		Load	0x0,0x9
034b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
034c 01cc       |    |		Execute	Vector,Catenate
034d 01cb       |    |		Execute	Vector,Append
034e e009       |    |		Load	0x0,0x9
034f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0350 e009       |    |		Load	0x0,0x9
0351 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0352 01cc       |    |		Execute	Vector,Catenate
0353 e5fe       |    |		Load	0x2,-0x2
0354 e402       |    |		Load	0x2,0x2
0355 e5ff       |    |		Load	0x2,-0x1
0356 e00a       |    |		Load	0x0,0xa
0357 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0358 e002       |    |		Load	0x0,0x2
0359 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
035a e5fc       |    |		Load	0x2,-0x4
035b e5fd       |    |		Load	0x2,-0x3
035c e001       |    |		Load	0x0,0x1
035d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
035e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
035f 0000       |    |		.XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 e5fe       |    |		Load	0x2,-0x2
0364 01db       |    |		Execute	Vector,Length
0365 6805       |h   |		Jump_Zero	0x36b
0366 0092 037b  |   {|		Action	Push_String_Extended,0x37b					; " - "
0368 e5fe       |    |		Load	0x2,-0x2
0369 01cc       |    |		Execute	Vector,Catenate
036a 00ca       |    |		Action	Exit_Nullary_Function
036b 00ea       |    |		Load_Encached	Null_String_Cache
036c 00ca       |    |		Action	Exit_Nullary_Function
036d ; --------------------------------------------------------------------------------------
036d ; STRING TABLE
036d ; --------------------------------------------------------------------------------------
036d 0020       |    |		.STRTAB	0x0020->0x037d							; "Operator capability is required"
036e 003d       | =  |		.STRTAB	0x003d->0x038c							; "["
036f 003c       | <  |		.STRTAB	0x003c->0x038d							; " ("
0370 003c       | <  |		.STRTAB	0x003c->0x038e							; ")]"
0371 003c       | <  |		.STRTAB	0x003c->0x038f							; ", "
0372 003c       | <  |		.STRTAB	0x003c->0x0390							; "[end of "
0373 0042       | B  |		.STRTAB	0x0042->0x0394							; "]"
0374 0041       | A  |		.STRTAB	0x0041->0x0394							; "Terminated because of errors noted previously."
0375 006d       | m  |		.STRTAB	0x006d->0x03ab							; "Internal Error - Unexpected exception: "
0376 0092       |    |		.STRTAB	0x0092->0x03bf							; "Unexpected exception"
0377 00a4       |    |		.STRTAB	0x00a4->0x03c9							; "Unexpected_exception"
0378 00b6       |    |		.STRTAB	0x00b6->0x03d3							; "\x22\x22"
0379 00b6       |    |		.STRTAB	0x00b6->0x03d4							; "\x22"
037a 00b5       |    |		.STRTAB	0x00b5->0x03d4							; "  "
037b 00b5       |    |		.STRTAB	0x00b5->0x03d5							; " - "
037c 00b6       |    |		.STREND 0x00b6->0x03d7
037d 4f70 6572  |Oper|		.STRTAB_STRINGS
03d7 0000       |    |		.XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug Table
03d8 ; --------------------------------------------------------------------------------------
03d8 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xcee1,0x0000,0x0001,0x0000
03de 1608 4e18  |  N |		.XXX[0x22]
03e0 00f7 8315  |    |
03e2 2523 6515  |%#e |
03e4 e69b c150  |   P|
03e6 aac6 7d9d  |  } |
03e8 7cc4 1857  ||  W|
03ea 7d08 5442  |} TB|
03ec f659 11d5  | Y  |
03ee 2c37 5181  |,7Q |
03f0 b799 a5df  |    |
03f2 29e7 3017  |) 0 |
03f4 ad6f 9e43  | o C|
03f6 0a83 10c0  |    |
03f8 4cd3 8cf2  |L   |
03fa c9b0 2f20  |  / |
03fc c031 361d  | 16 |
03fe 9b10 b818  |    |