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

⟦7c4d21755⟧

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

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 0348       | H  |		.CONST	0x0348								; 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 005e       | ^  |		.CONST	0x005e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; 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 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0011 e001       |    |		Load	0x0,0x1
0012 0129       | )  |		Execute	Any,Make_Visible
0013 4803       |H   |		Short_Literal	0x3
0014 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0015 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0017 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0019 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
001b 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
001d 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001f 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0021 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0023 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0025 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0027 e002       |    |		Load	0x0,0x2
0028 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0029 00e3       |    |		Load_Encached	Natural_Cache
002a 4801       |H   |		Short_Literal	0x1
002b 6044       |`D  |		Indirect_Literal	Discrete,0x70,{0x00000000, 0x00000800}
002c 00e9       |    |		Load_Encached	String_Cache
002d 035b       | [  |		Declare_Type	Array,Constrained
002e 029f 0323  |   #|		Declare_Subprogram	INIT_0320,For_Call
0030 e211       |    |		Load	0x1,0x11
0031 0326       | &  |		Complete_Type	Record,By_Defining
0032 00bf       |    |		Action	Accept_Activation
0033 0092 0335  |   5|		Action	Push_String_Extended,0x335					; "!Machine.Tcp_Ip_Services"
0035 00e4       |    |		Load_Encached	Positive_Cache
0036 00e3       |    |		Load_Encached	Natural_Cache
0037 02a0       |    |		Declare_Subprogram	Null_Subprogram
0038 4802       |H   |		Short_Literal	0x2
0039 032d       | -  |		Declare_Type	Record,Defined
003a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 029d 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call
0042 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 029d 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call
0046 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 029d 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call
004e 029d 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call
0050 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 029d 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call
0054 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 029d 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call
005c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
005d 00c7       |    |		Action	Elaborate_Subprogram
005e			BODY_0008:
005e 00bc       |    |		Action	Signal_Activated
005f 00bb       |    |		Action	Signal_Completion
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 4809       |H   |		Short_Literal	0x9
0064 4820       |H   |		Short_Literal	0x20
0065 e5ff       |    |		Load	0x2,-0x1
0066 e003       |    |		Load	0x0,0x3
0067 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0068 e003       |    |		Load	0x0,0x3
0069 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
006a e003       |    |		Load	0x0,0x3
006b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
006c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
006d 0000 0000  |    |		.XXX[0x3]
006f 0000       |    |
0070 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000800}
0074 0000 0000  |    |		.BLANK	0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0081       |    |		.CONST	0x0081								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0003       |    |		.CONST	0x0003								; Number of locals
007b			INIT_0078:
007b e211       |    |		Load	0x1,0x11
007c 0322       | "  |		Declare_Variable	Record
007d 00d8       |    |		Load_Top	At_Offset_0
007e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
007f 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
0081			BODY_0078:
0081 00d9       |    |		Load_Top	At_Offset_1
0082 8212       |    |		Call	0x1,0x12
0083 00d1       |    |		Pop_Control	Pop_Count_1
0084 00cf       |    |		Action	Mark_Auxiliary
0085 7809       |x   |		Jump	0x8f
0086 e5ff       |    |		Load	0x2,-0x1
0087 00db       |    |		Load_Top	At_Offset_3
0088 821a       |    |		Call	0x1,0x1a
0089 6801       |h   |		Jump_Zero	0x8b
008a 8403       |    |		Call	0x2,0x3
008b 00da       |    |		Load_Top	At_Offset_2
008c 8213       |    |		Call	0x1,0x13
008d 00d1       |    |		Pop_Control	Pop_Count_1
008e 00c9       |    |		Action	Pop_Auxiliary_Loop
008f 00da       |    |		Load_Top	At_Offset_2
0090 8215       |    |		Call	0x1,0x15
0091 6ff4       |o   |		Jump_Zero	0x86
0092 00ce       |    |		Action	Pop_Auxiliary
0093 e210       |    |		Load	0x1,0x10
0094 0257       | W  |		Execute	Discrete,Raise
0095 0000 0000  |    |		.XXX[0x3]
0097 0000       |    |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a1       |    |		.CONST	0x00a1								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0003       |    |		.CONST	0x0003								; Number of locals
009b			INIT_0098:
009b e211       |    |		Load	0x1,0x11
009c 0322       | "  |		Declare_Variable	Record
009d 00d8       |    |		Load_Top	At_Offset_0
009e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009f 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
00a1			BODY_0098:
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 8212       |    |		Call	0x1,0x12
00a3 00d1       |    |		Pop_Control	Pop_Count_1
00a4 00cf       |    |		Action	Mark_Auxiliary
00a5 7809       |x   |		Jump	0xaf
00a6 e5ff       |    |		Load	0x2,-0x1
00a7 00db       |    |		Load_Top	At_Offset_3
00a8 821a       |    |		Call	0x1,0x1a
00a9 6801       |h   |		Jump_Zero	0xab
00aa 8403       |    |		Call	0x2,0x3
00ab 00da       |    |		Load_Top	At_Offset_2
00ac 8213       |    |		Call	0x1,0x13
00ad 00d1       |    |		Pop_Control	Pop_Count_1
00ae 00c9       |    |		Action	Pop_Auxiliary_Loop
00af 00da       |    |		Load_Top	At_Offset_2
00b0 8215       |    |		Call	0x1,0x15
00b1 6ff4       |o   |		Jump_Zero	0xa6
00b2 00ce       |    |		Action	Pop_Auxiliary
00b3 e210       |    |		Load	0x1,0x10
00b4 0257       | W  |		Execute	Discrete,Raise
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 00c7       |    |		.CONST	0x00c7								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00bd 00ea       |    |		Load_Encached	Null_String_Cache
00be e21b       |    |		Load	0x1,0x1b
00bf 4800       |H   |		Short_Literal	0x0
00c0 e002       |    |		Load	0x0,0x2
00c1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 821e       |    |		Call	0x1,0x1e
00c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c7			TRAP_00b8:
00c7 0007       |    |		Action	Break_Optional
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 8214       |    |		Call	0x1,0x14
00ca 00d1       |    |		Pop_Control	Pop_Count_1
00cb 00d8       |    |		Load_Top	At_Offset_0
00cc 0101       |    |		Execute	Exception,Reraise
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 00d6       |    |		.CONST	0x00d6								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 821e       |    |		Call	0x1,0x1e
00d5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d6			TRAP_00d0:
00d6 0007       |    |		Action	Break_Optional
00d7 00db       |    |		Load_Top	At_Offset_3
00d8 8214       |    |		Call	0x1,0x14
00d9 00d1       |    |		Pop_Control	Pop_Count_1
00da 00d8       |    |		Load_Top	At_Offset_0
00db 0101       |    |		Execute	Exception,Reraise
00dc 0000 0000  |    |		.BLANK	0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 00ea       |    |		.CONST	0x00ea								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e5 e002       |    |		Load	0x0,0x2
00e6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e7 00db       |    |		Load_Top	At_Offset_3
00e8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ea			TRAP_00e0:
00ea 0007       |    |		Action	Break_Optional
00eb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ec 0000 0000  |    |		.BLANK	0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f5 e002       |    |		Load	0x0,0x2
00f6 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00f7 0f00       |    |		Execute_Immediate	Equal,0x0
00f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f9 0000 0000  |    |		.BLANK	0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4801       |H   |		Short_Literal	0x1
0104 4801       |H   |		Short_Literal	0x1
0105 e5ff       |    |		Load	0x2,-0x1
0106 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0107 e5ff       |    |		Load	0x2,-0x1
0108 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0109 01cf       |    |		Execute	Vector,Slice_Read
010a 8220       |    |		Call	0x1,0x20
010b 820d       |    |		Call	0x1,0xd
010c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011f       |    |		.CONST	0x011f								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0003       |    |		.CONST	0x0003								; Number of locals
0113			INIT_0110:
0113 4802       |H   |		Short_Literal	0x2
0114 4801       |H   |		Short_Literal	0x1
0115 e5ff       |    |		Load	0x2,-0x1
0116 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0117 e5ff       |    |		Load	0x2,-0x1
0118 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0119 01cf       |    |		Execute	Vector,Slice_Read
011a 8220       |    |		Call	0x1,0x20
011b 00d8       |    |		Load_Top	At_Offset_0
011c 01dd       |    |		Execute	Vector,First
011d 00e4       |    |		Load_Encached	Positive_Cache
011e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
011f			BODY_0110:
011f 00cf       |    |		Action	Mark_Auxiliary
0120 7804       |x   |		Jump	0x125
0121 00d9       |    |		Load_Top	At_Offset_1
0122 0a01       |    |		Execute_Immediate	Plus,0x1
0123 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0124 00c9       |    |		Action	Pop_Auxiliary_Loop
0125 00d9       |    |		Load_Top	At_Offset_1
0126 00db       |    |		Load_Top	At_Offset_3
0127 01da       |    |		Execute	Vector,Bounds
0128 0262       | b  |		Execute	Discrete,In_Range
0129 6805       |h   |		Jump_Zero	0x12f
012a 00d9       |    |		Load_Top	At_Offset_1
012b 00db       |    |		Load_Top	At_Offset_3
012c 01d7       |    |		Execute	Vector,Field_Read
012d 0e2f       | /  |		Execute_Immediate	Not_Equal,0x2f
012e 77f2       |w   |		Jump_Nonzero	0x121
012f 00ce       |    |		Action	Pop_Auxiliary
0130 00d9       |    |		Load_Top	At_Offset_1
0131 01dd       |    |		Execute	Vector,First
0132 00d9       |    |		Load_Top	At_Offset_1
0133 0aff       |    |		Execute_Immediate	Plus,-0x1
0134 00db       |    |		Load_Top	At_Offset_3
0135 01cf       |    |		Execute	Vector,Slice_Read
0136 00e2       |    |		Load_Encached	Integer_Cache
0137 00e0       |    |		Load_Encached	Standard_Cache
0138 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0139 00d8       |    |		Load_Top	At_Offset_0
013a 00e3       |    |		Load_Encached	Natural_Cache
013b 0260       | `  |		Execute	Discrete,In_Type
013c 7001       |p   |		Jump_Nonzero	0x13e
013d 0801       |    |		Execute_Immediate	Raise,0x1
013e 8221       | !  |		Call	0x1,0x21
013f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014f       | O  |		.CONST	0x014f								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0003       |    |		.CONST	0x0003								; Number of locals
0143			INIT_0140:
0143 4802       |H   |		Short_Literal	0x2
0144 4801       |H   |		Short_Literal	0x1
0145 e5ff       |    |		Load	0x2,-0x1
0146 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0147 e5ff       |    |		Load	0x2,-0x1
0148 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0149 01cf       |    |		Execute	Vector,Slice_Read
014a 8220       |    |		Call	0x1,0x20
014b 00d8       |    |		Load_Top	At_Offset_0
014c 01dd       |    |		Execute	Vector,First
014d 00e4       |    |		Load_Encached	Positive_Cache
014e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
014f			BODY_0140:
014f 00cf       |    |		Action	Mark_Auxiliary
0150 7804       |x   |		Jump	0x155
0151 00d9       |    |		Load_Top	At_Offset_1
0152 0a01       |    |		Execute_Immediate	Plus,0x1
0153 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0154 00c9       |    |		Action	Pop_Auxiliary_Loop
0155 00d9       |    |		Load_Top	At_Offset_1
0156 00db       |    |		Load_Top	At_Offset_3
0157 01da       |    |		Execute	Vector,Bounds
0158 0262       | b  |		Execute	Discrete,In_Range
0159 6805       |h   |		Jump_Zero	0x15f
015a 00d9       |    |		Load_Top	At_Offset_1
015b 00db       |    |		Load_Top	At_Offset_3
015c 01d7       |    |		Execute	Vector,Field_Read
015d 0e2f       | /  |		Execute_Immediate	Not_Equal,0x2f
015e 77f2       |w   |		Jump_Nonzero	0x151
015f 00ce       |    |		Action	Pop_Auxiliary
0160 00d8       |    |		Load_Top	At_Offset_0
0161 00da       |    |		Load_Top	At_Offset_2
0162 01dc       |    |		Execute	Vector,Last
0163 027b       | {  |		Execute	Discrete,Greater_Equal
0164 6803       |h   |		Jump_Zero	0x168
0165 e004       |    |		Load	0x0,0x4
0166 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0167 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0168 00d8       |    |		Load_Top	At_Offset_0
0169 0a01       |    |		Execute_Immediate	Plus,0x1
016a 00d8       |    |		Load_Top	At_Offset_0
016b 00e2       |    |		Load_Encached	Integer_Cache
016c 0260       | `  |		Execute	Discrete,In_Type
016d 7001       |p   |		Jump_Nonzero	0x16f
016e 0801       |    |		Execute_Immediate	Raise,0x1
016f 00da       |    |		Load_Top	At_Offset_2
0170 01dc       |    |		Execute	Vector,Last
0171 00db       |    |		Load_Top	At_Offset_3
0172 01cf       |    |		Execute	Vector,Slice_Read
0173 0092 0336  |   6|		Action	Push_String_Extended,0x336					; "/IP"
0175 01cc       |    |		Execute	Vector,Catenate
0176 e004       |    |		Load	0x0,0x4
0177 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0178 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018b       |    |		.CONST	0x018b								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 4803       |H   |		Short_Literal	0x3
0184 4801       |H   |		Short_Literal	0x1
0185 e5ff       |    |		Load	0x2,-0x1
0186 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0187 e5ff       |    |		Load	0x2,-0x1
0188 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0189 01cf       |    |		Execute	Vector,Slice_Read
018a 821f       |    |		Call	0x1,0x1f
018b			BODY_0180:
018b 00d8       |    |		Load_Top	At_Offset_0
018c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018d 00d9       |    |		Load_Top	At_Offset_1
018e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
018f 027d       | }  |		Execute	Discrete,Greater
0190 6802       |h   |		Jump_Zero	0x193
0191 00ea       |    |		Load_Encached	Null_String_Cache
0192 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0193 00d8       |    |		Load_Top	At_Offset_0
0194 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0195 e5ff       |    |		Load	0x2,-0x1
0196 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0197 e5ff       |    |		Load	0x2,-0x1
0198 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0199 01cf       |    |		Execute	Vector,Slice_Read
019a 820d       |    |		Call	0x1,0xd
019b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019c 0000 0000  |    |		.BLANK	0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5       |    |		.CONST	0x01a5								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 820d       |    |		Call	0x1,0xd
01a5			BODY_01a0:
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 e5ff       |    |		Load	0x2,-0x1
01a7 8216       |    |		Call	0x1,0x16
01a8 01df       |    |		Execute	Vector,Equal
01a9 7005       |p   |		Jump_Nonzero	0x1af
01aa 00db       |    |		Load_Top	At_Offset_3
01ab 8219       |    |		Call	0x1,0x19
01ac 00d9       |    |		Load_Top	At_Offset_1
01ad 8222       | "  |		Call	0x1,0x22
01ae 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01af 4801       |H   |		Short_Literal	0x1
01b0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b1 0000 0000  |    |		.BLANK	0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 0b20       |    |		Execute_Immediate	Case_Compare,0x20
01bd 7004       |p   |		Jump_Nonzero	0x1c2
01be 0f09       |    |		Execute_Immediate	Equal,0x9
01bf 7003       |p   |		Jump_Nonzero	0x1c3
01c0 4800       |H   |		Short_Literal	0x0
01c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c2 00d1       |    |		Pop_Control	Pop_Count_1
01c3 4801       |H   |		Short_Literal	0x1
01c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0223       | #  |		.CONST	0x0223								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00cf       |    |		Action	Mark_Auxiliary
01cc 00e3       |    |		Load_Encached	Natural_Cache
01cd e5ff       |    |		Load	0x2,-0x1
01ce 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01cf e5ff       |    |		Load	0x2,-0x1
01d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d1 e002       |    |		Load	0x0,0x2
01d2 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
01d3 00d1       |    |		Pop_Control	Pop_Count_1
01d4 e5ff       |    |		Load	0x2,-0x1
01d5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d6 00cf       |    |		Action	Mark_Auxiliary
01d7 e5ff       |    |		Load	0x2,-0x1
01d8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d9 4801       |H   |		Short_Literal	0x1
01da 0263       | c  |		Execute	Discrete,Above_Bound
01db 700e       |p   |		Jump_Nonzero	0x1ea
01dc 00d8       |    |		Load_Top	At_Offset_0
01dd e5ff       |    |		Load	0x2,-0x1
01de 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01df 01d7       |    |		Execute	Vector,Field_Read
01e0 0f23       | #  |		Execute_Immediate	Equal,0x23
01e1 6806       |h   |		Jump_Zero	0x1e8
01e2 00d8       |    |		Load_Top	At_Offset_0
01e3 0aff       |    |		Execute_Immediate	Plus,-0x1
01e4 e5ff       |    |		Load	0x2,-0x1
01e5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01e6 00d2       |    |		Pop_Control	Pop_Count_2
01e7 7802       |x   |		Jump	0x1ea
01e8 00c8       |    |		Action	Pop_Auxiliary_Range
01e9 3ff2       |?   |		Loop_Increasing	0x1dc
01ea 00c9       |    |		Action	Pop_Auxiliary_Loop
01eb e5ff       |    |		Load	0x2,-0x1
01ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01ed 0aff       |    |		Execute_Immediate	Plus,-0x1
01ee 4801       |H   |		Short_Literal	0x1
01ef 0263       | c  |		Execute	Discrete,Above_Bound
01f0 7017       |p   |		Jump_Nonzero	0x208
01f1 00d8       |    |		Load_Top	At_Offset_0
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 0a01       |    |		Execute_Immediate	Plus,0x1
01f4 00d8       |    |		Load_Top	At_Offset_0
01f5 00e2       |    |		Load_Encached	Integer_Cache
01f6 0260       | `  |		Execute	Discrete,In_Type
01f7 7001       |p   |		Jump_Nonzero	0x1f9
01f8 0801       |    |		Execute_Immediate	Raise,0x1
01f9 e5ff       |    |		Load	0x2,-0x1
01fa 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01fb 01cf       |    |		Execute	Vector,Slice_Read
01fc 0092 0337  |   7|		Action	Push_String_Extended,0x337					; "--"
01fe 01df       |    |		Execute	Vector,Equal
01ff 6806       |h   |		Jump_Zero	0x206
0200 00d8       |    |		Load_Top	At_Offset_0
0201 0aff       |    |		Execute_Immediate	Plus,-0x1
0202 e5ff       |    |		Load	0x2,-0x1
0203 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0204 00d2       |    |		Pop_Control	Pop_Count_2
0205 7802       |x   |		Jump	0x208
0206 00c8       |    |		Action	Pop_Auxiliary_Range
0207 3fe9       |?   |		Loop_Increasing	0x1f1
0208 00c9       |    |		Action	Pop_Auxiliary_Loop
0209 7806       |x   |		Jump	0x210
020a e5ff       |    |		Load	0x2,-0x1
020b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
020c 0aff       |    |		Execute_Immediate	Plus,-0x1
020d e5ff       |    |		Load	0x2,-0x1
020e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
020f 00c9       |    |		Action	Pop_Auxiliary_Loop
0210 e5ff       |    |		Load	0x2,-0x1
0211 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0212 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0213 6807       |h   |		Jump_Zero	0x21b
0214 e5ff       |    |		Load	0x2,-0x1
0215 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0216 e5ff       |    |		Load	0x2,-0x1
0217 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0218 01d7       |    |		Execute	Vector,Field_Read
0219 821d       |    |		Call	0x1,0x1d
021a 77ef       |w   |		Jump_Nonzero	0x20a
021b 00ce       |    |		Action	Pop_Auxiliary
021c 00db       |    |		Load_Top	At_Offset_3
021d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
021e 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
021f 7002       |p   |		Jump_Nonzero	0x222
0220 00c9       |    |		Action	Pop_Auxiliary_Loop
0221 7faa       |    |		Jump	0x1cc
0222 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0223			TRAP_01c8:
0223 00d8       |    |		Load_Top	At_Offset_0
0224 0107       |    |		Execute	Exception,Get_Name
0225 4950       |IP  |		Short_Literal	0x150
0226 495f       |I_  |		Short_Literal	0x15f
0227 0262       | b  |		Execute	Discrete,In_Range
0228 6803       |h   |		Jump_Zero	0x22c
0229 00db       |    |		Load_Top	At_Offset_3
022a 8214       |    |		Call	0x1,0x14
022b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
022c 0100       |    |		Execute	Exception,Raise
022d 0000 0000  |    |		.XXX[0x3]
022f 0000       |    |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0238       | 8  |		.CONST	0x0238								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0003       |    |		.CONST	0x0003								; Number of locals
0233			INIT_0230:
0233 00da       |    |		Load_Top	At_Offset_2
0234 01dd       |    |		Execute	Vector,First
0235 00e4       |    |		Load_Encached	Positive_Cache
0236 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0237 00d8       |    |		Load_Top	At_Offset_0
0238			BODY_0230:
0238 00cf       |    |		Action	Mark_Auxiliary
0239 e5fe       |    |		Load	0x2,-0x2
023a 4801       |H   |		Short_Literal	0x1
023b 0263       | c  |		Execute	Discrete,Above_Bound
023c 703c       |p<  |		Jump_Nonzero	0x279
023d 00cf       |    |		Action	Mark_Auxiliary
023e 7804       |x   |		Jump	0x243
023f e402       |    |		Load	0x2,0x2
0240 0a01       |    |		Execute_Immediate	Plus,0x1
0241 c402       |    |		Store	0x2,0x2
0242 00c9       |    |		Action	Pop_Auxiliary_Loop
0243 e402       |    |		Load	0x2,0x2
0244 e5ff       |    |		Load	0x2,-0x1
0245 01da       |    |		Execute	Vector,Bounds
0246 0262       | b  |		Execute	Discrete,In_Range
0247 6805       |h   |		Jump_Zero	0x24d
0248 e402       |    |		Load	0x2,0x2
0249 e5ff       |    |		Load	0x2,-0x1
024a 01d7       |    |		Execute	Vector,Field_Read
024b 821d       |    |		Call	0x1,0x1d
024c 77f2       |w   |		Jump_Nonzero	0x23f
024d 00ce       |    |		Action	Pop_Auxiliary
024e e402       |    |		Load	0x2,0x2
024f e5ff       |    |		Load	0x2,-0x1
0250 01da       |    |		Execute	Vector,Bounds
0251 0261       | a  |		Execute	Discrete,Not_In_Range
0252 680a       |h   |		Jump_Zero	0x25d
0253 e21c       |    |		Load	0x1,0x1c
0254 0322       | "  |		Declare_Variable	Record
0255 e402       |    |		Load	0x2,0x2
0256 00d9       |    |		Load_Top	At_Offset_1
0257 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0258 e5ff       |    |		Load	0x2,-0x1
0259 01dc       |    |		Execute	Vector,Last
025a 00d9       |    |		Load_Top	At_Offset_1
025b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
025c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
025d e402       |    |		Load	0x2,0x2
025e 0a01       |    |		Execute_Immediate	Plus,0x1
025f c403       |    |		Store	0x2,0x3
0260 00cf       |    |		Action	Mark_Auxiliary
0261 7804       |x   |		Jump	0x266
0262 e403       |    |		Load	0x2,0x3
0263 0a01       |    |		Execute_Immediate	Plus,0x1
0264 c403       |    |		Store	0x2,0x3
0265 00c9       |    |		Action	Pop_Auxiliary_Loop
0266 e403       |    |		Load	0x2,0x3
0267 e5ff       |    |		Load	0x2,-0x1
0268 01da       |    |		Execute	Vector,Bounds
0269 0262       | b  |		Execute	Discrete,In_Range
026a 6805       |h   |		Jump_Zero	0x270
026b e403       |    |		Load	0x2,0x3
026c e5ff       |    |		Load	0x2,-0x1
026d 01d7       |    |		Execute	Vector,Field_Read
026e 821d       |    |		Call	0x1,0x1d
026f 6ff2       |o   |		Jump_Zero	0x262
0270 00ce       |    |		Action	Pop_Auxiliary
0271 00d8       |    |		Load_Top	At_Offset_0
0272 e5fe       |    |		Load	0x2,-0x2
0273 027e       | ~  |		Execute	Discrete,Not_Equal
0274 6802       |h   |		Jump_Zero	0x277
0275 00db       |    |		Load_Top	At_Offset_3
0276 a402       |    |		Store_Unchecked	0x2,0x2
0277 00c8       |    |		Action	Pop_Auxiliary_Range
0278 3fc4       |?   |		Loop_Increasing	0x23d
0279 00ce       |    |		Action	Pop_Auxiliary
027a e21c       |    |		Load	0x1,0x1c
027b 0322       | "  |		Declare_Variable	Record
027c 00da       |    |		Load_Top	At_Offset_2
027d 00d9       |    |		Load_Top	At_Offset_1
027e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
027f 00d9       |    |		Load_Top	At_Offset_1
0280 0aff       |    |		Execute_Immediate	Plus,-0x1
0281 00d9       |    |		Load_Top	At_Offset_1
0282 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0283 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0284 0000 0000  |    |		.BLANK	0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028e       |    |		.CONST	0x028e								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0002       |    |		.CONST	0x0002								; Number of locals
028b			INIT_0288:
028b 00db       |    |		Load_Top	At_Offset_3
028c 00db       |    |		Load_Top	At_Offset_3
028d 821f       |    |		Call	0x1,0x1f
028e			BODY_0288:
028e 00d8       |    |		Load_Top	At_Offset_0
028f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0290 00d9       |    |		Load_Top	At_Offset_1
0291 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0292 027d       | }  |		Execute	Discrete,Greater
0293 6802       |h   |		Jump_Zero	0x296
0294 00ea       |    |		Load_Encached	Null_String_Cache
0295 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0296 00d8       |    |		Load_Top	At_Offset_0
0297 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0298 00d9       |    |		Load_Top	At_Offset_1
0299 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
029a e5ff       |    |		Load	0x2,-0x1
029b 01cf       |    |		Execute	Vector,Slice_Read
029c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ae       |    |		.CONST	0x02ae								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0004       |    |		.CONST	0x0004								; Number of locals
02a3			INIT_02a0:
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 00e3       |    |		Load_Encached	Natural_Cache
02a5 03f1       |    |		Declare_Variable	Discrete,With_Value
02a6 4801       |H   |		Short_Literal	0x1
02a7 4820       |H   |		Short_Literal	0x20
02a8 e004       |    |		Load	0x0,0x4
02a9 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02aa 035b       | [  |		Declare_Type	Array,Constrained
02ab 0337       | 7  |		Declare_Variable	Array
02ac 00e3       |    |		Load_Encached	Natural_Cache
02ad 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
02ae			BODY_02a0:
02ae 00cf       |    |		Action	Mark_Auxiliary
02af 00db       |    |		Load_Top	At_Offset_3
02b0 48ff       |H   |		Short_Literal	0xff
02b1 0279       | y  |		Execute	Discrete,And
02b2 00d8       |    |		Load_Top	At_Offset_0
02b3 e005       |    |		Load	0x0,0x5
02b4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02b5 0260       | `  |		Execute	Discrete,In_Type
02b6 7001       |p   |		Jump_Nonzero	0x2b8
02b7 0801       |    |		Execute_Immediate	Raise,0x1
02b8 4801       |H   |		Short_Literal	0x1
02b9 e403       |    |		Load	0x2,0x3
02ba 01d6       |    |		Execute	Vector,Field_Write
02bb 00db       |    |		Load_Top	At_Offset_3
02bc 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
02bd c402       |    |		Store	0x2,0x2
02be 00db       |    |		Load_Top	At_Offset_3
02bf 6813       |h   |		Jump_Zero	0x2d3
02c0 4801       |H   |		Short_Literal	0x1
02c1 00da       |    |		Load_Top	At_Offset_2
02c2 e403       |    |		Load	0x2,0x3
02c3 01cf       |    |		Execute	Vector,Slice_Read
02c4 4802       |H   |		Short_Literal	0x2
02c5 00db       |    |		Load_Top	At_Offset_3
02c6 0a01       |    |		Execute_Immediate	Plus,0x1
02c7 00d8       |    |		Load_Top	At_Offset_0
02c8 00e2       |    |		Load_Encached	Integer_Cache
02c9 0260       | `  |		Execute	Discrete,In_Type
02ca 7001       |p   |		Jump_Nonzero	0x2cc
02cb 0801       |    |		Execute_Immediate	Raise,0x1
02cc e403       |    |		Load	0x2,0x3
02cd 01ce       |    |		Execute	Vector,Slice_Write
02ce 00d9       |    |		Load_Top	At_Offset_1
02cf 0a01       |    |		Execute_Immediate	Plus,0x1
02d0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02d1 00c9       |    |		Action	Pop_Auxiliary_Loop
02d2 7fdc       |    |		Jump	0x2af
02d3 00ce       |    |		Action	Pop_Auxiliary
02d4 4801       |H   |		Short_Literal	0x1
02d5 00d9       |    |		Load_Top	At_Offset_1
02d6 00db       |    |		Load_Top	At_Offset_3
02d7 01cf       |    |		Execute	Vector,Slice_Read
02d8 e004       |    |		Load	0x0,0x4
02d9 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02da 01c6       |    |		Execute	Vector,Convert_To_Formal
02db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02dc 0000 0000  |    |		.BLANK	0000[0x4]
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 00cf       |    |		Action	Mark_Auxiliary
02e4 6017       |`   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x7fffffff}
02e5 4801       |H   |		Short_Literal	0x1
02e6 0007       |    |		Action	Break_Optional
02e7 00d8       |    |		Load_Top	At_Offset_0
02e8 e5fe       |    |		Load	0x2,-0x2
02e9 8220       |    |		Call	0x1,0x20
02ea 01db       |    |		Execute	Vector,Length
02eb 7002       |p   |		Jump_Nonzero	0x2ee
02ec 4800       |H   |		Short_Literal	0x0
02ed 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef e5fe       |    |		Load	0x2,-0x2
02f0 8220       |    |		Call	0x1,0x20
02f1 e5ff       |    |		Load	0x2,-0x1
02f2 01df       |    |		Execute	Vector,Equal
02f3 6802       |h   |		Jump_Zero	0x2f6
02f4 4801       |H   |		Short_Literal	0x1
02f5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f6 00c8       |    |		Action	Pop_Auxiliary_Range
02f7 3fef       |?   |		Loop_Increasing	0x2e7
02f8 00ce       |    |		Action	Pop_Auxiliary
02f9 0831       | 1  |		Execute_Immediate	Raise,0x31
02fa 0000 0000  |    |		.XXX[0x2]
02fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0305       |    |		.CONST	0x0305								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0002       |    |		.CONST	0x0002								; Number of locals
0303			INIT_0300:
0303 e402       |    |		Load	0x2,0x2
0304 8217       |    |		Call	0x1,0x17
0305			BODY_0300:
0305 e402       |    |		Load	0x2,0x2
0306 8214       |    |		Call	0x1,0x14
0307 00d1       |    |		Pop_Control	Pop_Count_1
0308 00d8       |    |		Load_Top	At_Offset_0
0309 00cb       |    |		Action	Pop_Block_With_Result
030a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030b 0000 0000  |    |		.BLANK	0000[0x5]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0315       |    |		.CONST	0x0315								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0002       |    |		.CONST	0x0002								; Number of locals
0313			INIT_0310:
0313 e402       |    |		Load	0x2,0x2
0314 8218       |    |		Call	0x1,0x18
0315			BODY_0310:
0315 e402       |    |		Load	0x2,0x2
0316 8214       |    |		Call	0x1,0x14
0317 00d1       |    |		Pop_Control	Pop_Count_1
0318 00d8       |    |		Load_Top	At_Offset_0
0319 00cb       |    |		Action	Pop_Block_With_Result
031a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031b 0000 0000  |    |		.BLANK	0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 4608       |F   |		Jump_Case	0x9
0324 7808       |x   |		Jump	0x32d								; case 0x0
0325 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0326 780d       |x   |		Jump	0x334								; case 0x2
0327 780c       |x   |		Jump	0x334								; case 0x3
0328 780b       |x   |		Jump	0x334								; case 0x4
0329 780a       |x   |		Jump	0x334								; case 0x5
032a 7809       |x   |		Jump	0x334								; case 0x6
032b 7808       |x   |		Jump	0x334								; case 0x7
032c 7807       |x   |		Jump	0x334								; case 0x8
032d 00da       |    |		Load_Top	At_Offset_2
032e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
032f 0125       | %  |		Execute	Any,Set_Constraint
0330 00da       |    |		Load_Top	At_Offset_2
0331 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0332 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0333 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0334 0869       | i  |		Execute_Immediate	Raise,0x69
0335 ; --------------------------------------------------------------------------------------
0335 ; STRING TABLE
0335 ; --------------------------------------------------------------------------------------
0335 0008       |    |		.STRTAB	0x0008->0x0339							; "!Machine.Tcp_Ip_Services"
0336 001e       |    |		.STRTAB	0x001e->0x0345							; "/IP"
0337 001f       |    |		.STRTAB	0x001f->0x0346							; "--"
0338 001f       |    |		.STREND 0x001f->0x0347
0339 214d 6163  |!Mac|		.STRTAB_STRINGS
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug Table
0348 ; --------------------------------------------------------------------------------------
0348 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xd2f4,0x0000,0x0001,0x0000
034e 0000 0000  |    |		.BLANK	0000[0xb2]