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

⟦ee96b7c4d⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0a40       | @  |		.CONST	0x0a40								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0087       |    |		.CONST	0x0087								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0013       |    |		.CONST	0x0013								; Number of locals
001b			INIT_0018:
001b e5fb       |    |		Load	0x2,-0x5
001c 0092 0817  |    |		Action	Push_String_Extended,0x817					; ".Remote_Access"
001e 01cc       |    |		Execute	Vector,Catenate
001f 0007       |    |		Action	Break_Optional
0020 4801       |H   |		Short_Literal	0x1
0021 4806       |H   |		Short_Literal	0x6
0022 00e9       |    |		Load_Encached	String_Cache
0023 0334       | 4  |		Declare_Variable	Array,With_Constraint
0024 5097       |P   |		Indirect_Literal	Any,0xbc,{0x7463702f, 0x69702020}
0025 e001       |    |		Load	0x0,0x1
0026 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0027 00e9       |    |		Load_Encached	String_Cache
0028 02a0       |    |		Declare_Subprogram	Null_Subprogram
0029 4818       |H   |		Short_Literal	0x18
002a 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
002b 00d8       |    |		Load_Top	At_Offset_0
002c 0007       |    |		Action	Break_Optional
002d 00d9       |    |		Load_Top	At_Offset_1
002e 00da       |    |		Load_Top	At_Offset_2
002f 00db       |    |		Load_Top	At_Offset_3
0030 02a0       |    |		Declare_Subprogram	Null_Subprogram
0031 4803       |H   |		Short_Literal	0x3
0032 032d       | -  |		Declare_Type	Record,Defined
0033 00d8       |    |		Load_Top	At_Offset_0
0034 02a0       |    |		Declare_Subprogram	Null_Subprogram
0035 4818       |H   |		Short_Literal	0x18
0036 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0037 e002       |    |		Load	0x0,0x2
0038 e003       |    |		Load	0x0,0x3
0039 4864       |Hd  |		Short_Literal	0x64
003a 00db       |    |		Load_Top	At_Offset_3
003b 4801       |H   |		Short_Literal	0x1
003c e004       |    |		Load	0x0,0x4
003d 0387       |    |		Declare_Variable	Package
003e 00d8       |    |		Load_Top	At_Offset_0
003f 020f       |    |		Execute	Module,Activate
0040 00d8       |    |		Load_Top	At_Offset_0
0041 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0042 4800       |H   |		Short_Literal	0x0
0043 4801       |H   |		Short_Literal	0x1
0044 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call
0046 03fd       |    |		Declare_Type	Discrete,Defined
0047 e005       |    |		Load	0x0,0x5
0048 e006       |    |		Load	0x0,0x6
0049 00da       |    |		Load_Top	At_Offset_2
004a 4800       |H   |		Short_Literal	0x0
004b 4801       |H   |		Short_Literal	0x1
004c 4801       |H   |		Short_Literal	0x1
004d 0092 0818  |    |		Action	Push_String_Extended,0x818					; "others => Unspecified"
004f 00ea       |    |		Load_Encached	Null_String_Cache
0050 00ea       |    |		Load_Encached	Null_String_Cache
0051 4801       |H   |		Short_Literal	0x1
0052 4801       |H   |		Short_Literal	0x1
0053 e007       |    |		Load	0x0,0x7
0054 0387       |    |		Declare_Variable	Package
0055 00d8       |    |		Load_Top	At_Offset_0
0056 020f       |    |		Execute	Module,Activate
0057 4800       |H   |		Short_Literal	0x0
0058 480a       |H   |		Short_Literal	0xa
0059 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
005b 03fd       |    |		Declare_Type	Discrete,Defined
005c e008       |    |		Load	0x0,0x8
005d e009       |    |		Load	0x0,0x9
005e 00da       |    |		Load_Top	At_Offset_2
005f 4800       |H   |		Short_Literal	0x0
0060 4801       |H   |		Short_Literal	0x1
0061 480a       |H   |		Short_Literal	0xa
0062 0092 0819  |    |		Action	Push_String_Extended,0x819					; "Laser_Comm | Reverse_Output_Pages => Boolean_Valued, others => unspecified"
0064 00ea       |    |		Load_Encached	Null_String_Cache
0065 00ea       |    |		Load_Encached	Null_String_Cache
0066 4801       |H   |		Short_Literal	0x1
0067 480a       |H   |		Short_Literal	0xa
0068 e007       |    |		Load	0x0,0x7
0069 0387       |    |		Declare_Variable	Package
006a 00d8       |    |		Load_Top	At_Offset_0
006b 020f       |    |		Execute	Module,Activate
006c 4800       |H   |		Short_Literal	0x0
006d 4804       |H   |		Short_Literal	0x4
006e 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0070 03fd       |    |		Declare_Type	Discrete,Defined
0071 4800       |H   |		Short_Literal	0x0
0072 4802       |H   |		Short_Literal	0x2
0073 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
0075 03fd       |    |		Declare_Type	Discrete,Defined
0076 e00a       |    |		Load	0x0,0xa
0077 e00b       |    |		Load	0x0,0xb
0078 00da       |    |		Load_Top	At_Offset_2
0079 4800       |H   |		Short_Literal	0x0
007a 4800       |H   |		Short_Literal	0x0
007b 4801       |H   |		Short_Literal	0x1
007c e40d       |    |		Load	0x2,0xd
007d 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
007e 0387       |    |		Declare_Variable	Package
007f 00d8       |    |		Load_Top	At_Offset_0
0080 020f       |    |		Execute	Module,Activate
0081 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
0083 029f 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Call
0085 029f 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Call
0087			BODY_0018:
0087 e5fa       |    |		Load	0x2,-0x6
0088 7017       |p   |		Jump_Nonzero	0xa0
0089 e00c       |    |		Load	0x0,0xc
008a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
008b e5fb       |    |		Load	0x2,-0x5
008c 8413       |    |		Call	0x2,0x13
008d 7008       |p   |		Jump_Nonzero	0x96
008e 0092 081a  |    |		Action	Push_String_Extended,0x81a					; "<ERRORS>"
0090 00ea       |    |		Load_Encached	Null_String_Cache
0091 4800       |H   |		Short_Literal	0x0
0092 4801       |H   |		Short_Literal	0x1
0093 e5fb       |    |		Load	0x2,-0x5
0094 e00d       |    |		Load	0x0,0xd
0095 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0096 0092 081b  |    |		Action	Push_String_Extended,0x81b					; "Holding"
0098 e00c       |    |		Load	0x0,0xc
0099 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
009a 6805       |h   |		Jump_Zero	0xa0
009b 00ea       |    |		Load_Encached	Null_String_Cache
009c 0092 081b  |    |		Action	Push_String_Extended,0x81b					; "Holding"
009e e00c       |    |		Load	0x0,0xc
009f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00a0 e408       |    |		Load	0x2,0x8
00a1 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00a2 4864       |Hd  |		Short_Literal	0x64
00a3 e408       |    |		Load	0x2,0x8
00a4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00a5 c409       |    |		Store	0x2,0x9
00a6 e5ff       |    |		Load	0x2,-0x1
00a7 8411       |    |		Call	0x2,0x11
00a8 e5fe       |    |		Load	0x2,-0x2
00a9 8411       |    |		Call	0x2,0x11
00aa e405       |    |		Load	0x2,0x5
00ab 6804       |h   |		Jump_Zero	0xb0
00ac e5fc       |    |		Load	0x2,-0x4
00ad e5fd       |    |		Load	0x2,-0x3
00ae 8412       |    |		Call	0x2,0x12
00af 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00b0 0092 081c  |    |		Action	Push_String_Extended,0x81c					; "The file "
00b2 e5fc       |    |		Load	0x2,-0x4
00b3 01cc       |    |		Execute	Vector,Catenate
00b4 0092 081d  |    |		Action	Push_String_Extended,0x81d					; " will not be created"
00b6 01cc       |    |		Execute	Vector,Catenate
00b7 e00e       |    |		Load	0x0,0xe
00b8 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00b9 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00ba 0000 0000  |    |		.XXX[0x2]
00bc 7463 702f  |tcp/|		.LITERAL	{0x7463702f, 0x69702020}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 4607       |F   |		Jump_Case	0x8
00c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00c5 7806       |x   |		Jump	0xcc								; case 0x1
00c6 7809       |x   |		Jump	0xd0								; case 0x2
00c7 780d       |x   |		Jump	0xd5								; case 0x3
00c8 7810       |x   |		Jump	0xd9								; case 0x4
00c9 7811       |x   |		Jump	0xdb								; case 0x5
00ca 7812       |x   |		Jump	0xdd								; case 0x6
00cb 7815       |x   |		Jump	0xe1								; case 0x7
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 0091 0802  |    |		Action	Push_String_Extended_Indexed,0x802				; "NIL"
00cf 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d0 00db       |    |		Load_Top	At_Offset_3
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 00e0       |    |		Load_Encached	Standard_Cache
00d3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d5 00da       |    |		Load_Top	At_Offset_2
00d6 00e0       |    |		Load_Encached	Standard_Cache
00d7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d9 00db       |    |		Load_Top	At_Offset_3
00da 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00db 00db       |    |		Load_Top	At_Offset_3
00dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00dd e40a       |    |		Load	0x2,0xa
00de 00dc       |    |		Load_Top	At_Offset_4
00df 0267       | g  |		Execute	Discrete,Predecessor
00e0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e1 e40a       |    |		Load	0x2,0xa
00e2 00dc       |    |		Load_Top	At_Offset_4
00e3 0268       | h  |		Execute	Discrete,Successor
00e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4607       |F   |		Jump_Case	0x8
00ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ed 7806       |x   |		Jump	0xf4								; case 0x1
00ee 7809       |x   |		Jump	0xf8								; case 0x2
00ef 780d       |x   |		Jump	0xfd								; case 0x3
00f0 7810       |x   |		Jump	0x101								; case 0x4
00f1 7811       |x   |		Jump	0x103								; case 0x5
00f2 7812       |x   |		Jump	0x105								; case 0x6
00f3 7815       |x   |		Jump	0x109								; case 0x7
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 0091 0804  |    |		Action	Push_String_Extended_Indexed,0x804				; "NIL"
00f7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 00e0       |    |		Load_Encached	Standard_Cache
00fb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd 00da       |    |		Load_Top	At_Offset_2
00fe 00e0       |    |		Load_Encached	Standard_Cache
00ff 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0100 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0101 00db       |    |		Load_Top	At_Offset_3
0102 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0103 00db       |    |		Load_Top	At_Offset_3
0104 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0105 e40c       |    |		Load	0x2,0xc
0106 00dc       |    |		Load_Top	At_Offset_4
0107 0267       | g  |		Execute	Discrete,Predecessor
0108 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0109 e40c       |    |		Load	0x2,0xc
010a 00dc       |    |		Load_Top	At_Offset_4
010b 0268       | h  |		Execute	Discrete,Successor
010c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 4607       |F   |		Jump_Case	0x8
0114 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0115 7806       |x   |		Jump	0x11c								; case 0x1
0116 7809       |x   |		Jump	0x120								; case 0x2
0117 780d       |x   |		Jump	0x125								; case 0x3
0118 7810       |x   |		Jump	0x129								; case 0x4
0119 7811       |x   |		Jump	0x12b								; case 0x5
011a 7812       |x   |		Jump	0x12d								; case 0x6
011b 7815       |x   |		Jump	0x131								; case 0x7
011c 00da       |    |		Load_Top	At_Offset_2
011d 0091 080f  |    |		Action	Push_String_Extended_Indexed,0x80f				; "NIL"
011f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0120 00db       |    |		Load_Top	At_Offset_3
0121 00db       |    |		Load_Top	At_Offset_3
0122 00e0       |    |		Load_Encached	Standard_Cache
0123 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0124 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0125 00da       |    |		Load_Top	At_Offset_2
0126 00e0       |    |		Load_Encached	Standard_Cache
0127 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0128 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0129 00db       |    |		Load_Top	At_Offset_3
012a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012b 00db       |    |		Load_Top	At_Offset_3
012c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012d e40e       |    |		Load	0x2,0xe
012e 00dc       |    |		Load_Top	At_Offset_4
012f 0267       | g  |		Execute	Discrete,Predecessor
0130 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0131 e40e       |    |		Load	0x2,0xe
0132 00dc       |    |		Load_Top	At_Offset_4
0133 0268       | h  |		Execute	Discrete,Successor
0134 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 4607       |F   |		Jump_Case	0x8
013c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
013d 7806       |x   |		Jump	0x144								; case 0x1
013e 7809       |x   |		Jump	0x148								; case 0x2
013f 780d       |x   |		Jump	0x14d								; case 0x3
0140 7810       |x   |		Jump	0x151								; case 0x4
0141 7811       |x   |		Jump	0x153								; case 0x5
0142 7812       |x   |		Jump	0x155								; case 0x6
0143 7815       |x   |		Jump	0x159								; case 0x7
0144 00da       |    |		Load_Top	At_Offset_2
0145 0091 0814  |    |		Action	Push_String_Extended_Indexed,0x814				; "NIL"
0147 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0148 00db       |    |		Load_Top	At_Offset_3
0149 00db       |    |		Load_Top	At_Offset_3
014a 00e0       |    |		Load_Encached	Standard_Cache
014b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
014c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014d 00da       |    |		Load_Top	At_Offset_2
014e 00e0       |    |		Load_Encached	Standard_Cache
014f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0150 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0151 00db       |    |		Load_Top	At_Offset_3
0152 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0153 00db       |    |		Load_Top	At_Offset_3
0154 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0155 e40f       |    |		Load	0x2,0xf
0156 00dc       |    |		Load_Top	At_Offset_4
0157 0267       | g  |		Execute	Discrete,Predecessor
0158 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0159 e40f       |    |		Load	0x2,0xf
015a 00dc       |    |		Load_Top	At_Offset_4
015b 0268       | h  |		Execute	Discrete,Successor
015c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0184       |    |		.CONST	0x0184								; Address of begin
0161 019b       |    |		.CONST	0x019b								; Address of exception handler
0162 0010       |    |		.CONST	0x0010								; Number of locals
0163			INIT_0160:
0163 e00e       |    |		Load	0x0,0xe
0164 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0165 02c7       |    |		Declare_Variable	Any
0166 00d8       |    |		Load_Top	At_Offset_0
0167 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0168 029f 021b  |    |		Declare_Subprogram	INIT_0218,For_Call
016a 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
016c 029f 024b  |   K|		Declare_Subprogram	INIT_0248,For_Call
016e 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
0170 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
0172 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
0174 029f 0323  |   #|		Declare_Subprogram	INIT_0320,For_Call
0176 029f 0343  |   C|		Declare_Subprogram	INIT_0340,For_Call
0178 029f 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Call
017a 029f 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Call
017c 029f 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Call
017e 029f 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Call
0180 029f 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Call
0182 029f 052b  |   +|		Declare_Subprogram	INIT_0528,For_Call
0184			BODY_0160:
0184 e602       |    |		Load	0x3,0x2
0185 00ea       |    |		Load_Encached	Null_String_Cache
0186 e7ff       |    |		Load	0x3,-0x1
0187 4800       |H   |		Short_Literal	0x0
0188 e00e       |    |		Load	0x0,0xe
0189 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
018a c602       |    |		Store	0x3,0x2
018b 00cf       |    |		Action	Mark_Auxiliary
018c 7804       |x   |		Jump	0x191
018d e602       |    |		Load	0x3,0x2
018e 8610       |    |		Call	0x3,0x10
018f 860f       |    |		Call	0x3,0xf
0190 00c9       |    |		Action	Pop_Auxiliary_Loop
0191 e602       |    |		Load	0x3,0x2
0192 e00e       |    |		Load	0x0,0xe
0193 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0194 6ff8       |o   |		Jump_Zero	0x18d
0195 00ce       |    |		Action	Pop_Auxiliary
0196 e602       |    |		Load	0x3,0x2
0197 e00e       |    |		Load	0x0,0xe
0198 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0199 c602       |    |		Store	0x3,0x2
019a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019b			TRAP_0160:
019b 00d8       |    |		Load_Top	At_Offset_0
019c 0107       |    |		Execute	Exception,Get_Name
019d 4920       |I   |		Short_Literal	0x120
019e 492f       |I/  |		Short_Literal	0x12f
019f 0262       | b  |		Execute	Discrete,In_Range
01a0 6807       |h   |		Jump_Zero	0x1a8
01a1 e7ff       |    |		Load	0x3,-0x1
01a2 0092 081e  |    |		Action	Push_String_Extended,0x81e					; " does not exist"
01a4 01cc       |    |		Execute	Vector,Catenate
01a5 e00e       |    |		Load	0x0,0xe
01a6 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a8 00d8       |    |		Load_Top	At_Offset_0
01a9 0107       |    |		Execute	Exception,Get_Name
01aa 4950       |IP  |		Short_Literal	0x150
01ab 495f       |I_  |		Short_Literal	0x15f
01ac 0262       | b  |		Execute	Discrete,In_Range
01ad 6801       |h   |		Jump_Zero	0x1af
01ae 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01af 0100       |    |		Execute	Exception,Raise
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01c5       |    |		.CONST	0x01c5								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0007       |    |		.CONST	0x0007								; Number of locals
01b3			INIT_01b0:
01b3 e00e       |    |		Load	0x0,0xe
01b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b5 02c7       |    |		Declare_Variable	Any
01b6 00d8       |    |		Load_Top	At_Offset_0
01b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b8 e00e       |    |		Load	0x0,0xe
01b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ba 02c7       |    |		Declare_Variable	Any
01bb 00d8       |    |		Load_Top	At_Offset_0
01bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01bd 029f 0563  |   c|		Declare_Subprogram	INIT_0560,For_Call
01bf 029f 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Call
01c1 029f 05db  |    |		Declare_Subprogram	INIT_05d8,For_Call
01c3 029f 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Call
01c5			BODY_01b0:
01c5 e5fa       |    |		Load	0x2,-0x6
01c6 7007       |p   |		Jump_Nonzero	0x1ce
01c7 e603       |    |		Load	0x3,0x3
01c8 00ea       |    |		Load_Encached	Null_String_Cache
01c9 e7fe       |    |		Load	0x3,-0x2
01ca 4801       |H   |		Short_Literal	0x1
01cb e00e       |    |		Load	0x0,0xe
01cc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01cd c603       |    |		Store	0x3,0x3
01ce 00ea       |    |		Load_Encached	Null_String_Cache
01cf e00e       |    |		Load	0x0,0xe
01d0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01d1 0092 081f  |    |		Action	Push_String_Extended,0x81f					; "The contents of the file "
01d3 e7fe       |    |		Load	0x3,-0x2
01d4 e00f       |    |		Load	0x0,0xf
01d5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01d6 01cc       |    |		Execute	Vector,Catenate
01d7 0092 0820  |    |		Action	Push_String_Extended,0x820					; " are:"
01d9 01cc       |    |		Execute	Vector,Catenate
01da e00e       |    |		Load	0x0,0xe
01db 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01dc 8607       |    |		Call	0x3,0x7
01dd 8606       |    |		Call	0x3,0x6
01de e5fa       |    |		Load	0x2,-0x6
01df 7004       |p   |		Jump_Nonzero	0x1e4
01e0 e603       |    |		Load	0x3,0x3
01e1 e00e       |    |		Load	0x0,0xe
01e2 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01e3 c603       |    |		Store	0x3,0x3
01e4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e5 0000 0000  |    |		.XXX[0x3]
01e7 0000       |    |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f3       |    |		.CONST	0x01f3								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0003       |    |		.CONST	0x0003								; Number of locals
01eb			INIT_01e8:
01eb e010       |    |		Load	0x0,0x10
01ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ed 02c7       |    |		Declare_Variable	Any
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f0 e010       |    |		Load	0x0,0x10
01f1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f3			BODY_01e8:
01f3 e010       |    |		Load	0x0,0x10
01f4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01f5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 0120       |    |		Execute	Any,Is_Value
01f8 6803       |h   |		Jump_Zero	0x1fc
01f9 e010       |    |		Load	0x0,0x10
01fa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fb 7801       |x   |		Jump	0x1fd
01fc 00da       |    |		Load_Top	At_Offset_2
01fd 6012       |`   |		Indirect_Literal	Discrete,0x210,{0x00000000, 0x00004000}
01fe e011       |    |		Load	0x0,0x11
01ff 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0200 e012       |    |		Load	0x0,0x12
0201 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0202 e010       |    |		Load	0x0,0x10
0203 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0204 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0205 e7ff       |    |		Load	0x3,-0x1
0206 e010       |    |		Load	0x0,0x10
0207 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0208 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0209 c602       |    |		Store	0x3,0x2
020a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
020b 00d8       |    |		Load_Top	At_Offset_0
020c 0f00       |    |		Execute_Immediate	Equal,0x0
020d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020e 0000 0000  |    |		.XXX[0x2]
0210 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0214 0000 0000  |    |		.BLANK	0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0225       | %  |		.CONST	0x0225								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0003       |    |		.CONST	0x0003								; Number of locals
021b			INIT_0218:
021b 4801       |H   |		Short_Literal	0x1
021c 00db       |    |		Load_Top	At_Offset_3
021d 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "="
021f e00f       |    |		Load	0x0,0xf
0220 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0221 00e3       |    |		Load_Encached	Natural_Cache
0222 03f1       |    |		Declare_Variable	Discrete,With_Value
0223 029f 062b  |   +|		Declare_Subprogram	INIT_0628,For_Call
0225			BODY_0218:
0225 00d9       |    |		Load_Top	At_Offset_1
0226 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0227 6801       |h   |		Jump_Zero	0x229
0228 8803       |    |		Call	0x4,0x3
0229 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022a 0000 0000  |    |		.BLANK	0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235       | 5  |		.CONST	0x0235								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0002       |    |		.CONST	0x0002								; Number of locals
0233			INIT_0230:
0233 e404       |    |		Load	0x2,0x4
0234 0007       |    |		Action	Break_Optional
0235			BODY_0230:
0235 4801       |H   |		Short_Literal	0x1
0236 e9ff       |    |		Load	0x4,-0x1
0237 01db       |    |		Execute	Vector,Length
0238 00d8       |    |		Load_Top	At_Offset_0
0239 00e2       |    |		Load_Encached	Integer_Cache
023a 0260       | `  |		Execute	Discrete,In_Type
023b 7001       |p   |		Jump_Nonzero	0x23d
023c 0801       |    |		Execute_Immediate	Raise,0x1
023d e404       |    |		Load	0x2,0x4
023e 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
023f 0039       | 9  |		Store_Top	Access,At_Offset_1
0240 00db       |    |		Load_Top	At_Offset_3
0241 00d9       |    |		Load_Top	At_Offset_1
0242 0228       | (  |		Execute	Access,All_Write
0243 00d8       |    |		Load_Top	At_Offset_0
0244 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0259       | Y  |		.CONST	0x0259								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0003       |    |		.CONST	0x0003								; Number of locals
024b			INIT_0248:
024b 4809       |H   |		Short_Literal	0x9
024c e9fe       |    |		Load	0x4,-0x2
024d e40d       |    |		Load	0x2,0xd
024e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
024f 4800       |H   |		Short_Literal	0x0
0250 4809       |H   |		Short_Literal	0x9
0251 e9fe       |    |		Load	0x4,-0x2
0252 e40d       |    |		Load	0x2,0xd
0253 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0254 0279       | y  |		Execute	Discrete,And
0255 00e1       |    |		Load_Encached	Boolean_Cache
0256 03f1       |    |		Declare_Variable	Discrete,With_Value
0257 e407       |    |		Load	0x2,0x7
0258 0007       |    |		Action	Break_Optional
0259			BODY_0248:
0259 e407       |    |		Load	0x2,0x7
025a 03bc       |    |		Declare_Variable	Access,By_Allocation
025b 0039       | 9  |		Store_Top	Access,At_Offset_1
025c e9fc       |    |		Load	0x4,-0x4
025d 01db       |    |		Execute	Vector,Length
025e 7006       |p   |		Jump_Nonzero	0x265
025f e9ff       |    |		Load	0x4,-0x1
0260 8604       |    |		Call	0x3,0x4
0261 00d9       |    |		Load_Top	At_Offset_1
0262 0227       | '  |		Execute	Access,All_Reference
0263 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0264 780d       |x   |		Jump	0x272
0265 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "!!"
0267 e9fc       |    |		Load	0x4,-0x4
0268 01cc       |    |		Execute	Vector,Catenate
0269 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "."
026b 01cc       |    |		Execute	Vector,Catenate
026c e9ff       |    |		Load	0x4,-0x1
026d 01cc       |    |		Execute	Vector,Catenate
026e 8604       |    |		Call	0x3,0x4
026f 00d9       |    |		Load_Top	At_Offset_1
0270 0227       | '  |		Execute	Access,All_Reference
0271 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0272 00d9       |    |		Load_Top	At_Offset_1
0273 6807       |h   |		Jump_Zero	0x27b
0274 0092 0824  |   $|		Action	Push_String_Extended,0x824					; "Laser"
0276 8604       |    |		Call	0x3,0x4
0277 00d9       |    |		Load_Top	At_Offset_1
0278 0227       | '  |		Execute	Access,All_Reference
0279 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
027a 7806       |x   |		Jump	0x281
027b 0092 0825  |   %|		Action	Push_String_Extended,0x825					; "Other"
027d 8604       |    |		Call	0x3,0x4
027e 00d9       |    |		Load_Top	At_Offset_1
027f 0227       | '  |		Execute	Access,All_Reference
0280 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0281 00d9       |    |		Load_Top	At_Offset_1
0282 6819       |h   |		Jump_Zero	0x29c
0283 480a       |H   |		Short_Literal	0xa
0284 e9fe       |    |		Load	0x4,-0x2
0285 e40d       |    |		Load	0x2,0xd
0286 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0287 6814       |h   |		Jump_Zero	0x29c
0288 4800       |H   |		Short_Literal	0x0
0289 480a       |H   |		Short_Literal	0xa
028a e9fe       |    |		Load	0x4,-0x2
028b e40d       |    |		Load	0x2,0xd
028c 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
028d 6807       |h   |		Jump_Zero	0x295
028e 0092 0826  |   &|		Action	Push_String_Extended,0x826					; "Reversed => True"
0290 8604       |    |		Call	0x3,0x4
0291 00d9       |    |		Load_Top	At_Offset_1
0292 0227       | '  |		Execute	Access,All_Reference
0293 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0294 780d       |x   |		Jump	0x2a2
0295 0092 0827  |   '|		Action	Push_String_Extended,0x827					; "Reversed => False"
0297 8604       |    |		Call	0x3,0x4
0298 00d9       |    |		Load_Top	At_Offset_1
0299 0227       | '  |		Execute	Access,All_Reference
029a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
029b 7806       |x   |		Jump	0x2a2
029c 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " "
029e 8604       |    |		Call	0x3,0x4
029f 00d9       |    |		Load_Top	At_Offset_1
02a0 0227       | '  |		Execute	Access,All_Reference
02a1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02a2 e409       |    |		Load	0x2,0x9
02a3 4800       |H   |		Short_Literal	0x0
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 e9ff       |    |		Load	0x4,-0x1
02a6 e408       |    |		Load	0x2,0x8
02a7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02a8 c409       |    |		Store	0x2,0x9
02a9 e405       |    |		Load	0x2,0x5
02aa 7003       |p   |		Jump_Nonzero	0x2ae
02ab e9ff       |    |		Load	0x4,-0x1
02ac 8604       |    |		Call	0x3,0x4
02ad a405       |    |		Store_Unchecked	0x2,0x5
02ae 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02af 0000       |    |		.XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 02be       |    |		.CONST	0x02be								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 01db       |    |		Execute	Vector,Length
02b5 7002       |p   |		Jump_Nonzero	0x2b8
02b6 4801       |H   |		Short_Literal	0x1
02b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b8 00da       |    |		Load_Top	At_Offset_2
02b9 e013       |    |		Load	0x0,0x13
02ba 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02bb e403       |    |		Load	0x2,0x3
02bc 01df       |    |		Execute	Vector,Equal
02bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02be			TRAP_02b0:
02be e013       |    |		Load	0x0,0x13
02bf 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02c0 010f       |    |		Execute	Exception,Equal
02c1 6808       |h   |		Jump_Zero	0x2ca
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 0092 0829  |   )|		Action	Push_String_Extended,0x829					; " is not defined on the server"
02c5 01cc       |    |		Execute	Vector,Catenate
02c6 e00e       |    |		Load	0x0,0xe
02c7 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02c8 e014       |    |		Load	0x0,0x14
02c9 0257       | W  |		Execute	Discrete,Raise
02ca 0100       |    |		Execute	Exception,Raise
02cb 0000 0000  |    |		.BLANK	0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 4802       |H   |		Short_Literal	0x2
02d4 00db       |    |		Load_Top	At_Offset_3
02d5 e40d       |    |		Load	0x2,0xd
02d6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02d7 4803       |H   |		Short_Literal	0x3
02d8 e9ff       |    |		Load	0x4,-0x1
02d9 e40d       |    |		Load	0x2,0xd
02da 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02db 0279       | y  |		Execute	Discrete,And
02dc 6802       |h   |		Jump_Zero	0x2df
02dd 4801       |H   |		Short_Literal	0x1
02de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02df 4804       |H   |		Short_Literal	0x4
02e0 00db       |    |		Load_Top	At_Offset_3
02e1 e40d       |    |		Load	0x2,0xd
02e2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02e3 4803       |H   |		Short_Literal	0x3
02e4 e9ff       |    |		Load	0x4,-0x1
02e5 e40d       |    |		Load	0x2,0xd
02e6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02e7 0279       | y  |		Execute	Discrete,And
02e8 6802       |h   |		Jump_Zero	0x2eb
02e9 4802       |H   |		Short_Literal	0x2
02ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02eb 4805       |H   |		Short_Literal	0x5
02ec 00db       |    |		Load_Top	At_Offset_3
02ed e40d       |    |		Load	0x2,0xd
02ee 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02ef 6802       |h   |		Jump_Zero	0x2f2
02f0 4803       |H   |		Short_Literal	0x3
02f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f2 4806       |H   |		Short_Literal	0x6
02f3 00db       |    |		Load_Top	At_Offset_3
02f4 e40d       |    |		Load	0x2,0xd
02f5 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02f6 4807       |H   |		Short_Literal	0x7
02f7 e9ff       |    |		Load	0x4,-0x1
02f8 e40d       |    |		Load	0x2,0xd
02f9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02fa 0279       | y  |		Execute	Discrete,And
02fb 6802       |h   |		Jump_Zero	0x2fe
02fc 4804       |H   |		Short_Literal	0x4
02fd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02fe 4800       |H   |		Short_Literal	0x0
02ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0304       |    |		.CONST	0x0304								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0002       |    |		.CONST	0x0002								; Number of locals
0303			INIT_0300:
0303 00e1       |    |		Load_Encached	Boolean_Cache
0304			BODY_0300:
0304 4809       |H   |		Short_Literal	0x9
0305 e9ff       |    |		Load	0x4,-0x1
0306 e40d       |    |		Load	0x2,0xd
0307 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0308 6810       |h   |		Jump_Zero	0x319
0309 4800       |H   |		Short_Literal	0x0
030a 4809       |H   |		Short_Literal	0x9
030b e9ff       |    |		Load	0x4,-0x1
030c e40d       |    |		Load	0x2,0xd
030d 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
030e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
030f 00d8       |    |		Load_Top	At_Offset_0
0310 6808       |h   |		Jump_Zero	0x319
0311 e9fe       |    |		Load	0x4,-0x2
0312 6803       |h   |		Jump_Zero	0x316
0313 0092 082a  |   *|		Action	Push_String_Extended,0x82a					; ", Laser_Comm"
0315 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0316 0092 082b  |   +|		Action	Push_String_Extended,0x82b					; "Laser_Comm"
0318 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0319 00ea       |    |		Load_Encached	Null_String_Cache
031a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
031b 0000 0000  |    |		.BLANK	0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 032b       | +  |		.CONST	0x032b								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0002       |    |		.CONST	0x0002								; Number of locals
0323			INIT_0320:
0323 4800       |H   |		Short_Literal	0x0
0324 4801       |H   |		Short_Literal	0x1
0325 4802       |H   |		Short_Literal	0x2
0326 e9ff       |    |		Load	0x4,-0x1
0327 e410       |    |		Load	0x2,0x10
0328 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0329 e40f       |    |		Load	0x2,0xf
032a 03f1       |    |		Declare_Variable	Discrete,With_Value
032b			BODY_0320:
032b 00d8       |    |		Load_Top	At_Offset_0
032c 6806       |h   |		Jump_Zero	0x333
032d 00ea       |    |		Load_Encached	Null_String_Cache
032e 4802       |H   |		Short_Literal	0x2
032f e9ff       |    |		Load	0x4,-0x1
0330 e40d       |    |		Load	0x2,0xd
0331 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0332 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0333 00ea       |    |		Load_Encached	Null_String_Cache
0334 4802       |H   |		Short_Literal	0x2
0335 e9ff       |    |		Load	0x4,-0x1
0336 e40d       |    |		Load	0x2,0xd
0337 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0338 0092 082c  |   ,|		Action	Push_String_Extended,0x82c					; " is not a proper protocol"
033a 01cc       |    |		Execute	Vector,Catenate
033b e00e       |    |		Load	0x0,0xe
033c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
033d e014       |    |		Load	0x0,0x14
033e 0257       | W  |		Execute	Discrete,Raise
033f 0000       |    |		.XXX[0x1]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0363       | c  |		.CONST	0x0363								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0006       |    |		.CONST	0x0006								; Number of locals
0343			INIT_0340:
0343 00ea       |    |		Load_Encached	Null_String_Cache
0344 4806       |H   |		Short_Literal	0x6
0345 e9fe       |    |		Load	0x4,-0x2
0346 e40d       |    |		Load	0x2,0xd
0347 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0348 00ea       |    |		Load_Encached	Null_String_Cache
0349 4807       |H   |		Short_Literal	0x7
034a e9fe       |    |		Load	0x4,-0x2
034b e40d       |    |		Load	0x2,0xd
034c 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
034d 00ea       |    |		Load_Encached	Null_String_Cache
034e 4808       |H   |		Short_Literal	0x8
034f e9fe       |    |		Load	0x4,-0x2
0350 e40d       |    |		Load	0x2,0xd
0351 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0352 e5fb       |    |		Load	0x2,-0x5
0353 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "."
0355 01cc       |    |		Execute	Vector,Catenate
0356 00db       |    |		Load_Top	At_Offset_3
0357 01cc       |    |		Execute	Vector,Catenate
0358 0092 082d  |   -|		Action	Push_String_Extended,0x82d					; "_"
035a 01cc       |    |		Execute	Vector,Catenate
035b e9ff       |    |		Load	0x4,-0x1
035c 01cc       |    |		Execute	Vector,Catenate
035d 0007       |    |		Action	Break_Optional
035e e00e       |    |		Load	0x0,0xe
035f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0360 02c7       |    |		Declare_Variable	Any
0361 00d8       |    |		Load_Top	At_Offset_0
0362 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0363			BODY_0340:
0363 0092 082e  |   .|		Action	Push_String_Extended,0x82e					; "Creating a file "
0365 00da       |    |		Load_Top	At_Offset_2
0366 01cc       |    |		Execute	Vector,Catenate
0367 e00e       |    |		Load	0x0,0xe
0368 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0369 0092 082f  |   /|		Action	Push_String_Extended,0x82f					; "   containing -> "
036b e802       |    |		Load	0x4,0x2
036c 01cc       |    |		Execute	Vector,Catenate
036d 0092 0830  |   0|		Action	Push_String_Extended,0x830					; " nl "
036f 01cc       |    |		Execute	Vector,Catenate
0370 e803       |    |		Load	0x4,0x3
0371 01cc       |    |		Execute	Vector,Catenate
0372 0092 0830  |   0|		Action	Push_String_Extended,0x830					; " nl "
0374 01cc       |    |		Execute	Vector,Catenate
0375 00db       |    |		Load_Top	At_Offset_3
0376 01cc       |    |		Execute	Vector,Catenate
0377 0092 0830  |   0|		Action	Push_String_Extended,0x830					; " nl "
0379 01cc       |    |		Execute	Vector,Catenate
037a e402       |    |		Load	0x2,0x2
037b 01cc       |    |		Execute	Vector,Catenate
037c e00e       |    |		Load	0x0,0xe
037d 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
037e e5fa       |    |		Load	0x2,-0x6
037f 701b       |p   |		Jump_Nonzero	0x39b
0380 00d8       |    |		Load_Top	At_Offset_0
0381 00ea       |    |		Load_Encached	Null_String_Cache
0382 00db       |    |		Load_Top	At_Offset_3
0383 4801       |H   |		Short_Literal	0x1
0384 e00e       |    |		Load	0x0,0xe
0385 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0386 c806       |    |		Store	0x4,0x6
0387 e802       |    |		Load	0x4,0x2
0388 00d9       |    |		Load_Top	At_Offset_1
0389 e00e       |    |		Load	0x0,0xe
038a 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
038b 00db       |    |		Load_Top	At_Offset_3
038c 00d9       |    |		Load_Top	At_Offset_1
038d e00e       |    |		Load	0x0,0xe
038e 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
038f 00da       |    |		Load_Top	At_Offset_2
0390 00d9       |    |		Load_Top	At_Offset_1
0391 e00e       |    |		Load	0x0,0xe
0392 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0393 e402       |    |		Load	0x2,0x2
0394 00d9       |    |		Load_Top	At_Offset_1
0395 e00e       |    |		Load	0x0,0xe
0396 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0397 00d8       |    |		Load_Top	At_Offset_0
0398 e00e       |    |		Load	0x0,0xe
0399 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
039a c806       |    |		Store	0x4,0x6
039b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a5       |    |		.CONST	0x03a5								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0002       |    |		.CONST	0x0002								; Number of locals
03a3			INIT_03a0:
03a3 029f 0643  |   C|		Declare_Subprogram	INIT_0640,For_Call
03a5			BODY_03a0:
03a5 e9fd       |    |		Load	0x4,-0x3
03a6 4604       |F   |		Jump_Case	0x5
03a7 781c       |x   |		Jump	0x3c4								; case 0x0
03a8 7813       |x   |		Jump	0x3bc								; case 0x1
03a9 7812       |x   |		Jump	0x3bc								; case 0x2
03aa 7813       |x   |		Jump	0x3be								; case 0x3
03ab 7800       |x   |		Jump	0x3ac								; case 0x4
03ac e5fb       |    |		Load	0x2,-0x5
03ad 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "."
03af 01cc       |    |		Execute	Vector,Catenate
03b0 00ea       |    |		Load_Encached	Null_String_Cache
03b1 4806       |H   |		Short_Literal	0x6
03b2 e9fe       |    |		Load	0x4,-0x2
03b3 e40d       |    |		Load	0x2,0xd
03b4 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03b5 01cc       |    |		Execute	Vector,Catenate
03b6 0092 082d  |   -|		Action	Push_String_Extended,0x82d					; "_"
03b8 01cc       |    |		Execute	Vector,Catenate
03b9 e9ff       |    |		Load	0x4,-0x1
03ba 01cc       |    |		Execute	Vector,Catenate
03bb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03bc 8802       |    |		Call	0x4,0x2
03bd 7808       |x   |		Jump	0x3c6
03be 00ea       |    |		Load_Encached	Null_String_Cache
03bf 4805       |H   |		Short_Literal	0x5
03c0 e9fe       |    |		Load	0x4,-0x2
03c1 e40d       |    |		Load	0x2,0xd
03c2 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03c3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03c4 e014       |    |		Load	0x0,0x14
03c5 0257       | W  |		Execute	Discrete,Raise
03c6 0831       | 1  |		Execute_Immediate	Raise,0x31
03c7 0000       |    |		.XXX[0x1]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 00db       |    |		Load_Top	At_Offset_3
03cc 4604       |F   |		Jump_Case	0x5
03cd 781e       |x   |		Jump	0x3ec								; case 0x0
03ce 7806       |x   |		Jump	0x3d5								; case 0x1
03cf 780c       |x   |		Jump	0x3dc								; case 0x2
03d0 7818       |x   |		Jump	0x3e9								; case 0x3
03d1 7800       |x   |		Jump	0x3d2								; case 0x4
03d2 0092 0831  |   1|		Action	Push_String_Extended,0x831					; "FTP"
03d4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03d5 00da       |    |		Load_Top	At_Offset_2
03d6 8609       |    |		Call	0x3,0x9
03d7 4801       |H   |		Short_Literal	0x1
03d8 e9ff       |    |		Load	0x4,-0x1
03d9 8608       |    |		Call	0x3,0x8
03da 01cc       |    |		Execute	Vector,Catenate
03db 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03dc 0092 0832  |   2|		Action	Push_String_Extended,0x832					; "Host => "
03de 00ea       |    |		Load_Encached	Null_String_Cache
03df 4804       |H   |		Short_Literal	0x4
03e0 e9ff       |    |		Load	0x4,-0x1
03e1 e40d       |    |		Load	0x2,0xd
03e2 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
03e3 01cc       |    |		Execute	Vector,Catenate
03e4 4801       |H   |		Short_Literal	0x1
03e5 e9ff       |    |		Load	0x4,-0x1
03e6 8608       |    |		Call	0x3,0x8
03e7 01cc       |    |		Execute	Vector,Catenate
03e8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e9 0092 0833  |   3|		Action	Push_String_Extended,0x833					; "Xon_Xoff"
03eb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03ec e014       |    |		Load	0x0,0x14
03ed 0257       | W  |		Execute	Discrete,Raise
03ee 0000 0000  |    |		.XXX[0x2]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03fe       |    |		.CONST	0x03fe								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0005       |    |		.CONST	0x0005								; Number of locals
03f3			INIT_03f0:
03f3 e9fd       |    |		Load	0x4,-0x3
03f4 e9fe       |    |		Load	0x4,-0x2
03f5 e9ff       |    |		Load	0x4,-0x1
03f6 860b       |    |		Call	0x3,0xb
03f7 e9fd       |    |		Load	0x4,-0x3
03f8 e9fe       |    |		Load	0x4,-0x2
03f9 860c       |    |		Call	0x3,0xc
03fa 029f 0663  |   c|		Declare_Subprogram	INIT_0660,For_Call
03fc 029f 068b  |    |		Declare_Subprogram	INIT_0688,For_Call
03fe			BODY_03f0:
03fe 0092 0834  |   4|		Action	Push_String_Extended,0x834					; "Setting up "
0400 e9ff       |    |		Load	0x4,-0x1
0401 01cc       |    |		Execute	Vector,Catenate
0402 e00e       |    |		Load	0x0,0xe
0403 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0404 0092 0835  |   5|		Action	Push_String_Extended,0x835					; "  Class   -> "
0406 e9ff       |    |		Load	0x4,-0x1
0407 01cc       |    |		Execute	Vector,Catenate
0408 e00e       |    |		Load	0x0,0xe
0409 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
040a 0092 0836  |   6|		Action	Push_String_Extended,0x836					; "  Device  -> "
040c e802       |    |		Load	0x4,0x2
040d 01cc       |    |		Execute	Vector,Catenate
040e e00e       |    |		Load	0x0,0xe
040f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0410 0092 0837  |   7|		Action	Push_String_Extended,0x837					; "  Options -> "
0412 00db       |    |		Load_Top	At_Offset_3
0413 01cc       |    |		Execute	Vector,Catenate
0414 e00e       |    |		Load	0x0,0xe
0415 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0416 e5fa       |    |		Load	0x2,-0x6
0417 7050       |pP  |		Jump_Nonzero	0x468
0418 e00e       |    |		Load	0x0,0xe
0419 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
041a e00e       |    |		Load	0x0,0xe
041b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
041c 0092 081b  |    |		Action	Push_String_Extended,0x81b					; "Holding"
041e e00c       |    |		Load	0x0,0xc
041f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0420 00db       |    |		Load_Top	At_Offset_3
0421 e00c       |    |		Load	0x0,0xc
0422 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0423 680f       |h   |		Jump_Zero	0x433
0424 0092 0838  |   8|		Action	Push_String_Extended,0x838					; "---"
0426 e00e       |    |		Load	0x0,0xe
0427 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0428 0092 0839  |   9|		Action	Push_String_Extended,0x839					; "Disabling device: "
042a e802       |    |		Load	0x4,0x2
042b 01cc       |    |		Execute	Vector,Catenate
042c e00e       |    |		Load	0x0,0xe
042d 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
042e 4800       |H   |		Short_Literal	0x0
042f e802       |    |		Load	0x4,0x2
0430 e00c       |    |		Load	0x0,0xc
0431 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0432 8804       |    |		Call	0x4,0x4
0433 6068       |`h  |		Indirect_Literal	Discrete,0x49c,{0x00000000, 0x00050000}
0434 00ba       |    |		Action	Initiate_Delay
0435 e9ff       |    |		Load	0x4,-0x1
0436 e00c       |    |		Load	0x0,0xc
0437 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0438 6806       |h   |		Jump_Zero	0x43f
0439 0092 081b  |    |		Action	Push_String_Extended,0x81b					; "Holding"
043b e9ff       |    |		Load	0x4,-0x1
043c e00c       |    |		Load	0x0,0xc
043d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
043e 8805       |    |		Call	0x4,0x5
043f 00db       |    |		Load_Top	At_Offset_3
0440 e00c       |    |		Load	0x0,0xc
0441 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0442 680e       |h   |		Jump_Zero	0x451
0443 0092 0838  |   8|		Action	Push_String_Extended,0x838					; "---"
0445 e00e       |    |		Load	0x0,0xe
0446 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0447 0092 083a  |   :|		Action	Push_String_Extended,0x83a					; "Deleteing existing device: "
0449 e802       |    |		Load	0x4,0x2
044a 01cc       |    |		Execute	Vector,Catenate
044b e00e       |    |		Load	0x0,0xe
044c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
044d 4800       |H   |		Short_Literal	0x0
044e e802       |    |		Load	0x4,0x2
044f e00c       |    |		Load	0x0,0xc
0450 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0451 0092 0838  |   8|		Action	Push_String_Extended,0x838					; "---"
0453 e00e       |    |		Load	0x0,0xe
0454 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0455 0092 083b  |   ;|		Action	Push_String_Extended,0x83b					; "Creating class: "
0457 e9ff       |    |		Load	0x4,-0x1
0458 01cc       |    |		Execute	Vector,Catenate
0459 e00e       |    |		Load	0x0,0xe
045a 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
045b e9ff       |    |		Load	0x4,-0x1
045c e00c       |    |		Load	0x0,0xc
045d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
045e 0092 0838  |   8|		Action	Push_String_Extended,0x838					; "---"
0460 e00e       |    |		Load	0x0,0xe
0461 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0462 0092 083c  |   <|		Action	Push_String_Extended,0x83c					; "Creating device: "
0464 e802       |    |		Load	0x4,0x2
0465 01cc       |    |		Execute	Vector,Catenate
0466 e00e       |    |		Load	0x0,0xe
0467 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0468 e9fd       |    |		Load	0x4,-0x3
0469 0f04       |    |		Execute_Immediate	Equal,0x4
046a 6803       |h   |		Jump_Zero	0x46e
046b e9fe       |    |		Load	0x4,-0x2
046c e9ff       |    |		Load	0x4,-0x1
046d 860a       |    |		Call	0x3,0xa
046e e5fa       |    |		Load	0x2,-0x6
046f 702b       |p+  |		Jump_Nonzero	0x49b
0470 00da       |    |		Load_Top	At_Offset_2
0471 e802       |    |		Load	0x4,0x2
0472 e00c       |    |		Load	0x0,0xc
0473 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0474 0092 0838  |   8|		Action	Push_String_Extended,0x838					; "---"
0476 e00e       |    |		Load	0x0,0xe
0477 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0478 0092 083d  |   =|		Action	Push_String_Extended,0x83d					; "Registering "
047a e802       |    |		Load	0x4,0x2
047b 01cc       |    |		Execute	Vector,Catenate
047c 0092 083e  |   >|		Action	Push_String_Extended,0x83e					; " with "
047e 01cc       |    |		Execute	Vector,Catenate
047f e9ff       |    |		Load	0x4,-0x1
0480 01cc       |    |		Execute	Vector,Catenate
0481 e00e       |    |		Load	0x0,0xe
0482 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0483 e9ff       |    |		Load	0x4,-0x1
0484 e802       |    |		Load	0x4,0x2
0485 e00c       |    |		Load	0x0,0xc
0486 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0487 0092 0838  |   8|		Action	Push_String_Extended,0x838					; "---"
0489 e00e       |    |		Load	0x0,0xe
048a 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
048b 0092 083f  |   ?|		Action	Push_String_Extended,0x83f					; "Enabling device.  See error log if there are errors for more information"
048d e00e       |    |		Load	0x0,0xe
048e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
048f 00db       |    |		Load_Top	At_Offset_3
0490 e00c       |    |		Load	0x0,0xc
0491 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0492 0092 0838  |   8|		Action	Push_String_Extended,0x838					; "---"
0494 e00e       |    |		Load	0x0,0xe
0495 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0496 e9ff       |    |		Load	0x4,-0x1
0497 0092 081b  |    |		Action	Push_String_Extended,0x81b					; "Holding"
0499 e00c       |    |		Load	0x0,0xc
049a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
049b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
049c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00050000}
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a7       |    |		.CONST	0x04a7								; Address of begin
04a1 04c4       |    |		.CONST	0x04c4								; Address of exception handler
04a2 0003       |    |		.CONST	0x0003								; Number of locals
04a3			INIT_04a0:
04a3 e40d       |    |		Load	0x2,0xd
04a4 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
04a5 029f 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Call
04a7			BODY_04a0:
04a7 e9fe       |    |		Load	0x4,-0x2
04a8 01db       |    |		Execute	Vector,Length
04a9 6819       |h   |		Jump_Zero	0x4c3
04aa e9fe       |    |		Load	0x4,-0x2
04ab e40d       |    |		Load	0x2,0xd
04ac 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
04ad 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
04ae 00d9       |    |		Load_Top	At_Offset_1
04af e40d       |    |		Load	0x2,0xd
04b0 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04b1 6802       |h   |		Jump_Zero	0x4b4
04b2 8803       |    |		Call	0x4,0x3
04b3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04b4 0092 0840  |   @|		Action	Push_String_Extended,0x840					; "Illegal format: "
04b6 e9fe       |    |		Load	0x4,-0x2
04b7 01cc       |    |		Execute	Vector,Catenate
04b8 e00e       |    |		Load	0x0,0xe
04b9 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
04ba 0092 0841  |   A|		Action	Push_String_Extended,0x841					; "     "
04bc 4800       |H   |		Short_Literal	0x0
04bd 00db       |    |		Load_Top	At_Offset_3
04be e40d       |    |		Load	0x2,0xd
04bf 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
04c0 01cc       |    |		Execute	Vector,Catenate
04c1 e00e       |    |		Load	0x0,0xe
04c2 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
04c3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c4			TRAP_04a0:
04c4 e014       |    |		Load	0x0,0x14
04c5 010f       |    |		Execute	Exception,Equal
04c6 6807       |h   |		Jump_Zero	0x4ce
04c7 0092 0842  |   B|		Action	Push_String_Extended,0x842					; "Illegal item in line: "
04c9 e9fe       |    |		Load	0x4,-0x2
04ca 01cc       |    |		Execute	Vector,Catenate
04cb e00e       |    |		Load	0x0,0xe
04cc 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
04cd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04ce 0100       |    |		Execute	Exception,Raise
04cf 0000       |    |		.XXX[0x1]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d7       |    |		.CONST	0x04d7								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0003       |    |		.CONST	0x0003								; Number of locals
04d3			INIT_04d0:
04d3 e40b       |    |		Load	0x2,0xb
04d4 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
04d5 029f 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Call
04d7			BODY_04d0:
04d7 e9ff       |    |		Load	0x4,-0x1
04d8 01db       |    |		Execute	Vector,Length
04d9 6846       |hF  |		Jump_Zero	0x520
04da e9ff       |    |		Load	0x4,-0x1
04db 01db       |    |		Execute	Vector,Length
04dc 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
04dd 6811       |h   |		Jump_Zero	0x4ef
04de e9ff       |    |		Load	0x4,-0x1
04df 01dd       |    |		Execute	Vector,First
04e0 e9ff       |    |		Load	0x4,-0x1
04e1 01dd       |    |		Execute	Vector,First
04e2 0a01       |    |		Execute_Immediate	Plus,0x1
04e3 00d8       |    |		Load_Top	At_Offset_0
04e4 00e2       |    |		Load_Encached	Integer_Cache
04e5 0260       | `  |		Execute	Discrete,In_Type
04e6 7001       |p   |		Jump_Nonzero	0x4e8
04e7 0801       |    |		Execute_Immediate	Raise,0x1
04e8 e9ff       |    |		Load	0x4,-0x1
04e9 01cf       |    |		Execute	Vector,Slice_Read
04ea 0092 0843  |   C|		Action	Push_String_Extended,0x843					; "--"
04ec 01df       |    |		Execute	Vector,Equal
04ed 6801       |h   |		Jump_Zero	0x4ef
04ee 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04ef e9ff       |    |		Load	0x4,-0x1
04f0 8603       |    |		Call	0x3,0x3
04f1 e9ff       |    |		Load	0x4,-0x1
04f2 e40b       |    |		Load	0x2,0xb
04f3 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
04f4 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
04f5 00d9       |    |		Load_Top	At_Offset_1
04f6 e40b       |    |		Load	0x2,0xb
04f7 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04f8 6818       |h   |		Jump_Zero	0x511
04f9 4800       |H   |		Short_Literal	0x0
04fa 00da       |    |		Load_Top	At_Offset_2
04fb e40b       |    |		Load	0x2,0xb
04fc 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
04fd 6802       |h   |		Jump_Zero	0x500
04fe 8803       |    |		Call	0x4,0x3
04ff 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0500 480a       |H   |		Short_Literal	0xa
0501 0092 0842  |   B|		Action	Push_String_Extended,0x842					; "Illegal item in line: "
0503 e9ff       |    |		Load	0x4,-0x1
0504 01cc       |    |		Execute	Vector,Catenate
0505 01cb       |    |		Execute	Vector,Append
0506 0092 0841  |   A|		Action	Push_String_Extended,0x841					; "     "
0508 01cc       |    |		Execute	Vector,Catenate
0509 4800       |H   |		Short_Literal	0x0
050a 00db       |    |		Load_Top	At_Offset_3
050b e40b       |    |		Load	0x2,0xb
050c 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
050d 01cc       |    |		Execute	Vector,Catenate
050e e00e       |    |		Load	0x0,0xe
050f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0510 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0511 0092 0840  |   @|		Action	Push_String_Extended,0x840					; "Illegal format: "
0513 e9ff       |    |		Load	0x4,-0x1
0514 01cc       |    |		Execute	Vector,Catenate
0515 e00e       |    |		Load	0x0,0xe
0516 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0517 0092 0841  |   A|		Action	Push_String_Extended,0x841					; "     "
0519 4800       |H   |		Short_Literal	0x0
051a 00db       |    |		Load_Top	At_Offset_3
051b e40b       |    |		Load	0x2,0xb
051c 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
051d 01cc       |    |		Execute	Vector,Catenate
051e e00e       |    |		Load	0x0,0xe
051f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0520 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0521 0000 0000  |    |		.BLANK	0000[0x7]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 053a       | :  |		.CONST	0x053a								; Address of begin
0529 0546       | F  |		.CONST	0x0546								; Address of exception handler
052a 0007       |    |		.CONST	0x0007								; Number of locals
052b			INIT_0528:
052b 4801       |H   |		Short_Literal	0x1
052c 4be8       |K   |		Short_Literal	0x3e8
052d 00e9       |    |		Load_Encached	String_Cache
052e 035b       | [  |		Declare_Type	Array,Constrained
052f 0337       | 7  |		Declare_Variable	Array
0530 00e3       |    |		Load_Encached	Natural_Cache
0531 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0532 00e3       |    |		Load_Encached	Natural_Cache
0533 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0534 00e3       |    |		Load_Encached	Natural_Cache
0535 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0536 029f 06fb  |    |		Declare_Subprogram	INIT_06f8,For_Call
0538 029f 071b  |    |		Declare_Subprogram	INIT_0718,For_Call
053a			BODY_0528:
053a 00cf       |    |		Action	Mark_Auxiliary
053b 8807       |    |		Call	0x4,0x7
053c 00c9       |    |		Action	Pop_Auxiliary_Loop
053d 7ffd       |    |		Jump	0x53b
053e 00ce       |    |		Action	Pop_Auxiliary
053f 4801       |H   |		Short_Literal	0x1
0540 e803       |    |		Load	0x4,0x3
0541 e802       |    |		Load	0x4,0x2
0542 01cf       |    |		Execute	Vector,Slice_Read
0543 00e9       |    |		Load_Encached	String_Cache
0544 01c6       |    |		Execute	Vector,Convert_To_Formal
0545 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0546			TRAP_0528:
0546 00d8       |    |		Load_Top	At_Offset_0
0547 0107       |    |		Execute	Exception,Get_Name
0548 4950       |IP  |		Short_Literal	0x150
0549 495f       |I_  |		Short_Literal	0x15f
054a 0262       | b  |		Execute	Discrete,In_Range
054b 680f       |h   |		Jump_Zero	0x55b
054c e804       |    |		Load	0x4,0x4
054d e805       |    |		Load	0x4,0x5
054e 027e       | ~  |		Execute	Discrete,Not_Equal
054f 6809       |h   |		Jump_Zero	0x559
0550 0092 0844  |   D|		Action	Push_String_Extended,0x844					; "The parentheses in the file "
0552 e7ff       |    |		Load	0x3,-0x1
0553 01cc       |    |		Execute	Vector,Catenate
0554 0092 0845  |   E|		Action	Push_String_Extended,0x845					; " do not match"
0556 01cc       |    |		Execute	Vector,Catenate
0557 e00e       |    |		Load	0x0,0xe
0558 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0559 00d8       |    |		Load_Top	At_Offset_0
055a 0101       |    |		Execute	Exception,Reraise
055b 0100       |    |		Execute	Exception,Raise
055c 0000 0000  |    |		.BLANK	0000[0x4]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0569       | i  |		.CONST	0x0569								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0003       |    |		.CONST	0x0003								; Number of locals
0563			INIT_0560:
0563 00da       |    |		Load_Top	At_Offset_2
0564 01dd       |    |		Execute	Vector,First
0565 00e2       |    |		Load_Encached	Integer_Cache
0566 03f1       |    |		Declare_Variable	Discrete,With_Value
0567 00e2       |    |		Load_Encached	Integer_Cache
0568 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0569			BODY_0560:
0569 00cf       |    |		Action	Mark_Auxiliary
056a e9ff       |    |		Load	0x4,-0x1
056b 01d9       |    |		Execute	Vector,Reverse_Bounds
056c 0263       | c  |		Execute	Discrete,Above_Bound
056d 701f       |p   |		Jump_Nonzero	0x58d
056e 00d8       |    |		Load_Top	At_Offset_0
056f e9ff       |    |		Load	0x4,-0x1
0570 01d7       |    |		Execute	Vector,Field_Read
0571 0f20       |    |		Execute_Immediate	Equal,0x20
0572 6818       |h   |		Jump_Zero	0x58b
0573 e802       |    |		Load	0x4,0x2
0574 00d9       |    |		Load_Top	At_Offset_1
0575 027f       |    |		Execute	Discrete,Equal
0576 6804       |h   |		Jump_Zero	0x57b
0577 00d8       |    |		Load_Top	At_Offset_0
0578 0a01       |    |		Execute_Immediate	Plus,0x1
0579 c802       |    |		Store	0x4,0x2
057a 7810       |x   |		Jump	0x58b
057b 00db       |    |		Load_Top	At_Offset_3
057c 0a01       |    |		Execute_Immediate	Plus,0x1
057d c803       |    |		Store	0x4,0x3
057e 00db       |    |		Load_Top	At_Offset_3
057f e9fe       |    |		Load	0x4,-0x2
0580 027f       |    |		Execute	Discrete,Equal
0581 6806       |h   |		Jump_Zero	0x588
0582 e802       |    |		Load	0x4,0x2
0583 00d9       |    |		Load_Top	At_Offset_1
0584 0aff       |    |		Execute_Immediate	Plus,-0x1
0585 e9ff       |    |		Load	0x4,-0x1
0586 01cf       |    |		Execute	Vector,Slice_Read
0587 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0588 00d8       |    |		Load_Top	At_Offset_0
0589 0a01       |    |		Execute_Immediate	Plus,0x1
058a c802       |    |		Store	0x4,0x2
058b 00c8       |    |		Action	Pop_Auxiliary_Range
058c 3fe1       |?   |		Loop_Increasing	0x56e
058d 00ce       |    |		Action	Pop_Auxiliary
058e 00d8       |    |		Load_Top	At_Offset_0
058f 0a01       |    |		Execute_Immediate	Plus,0x1
0590 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0591 00d8       |    |		Load_Top	At_Offset_0
0592 e9fe       |    |		Load	0x4,-0x2
0593 027f       |    |		Execute	Discrete,Equal
0594 6806       |h   |		Jump_Zero	0x59b
0595 00d9       |    |		Load_Top	At_Offset_1
0596 e9ff       |    |		Load	0x4,-0x1
0597 01dc       |    |		Execute	Vector,Last
0598 e9ff       |    |		Load	0x4,-0x1
0599 01cf       |    |		Execute	Vector,Slice_Read
059a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
059b 00ea       |    |		Load_Encached	Null_String_Cache
059c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
059d 0000 0000  |    |		.XXX[0x3]
059f 0000       |    |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05ab       |    |		.CONST	0x05ab								; Address of begin
05a1 05c5       |    |		.CONST	0x05c5								; Address of exception handler
05a2 0004       |    |		.CONST	0x0004								; Number of locals
05a3			INIT_05a0:
05a3 4801       |H   |		Short_Literal	0x1
05a4 00db       |    |		Load_Top	At_Offset_3
05a5 8604       |    |		Call	0x3,0x4
05a6 4802       |H   |		Short_Literal	0x2
05a7 e9ff       |    |		Load	0x4,-0x1
05a8 8604       |    |		Call	0x3,0x4
05a9 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
05ab			BODY_05a0:
05ab e9ff       |    |		Load	0x4,-0x1
05ac 01db       |    |		Execute	Vector,Length
05ad 6816       |h   |		Jump_Zero	0x5c4
05ae e9ff       |    |		Load	0x4,-0x1
05af 01db       |    |		Execute	Vector,Length
05b0 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
05b1 6811       |h   |		Jump_Zero	0x5c3
05b2 e9ff       |    |		Load	0x4,-0x1
05b3 01dd       |    |		Execute	Vector,First
05b4 e9ff       |    |		Load	0x4,-0x1
05b5 01dd       |    |		Execute	Vector,First
05b6 0a01       |    |		Execute_Immediate	Plus,0x1
05b7 00d8       |    |		Load_Top	At_Offset_0
05b8 00e2       |    |		Load_Encached	Integer_Cache
05b9 0260       | `  |		Execute	Discrete,In_Type
05ba 7001       |p   |		Jump_Nonzero	0x5bc
05bb 0801       |    |		Execute_Immediate	Raise,0x1
05bc e9ff       |    |		Load	0x4,-0x1
05bd 01cf       |    |		Execute	Vector,Slice_Read
05be 0092 0843  |   C|		Action	Push_String_Extended,0x843					; "--"
05c0 01df       |    |		Execute	Vector,Equal
05c1 6801       |h   |		Jump_Zero	0x5c3
05c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05c3 8804       |    |		Call	0x4,0x4
05c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05c5			TRAP_05a0:
05c5 e408       |    |		Load	0x2,0x8
05c6 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
05c7 010f       |    |		Execute	Exception,Equal
05c8 680d       |h   |		Jump_Zero	0x5d6
05c9 00da       |    |		Load_Top	At_Offset_2
05ca 0092 0846  |   F|		Action	Push_String_Extended,0x846					; " is not a defined printer"
05cc 01cc       |    |		Execute	Vector,Catenate
05cd e00e       |    |		Load	0x0,0xe
05ce 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
05cf 0092 0847  |   G|		Action	Push_String_Extended,0x847					; "   In line: "
05d1 e9ff       |    |		Load	0x4,-0x1
05d2 01cc       |    |		Execute	Vector,Catenate
05d3 e00e       |    |		Load	0x0,0xe
05d4 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
05d5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05d6 0100       |    |		Execute	Exception,Raise
05d7 0000       |    |		.XXX[0x1]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05e0       |    |		.CONST	0x05e0								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0003       |    |		.CONST	0x0003								; Number of locals
05db			INIT_05d8:
05db e408       |    |		Load	0x2,0x8
05dc 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05dd 0322       | "  |		Declare_Variable	Record
05de 029f 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Call
05e0			BODY_05d8:
05e0 00d9       |    |		Load_Top	At_Offset_1
05e1 e409       |    |		Load	0x2,0x9
05e2 e408       |    |		Load	0x2,0x8
05e3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
05e4 00d1       |    |		Pop_Control	Pop_Count_1
05e5 00cf       |    |		Action	Mark_Auxiliary
05e6 7806       |x   |		Jump	0x5ed
05e7 8803       |    |		Call	0x4,0x3
05e8 00da       |    |		Load_Top	At_Offset_2
05e9 e408       |    |		Load	0x2,0x8
05ea 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05eb 00d1       |    |		Pop_Control	Pop_Count_1
05ec 00c9       |    |		Action	Pop_Auxiliary_Loop
05ed 00da       |    |		Load_Top	At_Offset_2
05ee e408       |    |		Load	0x2,0x8
05ef 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05f0 6ff6       |o   |		Jump_Zero	0x5e7
05f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05f2 0000 0000  |    |		.BLANK	0000[0x6]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fd       |    |		.CONST	0x05fd								; Address of begin
05f9 0618       |    |		.CONST	0x0618								; Address of exception handler
05fa 0002       |    |		.CONST	0x0002								; Number of locals
05fb			INIT_05f8:
05fb 029f 07e3  |    |		Declare_Subprogram	INIT_07e0,For_Call
05fd			BODY_05f8:
05fd e602       |    |		Load	0x3,0x2
05fe 00ea       |    |		Load_Encached	Null_String_Cache
05ff e7ff       |    |		Load	0x3,-0x1
0600 4800       |H   |		Short_Literal	0x0
0601 e00e       |    |		Load	0x0,0xe
0602 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0603 c602       |    |		Store	0x3,0x2
0604 00cf       |    |		Action	Mark_Auxiliary
0605 7808       |x   |		Jump	0x60e
0606 4820       |H   |		Short_Literal	0x20
0607 e602       |    |		Load	0x3,0x2
0608 e00e       |    |		Load	0x0,0xe
0609 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
060a e00f       |    |		Load	0x0,0xf
060b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
060c 8605       |    |		Call	0x3,0x5
060d 00c9       |    |		Action	Pop_Auxiliary_Loop
060e e602       |    |		Load	0x3,0x2
060f e00e       |    |		Load	0x0,0xe
0610 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0611 6ff4       |o   |		Jump_Zero	0x606
0612 00ce       |    |		Action	Pop_Auxiliary
0613 e602       |    |		Load	0x3,0x2
0614 e00e       |    |		Load	0x0,0xe
0615 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0616 c602       |    |		Store	0x3,0x2
0617 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0618			TRAP_05f8:
0618 00d8       |    |		Load_Top	At_Offset_0
0619 0107       |    |		Execute	Exception,Get_Name
061a 4920       |I   |		Short_Literal	0x120
061b 492f       |I/  |		Short_Literal	0x12f
061c 0262       | b  |		Execute	Discrete,In_Range
061d 6802       |h   |		Jump_Zero	0x620
061e 8802       |    |		Call	0x4,0x2
061f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0620 0100       |    |		Execute	Exception,Raise
0621 0000 0000  |    |		.BLANK	0000[0x7]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0634       | 4  |		.CONST	0x0634								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0002       |    |		.CONST	0x0002								; Number of locals
062b			INIT_0628:
062b 4820       |H   |		Short_Literal	0x20
062c e9ff       |    |		Load	0x4,-0x1
062d 01dd       |    |		Execute	Vector,First
062e e802       |    |		Load	0x4,0x2
062f 0aff       |    |		Execute_Immediate	Plus,-0x1
0630 e9ff       |    |		Load	0x4,-0x1
0631 01cf       |    |		Execute	Vector,Slice_Read
0632 e00f       |    |		Load	0x0,0xf
0633 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0634			BODY_0628:
0634 4800       |H   |		Short_Literal	0x0
0635 00ea       |    |		Load_Encached	Null_String_Cache
0636 4800       |H   |		Short_Literal	0x0
0637 00db       |    |		Load_Top	At_Offset_3
0638 4801       |H   |		Short_Literal	0x1
0639 e40b       |    |		Load	0x2,0xb
063a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
063b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
063c 0000 0000  |    |		.BLANK	0000[0x4]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0648       | H  |		.CONST	0x0648								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0002       |    |		.CONST	0x0002								; Number of locals
0643			INIT_0640:
0643 00ea       |    |		Load_Encached	Null_String_Cache
0644 4803       |H   |		Short_Literal	0x3
0645 e9fe       |    |		Load	0x4,-0x2
0646 e40d       |    |		Load	0x2,0xd
0647 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0648			BODY_0640:
0648 4801       |H   |		Short_Literal	0x1
0649 00d9       |    |		Load_Top	At_Offset_1
064a 0092 0848  |   H|		Action	Push_String_Extended,0x848					; "Terminal_"
064c e00f       |    |		Load	0x0,0xf
064d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
064e 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
064f 6803       |h   |		Jump_Zero	0x653
0650 00d8       |    |		Load_Top	At_Offset_0
0651 00cb       |    |		Action	Pop_Block_With_Result
0652 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0653 00d8       |    |		Load_Top	At_Offset_0
0654 0092 0849  |   I|		Action	Push_String_Extended,0x849					; " is not a proper device name"
0656 01cc       |    |		Execute	Vector,Catenate
0657 e00e       |    |		Load	0x0,0xe
0658 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0659 e014       |    |		Load	0x0,0x14
065a 0257       | W  |		Execute	Discrete,Raise
065b 0000 0000  |    |		.BLANK	0000[0x5]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 066c       | l  |		.CONST	0x066c								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0002       |    |		.CONST	0x0002								; Number of locals
0663			INIT_0660:
0663 e015       |    |		Load	0x0,0x15
0664 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0665 02c7       |    |		Declare_Variable	Any
0666 6019       |`   |		Indirect_Literal	Discrete,0x680,{0x00000000, 0x012c0000}
0667 e015       |    |		Load	0x0,0x15
0668 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0669 e015       |    |		Load	0x0,0x15
066a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
066b aa02       |    |		Store_Unchecked	0x5,0x2
066c			BODY_0660:
066c 00cf       |    |		Action	Mark_Auxiliary
066d 7803       |x   |		Jump	0x671
066e 600d       |`   |		Indirect_Literal	Discrete,0x67c,{0x00000000, 0x00028000}
066f 00ba       |    |		Action	Initiate_Delay
0670 00c9       |    |		Action	Pop_Auxiliary_Loop
0671 e802       |    |		Load	0x4,0x2
0672 e00c       |    |		Load	0x0,0xc
0673 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0674 00da       |    |		Load_Top	At_Offset_2
0675 e015       |    |		Load	0x0,0x15
0676 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0677 e015       |    |		Load	0x0,0x15
0678 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0679 0279       | y  |		Execute	Discrete,And
067a 77f3       |w   |		Jump_Nonzero	0x66e
067b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
067c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
0680 0000 0000  |    |		.LITERAL	{0x00000000, 0x012c0000}
0684 0000 0000  |    |		.BLANK	0000[0x4]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 0694       |    |		.CONST	0x0694								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0002       |    |		.CONST	0x0002								; Number of locals
068b			INIT_0688:
068b e015       |    |		Load	0x0,0x15
068c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
068d 02c7       |    |		Declare_Variable	Any
068e 6019       |`   |		Indirect_Literal	Discrete,0x6a8,{0x00000000, 0x00960000}
068f e015       |    |		Load	0x0,0x15
0690 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0691 e015       |    |		Load	0x0,0x15
0692 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0693 aa02       |    |		Store_Unchecked	0x5,0x2
0694			BODY_0688:
0694 00cf       |    |		Action	Mark_Auxiliary
0695 7803       |x   |		Jump	0x699
0696 600d       |`   |		Indirect_Literal	Discrete,0x6a4,{0x00000000, 0x00010000}
0697 00ba       |    |		Action	Initiate_Delay
0698 00c9       |    |		Action	Pop_Auxiliary_Loop
0699 e9ff       |    |		Load	0x4,-0x1
069a e00c       |    |		Load	0x0,0xc
069b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
069c 00da       |    |		Load_Top	At_Offset_2
069d e015       |    |		Load	0x0,0x15
069e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
069f e015       |    |		Load	0x0,0x15
06a0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06a1 0279       | y  |		Execute	Discrete,And
06a2 77f3       |w   |		Jump_Nonzero	0x696
06a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00010000}
06a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00960000}
06ac 0000 0000  |    |		.BLANK	0000[0x4]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06bc       |    |		.CONST	0x06bc								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0003       |    |		.CONST	0x0003								; Number of locals
06b3			INIT_06b0:
06b3 00ea       |    |		Load_Encached	Null_String_Cache
06b4 4801       |H   |		Short_Literal	0x1
06b5 e802       |    |		Load	0x4,0x2
06b6 e40d       |    |		Load	0x2,0xd
06b7 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
06b8 e802       |    |		Load	0x4,0x2
06b9 8607       |    |		Call	0x3,0x7
06ba e40e       |    |		Load	0x2,0xe
06bb 03f1       |    |		Declare_Variable	Discrete,With_Value
06bc			BODY_06b0:
06bc 00d9       |    |		Load_Top	At_Offset_1
06bd 8606       |    |		Call	0x3,0x6
06be 6812       |h   |		Jump_Zero	0x6d1
06bf 00d8       |    |		Load_Top	At_Offset_0
06c0 680a       |h   |		Jump_Zero	0x6cb
06c1 00d8       |    |		Load_Top	At_Offset_0
06c2 e802       |    |		Load	0x4,0x2
06c3 e9ff       |    |		Load	0x4,-0x1
06c4 860d       |    |		Call	0x3,0xd
06c5 00ea       |    |		Load_Encached	Null_String_Cache
06c6 00d9       |    |		Load_Top	At_Offset_1
06c7 e802       |    |		Load	0x4,0x2
06c8 e9ff       |    |		Load	0x4,-0x1
06c9 8605       |    |		Call	0x3,0x5
06ca 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06cb 0092 084a  |   J|		Action	Push_String_Extended,0x84a					; "The current options do not define a device"
06cd e00e       |    |		Load	0x0,0xe
06ce 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
06cf e014       |    |		Load	0x0,0x14
06d0 0257       | W  |		Execute	Discrete,Raise
06d1 e9ff       |    |		Load	0x4,-0x1
06d2 0092 084b  |   K|		Action	Push_String_Extended,0x84b					; " is located on "
06d4 01cc       |    |		Execute	Vector,Catenate
06d5 00da       |    |		Load_Top	At_Offset_2
06d6 01cc       |    |		Execute	Vector,Catenate
06d7 e00e       |    |		Load	0x0,0xe
06d8 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
06d9 00d9       |    |		Load_Top	At_Offset_1
06da 00d9       |    |		Load_Top	At_Offset_1
06db e802       |    |		Load	0x4,0x2
06dc e9ff       |    |		Load	0x4,-0x1
06dd 8605       |    |		Call	0x3,0x5
06de 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06df 0000       |    |		.XXX[0x1]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e7       |    |		.CONST	0x06e7								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0002       |    |		.CONST	0x0002								; Number of locals
06e3			INIT_06e0:
06e3 4800       |H   |		Short_Literal	0x0
06e4 e802       |    |		Load	0x4,0x2
06e5 e40b       |    |		Load	0x2,0xb
06e6 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
06e7			BODY_06e0:
06e7 4820       |H   |		Short_Literal	0x20
06e8 00ea       |    |		Load_Encached	Null_String_Cache
06e9 4800       |H   |		Short_Literal	0x0
06ea e802       |    |		Load	0x4,0x2
06eb e40b       |    |		Load	0x2,0xb
06ec 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
06ed e00f       |    |		Load	0x0,0xf
06ee 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06ef 00d9       |    |		Load_Top	At_Offset_1
06f0 860e       |    |		Call	0x3,0xe
06f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06f2 0000 0000  |    |		.BLANK	0000[0x6]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb       |    |		.CONST	0x06fb								; Address of begin
06f9 0004       |    |		.CONST	0x0004								; Address of exception handler
06fa 0001       |    |		.CONST	0x0001								; Number of locals
06fb			BODY_06f8:
06fb			INIT_06f8:
06fb 00cf       |    |		Action	Mark_Auxiliary
06fc 00db       |    |		Load_Top	At_Offset_3
06fd 01dc       |    |		Execute	Vector,Last
06fe ebff       |    |		Load	0x5,-0x1
06ff 01dd       |    |		Execute	Vector,First
0700 0263       | c  |		Execute	Discrete,Above_Bound
0701 7012       |p   |		Jump_Nonzero	0x714
0702 00d8       |    |		Load_Top	At_Offset_0
0703 ebff       |    |		Load	0x5,-0x1
0704 01d7       |    |		Execute	Vector,Field_Read
0705 0f28       | (  |		Execute_Immediate	Equal,0x28
0706 6803       |h   |		Jump_Zero	0x70a
0707 ebfe       |    |		Load	0x5,-0x2
0708 0a01       |    |		Execute_Immediate	Plus,0x1
0709 cbfe       |    |		Store	0x5,-0x2
070a 00d8       |    |		Load_Top	At_Offset_0
070b ebff       |    |		Load	0x5,-0x1
070c 01d7       |    |		Execute	Vector,Field_Read
070d 0f29       | )  |		Execute_Immediate	Equal,0x29
070e 6803       |h   |		Jump_Zero	0x712
070f ebfd       |    |		Load	0x5,-0x3
0710 0a01       |    |		Execute_Immediate	Plus,0x1
0711 cbfd       |    |		Store	0x5,-0x3
0712 00c8       |    |		Action	Pop_Auxiliary_Range
0713 3fee       |?   |		Loop_Increasing	0x702
0714 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0715 0000 0000  |    |		.XXX[0x3]
0717 0000       |    |
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 0735       | 5  |		.CONST	0x0735								; Address of begin
0719 0004       |    |		.CONST	0x0004								; Address of exception handler
071a 0006       |    |		.CONST	0x0006								; Number of locals
071b			INIT_0718:
071b 4820       |H   |		Short_Literal	0x20
071c e9ff       |    |		Load	0x4,-0x1
071d e00e       |    |		Load	0x0,0xe
071e 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
071f e00f       |    |		Load	0x0,0xf
0720 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0721 00d8       |    |		Load_Top	At_Offset_0
0722 01dd       |    |		Execute	Vector,First
0723 00e3       |    |		Load_Encached	Natural_Cache
0724 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0725 00d9       |    |		Load_Top	At_Offset_1
0726 01dc       |    |		Execute	Vector,Last
0727 00e3       |    |		Load_Encached	Natural_Cache
0728 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0729 00da       |    |		Load_Top	At_Offset_2
072a 01db       |    |		Execute	Vector,Length
072b 00e3       |    |		Load_Encached	Natural_Cache
072c 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
072d 4801       |H   |		Short_Literal	0x1
072e ea02       |    |		Load	0x5,0x2
072f 0092 0843  |   C|		Action	Push_String_Extended,0x843					; "--"
0731 e00f       |    |		Load	0x0,0xf
0732 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0733 00e3       |    |		Load_Encached	Natural_Cache
0734 03f1       |    |		Declare_Variable	Discrete,With_Value
0735			BODY_0718:
0735 00d8       |    |		Load_Top	At_Offset_0
0736 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0737 6810       |h   |		Jump_Zero	0x748
0738 4820       |H   |		Short_Literal	0x20
0739 ea03       |    |		Load	0x5,0x3
073a 00da       |    |		Load_Top	At_Offset_2
073b 0aff       |    |		Execute_Immediate	Plus,-0x1
073c ea02       |    |		Load	0x5,0x2
073d 01cf       |    |		Execute	Vector,Slice_Read
073e e00f       |    |		Load	0x0,0xf
073f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0740 01dc       |    |		Execute	Vector,Last
0741 005b       | [  |		Store_Top	Discrete,At_Offset_3
0742 00db       |    |		Load_Top	At_Offset_3
0743 00db       |    |		Load_Top	At_Offset_3
0744 ea02       |    |		Load	0x5,0x2
0745 01cf       |    |		Execute	Vector,Slice_Read
0746 01db       |    |		Execute	Vector,Length
0747 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0748 00da       |    |		Load_Top	At_Offset_2
0749 ea03       |    |		Load	0x5,0x3
074a 027d       | }  |		Execute	Discrete,Greater
074b 6828       |h(  |		Jump_Zero	0x774
074c 00db       |    |		Load_Top	At_Offset_3
074d 00db       |    |		Load_Top	At_Offset_3
074e ea02       |    |		Load	0x5,0x2
074f 01cf       |    |		Execute	Vector,Slice_Read
0750 e803       |    |		Load	0x4,0x3
0751 0a01       |    |		Execute_Immediate	Plus,0x1
0752 00d8       |    |		Load_Top	At_Offset_0
0753 00e2       |    |		Load_Encached	Integer_Cache
0754 0260       | `  |		Execute	Discrete,In_Type
0755 7001       |p   |		Jump_Nonzero	0x757
0756 0801       |    |		Execute_Immediate	Raise,0x1
0757 e803       |    |		Load	0x4,0x3
0758 ea05       |    |		Load	0x5,0x5
0759 0273       | s  |		Execute	Discrete,Plus
075a 00d8       |    |		Load_Top	At_Offset_0
075b 00e2       |    |		Load_Encached	Integer_Cache
075c 0260       | `  |		Execute	Discrete,In_Type
075d 7001       |p   |		Jump_Nonzero	0x75f
075e 0801       |    |		Execute_Immediate	Raise,0x1
075f e802       |    |		Load	0x4,0x2
0760 01ce       |    |		Execute	Vector,Slice_Write
0761 e803       |    |		Load	0x4,0x3
0762 00da       |    |		Load_Top	At_Offset_2
0763 0273       | s  |		Execute	Discrete,Plus
0764 c803       |    |		Store	0x4,0x3
0765 e805       |    |		Load	0x4,0x5
0766 e804       |    |		Load	0x4,0x4
0767 ea03       |    |		Load	0x5,0x3
0768 ea04       |    |		Load	0x5,0x4
0769 ea02       |    |		Load	0x5,0x2
076a 01cf       |    |		Execute	Vector,Slice_Read
076b 8806       |    |		Call	0x4,0x6
076c c804       |    |		Store	0x4,0x4
076d c805       |    |		Store	0x4,0x5
076e e804       |    |		Load	0x4,0x4
076f e805       |    |		Load	0x4,0x5
0770 027f       |    |		Execute	Discrete,Equal
0771 6802       |h   |		Jump_Zero	0x774
0772 00cc       |    |		Action	Pop_Block
0773 7dca       |}   |		Jump	0x53e
0774 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0775 0000 0000  |    |		.XXX[0x3]
0777 0000       |    |
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 0799       |    |		.CONST	0x0799								; Address of begin
0779 0004       |    |		.CONST	0x0004								; Address of exception handler
077a 0003       |    |		.CONST	0x0003								; Number of locals
077b			INIT_0778:
077b e803       |    |		Load	0x4,0x3
077c e409       |    |		Load	0x2,0x9
077d e408       |    |		Load	0x2,0x8
077e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
077f e802       |    |		Load	0x4,0x2
0780 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " "
0782 01cc       |    |		Execute	Vector,Catenate
0783 00d9       |    |		Load_Top	At_Offset_1
0784 0227       | '  |		Execute	Access,All_Reference
0785 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0786 0227       | '  |		Execute	Access,All_Reference
0787 01cc       |    |		Execute	Vector,Catenate
0788 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " "
078a 01cc       |    |		Execute	Vector,Catenate
078b 00d9       |    |		Load_Top	At_Offset_1
078c 0227       | '  |		Execute	Access,All_Reference
078d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
078e 0227       | '  |		Execute	Access,All_Reference
078f 01cc       |    |		Execute	Vector,Catenate
0790 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " "
0792 01cc       |    |		Execute	Vector,Catenate
0793 00d9       |    |		Load_Top	At_Offset_1
0794 0227       | '  |		Execute	Access,All_Reference
0795 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0796 0227       | '  |		Execute	Access,All_Reference
0797 01cc       |    |		Execute	Vector,Catenate
0798 0007       |    |		Action	Break_Optional
0799			BODY_0778:
0799 00d8       |    |		Load_Top	At_Offset_0
079a e00e       |    |		Load	0x0,0xe
079b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
079c e5fa       |    |		Load	0x2,-0x6
079d 7004       |p   |		Jump_Nonzero	0x7a2
079e 00d8       |    |		Load_Top	At_Offset_0
079f e603       |    |		Load	0x3,0x3
07a0 e00e       |    |		Load	0x0,0xe
07a1 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
07a2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07a3 0000 0000  |    |		.BLANK	0000[0x5]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07cf       |    |		.CONST	0x07cf								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0004       |    |		.CONST	0x0004								; Number of locals
07ab			INIT_07a8:
07ab e802       |    |		Load	0x4,0x2
07ac e408       |    |		Load	0x2,0x8
07ad 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
07ae 00d8       |    |		Load_Top	At_Offset_0
07af e409       |    |		Load	0x2,0x9
07b0 e408       |    |		Load	0x2,0x8
07b1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07b2 0092 084c  |   L|		Action	Push_String_Extended,0x84c					; "*"
07b4 00da       |    |		Load_Top	At_Offset_2
07b5 01cc       |    |		Execute	Vector,Catenate
07b6 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " "
07b8 01cc       |    |		Execute	Vector,Catenate
07b9 00d9       |    |		Load_Top	At_Offset_1
07ba 0227       | '  |		Execute	Access,All_Reference
07bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07bc 0227       | '  |		Execute	Access,All_Reference
07bd 01cc       |    |		Execute	Vector,Catenate
07be 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " "
07c0 01cc       |    |		Execute	Vector,Catenate
07c1 00d9       |    |		Load_Top	At_Offset_1
07c2 0227       | '  |		Execute	Access,All_Reference
07c3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07c4 0227       | '  |		Execute	Access,All_Reference
07c5 01cc       |    |		Execute	Vector,Catenate
07c6 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " "
07c8 01cc       |    |		Execute	Vector,Catenate
07c9 00d9       |    |		Load_Top	At_Offset_1
07ca 0227       | '  |		Execute	Access,All_Reference
07cb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07cc 0227       | '  |		Execute	Access,All_Reference
07cd 01cc       |    |		Execute	Vector,Catenate
07ce 0007       |    |		Action	Break_Optional
07cf			BODY_07a8:
07cf 00d8       |    |		Load_Top	At_Offset_0
07d0 e00e       |    |		Load	0x0,0xe
07d1 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
07d2 e5fa       |    |		Load	0x2,-0x6
07d3 7004       |p   |		Jump_Nonzero	0x7d8
07d4 00d8       |    |		Load_Top	At_Offset_0
07d5 e603       |    |		Load	0x3,0x3
07d6 e00e       |    |		Load	0x0,0xe
07d7 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
07d8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07d9 0000 0000  |    |		.BLANK	0000[0x7]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07f8       |    |		.CONST	0x07f8								; Address of begin
07e1 0004       |    |		.CONST	0x0004								; Address of exception handler
07e2 0003       |    |		.CONST	0x0003								; Number of locals
07e3			INIT_07e0:
07e3 e405       |    |		Load	0x2,0x5
07e4 0227       | '  |		Execute	Access,All_Reference
07e5 e409       |    |		Load	0x2,0x9
07e6 e408       |    |		Load	0x2,0x8
07e7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07e8 0092 084d  |   M|		Action	Push_String_Extended,0x84d					; "others "
07ea 00d9       |    |		Load_Top	At_Offset_1
07eb 0227       | '  |		Execute	Access,All_Reference
07ec 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07ed 0227       | '  |		Execute	Access,All_Reference
07ee 01cc       |    |		Execute	Vector,Catenate
07ef 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " "
07f1 01cc       |    |		Execute	Vector,Catenate
07f2 00d9       |    |		Load_Top	At_Offset_1
07f3 0227       | '  |		Execute	Access,All_Reference
07f4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07f5 0227       | '  |		Execute	Access,All_Reference
07f6 01cc       |    |		Execute	Vector,Catenate
07f7 0007       |    |		Action	Break_Optional
07f8			BODY_07e0:
07f8 00d8       |    |		Load_Top	At_Offset_0
07f9 e00e       |    |		Load	0x0,0xe
07fa 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
07fb e5fa       |    |		Load	0x2,-0x6
07fc 7004       |p   |		Jump_Nonzero	0x801
07fd 00d8       |    |		Load_Top	At_Offset_0
07fe e603       |    |		Load	0x3,0x3
07ff e00e       |    |		Load	0x0,0xe
0800 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0801 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0802 ; --------------------------------------------------------------------------------------
0802 ; STRING TABLE
0802 ; --------------------------------------------------------------------------------------
0802 009a       |    |		.STRTAB	0x009a->0x084f							; "NIL"
0803 009b       |    |		.STRTAB	0x009b->0x0850							; "NEW_NAME"
0804 00a1       |    |		.STRTAB	0x00a1->0x0854							; "NIL"
0805 00a2       |    |		.STRTAB	0x00a2->0x0856							; "ON_NODE"
0806 00a7       |    |		.STRTAB	0x00a7->0x0859							; "DIRECT"
0807 00ab       |    |		.STRTAB	0x00ab->0x085c							; "DEVICE"
0808 00af       |    |		.STRTAB	0x00af->0x085f							; "TELNET"
0809 00b3       |    |		.STRTAB	0x00b3->0x0862							; "FILE"
080a 00b5       |    |		.STRTAB	0x00b5->0x0864							; "WORKSTATION"
080b 00be       |    |		.STRTAB	0x00be->0x086a							; "PATH"
080c 00c0       |    |		.STRTAB	0x00c0->0x086c							; "SUFFIX"
080d 00c4       |    |		.STRTAB	0x00c4->0x086f							; "LASER_COMM"
080e 00cc       |    |		.STRTAB	0x00cc->0x0874							; "REVERSE_OUTPUT_PAGES"
080f 00de       |    |		.STRTAB	0x00de->0x087e							; "NIL"
0810 00df       |    |		.STRTAB	0x00df->0x087f							; "DIRECT_CONNECTION"
0811 00ee       |    |		.STRTAB	0x00ee->0x0888							; "TELNET_CONNECTION"
0812 00fd       |    |		.STRTAB	0x00fd->0x0890							; "LOCAL_FILE"
0813 0105       |    |		.STRTAB	0x0105->0x0895							; "REMOTE_FILE"
0814 010e       |    |		.STRTAB	0x010e->0x089b							; "NIL"
0815 010f       |    |		.STRTAB	0x010f->0x089c							; "XON_XOFF"
0816 0115       |    |		.STRTAB	0x0115->0x08a0							; "RTS"
0817 0116       |    |		.STRTAB	0x0116->0x08a2							; ".Remote_Access"
0818 0122       | "  |		.STRTAB	0x0122->0x08a9							; "others => Unspecified"
0819 0135       | 5  |		.STRTAB	0x0135->0x08b3							; "Laser_Comm | Reverse_Output_Pages => Boolean_Valued, others => unspecified"
081a 017d       | }  |		.STRTAB	0x017d->0x08d8							; "<ERRORS>"
081b 0183       |    |		.STRTAB	0x0183->0x08dc							; "Holding"
081c 0188       |    |		.STRTAB	0x0188->0x08e0							; "The file "
081d 018f       |    |		.STRTAB	0x018f->0x08e4							; " will not be created"
081e 01a1       |    |		.STRTAB	0x01a1->0x08ee							; " does not exist"
081f 01ae       |    |		.STRTAB	0x01ae->0x08f6							; "The contents of the file "
0820 01c5       |    |		.STRTAB	0x01c5->0x0902							; " are:"
0821 01c8       |    |		.STRTAB	0x01c8->0x0905							; "="
0822 01c7       |    |		.STRTAB	0x01c7->0x0905							; "!!"
0823 01c7       |    |		.STRTAB	0x01c7->0x0906							; "."
0824 01c6       |    |		.STRTAB	0x01c6->0x0907							; "Laser"
0825 01c9       |    |		.STRTAB	0x01c9->0x0909							; "Other"
0826 01cc       |    |		.STRTAB	0x01cc->0x090c							; "Reversed => True"
0827 01da       |    |		.STRTAB	0x01da->0x0914							; "Reversed => False"
0828 01e9       |    |		.STRTAB	0x01e9->0x091c							; " "
0829 01e8       |    |		.STRTAB	0x01e8->0x091d							; " is not defined on the server"
082a 0203       |    |		.STRTAB	0x0203->0x092b							; ", Laser_Comm"
082b 020d       |    |		.STRTAB	0x020d->0x0931							; "Laser_Comm"
082c 0215       |    |		.STRTAB	0x0215->0x0936							; " is not a proper protocol"
082d 022c       | ,  |		.STRTAB	0x022c->0x0943							; "_"
082e 022b       | +  |		.STRTAB	0x022b->0x0943							; "Creating a file "
082f 0239       | 9  |		.STRTAB	0x0239->0x094b							; "   containing -> "
0830 0248       | H  |		.STRTAB	0x0248->0x0954							; " nl "
0831 024a       | J  |		.STRTAB	0x024a->0x0956							; "FTP"
0832 024b       | K  |		.STRTAB	0x024b->0x0957							; "Host => "
0833 0251       | Q  |		.STRTAB	0x0251->0x095b							; "Xon_Xoff"
0834 0257       | W  |		.STRTAB	0x0257->0x095f							; "Setting up "
0835 0260       | `  |		.STRTAB	0x0260->0x0965							; "  Class   -> "
0836 026b       | k  |		.STRTAB	0x026b->0x096b							; "  Device  -> "
0837 0276       | v  |		.STRTAB	0x0276->0x0972							; "  Options -> "
0838 0281       |    |		.STRTAB	0x0281->0x0978							; "---"
0839 0282       |    |		.STRTAB	0x0282->0x097a							; "Disabling device: "
083a 0292       |    |		.STRTAB	0x0292->0x0983							; "Deleteing existing device: "
083b 02ab       |    |		.STRTAB	0x02ab->0x0990							; "Creating class: "
083c 02b9       |    |		.STRTAB	0x02b9->0x0998							; "Creating device: "
083d 02c8       |    |		.STRTAB	0x02c8->0x09a1							; "Registering "
083e 02d2       |    |		.STRTAB	0x02d2->0x09a7							; " with "
083f 02d6       |    |		.STRTAB	0x02d6->0x09aa							; "Enabling device.  See error log if there are errors for more information"
0840 031c       |    |		.STRTAB	0x031c->0x09ce							; "Illegal format: "
0841 032a       | *  |		.STRTAB	0x032a->0x09d6							; "     "
0842 032d       | -  |		.STRTAB	0x032d->0x09d8							; "Illegal item in line: "
0843 0341       | A  |		.STRTAB	0x0341->0x09e3							; "--"
0844 0341       | A  |		.STRTAB	0x0341->0x09e4							; "The parentheses in the file "
0845 035b       | [  |		.STRTAB	0x035b->0x09f2							; " do not match"
0846 0366       | f  |		.STRTAB	0x0366->0x09f9							; " is not a defined printer"
0847 037d       | }  |		.STRTAB	0x037d->0x0a05							; "   In line: "
0848 0387       |    |		.STRTAB	0x0387->0x0a0b							; "Terminal_"
0849 038e       |    |		.STRTAB	0x038e->0x0a10							; " is not a proper device name"
084a 03a8       |    |		.STRTAB	0x03a8->0x0a1e							; "The current options do not define a device"
084b 03d0       |    |		.STRTAB	0x03d0->0x0a33							; " is located on "
084c 03dd       |    |		.STRTAB	0x03dd->0x0a3a							; "*"
084d 03dc       |    |		.STRTAB	0x03dc->0x0a3b							; "others "
084e 03e1       |    |		.STREND 0x03e1->0x0a3e
084f 4e49 4c4e  |NILN|		.STRTAB_STRINGS
0a3f 0000       |    |		.XXX[0x1]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; Debug Table
0a40 ; --------------------------------------------------------------------------------------
0a40 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xa359,0x0000,0x0001,0x0000
0a46 fe97 f914  |    |		.XXX[0xc6]
0a48 0800 0000  |    |
0a4a 000f cc00  |    |
0a4c 1000 0402  |    |
0a4e 4853 e797  |HS  |
0a50 fc03 ac60  |   `|
0a52 a403 ac60  |   `|
0a54 b407 3110  |  1 |
0a56 0400 0000  |    |
0a58 0000 0000  |    |
0a5a 0010 1010  |    |
0a5c 7400 0803  |t   |
0a5e b397 fc03  |    |
0a60 ac60 502d  | `P-|
0a62 c5c0 2c2d  |  ,-|
0a64 c1c0 2797  |  ' |
0a66 fc03 ac60  |   `|
0a68 59a0 0f90  |Y   |
0a6a 0a09 7d10  |  } |
0a6c 0403 a910  |    |
0a6e 0797 fc03  |    |
0a70 ac63 b003  | c  |
0a72 ac63 3e90  | c> |
0a74 0b90 0a09  |    |
0a76 7d10 0400  |}   |
0a78 1c03 a910  |    |
0a7a 0410 9000  |    |
0a7c 1000 0803  |    |
0a7e b397 fe09  |    |
0a80 61a0 3b97  |a ; |
0a82 fb88 4404  |  D |
0a84 6608 4a90  |f J |
0a86 0b97 f789  |    |
0a88 3f90 0a09  |?   |
0a8a 8007 3380  |  3 |
0a8c 1060 5717  | `W |
0a8e f514 0f97  |    |
0a90 fc03 ac60  |   `|
0a92 502d cdc0  |P-  |
0a94 742d b9c0  |t-  |
0a96 6c2d bdc0  |l-  |
0a98 642d 91c0  |d-  |
0a9a 5c2d 95c0  |\-  |
0a9c 542d b1c0  |T-  |
0a9e 4c2d c9c0  |L-  |
0aa0 442d adc0  |D-  |
0aa2 3c2d d1c0  |<-  |
0aa4 342d d9c0  |4-  |
0aa6 2c2d d5c0  |,-  |
0aa8 242d c5c0  |$-  |
0aaa 1c2d c1c0  | -  |
0aac 1789 3380  |  3 |
0aae 1060 4717  | `G |
0ab0 f5e0 0f80  |    |
0ab2 1060 6717  | `g |
0ab4 f403 4514  |  E |
0ab6 0c00 0000  |    |
0ab8 0000 0000  |    |
0aba 0011 8c00  |    |
0abc 1000 0797  |    |
0abe fc03 ac60  |   `|
0ac0 502d b9c0  |P-  |
0ac2 0920 0110  |    |
0ac4 0520 0510  |    |
0ac6 0400 0000  |    |
0ac8 0000 0000  |    |
0aca 0011 cc00  |    |
0acc 1000 0797  |    |
0ace fc07 6c3c  |  l<|
0ad0 0da0 5797  |  W |
0ad2 fc07 7797  |  w |
0ad4 fc07 5c3c  |  \<|
0ad6 9da0 3f97  |  ? |
0ad8 fc07 7397  |  s |
0ada fc07 5c3c  |  \<|
0adc 9da0 2797  |  ' |
0ade fc07 7428  |  t(|
0ae0 0409 2397  |  # |
0ae2 fc07 5c03  |  \ |
0ae4 a807 2910  |  ) |
0ae6 0797 fd10  |    |
0ae8 0400 0000  |    |
0aea 0012 4c00  |  L |
0aec 1000 0797  |    |
0aee f5a0 5b97  |  [ |
0af0 f920 0121  |   !|
0af2 fc09 89a0  |    |
0af4 2b97 f803  |+   |
0af6 6003 a009  |`   |
0af8 81c0 0923  |   #|
0afa 8009 5c03  |  \ |
0afc a807 2910  |  ) |
0afe 0c02 4853  |  HS|
0b00 ff97 f803  |    |
0b02 8060 6007  | `` |
0b04 3110 0f97  |1   |
0b06 f809 2397  |  # |
0b08 ff80 1460  |   `|
0b0a 4510 0c00  |E   |
0b0c 0000 0000  |    |		.BLANK	0000[0x6]
0b12 0013 0c00  |    |		.XXX[0xbe]
0b14 1000 1803  |    |
0b16 b00e 7403  |  t |
0b18 8403 8f88  |    |
0b1a 3c0b 1f90  |<   |
0b1c 1870 0003  | p  |
0b1e b390 1804  |    |
0b20 81a0 0b88  |    |
0b22 3de0 0f90  |=   |
0b24 1b88 3c04  |  < |
0b26 6520 0797  |e   |
0b28 fb88 3c04  |  < |
0b2a 6797 fe08  |g   |
0b2c 6b10 1b10  |k   |
0b2e 0c03 8c03  |    |
0b30 8790 0e08  |    |
0b32 7b10 1310  |{   |
0b34 1790 11a0  |    |
0b36 0920 0110  |    |
0b38 0803 b390  |    |
0b3a 1804 81a0  |    |
0b3c 0b88 3de0  |  = |
0b3e 0f90 1b88  |    |
0b40 3c04 6520  |< e |
0b42 0397 fb88  |    |
0b44 3c04 6797  |< g |
0b46 fe08 6b10  |  k |
0b48 1b10 0b90  |    |
0b4a 1b88 3c04  |  < |
0b4c 6790 0a09  |g   |
0b4e 7110 0800  |q   |
0b50 0000 0000  |    |
0b52 0013 f400  |    |
0b54 1000 0c03  |    |
0b56 bc03 b397  |    |
0b58 ff80 1460  |   `|
0b5a 5da0 0920  |]   |
0b5c 0110 0b97  |    |
0b5e ff80 1460  |   `|
0b60 d397 ff80  |    |
0b62 1460 cd25  | ` %|
0b64 d403 ac02  |    |
0b66 6060 ae90  |``  |
0b68 09e0 4790  |  G |
0b6a 0803 ac61  |   a|
0b6c 9690 0f97  |    |
0b6e fb88 3c04  |  < |
0b70 6790 0e09  |g   |
0b72 95a0 1790  |    |
0b74 0803 ac61  |   a|
0b76 9a90 09e0  |    |
0b78 0920 0110  |    |
0b7a 0b90 0803  |    |
0b7c ac61 91bf  | a  |
0b7e ad20 0510  |    |
0b80 0800 0000  |    |
0b82 0014 bc15  |    |
0b84 a400 1403  |    |
0b86 b00e 740e  |  t |
0b88 740e 7797  |t w |
0b8a fc03 ac63  |   c|
0b8c b290 0c02  |    |
0b8e 4854 0390  |HT  |
0b90 0c03 ac60  |   `|
0b92 503c ef80  |P<  |
0b94 2060 3b90  | `; |
0b96 0c03 ac63  |   c|
0b98 3e90 1390  |>   |
0b9a 1380 1460  |   `|
0b9c f290 0b90  |    |
0b9e 0803 ac60  |   `|
0ba0 4da0 0f97  |M   |
0ba2 fe97 f914  |    |
0ba4 0803 b397  |    |
0ba6 f404 81a0  |    |
0ba8 0b88 3de0  |  = |
0baa 0f97 f788  |    |
0bac 3c04 6520  |< e |
0bae 0397 f788  |    |
0bb0 3c04 6790  |< g |
0bb2 0a08 6b17  |  k |
0bb4 f710 1790  |    |
0bb6 1403 ac60  |   `|
0bb8 5397 fc03  |S   |
0bba ac60 5009  | `P |
0bbc fda0 0f90  |    |
0bbe 1697 f914  |    |
0bc0 0b97 fe97  |    |
0bc2 f914 0800  |    |
0bc4 1f97 fe97  |    |
0bc6 f914 0800  |    |
0bc8 0000 0000  |    |
0bca 0015 cc00  |    |
0bcc 1000 0518  |    |
0bce 21e0 210c  |! ! |
0bd0 090c 090c  |    |		.BLANK	090c[0x7]
0bd7 0b9f fcd0  |    |		.XXX[0x1d]
0bd9 0404 979f  |    |
0bdb fcd0 0470  |   p|
0bdd 0120 039f  |    |
0bdf fce0 0d0c  |    |
0be1 0800 0016  |    |
0be3 2c00 1000  |,   |
0be5 0403 479f  |  G |
0be7 fc07 739f  |  s |
0be9 fc07 7409  |  t |
0beb 8dc0 1b98  |    |
0bed 0f9f fc07  |    |
0bef 5470 0028  |Tp (|
0bf1 05ff e10c  |    |
0bf3 0800       |    |
0bf4 0000 0000  |    |		.BLANK	0000[0x6]
0bfa 0016 8c00  |    |		.XXX[0x6]
0bfc 1000 079f  |    |
0bfe ff88 7c04  |  | |