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

⟦d024a4f02⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0808       |    |		.CONST	0x0808								; 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 8005       |    |		.CONST	0x8005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0055       | U  |		.CONST	0x0055								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 0092 0657  |   W|		Action	Push_String_Extended,0x657					; "<NIL>"
0012 00ea       |    |		Load_Encached	Null_String_Cache
0013 029d 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call
0015 029d 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call
0017 029d 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call
0019 029d 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call
001b 029d 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call
001d 029d 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call
001f 029d 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call
0021 029d 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call
0023 029d 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call
0025 029d 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call
0027 029d 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call
0029 029d 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call
002b 029d 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call
002d 029d 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call
002f e001       |    |		Load	0x0,0x1
0030 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0031 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0032 00c6       |    |		Action	Check_Subprogram_Elaborated
0033 00e1       |    |		Load_Encached	Boolean_Cache
0034 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0035 e002       |    |		Load	0x0,0x2
0036 e003       |    |		Load	0x0,0x3
0037 4800       |H   |		Short_Literal	0x0
0038 0007       |    |		Action	Break_Optional
0039 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
003b e001       |    |		Load	0x0,0x1
003c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003d 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
003e 00c6       |    |		Action	Check_Subprogram_Elaborated
003f 00e3       |    |		Load_Encached	Natural_Cache
0040 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0041 e004       |    |		Load	0x0,0x4
0042 e005       |    |		Load	0x0,0x5
0043 4800       |H   |		Short_Literal	0x0
0044 0007       |    |		Action	Break_Optional
0045 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
0047 029d 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call
0049 029d 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call
004b 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 029d 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call
004f 029d 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call
0051 029d 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call
0053 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0054 00c7       |    |		Action	Elaborate_Subprogram
0055			BODY_0008:
0055 00bc       |    |		Action	Signal_Activated
0056 00bb       |    |		Action	Signal_Completion
0057 0000       |    |		.XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0080       |    |		.CONST	0x0080								; Address of begin
0059 0088       |    |		.CONST	0x0088								; Address of exception handler
005a 0003       |    |		.CONST	0x0003								; Number of locals
005b			INIT_0058:
005b e006       |    |		Load	0x0,0x6
005c e007       |    |		Load	0x0,0x7
005d 0092 0658  |   X|		Action	Push_String_Extended,0x658					; "Destroy_Library"
005f 0092 0659  |   Y|		Action	Push_String_Extended,0x659					; "Existing => \x22"
0061 e5ff       |    |		Load	0x2,-0x1
0062 01cc       |    |		Execute	Vector,Catenate
0063 0092 065a  |   Z|		Action	Push_String_Extended,0x65a					; "\x22, Effort_Only => "
0065 01cc       |    |		Execute	Vector,Catenate
0066 e5fe       |    |		Load	0x2,-0x2
0067 00e1       |    |		Load_Encached	Boolean_Cache
0068 011c       |    |		Execute	Any,Convert_Unchecked
0069 1c01       |    |		Execute_Immediate	Run_Utility,0x1
006a 01cc       |    |		Execute	Vector,Catenate
006b 0092 065b  |   [|		Action	Push_String_Extended,0x65b					; ", Response => \x22"
006d 01cc       |    |		Execute	Vector,Catenate
006e e5fd       |    |		Load	0x2,-0x3
006f 01cc       |    |		Execute	Vector,Catenate
0070 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "\x22"
0072 01cc       |    |		Execute	Vector,Catenate
0073 e5fd       |    |		Load	0x2,-0x3
0074 e008       |    |		Load	0x0,0x8
0075 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0076 00c4       |    |		Action	Make_Default
0077 e008       |    |		Load	0x0,0x8
0078 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0079 c407       |    |		Store	0x2,0x7
007a e009       |    |		Load	0x0,0x9
007b 0387       |    |		Declare_Variable	Package
007c 00d8       |    |		Load_Top	At_Offset_0
007d 020f       |    |		Execute	Module,Activate
007e 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
0080			BODY_0058:
0080 4801       |H   |		Short_Literal	0x1
0081 e00a       |    |		Load	0x0,0xa
0082 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0083 4800       |H   |		Short_Literal	0x0
0084 e402       |    |		Load	0x2,0x2
0085 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0086 8403       |    |		Call	0x2,0x3
0087 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0088			TRAP_0058:
0088 e402       |    |		Load	0x2,0x2
0089 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
008a 010f       |    |		Execute	Exception,Equal
008b 6802       |h   |		Jump_Zero	0x8e
008c 00d8       |    |		Load_Top	At_Offset_0
008d 0101       |    |		Execute	Exception,Reraise
008e e402       |    |		Load	0x2,0x2
008f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0090 010f       |    |		Execute	Exception,Equal
0091 6801       |h   |		Jump_Zero	0x93
0092 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0093 4800       |H   |		Short_Literal	0x0
0094 4800       |H   |		Short_Literal	0x0
0095 4801       |H   |		Short_Literal	0x1
0096 4808       |H   |		Short_Literal	0x8
0097 0092 065d  |   ]|		Action	Push_String_Extended,0x65d					; "EXCEPTION: "
0099 4800       |H   |		Short_Literal	0x0
009a 4801       |H   |		Short_Literal	0x1
009b e00b       |    |		Load	0x0,0xb
009c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
009d 01cc       |    |		Execute	Vector,Catenate
009e e402       |    |		Load	0x2,0x2
009f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00a0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00a1 0000 0000  |    |		.BLANK	0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00d9       |    |		.CONST	0x00d9								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0004       |    |		.CONST	0x0004								; Number of locals
00ab			INIT_00a8:
00ab e5fd       |    |		Load	0x2,-0x3
00ac e008       |    |		Load	0x0,0x8
00ad 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00ae e008       |    |		Load	0x0,0x8
00af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b0 011e       |    |		Execute	Any,Convert
00b1 e00c       |    |		Load	0x0,0xc
00b2 e00d       |    |		Load	0x0,0xd
00b3 0092 065e  |   ^|		Action	Push_String_Extended,0x65e					; "Destroy_Users ("
00b5 e5fc       |    |		Load	0x2,-0x4
00b6 01cc       |    |		Execute	Vector,Catenate
00b7 0092 065f  |   _|		Action	Push_String_Extended,0x65f					; ")"
00b9 01cc       |    |		Execute	Vector,Catenate
00ba 0092 0660  |   `|		Action	Push_String_Extended,0x660					; "Named => \x22"
00bc e5ff       |    |		Load	0x2,-0x1
00bd 01cc       |    |		Execute	Vector,Catenate
00be 0092 065a  |   Z|		Action	Push_String_Extended,0x65a					; "\x22, Effort_Only => "
00c0 01cc       |    |		Execute	Vector,Catenate
00c1 e5fe       |    |		Load	0x2,-0x2
00c2 00e1       |    |		Load_Encached	Boolean_Cache
00c3 011c       |    |		Execute	Any,Convert_Unchecked
00c4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00c5 01cc       |    |		Execute	Vector,Catenate
00c6 0092 065b  |   [|		Action	Push_String_Extended,0x65b					; ", Response => \x22"
00c8 01cc       |    |		Execute	Vector,Catenate
00c9 e5fd       |    |		Load	0x2,-0x3
00ca 01cc       |    |		Execute	Vector,Catenate
00cb 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "\x22"
00cd 01cc       |    |		Execute	Vector,Catenate
00ce e402       |    |		Load	0x2,0x2
00cf 00c4       |    |		Action	Make_Default
00d0 e008       |    |		Load	0x0,0x8
00d1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d2 c408       |    |		Store	0x2,0x8
00d3 e009       |    |		Load	0x0,0x9
00d4 0387       |    |		Declare_Variable	Package
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 020f       |    |		Execute	Module,Activate
00d7 029f 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Call
00d9			BODY_00a8:
00d9 4801       |H   |		Short_Literal	0x1
00da e00a       |    |		Load	0x0,0xa
00db 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00dc 4800       |H   |		Short_Literal	0x0
00dd e403       |    |		Load	0x2,0x3
00de 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00df 8404       |    |		Call	0x2,0x4
00e0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 0102       |    |		.CONST	0x0102								; Address of begin
00e9 0145       | E  |		.CONST	0x0145								; Address of exception handler
00ea 0007       |    |		.CONST	0x0007								; Number of locals
00eb			INIT_00e8:
00eb e00e       |    |		Load	0x0,0xe
00ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ed 02c7       |    |		Declare_Variable	Any
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f0 e00e       |    |		Load	0x0,0xe
00f1 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00f2 0322       | "  |		Declare_Variable	Record
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f5 e00e       |    |		Load	0x0,0xe
00f6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f8 e00e       |    |		Load	0x0,0xe
00f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fa e00f       |    |		Load	0x0,0xf
00fb 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00fc e00e       |    |		Load	0x0,0xe
00fd 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00fe 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00ff 02c7       |    |		Declare_Variable	Any
0100 00d8       |    |		Load_Top	At_Offset_0
0101 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0102			BODY_00e8:
0102 e00e       |    |		Load	0x0,0xe
0103 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0104 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0105 e402       |    |		Load	0x2,0x2
0106 0120       |    |		Execute	Any,Is_Value
0107 6803       |h   |		Jump_Zero	0x10b
0108 e00e       |    |		Load	0x0,0xe
0109 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
010a 7801       |x   |		Jump	0x10c
010b e402       |    |		Load	0x2,0x2
010c 603b       |`;  |		Indirect_Literal	Discrete,0x148,{0x00000000, 0x00004000}
010d e010       |    |		Load	0x0,0x10
010e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010f e011       |    |		Load	0x0,0x11
0110 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0111 e00e       |    |		Load	0x0,0xe
0112 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0113 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0114 e5ff       |    |		Load	0x2,-0x1
0115 e00e       |    |		Load	0x0,0xe
0116 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0117 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0118 c402       |    |		Store	0x2,0x2
0119 c404       |    |		Store	0x2,0x4
011a e00e       |    |		Load	0x0,0xe
011b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011c e403       |    |		Load	0x2,0x3
011d 602a       |`*  |		Indirect_Literal	Discrete,0x148,{0x00000000, 0x00004000}
011e e010       |    |		Load	0x0,0x10
011f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0120 e402       |    |		Load	0x2,0x2
0121 e00e       |    |		Load	0x0,0xe
0122 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0123 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0124 00d1       |    |		Pop_Control	Pop_Count_1
0125 c405       |    |		Store	0x2,0x5
0126 4801       |H   |		Short_Literal	0x1
0127 e403       |    |		Load	0x2,0x3
0128 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0129 4801       |H   |		Short_Literal	0x1
012a e403       |    |		Load	0x2,0x3
012b 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
012c 00d8       |    |		Load_Top	At_Offset_0
012d 0120       |    |		Execute	Any,Is_Value
012e 6804       |h   |		Jump_Zero	0x133
012f e00e       |    |		Load	0x0,0xe
0130 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0131 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0132 7801       |x   |		Jump	0x134
0133 00d8       |    |		Load_Top	At_Offset_0
0134 e00f       |    |		Load	0x0,0xf
0135 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0136 e00e       |    |		Load	0x0,0xe
0137 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0138 600f       |`   |		Indirect_Literal	Discrete,0x148,{0x00000000, 0x00004000}
0139 e010       |    |		Load	0x0,0x10
013a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013b 4801       |H   |		Short_Literal	0x1
013c e403       |    |		Load	0x2,0x3
013d e402       |    |		Load	0x2,0x2
013e e00e       |    |		Load	0x0,0xe
013f 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0140 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0141 c405       |    |		Store	0x2,0x5
0142 c406       |    |		Store	0x2,0x6
0143 c407       |    |		Store	0x2,0x7
0144 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0145			TRAP_00e8:
0145 0007       |    |		Action	Break_Optional
0146 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0147 0000       |    |		.XXX[0x1]
0148 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
014c 0000 0000  |    |		.BLANK	0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 e5ff       |    |		Load	0x2,-0x1
0154 e210       |    |		Load	0x1,0x10
0155 01df       |    |		Execute	Vector,Equal
0156 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0157 0000       |    |		.XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b e5ff       |    |		Load	0x2,-0x1
015c 01dd       |    |		Execute	Vector,First
015d e5ff       |    |		Load	0x2,-0x1
015e 01d7       |    |		Execute	Vector,Field_Read
015f 0e21       | !  |		Execute_Immediate	Not_Equal,0x21
0160 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0161 0000 0000  |    |		.BLANK	0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b e5ff       |    |		Load	0x2,-0x1
016c e210       |    |		Load	0x1,0x10
016d 01de       |    |		Execute	Vector,Not_Equal
016e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016f 0000       |    |		.XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e5ff       |    |		Load	0x2,-0x1
0174 01dd       |    |		Execute	Vector,First
0175 e5ff       |    |		Load	0x2,-0x1
0176 01d7       |    |		Execute	Vector,Field_Read
0177 0e5f       | _  |		Execute_Immediate	Not_Equal,0x5f
0178 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 e5ff       |    |		Load	0x2,-0x1
0184 01dc       |    |		Execute	Vector,Last
0185 e5ff       |    |		Load	0x2,-0x1
0186 01d7       |    |		Execute	Vector,Field_Read
0187 0e5f       | _  |		Execute_Immediate	Not_Equal,0x5f
0188 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0189 0000 0000  |    |		.BLANK	0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 e5ff       |    |		Load	0x2,-0x1
0194 01dd       |    |		Execute	Vector,First
0195 e5ff       |    |		Load	0x2,-0x1
0196 01d7       |    |		Execute	Vector,Field_Read
0197 00d8       |    |		Load_Top	At_Offset_0
0198 4841       |HA  |		Short_Literal	0x41
0199 485a       |HZ  |		Short_Literal	0x5a
019a 0262       | b  |		Execute	Discrete,In_Range
019b 7006       |p   |		Jump_Nonzero	0x1a2
019c 4861       |Ha  |		Short_Literal	0x61
019d 487a       |Hz  |		Short_Literal	0x7a
019e 0262       | b  |		Execute	Discrete,In_Range
019f 7003       |p   |		Jump_Nonzero	0x1a3
01a0 4800       |H   |		Short_Literal	0x0
01a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a2 00d1       |    |		Pop_Control	Pop_Count_1
01a3 4801       |H   |		Short_Literal	0x1
01a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00cf       |    |		Action	Mark_Auxiliary
01ac e5ff       |    |		Load	0x2,-0x1
01ad 01d9       |    |		Execute	Vector,Reverse_Bounds
01ae 0263       | c  |		Execute	Discrete,Above_Bound
01af 701f       |p   |		Jump_Nonzero	0x1cf
01b0 00d8       |    |		Load_Top	At_Offset_0
01b1 e5ff       |    |		Load	0x2,-0x1
01b2 01d7       |    |		Execute	Vector,Field_Read
01b3 00d8       |    |		Load_Top	At_Offset_0
01b4 0d5b       | [  |		Execute_Immediate	Less,0x5b
01b5 7009       |p   |		Jump_Nonzero	0x1bf
01b6 00d8       |    |		Load_Top	At_Offset_0
01b7 0c61       | a  |		Execute_Immediate	Greater_Equal,0x61
01b8 7003       |p   |		Jump_Nonzero	0x1bc
01b9 0f5f       | _  |		Execute_Immediate	Equal,0x5f
01ba 7012       |p   |		Jump_Nonzero	0x1cd
01bb 780f       |x   |		Jump	0x1cb
01bc 0c7b       | {  |		Execute_Immediate	Greater_Equal,0x7b
01bd 680f       |h   |		Jump_Zero	0x1cd
01be 780c       |x   |		Jump	0x1cb
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 4830       |H0  |		Short_Literal	0x30
01c1 4839       |H9  |		Short_Literal	0x39
01c2 0262       | b  |		Execute	Discrete,In_Range
01c3 7005       |p   |		Jump_Nonzero	0x1c9
01c4 4841       |HA  |		Short_Literal	0x41
01c5 485a       |HZ  |		Short_Literal	0x5a
01c6 0262       | b  |		Execute	Discrete,In_Range
01c7 7005       |p   |		Jump_Nonzero	0x1cd
01c8 7802       |x   |		Jump	0x1cb
01c9 00d1       |    |		Pop_Control	Pop_Count_1
01ca 7802       |x   |		Jump	0x1cd
01cb 4800       |H   |		Short_Literal	0x0
01cc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cd 00c8       |    |		Action	Pop_Auxiliary_Range
01ce 3fe1       |?   |		Loop_Increasing	0x1b0
01cf 00ce       |    |		Action	Pop_Auxiliary
01d0 4801       |H   |		Short_Literal	0x1
01d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d2 0000 0000  |    |		.BLANK	0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 4800       |H   |		Short_Literal	0x0
01dc e5ff       |    |		Load	0x2,-0x1
01dd 0092 0661  |   a|		Action	Push_String_Extended,0x661					; "__"
01df e012       |    |		Load	0x0,0x12
01e0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01e1 0e00       |    |		Execute_Immediate	Not_Equal,0x0
01e2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e3 0000 0000  |    |		.BLANK	0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0201       |    |		.CONST	0x0201								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb e5ff       |    |		Load	0x2,-0x1
01ec 8214       |    |		Call	0x1,0x14
01ed 6811       |h   |		Jump_Zero	0x1ff
01ee e5ff       |    |		Load	0x2,-0x1
01ef 8215       |    |		Call	0x1,0x15
01f0 680e       |h   |		Jump_Zero	0x1ff
01f1 e5ff       |    |		Load	0x2,-0x1
01f2 8216       |    |		Call	0x1,0x16
01f3 680b       |h   |		Jump_Zero	0x1ff
01f4 e5ff       |    |		Load	0x2,-0x1
01f5 8217       |    |		Call	0x1,0x17
01f6 6808       |h   |		Jump_Zero	0x1ff
01f7 e5ff       |    |		Load	0x2,-0x1
01f8 8218       |    |		Call	0x1,0x18
01f9 6805       |h   |		Jump_Zero	0x1ff
01fa e5ff       |    |		Load	0x2,-0x1
01fb 8219       |    |		Call	0x1,0x19
01fc 6802       |h   |		Jump_Zero	0x1ff
01fd 4801       |H   |		Short_Literal	0x1
01fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ff 4800       |H   |		Short_Literal	0x0
0200 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0201			TRAP_01e8:
0201 0007       |    |		Action	Break_Optional
0202 4800       |H   |		Short_Literal	0x0
0203 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0213       |    |		.CONST	0x0213								; Address of begin
0209 0242       | B  |		.CONST	0x0242								; Address of exception handler
020a 0003       |    |		.CONST	0x0003								; Number of locals
020b			INIT_0208:
020b e5ff       |    |		Load	0x2,-0x1
020c 01dd       |    |		Execute	Vector,First
020d 00e2       |    |		Load_Encached	Integer_Cache
020e 03f1       |    |		Declare_Variable	Discrete,With_Value
020f e5ff       |    |		Load	0x2,-0x1
0210 01dd       |    |		Execute	Vector,First
0211 00e2       |    |		Load_Encached	Integer_Cache
0212 03f1       |    |		Declare_Variable	Discrete,With_Value
0213			BODY_0208:
0213 00cf       |    |		Action	Mark_Auxiliary
0214 00cf       |    |		Action	Mark_Auxiliary
0215 7804       |x   |		Jump	0x21a
0216 e403       |    |		Load	0x2,0x3
0217 0a01       |    |		Execute_Immediate	Plus,0x1
0218 c403       |    |		Store	0x2,0x3
0219 00c9       |    |		Action	Pop_Auxiliary_Loop
021a e403       |    |		Load	0x2,0x3
021b e5ff       |    |		Load	0x2,-0x1
021c 01dc       |    |		Execute	Vector,Last
021d 027a       | z  |		Execute	Discrete,Less_Equal
021e 6805       |h   |		Jump_Zero	0x224
021f e403       |    |		Load	0x2,0x3
0220 e5ff       |    |		Load	0x2,-0x1
0221 01d7       |    |		Execute	Vector,Field_Read
0222 0e2e       | .  |		Execute_Immediate	Not_Equal,0x2e
0223 77f2       |w   |		Jump_Nonzero	0x216
0224 00ce       |    |		Action	Pop_Auxiliary
0225 e402       |    |		Load	0x2,0x2
0226 e403       |    |		Load	0x2,0x3
0227 0aff       |    |		Execute_Immediate	Plus,-0x1
0228 00d8       |    |		Load_Top	At_Offset_0
0229 00e2       |    |		Load_Encached	Integer_Cache
022a 0260       | `  |		Execute	Discrete,In_Type
022b 7001       |p   |		Jump_Nonzero	0x22d
022c 0801       |    |		Execute_Immediate	Raise,0x1
022d e5ff       |    |		Load	0x2,-0x1
022e 01cf       |    |		Execute	Vector,Slice_Read
022f 821a       |    |		Call	0x1,0x1a
0230 7002       |p   |		Jump_Nonzero	0x233
0231 4800       |H   |		Short_Literal	0x0
0232 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0233 e403       |    |		Load	0x2,0x3
0234 0a01       |    |		Execute_Immediate	Plus,0x1
0235 c402       |    |		Store	0x2,0x2
0236 e403       |    |		Load	0x2,0x3
0237 0a01       |    |		Execute_Immediate	Plus,0x1
0238 c403       |    |		Store	0x2,0x3
0239 e402       |    |		Load	0x2,0x2
023a e5ff       |    |		Load	0x2,-0x1
023b 01dc       |    |		Execute	Vector,Last
023c 027d       | }  |		Execute	Discrete,Greater
023d 6802       |h   |		Jump_Zero	0x240
023e 4801       |H   |		Short_Literal	0x1
023f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0240 00c9       |    |		Action	Pop_Auxiliary_Loop
0241 7fd2       |    |		Jump	0x214
0242			TRAP_0208:
0242 0007       |    |		Action	Break_Optional
0243 4800       |H   |		Short_Literal	0x0
0244 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0263       | c  |		.CONST	0x0263								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b e5ff       |    |		Load	0x2,-0x1
024c 8212       |    |		Call	0x1,0x12
024d 6802       |h   |		Jump_Zero	0x250
024e 4800       |H   |		Short_Literal	0x0
024f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0250 e5ff       |    |		Load	0x2,-0x1
0251 8213       |    |		Call	0x1,0x13
0252 6802       |h   |		Jump_Zero	0x255
0253 4800       |H   |		Short_Literal	0x0
0254 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0255 e5ff       |    |		Load	0x2,-0x1
0256 01dd       |    |		Execute	Vector,First
0257 0a01       |    |		Execute_Immediate	Plus,0x1
0258 00d8       |    |		Load_Top	At_Offset_0
0259 00e2       |    |		Load_Encached	Integer_Cache
025a 0260       | `  |		Execute	Discrete,In_Type
025b 7001       |p   |		Jump_Nonzero	0x25d
025c 0801       |    |		Execute_Immediate	Raise,0x1
025d e5ff       |    |		Load	0x2,-0x1
025e 01dc       |    |		Execute	Vector,Last
025f e5ff       |    |		Load	0x2,-0x1
0260 01cf       |    |		Execute	Vector,Slice_Read
0261 821b       |    |		Call	0x1,0x1b
0262 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0263			TRAP_0248:
0263 0007       |    |		Action	Break_Optional
0264 4800       |H   |		Short_Literal	0x0
0265 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0276       | v  |		.CONST	0x0276								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0004       |    |		.CONST	0x0004								; Number of locals
026b			INIT_0268:
026b e5ff       |    |		Load	0x2,-0x1
026c e001       |    |		Load	0x0,0x1
026d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
026e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
026f e00e       |    |		Load	0x0,0xe
0270 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0271 02c7       |    |		Declare_Variable	Any
0272 00d8       |    |		Load_Top	At_Offset_0
0273 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0274 e00e       |    |		Load	0x0,0xe
0275 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0276			BODY_0268:
0276 e008       |    |		Load	0x0,0x8
0277 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0278 4802       |H   |		Short_Literal	0x2
0279 0092 0662  |   b|		Action	Push_String_Extended,0x662					; "PROCESSING "
027b e402       |    |		Load	0x2,0x2
027c 01cc       |    |		Execute	Vector,Catenate
027d e013       |    |		Load	0x0,0x13
027e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
027f e20f       |    |		Load	0x1,0xf
0280 e402       |    |		Load	0x2,0x2
0281 0092 0663  |   c|		Action	Push_String_Extended,0x663					; "Network_Public => RWCOD"
0283 e014       |    |		Load	0x0,0x14
0284 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0285 e20f       |    |		Load	0x1,0xf
0286 4800       |H   |		Short_Literal	0x0
0287 e402       |    |		Load	0x2,0x2
0288 e015       |    |		Load	0x0,0x15
0289 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
028a e00e       |    |		Load	0x0,0xe
028b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028c e403       |    |		Load	0x2,0x3
028d 0120       |    |		Execute	Any,Is_Value
028e 6803       |h   |		Jump_Zero	0x292
028f e00e       |    |		Load	0x0,0xe
0290 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0291 7801       |x   |		Jump	0x293
0292 e403       |    |		Load	0x2,0x3
0293 e5ff       |    |		Load	0x2,-0x1
0294 e001       |    |		Load	0x0,0x1
0295 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0296 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0297 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0298 c403       |    |		Store	0x2,0x3
0299 c404       |    |		Store	0x2,0x4
029a e00e       |    |		Load	0x0,0xe
029b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
029c 6027       |`'  |		Indirect_Literal	Discrete,0x2c4,{0x00000000, 0x00004000}
029d e010       |    |		Load	0x0,0x10
029e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029f 4800       |H   |		Short_Literal	0x0
02a0 e403       |    |		Load	0x2,0x3
02a1 e00e       |    |		Load	0x0,0xe
02a2 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
02a3 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
02a4 c404       |    |		Store	0x2,0x4
02a5 e00e       |    |		Load	0x0,0xe
02a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02a7 601c       |`   |		Indirect_Literal	Discrete,0x2c4,{0x00000000, 0x00004000}
02a8 e010       |    |		Load	0x0,0x10
02a9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02aa 4800       |H   |		Short_Literal	0x0
02ab e403       |    |		Load	0x2,0x3
02ac e00e       |    |		Load	0x0,0xe
02ad 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
02ae 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
02af c404       |    |		Store	0x2,0x4
02b0 e403       |    |		Load	0x2,0x3
02b1 e00e       |    |		Load	0x0,0xe
02b2 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02b3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02b4 e00e       |    |		Load	0x0,0xe
02b5 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
02b6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02b7 6808       |h   |		Jump_Zero	0x2c0
02b8 e402       |    |		Load	0x2,0x2
02b9 8211       |    |		Call	0x1,0x11
02ba e20f       |    |		Load	0x1,0xf
02bb 0092 0664  |   d|		Action	Push_String_Extended,0x664					; "WORLD"
02bd e402       |    |		Load	0x2,0x2
02be e015       |    |		Load	0x0,0x15
02bf 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02c0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c1 0000 0000  |    |		.XXX[0x3]
02c3 0000       |    |
02c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb e5fd       |    |		Load	0x2,-0x3
02cc e5fe       |    |		Load	0x2,-0x2
02cd 821d       |    |		Call	0x1,0x1d
02ce c5fd       |    |		Store	0x2,-0x3
02cf e001       |    |		Load	0x0,0x1
02d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d1 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
02d2 c5fc       |    |		Store	0x2,-0x4
02d3 4800       |H   |		Short_Literal	0x0
02d4 a5fb       |    |		Store_Unchecked	0x2,-0x5
02d5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db e5fd       |    |		Load	0x2,-0x3
02dc 0a01       |    |		Execute_Immediate	Plus,0x1
02dd c5fd       |    |		Store	0x2,-0x3
02de e001       |    |		Load	0x0,0x1
02df 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e0 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
02e1 c5fc       |    |		Store	0x2,-0x4
02e2 4800       |H   |		Short_Literal	0x0
02e3 a5fb       |    |		Store_Unchecked	0x2,-0x5
02e4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e5 0000 0000  |    |		.XXX[0x3]
02e7 0000       |    |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02fb       |    |		.CONST	0x02fb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0005       |    |		.CONST	0x0005								; Number of locals
02eb			INIT_02e8:
02eb e001       |    |		Load	0x0,0x1
02ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ed 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
02ee 02c7       |    |		Declare_Variable	Any
02ef e5ff       |    |		Load	0x2,-0x1
02f0 a402       |    |		Store_Unchecked	0x2,0x2
02f1 00e3       |    |		Load_Encached	Natural_Cache
02f2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02f3 e001       |    |		Load	0x0,0x1
02f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f5 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
02f6 02c7       |    |		Declare_Variable	Any
02f7 00d8       |    |		Load_Top	At_Offset_0
02f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f9 029f 055b  |   [|		Declare_Subprogram	INIT_0558,For_Call
02fb			BODY_02e8:
02fb e402       |    |		Load	0x2,0x2
02fc e001       |    |		Load	0x0,0x1
02fd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02fe 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02ff e5fe       |    |		Load	0x2,-0x2
0300 6814       |h   |		Jump_Zero	0x315
0301 00cf       |    |		Action	Mark_Auxiliary
0302 780a       |x   |		Jump	0x30d
0303 e403       |    |		Load	0x2,0x3
0304 0a01       |    |		Execute_Immediate	Plus,0x1
0305 c403       |    |		Store	0x2,0x3
0306 8405       |    |		Call	0x2,0x5
0307 e402       |    |		Load	0x2,0x2
0308 e001       |    |		Load	0x0,0x1
0309 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030a 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
030b c402       |    |		Store	0x2,0x2
030c 00c9       |    |		Action	Pop_Auxiliary_Loop
030d e402       |    |		Load	0x2,0x2
030e e001       |    |		Load	0x0,0x1
030f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0310 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0311 6ff1       |o   |		Jump_Zero	0x303
0312 00ce       |    |		Action	Pop_Auxiliary
0313 e403       |    |		Load	0x2,0x3
0314 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0315 00cf       |    |		Action	Mark_Auxiliary
0316 7809       |x   |		Jump	0x320
0317 e403       |    |		Load	0x2,0x3
0318 0a01       |    |		Execute_Immediate	Plus,0x1
0319 c403       |    |		Store	0x2,0x3
031a e402       |    |		Load	0x2,0x2
031b e001       |    |		Load	0x0,0x1
031c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
031e c402       |    |		Store	0x2,0x2
031f 00c9       |    |		Action	Pop_Auxiliary_Loop
0320 e402       |    |		Load	0x2,0x2
0321 e001       |    |		Load	0x0,0x1
0322 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0323 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0324 6ff2       |o   |		Jump_Zero	0x317
0325 00ce       |    |		Action	Pop_Auxiliary
0326 e403       |    |		Load	0x2,0x3
0327 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b e5ff       |    |		Load	0x2,-0x1
032c 0f01       |    |		Execute_Immediate	Equal,0x1
032d 6802       |h   |		Jump_Zero	0x330
032e 00ea       |    |		Load_Encached	Null_String_Cache
032f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0330 0092 0665  |   e|		Action	Push_String_Extended,0x665					; "s"
0332 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0333 0000 0000  |    |		.BLANK	0000[0x5]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0343       | C  |		.CONST	0x0343								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0003       |    |		.CONST	0x0003								; Number of locals
033b			INIT_0338:
033b e001       |    |		Load	0x0,0x1
033c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
033d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
033e 02c7       |    |		Declare_Variable	Any
033f e5ff       |    |		Load	0x2,-0x1
0340 a402       |    |		Store_Unchecked	0x2,0x2
0341 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
0343			BODY_0338:
0343 e402       |    |		Load	0x2,0x2
0344 e001       |    |		Load	0x0,0x1
0345 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0346 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0347 4800       |H   |		Short_Literal	0x0
0348 e402       |    |		Load	0x2,0x2
0349 822a       | *  |		Call	0x1,0x2a
034a 0b00       |    |		Execute_Immediate	Case_Compare,0x0
034b 700f       |p   |		Jump_Nonzero	0x35b
034c 0f01       |    |		Execute_Immediate	Equal,0x1
034d 7011       |p   |		Jump_Nonzero	0x35f
034e e402       |    |		Load	0x2,0x2
034f e001       |    |		Load	0x0,0x1
0350 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0351 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0352 0092 0666  |   f|		Action	Push_String_Extended,0x666					; "["
0354 e402       |    |		Load	0x2,0x2
0355 8403       |    |		Call	0x2,0x3
0356 01cc       |    |		Execute	Vector,Catenate
0357 0092 0667  |   g|		Action	Push_String_Extended,0x667					; "]"
0359 01cc       |    |		Execute	Vector,Catenate
035a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035b 00d1       |    |		Pop_Control	Pop_Count_1
035c 0092 0668  |   h|		Action	Push_String_Extended,0x668					; "*** NOTHING RESOLVES TO THIS EXPRESSION ***"
035e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035f e402       |    |		Load	0x2,0x2
0360 e001       |    |		Load	0x0,0x1
0361 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0362 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0363 e402       |    |		Load	0x2,0x2
0364 e001       |    |		Load	0x0,0x1
0365 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0366 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0367 e001       |    |		Load	0x0,0x1
0368 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0369 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
036a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036b 0000 0000  |    |		.BLANK	0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 e5ff       |    |		Load	0x2,-0x1
0374 821c       |    |		Call	0x1,0x1c
0375 6808       |h   |		Jump_Zero	0x37e
0376 e5ff       |    |		Load	0x2,-0x1
0377 e001       |    |		Load	0x0,0x1
0378 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0379 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
037a 0092 0669  |   i|		Action	Push_String_Extended,0x669					; "!USERS"
037c 01df       |    |		Execute	Vector,Equal
037d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037e 4800       |H   |		Short_Literal	0x0
037f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 039b       |    |		.CONST	0x039b								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0005       |    |		.CONST	0x0005								; Number of locals
0383			INIT_0380:
0383 e001       |    |		Load	0x0,0x1
0384 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0385 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0386 02c7       |    |		Declare_Variable	Any
0387 4801       |H   |		Short_Literal	0x1
0388 e001       |    |		Load	0x0,0x1
0389 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
038a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
038b e5ff       |    |		Load	0x2,-0x1
038c e001       |    |		Load	0x0,0x1
038d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
038e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
038f a402       |    |		Store_Unchecked	0x2,0x2
0390 e001       |    |		Load	0x0,0x1
0391 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0392 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0393 02c7       |    |		Declare_Variable	Any
0394 e001       |    |		Load	0x0,0x1
0395 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0396 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0397 a403       |    |		Store_Unchecked	0x2,0x3
0398 00e1       |    |		Load_Encached	Boolean_Cache
0399 029f 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Call
039b			BODY_0380:
039b e402       |    |		Load	0x2,0x2
039c e001       |    |		Load	0x0,0x1
039d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
039e 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
039f 00cf       |    |		Action	Mark_Auxiliary
03a0 7807       |x   |		Jump	0x3a8
03a1 8405       |    |		Call	0x2,0x5
03a2 e402       |    |		Load	0x2,0x2
03a3 e001       |    |		Load	0x0,0x1
03a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03a5 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03a6 c402       |    |		Store	0x2,0x2
03a7 00c9       |    |		Action	Pop_Auxiliary_Loop
03a8 e402       |    |		Load	0x2,0x2
03a9 e001       |    |		Load	0x0,0x1
03aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ab 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03ac 6ff4       |o   |		Jump_Zero	0x3a1
03ad 00ce       |    |		Action	Pop_Auxiliary
03ae e403       |    |		Load	0x2,0x3
03af e001       |    |		Load	0x0,0x1
03b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b1 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
03b2 e403       |    |		Load	0x2,0x3
03b3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b4 0000 0000  |    |		.BLANK	0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c3       |    |		.CONST	0x03c3								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0003       |    |		.CONST	0x0003								; Number of locals
03bb			INIT_03b8:
03bb e5ff       |    |		Load	0x2,-0x1
03bc e001       |    |		Load	0x0,0x1
03bd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03be 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03bf e5ff       |    |		Load	0x2,-0x1
03c0 e001       |    |		Load	0x0,0x1
03c1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03c2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
03c3			BODY_03b8:
03c3 e008       |    |		Load	0x0,0x8
03c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03c5 4802       |H   |		Short_Literal	0x2
03c6 0092 066a  |   j|		Action	Push_String_Extended,0x66a					; "DELETING USER "
03c8 e402       |    |		Load	0x2,0x2
03c9 01cc       |    |		Execute	Vector,Catenate
03ca e013       |    |		Load	0x0,0x13
03cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03cc e20f       |    |		Load	0x1,0xf
03cd e403       |    |		Load	0x2,0x3
03ce e00a       |    |		Load	0x0,0xa
03cf 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03d0 e5fd       |    |		Load	0x2,-0x3
03d1 e20f       |    |		Load	0x1,0xf
03d2 4800       |H   |		Short_Literal	0x0
03d3 0092 066b  |   k|		Action	Push_String_Extended,0x66b					; "!MACHINE.GROUPS."
03d5 e403       |    |		Load	0x2,0x3
03d6 01cc       |    |		Execute	Vector,Catenate
03d7 820d       |    |		Call	0x1,0xd
03d8 e5fd       |    |		Load	0x2,-0x3
03d9 e20f       |    |		Load	0x1,0xf
03da 4800       |H   |		Short_Literal	0x0
03db 0092 066c  |   l|		Action	Push_String_Extended,0x66c					; "!MACHINE.USERS."
03dd e403       |    |		Load	0x2,0x3
03de 01cc       |    |		Execute	Vector,Catenate
03df 820d       |    |		Call	0x1,0xd
03e0 e5fd       |    |		Load	0x2,-0x3
03e1 e20f       |    |		Load	0x1,0xf
03e2 4800       |H   |		Short_Literal	0x0
03e3 0092 066d  |   m|		Action	Push_String_Extended,0x66d					; "!MACHINE.ERROR_LOGS."
03e5 e403       |    |		Load	0x2,0x3
03e6 01cc       |    |		Execute	Vector,Catenate
03e7 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; "_@"
03e9 01cc       |    |		Execute	Vector,Catenate
03ea 820d       |    |		Call	0x1,0xd
03eb e5fd       |    |		Load	0x2,-0x3
03ec e20f       |    |		Load	0x1,0xf
03ed 4800       |H   |		Short_Literal	0x0
03ee 0092 066f  |   o|		Action	Push_String_Extended,0x66f					; "!MACHINE.SEARCH_LISTS."
03f0 e403       |    |		Load	0x2,0x3
03f1 01cc       |    |		Execute	Vector,Catenate
03f2 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; "_@"
03f4 01cc       |    |		Execute	Vector,Catenate
03f5 820d       |    |		Call	0x1,0xd
03f6 e20f       |    |		Load	0x1,0xf
03f7 4800       |H   |		Short_Literal	0x0
03f8 0092 0670  |   p|		Action	Push_String_Extended,0x670					; "asdjkhkasjhd&^*"
03fa e403       |    |		Load	0x2,0x3
03fb e00a       |    |		Load	0x0,0xa
03fc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03fd e20f       |    |		Load	0x1,0xf
03fe e403       |    |		Load	0x2,0x3
03ff e00a       |    |		Load	0x0,0xa
0400 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0401 e5fd       |    |		Load	0x2,-0x3
0402 e20f       |    |		Load	0x1,0xf
0403 4800       |H   |		Short_Literal	0x0
0404 0092 066b  |   k|		Action	Push_String_Extended,0x66b					; "!MACHINE.GROUPS."
0406 e403       |    |		Load	0x2,0x3
0407 01cc       |    |		Execute	Vector,Catenate
0408 820d       |    |		Call	0x1,0xd
0409 e5fd       |    |		Load	0x2,-0x3
040a e20f       |    |		Load	0x1,0xf
040b 4800       |H   |		Short_Literal	0x0
040c 0092 066c  |   l|		Action	Push_String_Extended,0x66c					; "!MACHINE.USERS."
040e e403       |    |		Load	0x2,0x3
040f 01cc       |    |		Execute	Vector,Catenate
0410 820d       |    |		Call	0x1,0xd
0411 e5fd       |    |		Load	0x2,-0x3
0412 e20f       |    |		Load	0x1,0xf
0413 4800       |H   |		Short_Literal	0x0
0414 0092 066d  |   m|		Action	Push_String_Extended,0x66d					; "!MACHINE.ERROR_LOGS."
0416 e403       |    |		Load	0x2,0x3
0417 01cc       |    |		Execute	Vector,Catenate
0418 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; "_@"
041a 01cc       |    |		Execute	Vector,Catenate
041b 820d       |    |		Call	0x1,0xd
041c e5fd       |    |		Load	0x2,-0x3
041d e20f       |    |		Load	0x1,0xf
041e 4800       |H   |		Short_Literal	0x0
041f 0092 066f  |   o|		Action	Push_String_Extended,0x66f					; "!MACHINE.SEARCH_LISTS."
0421 e403       |    |		Load	0x2,0x3
0422 01cc       |    |		Execute	Vector,Catenate
0423 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; "_@"
0425 01cc       |    |		Execute	Vector,Catenate
0426 820d       |    |		Call	0x1,0xd
0427 e5fd       |    |		Load	0x2,-0x3
0428 0092 0671  |   q|		Action	Push_String_Extended,0x671					; "PROPAGATE,"
042a e5fe       |    |		Load	0x2,-0x2
042b 01cc       |    |		Execute	Vector,Catenate
042c 4800       |H   |		Short_Literal	0x0
042d 0092 0672  |   r|		Action	Push_String_Extended,0x672					; "!USERS."
042f e403       |    |		Load	0x2,0x3
0430 01cc       |    |		Execute	Vector,Catenate
0431 820d       |    |		Call	0x1,0xd
0432 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0433 0000 0000  |    |		.BLANK	0000[0x5]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0454       | T  |		.CONST	0x0454								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0006       |    |		.CONST	0x0006								; Number of locals
043b			INIT_0438:
043b e001       |    |		Load	0x0,0x1
043c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
043d 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
043e 02c7       |    |		Declare_Variable	Any
043f 00d8       |    |		Load_Top	At_Offset_0
0440 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0441 00e1       |    |		Load_Encached	Boolean_Cache
0442 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0443 e001       |    |		Load	0x0,0x1
0444 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0445 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0446 02c7       |    |		Declare_Variable	Any
0447 4801       |H   |		Short_Literal	0x1
0448 e001       |    |		Load	0x0,0x1
0449 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
044a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
044b e5ff       |    |		Load	0x2,-0x1
044c e001       |    |		Load	0x0,0x1
044d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
044e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
044f a604       |    |		Store_Unchecked	0x3,0x4
0450 00d8       |    |		Load_Top	At_Offset_0
0451 822c       | ,  |		Call	0x1,0x2c
0452 029f 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Call
0454			BODY_0438:
0454 e604       |    |		Load	0x3,0x4
0455 e001       |    |		Load	0x0,0x1
0456 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0457 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0458 e604       |    |		Load	0x3,0x4
0459 e001       |    |		Load	0x0,0x1
045a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
045b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
045c 6811       |h   |		Jump_Zero	0x46e
045d 4800       |H   |		Short_Literal	0x0
045e 4801       |H   |		Short_Literal	0x1
045f 4800       |H   |		Short_Literal	0x0
0460 4806       |H   |		Short_Literal	0x6
0461 0092 0673  |   s|		Action	Push_String_Extended,0x673					; "Cannot resolve any objects in \x22"
0463 e5ff       |    |		Load	0x2,-0x1
0464 01cc       |    |		Execute	Vector,Catenate
0465 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "\x22"
0467 01cc       |    |		Execute	Vector,Catenate
0468 e402       |    |		Load	0x2,0x2
0469 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
046a 4800       |H   |		Short_Literal	0x0
046b e402       |    |		Load	0x2,0x2
046c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
046d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
046e e5fe       |    |		Load	0x2,-0x2
046f 6821       |h!  |		Jump_Zero	0x491
0470 00cf       |    |		Action	Mark_Auxiliary
0471 7815       |x   |		Jump	0x487
0472 e008       |    |		Load	0x0,0x8
0473 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0474 4802       |H   |		Short_Literal	0x2
0475 0092 0674  |   t|		Action	Push_String_Extended,0x674					; "WOULD ATTEMPT TO DESTROY "
0477 e604       |    |		Load	0x3,0x4
0478 e001       |    |		Load	0x0,0x1
0479 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
047a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
047b e001       |    |		Load	0x0,0x1
047c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
047d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
047e 01cc       |    |		Execute	Vector,Catenate
047f e013       |    |		Load	0x0,0x13
0480 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0481 e604       |    |		Load	0x3,0x4
0482 e001       |    |		Load	0x0,0x1
0483 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0484 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0485 c604       |    |		Store	0x3,0x4
0486 00c9       |    |		Action	Pop_Auxiliary_Loop
0487 e604       |    |		Load	0x3,0x4
0488 e001       |    |		Load	0x0,0x1
0489 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
048a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
048b 6fe6       |o   |		Jump_Zero	0x472
048c 00ce       |    |		Action	Pop_Auxiliary
048d 4800       |H   |		Short_Literal	0x0
048e e402       |    |		Load	0x2,0x2
048f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0490 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0491 e20f       |    |		Load	0x1,0xf
0492 0092 0675  |   u|		Action	Push_String_Extended,0x675					; "<CURRENT_USER>"
0494 0092 0676  |   v|		Action	Push_String_Extended,0x676					; "<>"
0496 e016       |    |		Load	0x0,0x16
0497 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0498 e603       |    |		Load	0x3,0x3
0499 e604       |    |		Load	0x3,0x4
049a e001       |    |		Load	0x0,0x1
049b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
049c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
049d 821d       |    |		Call	0x1,0x1d
049e c603       |    |		Store	0x3,0x3
049f 00cf       |    |		Action	Mark_Auxiliary
04a0 7823       |x#  |		Jump	0x4c4
04a1 e602       |    |		Load	0x3,0x2
04a2 0120       |    |		Execute	Any,Is_Value
04a3 6804       |h   |		Jump_Zero	0x4a8
04a4 e001       |    |		Load	0x0,0x1
04a5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04a6 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
04a7 7801       |x   |		Jump	0x4a9
04a8 e602       |    |		Load	0x3,0x2
04a9 e603       |    |		Load	0x3,0x3
04aa 4800       |H   |		Short_Literal	0x0
04ab 4801       |H   |		Short_Literal	0x1
04ac 4801       |H   |		Short_Literal	0x1
04ad 4801       |H   |		Short_Literal	0x1
04ae 4801       |H   |		Short_Literal	0x1
04af 4800       |H   |		Short_Literal	0x0
04b0 0092 0677  |   w|		Action	Push_String_Extended,0x677					; "@"
04b2 e604       |    |		Load	0x3,0x4
04b3 e001       |    |		Load	0x0,0x1
04b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04b5 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
04b6 e21f       |    |		Load	0x1,0x1f
04b7 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
04b8 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
04b9 e001       |    |		Load	0x0,0x1
04ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04bb 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04bc c603       |    |		Store	0x3,0x3
04bd c602       |    |		Store	0x3,0x2
04be e604       |    |		Load	0x3,0x4
04bf e001       |    |		Load	0x0,0x1
04c0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04c1 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
04c2 c604       |    |		Store	0x3,0x4
04c3 00c9       |    |		Action	Pop_Auxiliary_Loop
04c4 e604       |    |		Load	0x3,0x4
04c5 e001       |    |		Load	0x0,0x1
04c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04c7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04c8 6fd8       |o   |		Jump_Zero	0x4a1
04c9 00ce       |    |		Action	Pop_Auxiliary
04ca 0092 0678  |   x|		Action	Push_String_Extended,0x678					; "PERSEVERE,"
04cc e5fd       |    |		Load	0x2,-0x3
04cd 01cc       |    |		Execute	Vector,Catenate
04ce 0092 0679  |   y|		Action	Push_String_Extended,0x679					; "<ALL_WORLDS>"
04d0 6007       |`   |		Indirect_Literal	Discrete,0x4d8,{0x00000000, 0x7fffffff}
04d1 e605       |    |		Load	0x3,0x5
04d2 e017       |    |		Load	0x0,0x17
04d3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04d4 8606       |    |		Call	0x3,0x6
04d5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04d6 0000 0000  |    |		.XXX[0x2]
04d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
04dc 0000 0000  |    |		.BLANK	0000[0x4]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04f0       |    |		.CONST	0x04f0								; Address of begin
04e1 053e       | >  |		.CONST	0x053e								; Address of exception handler
04e2 0005       |    |		.CONST	0x0005								; Number of locals
04e3			INIT_04e0:
04e3 e001       |    |		Load	0x0,0x1
04e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04e5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04e6 02c7       |    |		Declare_Variable	Any
04e7 e5ff       |    |		Load	0x2,-0x1
04e8 822e       | .  |		Call	0x1,0x2e
04e9 a602       |    |		Store_Unchecked	0x3,0x2
04ea 00d8       |    |		Load_Top	At_Offset_0
04eb 822c       | ,  |		Call	0x1,0x2c
04ec 029f 0613  |    |		Declare_Subprogram	INIT_0610,For_Call
04ee 029f 0643  |   C|		Declare_Subprogram	INIT_0640,For_Call
04f0			BODY_04e0:
04f0 e602       |    |		Load	0x3,0x2
04f1 e001       |    |		Load	0x0,0x1
04f2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04f3 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
04f4 e602       |    |		Load	0x3,0x2
04f5 e001       |    |		Load	0x0,0x1
04f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04f7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04f8 6811       |h   |		Jump_Zero	0x50a
04f9 4800       |H   |		Short_Literal	0x0
04fa 4801       |H   |		Short_Literal	0x1
04fb 4800       |H   |		Short_Literal	0x0
04fc 4806       |H   |		Short_Literal	0x6
04fd 0092 067a  |   z|		Action	Push_String_Extended,0x67a					; "Cannot resolve any users in \x22"
04ff e5ff       |    |		Load	0x2,-0x1
0500 01cc       |    |		Execute	Vector,Catenate
0501 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "\x22"
0503 01cc       |    |		Execute	Vector,Catenate
0504 e403       |    |		Load	0x2,0x3
0505 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0506 4800       |H   |		Short_Literal	0x0
0507 e403       |    |		Load	0x2,0x3
0508 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0509 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
050a e5fe       |    |		Load	0x2,-0x2
050b 6821       |h!  |		Jump_Zero	0x52d
050c 00cf       |    |		Action	Mark_Auxiliary
050d 7815       |x   |		Jump	0x523
050e e008       |    |		Load	0x0,0x8
050f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0510 4802       |H   |		Short_Literal	0x2
0511 0092 0674  |   t|		Action	Push_String_Extended,0x674					; "WOULD ATTEMPT TO DESTROY "
0513 e602       |    |		Load	0x3,0x2
0514 e001       |    |		Load	0x0,0x1
0515 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0516 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0517 e001       |    |		Load	0x0,0x1
0518 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0519 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
051a 01cc       |    |		Execute	Vector,Catenate
051b e013       |    |		Load	0x0,0x13
051c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
051d e602       |    |		Load	0x3,0x2
051e e001       |    |		Load	0x0,0x1
051f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0520 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0521 c602       |    |		Store	0x3,0x2
0522 00c9       |    |		Action	Pop_Auxiliary_Loop
0523 e602       |    |		Load	0x3,0x2
0524 e001       |    |		Load	0x0,0x1
0525 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0526 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0527 6fe6       |o   |		Jump_Zero	0x50e
0528 00ce       |    |		Action	Pop_Auxiliary
0529 4800       |H   |		Short_Literal	0x0
052a e403       |    |		Load	0x2,0x3
052b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
052c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
052d 00cf       |    |		Action	Mark_Auxiliary
052e 7807       |x   |		Jump	0x536
052f 8605       |    |		Call	0x3,0x5
0530 e602       |    |		Load	0x3,0x2
0531 e001       |    |		Load	0x0,0x1
0532 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0533 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0534 c602       |    |		Store	0x3,0x2
0535 00c9       |    |		Action	Pop_Auxiliary_Loop
0536 e602       |    |		Load	0x3,0x2
0537 e001       |    |		Load	0x0,0x1
0538 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0539 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
053a 6ff4       |o   |		Jump_Zero	0x52f
053b 00ce       |    |		Action	Pop_Auxiliary
053c 8604       |    |		Call	0x3,0x4
053d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
053e			TRAP_04e0:
053e e403       |    |		Load	0x2,0x3
053f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0540 010f       |    |		Execute	Exception,Equal
0541 6802       |h   |		Jump_Zero	0x544
0542 00d8       |    |		Load_Top	At_Offset_0
0543 0101       |    |		Execute	Exception,Reraise
0544 e403       |    |		Load	0x2,0x3
0545 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0546 010f       |    |		Execute	Exception,Equal
0547 6801       |h   |		Jump_Zero	0x549
0548 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0549 4800       |H   |		Short_Literal	0x0
054a 4800       |H   |		Short_Literal	0x0
054b 4801       |H   |		Short_Literal	0x1
054c 4808       |H   |		Short_Literal	0x8
054d 0092 065d  |   ]|		Action	Push_String_Extended,0x65d					; "EXCEPTION: "
054f 4800       |H   |		Short_Literal	0x0
0550 4801       |H   |		Short_Literal	0x1
0551 e00b       |    |		Load	0x0,0xb
0552 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0553 01cc       |    |		Execute	Vector,Catenate
0554 e403       |    |		Load	0x2,0x3
0555 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0556 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0557 0000       |    |		.XXX[0x1]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055d       | ]  |		.CONST	0x055d								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0002       |    |		.CONST	0x0002								; Number of locals
055b			INIT_0558:
055b 00e3       |    |		Load_Encached	Natural_Cache
055c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
055d			BODY_0558:
055d e404       |    |		Load	0x2,0x4
055e 0120       |    |		Execute	Any,Is_Value
055f 6804       |h   |		Jump_Zero	0x564
0560 e001       |    |		Load	0x0,0x1
0561 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0562 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0563 7801       |x   |		Jump	0x565
0564 e404       |    |		Load	0x2,0x4
0565 e602       |    |		Load	0x3,0x2
0566 4800       |H   |		Short_Literal	0x0
0567 4801       |H   |		Short_Literal	0x1
0568 4801       |H   |		Short_Literal	0x1
0569 4801       |H   |		Short_Literal	0x1
056a 4801       |H   |		Short_Literal	0x1
056b 4800       |H   |		Short_Literal	0x0
056c 0092 0677  |   w|		Action	Push_String_Extended,0x677					; "@"
056e e402       |    |		Load	0x2,0x2
056f e001       |    |		Load	0x0,0x1
0570 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0571 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0572 e225       | %  |		Load	0x1,0x25
0573 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0574 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0575 e001       |    |		Load	0x0,0x1
0576 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0577 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0578 c602       |    |		Store	0x3,0x2
0579 c404       |    |		Store	0x2,0x4
057a e403       |    |		Load	0x2,0x3
057b e602       |    |		Load	0x3,0x2
057c 0273       | s  |		Execute	Discrete,Plus
057d c403       |    |		Store	0x2,0x3
057e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
057f 0000       |    |		.XXX[0x1]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0590       |    |		.CONST	0x0590								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0003       |    |		.CONST	0x0003								; Number of locals
0583			INIT_0580:
0583 e001       |    |		Load	0x0,0x1
0584 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0585 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0586 02c7       |    |		Declare_Variable	Any
0587 e7ff       |    |		Load	0x3,-0x1
0588 a602       |    |		Store_Unchecked	0x3,0x2
0589 00d8       |    |		Load_Top	At_Offset_0
058a e001       |    |		Load	0x0,0x1
058b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
058c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
058d e001       |    |		Load	0x0,0x1
058e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
058f 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0590			BODY_0580:
0590 e602       |    |		Load	0x3,0x2
0591 e001       |    |		Load	0x0,0x1
0592 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0593 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0594 c602       |    |		Store	0x3,0x2
0595 e602       |    |		Load	0x3,0x2
0596 e001       |    |		Load	0x0,0x1
0597 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0598 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0599 6802       |h   |		Jump_Zero	0x59c
059a 00d8       |    |		Load_Top	At_Offset_0
059b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
059c 00d8       |    |		Load_Top	At_Offset_0
059d 0092 067b  |   {|		Action	Push_String_Extended,0x67b					; ","
059f 01cc       |    |		Execute	Vector,Catenate
05a0 e602       |    |		Load	0x3,0x2
05a1 8403       |    |		Call	0x2,0x3
05a2 01cc       |    |		Execute	Vector,Catenate
05a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a4 0000 0000  |    |		.BLANK	0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b2       |    |		.CONST	0x05b2								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0002       |    |		.CONST	0x0002								; Number of locals
05ab			INIT_05a8:
05ab e402       |    |		Load	0x2,0x2
05ac e001       |    |		Load	0x0,0x1
05ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05ae 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
05af e001       |    |		Load	0x0,0x1
05b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
05b2			BODY_05a8:
05b2 00d8       |    |		Load_Top	At_Offset_0
05b3 822d       | -  |		Call	0x1,0x2d
05b4 680e       |h   |		Jump_Zero	0x5c3
05b5 00e1       |    |		Load_Encached	Boolean_Cache
05b6 e001       |    |		Load	0x0,0x1
05b7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05b8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05b9 e402       |    |		Load	0x2,0x2
05ba e001       |    |		Load	0x0,0x1
05bb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05bc 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
05bd e403       |    |		Load	0x2,0x3
05be e001       |    |		Load	0x0,0x1
05bf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05c0 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
05c1 c404       |    |		Store	0x2,0x4
05c2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05c3 e008       |    |		Load	0x0,0x8
05c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05c5 4806       |H   |		Short_Literal	0x6
05c6 0092 067c  |   ||		Action	Push_String_Extended,0x67c					; "Invalid user name \x22"
05c8 e602       |    |		Load	0x3,0x2
05c9 01cc       |    |		Execute	Vector,Catenate
05ca 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "\x22"
05cc 01cc       |    |		Execute	Vector,Catenate
05cd e013       |    |		Load	0x0,0x13
05ce 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05dd       |    |		.CONST	0x05dd								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0002       |    |		.CONST	0x0002								; Number of locals
05d3			INIT_05d0:
05d3 4801       |H   |		Short_Literal	0x1
05d4 4801       |H   |		Short_Literal	0x1
05d5 e001       |    |		Load	0x0,0x1
05d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05d8 e605       |    |		Load	0x3,0x5
05d9 e001       |    |		Load	0x0,0x1
05da 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05db 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
05dc 822a       | *  |		Call	0x1,0x2a
05dd			BODY_05d0:
05dd 00d8       |    |		Load_Top	At_Offset_0
05de 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
05df 682b       |h+  |		Jump_Zero	0x60b
05e0 4800       |H   |		Short_Literal	0x0
05e1 4801       |H   |		Short_Literal	0x1
05e2 4801       |H   |		Short_Literal	0x1
05e3 4807       |H   |		Short_Literal	0x7
05e4 0092 067d  |   }|		Action	Push_String_Extended,0x67d					; "Unable to destroy "
05e6 4820       |H   |		Short_Literal	0x20
05e7 e802       |    |		Load	0x4,0x2
05e8 00e0       |    |		Load_Encached	Standard_Cache
05e9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05ea e012       |    |		Load	0x0,0x12
05eb 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05ec 01cc       |    |		Execute	Vector,Catenate
05ed 0092 067e  |   ~|		Action	Push_String_Extended,0x67e					; " object"
05ef 01cc       |    |		Execute	Vector,Catenate
05f0 e802       |    |		Load	0x4,0x2
05f1 822b       | +  |		Call	0x1,0x2b
05f2 01cc       |    |		Execute	Vector,Catenate
05f3 0092 067f  |    |		Action	Push_String_Extended,0x67f					; ". "
05f5 01cc       |    |		Execute	Vector,Catenate
05f6 0092 0680  |    |		Action	Push_String_Extended,0x680					; "If locks are suspected, analyze them with "
05f8 01cc       |    |		Execute	Vector,Catenate
05f9 0092 0681  |    |		Action	Push_String_Extended,0x681					; "Action_Utilities.Lock_Information from !Commands. "
05fb 01cc       |    |		Execute	Vector,Catenate
05fc 0092 0682  |    |		Action	Push_String_Extended,0x682					; "If locks are not the problem, you might try Uncode, "
05fe 01cc       |    |		Execute	Vector,Catenate
05ff 0092 0683  |    |		Action	Push_String_Extended,0x683					; "Uninstall, or Repair_Directory from "
0601 01cc       |    |		Execute	Vector,Catenate
0602 0092 0684  |    |		Action	Push_String_Extended,0x684					; "!Commands.System_Maintenance, but these will result"
0604 01cc       |    |		Execute	Vector,Catenate
0605 0092 0685  |    |		Action	Push_String_Extended,0x685					; " in permanently lost disk space."
0607 01cc       |    |		Execute	Vector,Catenate
0608 e402       |    |		Load	0x2,0x2
0609 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
060a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
060b 4800       |H   |		Short_Literal	0x0
060c e402       |    |		Load	0x2,0x2
060d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
060e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
060f 0000       |    |		.XXX[0x1]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 061d       |    |		.CONST	0x061d								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0002       |    |		.CONST	0x0002								; Number of locals
0613			INIT_0610:
0613 4800       |H   |		Short_Literal	0x0
0614 4801       |H   |		Short_Literal	0x1
0615 e001       |    |		Load	0x0,0x1
0616 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0617 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0618 e603       |    |		Load	0x3,0x3
0619 e001       |    |		Load	0x0,0x1
061a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
061b 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
061c 822a       | *  |		Call	0x1,0x2a
061d			BODY_0610:
061d 00d8       |    |		Load_Top	At_Offset_0
061e 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
061f 6816       |h   |		Jump_Zero	0x636
0620 4800       |H   |		Short_Literal	0x0
0621 4801       |H   |		Short_Literal	0x1
0622 4801       |H   |		Short_Literal	0x1
0623 4807       |H   |		Short_Literal	0x7
0624 0092 067d  |   }|		Action	Push_String_Extended,0x67d					; "Unable to destroy "
0626 4820       |H   |		Short_Literal	0x20
0627 e802       |    |		Load	0x4,0x2
0628 00e0       |    |		Load_Encached	Standard_Cache
0629 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
062a e012       |    |		Load	0x0,0x12
062b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
062c 01cc       |    |		Execute	Vector,Catenate
062d 0092 0686  |    |		Action	Push_String_Extended,0x686					; " user"
062f 01cc       |    |		Execute	Vector,Catenate
0630 e802       |    |		Load	0x4,0x2
0631 822b       | +  |		Call	0x1,0x2b
0632 01cc       |    |		Execute	Vector,Catenate
0633 e403       |    |		Load	0x2,0x3
0634 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0635 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0636 4800       |H   |		Short_Literal	0x0
0637 e403       |    |		Load	0x2,0x3
0638 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0639 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
063a 0000 0000  |    |		.BLANK	0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643       | C  |		.CONST	0x0643								; Address of begin
0641 064b       | K  |		.CONST	0x064b								; Address of exception handler
0642 0001       |    |		.CONST	0x0001								; Number of locals
0643			BODY_0640:
0643			INIT_0640:
0643 e5fc       |    |		Load	0x2,-0x4
0644 e5fd       |    |		Load	0x2,-0x3
0645 e602       |    |		Load	0x3,0x2
0646 e001       |    |		Load	0x0,0x1
0647 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0648 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0649 822f       | /  |		Call	0x1,0x2f
064a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
064b			TRAP_0640:
064b 0007       |    |		Action	Break_Optional
064c e402       |    |		Load	0x2,0x2
064d e008       |    |		Load	0x0,0x8
064e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
064f 4802       |H   |		Short_Literal	0x2
0650 4803       |H   |		Short_Literal	0x3
0651 0262       | b  |		Execute	Discrete,In_Range
0652 7003       |p   |		Jump_Nonzero	0x656
0653 7800       |x   |		Jump	0x654
0654 00cc       |    |		Action	Pop_Block
0655 7ee5       |~   |		Jump	0x53b
0656 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0657 ; --------------------------------------------------------------------------------------
0657 ; STRING TABLE
0657 ; --------------------------------------------------------------------------------------
0657 0062       | b  |		.STRTAB	0x0062->0x0688							; "<NIL>"
0658 0065       | e  |		.STRTAB	0x0065->0x068a							; "Destroy_Library"
0659 0072       | r  |		.STRTAB	0x0072->0x0692							; "Existing => \x22"
065a 007d       | }  |		.STRTAB	0x007d->0x0698							; "\x22, Effort_Only => "
065b 008d       |    |		.STRTAB	0x008d->0x06a1							; ", Response => \x22"
065c 009a       |    |		.STRTAB	0x009a->0x06a9							; "\x22"
065d 0099       |    |		.STRTAB	0x0099->0x06a9							; "EXCEPTION: "
065e 00a2       |    |		.STRTAB	0x00a2->0x06af							; "Destroy_Users ("
065f 00af       |    |		.STRTAB	0x00af->0x06b6							; ")"
0660 00ae       |    |		.STRTAB	0x00ae->0x06b7							; "Named => \x22"
0661 00b6       |    |		.STRTAB	0x00b6->0x06bc							; "__"
0662 00b6       |    |		.STRTAB	0x00b6->0x06bd							; "PROCESSING "
0663 00bf       |    |		.STRTAB	0x00bf->0x06c2							; "Network_Public => RWCOD"
0664 00d4       |    |		.STRTAB	0x00d4->0x06ce							; "WORLD"
0665 00d7       |    |		.STRTAB	0x00d7->0x06d0							; "s"
0666 00d6       |    |		.STRTAB	0x00d6->0x06d1							; "["
0667 00d5       |    |		.STRTAB	0x00d5->0x06d1							; "]"
0668 00d4       |    |		.STRTAB	0x00d4->0x06d2							; "*** NOTHING RESOLVES TO THIS EXPRESSION ***"
0669 00fd       |    |		.STRTAB	0x00fd->0x06e7							; "!USERS"
066a 0101       |    |		.STRTAB	0x0101->0x06ea							; "DELETING USER "
066b 010d       |    |		.STRTAB	0x010d->0x06f1							; "!MACHINE.GROUPS."
066c 011b       |    |		.STRTAB	0x011b->0x06f9							; "!MACHINE.USERS."
066d 0128       | (  |		.STRTAB	0x0128->0x0701							; "!MACHINE.ERROR_LOGS."
066e 013a       | :  |		.STRTAB	0x013a->0x070b							; "_@"
066f 013a       | :  |		.STRTAB	0x013a->0x070c							; "!MACHINE.SEARCH_LISTS."
0670 014e       | N  |		.STRTAB	0x014e->0x0717							; "asdjkhkasjhd&^*"
0671 015b       | [  |		.STRTAB	0x015b->0x071e							; "PROPAGATE,"
0672 0163       | c  |		.STRTAB	0x0163->0x0723							; "!USERS."
0673 0168       | h  |		.STRTAB	0x0168->0x0727							; "Cannot resolve any objects in \x22"
0674 0185       |    |		.STRTAB	0x0185->0x0736							; "WOULD ATTEMPT TO DESTROY "
0675 019c       |    |		.STRTAB	0x019c->0x0743							; "<CURRENT_USER>"
0676 01a8       |    |		.STRTAB	0x01a8->0x074a							; "<>"
0677 01a8       |    |		.STRTAB	0x01a8->0x074b							; "@"
0678 01a7       |    |		.STRTAB	0x01a7->0x074b							; "PERSEVERE,"
0679 01af       |    |		.STRTAB	0x01af->0x0750							; "<ALL_WORLDS>"
067a 01b9       |    |		.STRTAB	0x01b9->0x0756							; "Cannot resolve any users in \x22"
067b 01d4       |    |		.STRTAB	0x01d4->0x0765							; ","
067c 01d3       |    |		.STRTAB	0x01d3->0x0765							; "Invalid user name \x22"
067d 01e4       |    |		.STRTAB	0x01e4->0x076f							; "Unable to destroy "
067e 01f4       |    |		.STRTAB	0x01f4->0x0778							; " object"
067f 01f9       |    |		.STRTAB	0x01f9->0x077b							; ". "
0680 01f9       |    |		.STRTAB	0x01f9->0x077c							; "If locks are suspected, analyze them with "
0681 0221       | !  |		.STRTAB	0x0221->0x0791							; "Action_Utilities.Lock_Information from !Commands. "
0682 0251       | Q  |		.STRTAB	0x0251->0x07aa							; "If locks are not the problem, you might try Uncode, "
0683 0283       |    |		.STRTAB	0x0283->0x07c4							; "Uninstall, or Repair_Directory from "
0684 02a5       |    |		.STRTAB	0x02a5->0x07d6							; "!Commands.System_Maintenance, but these will result"
0685 02d6       |    |		.STRTAB	0x02d6->0x07f0							; " in permanently lost disk space."
0686 02f4       |    |		.STRTAB	0x02f4->0x0800							; " user"
0687 02f7       |    |		.STREND 0x02f7->0x0802
0688 3c4e 494c  |<NIL|		.STRTAB_STRINGS
0803 0000 0000  |    |		.BLANK	0000[0x5]
0808 ; --------------------------------------------------------------------------------------
0808 ; Debug Table
0808 ; --------------------------------------------------------------------------------------
0808 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xf7a4,0x0000,0x0001,0x0000
080e d4e0 80e0  |    |		.XXX[0x1f2]
0810 e480 c8c4  |    |
0812 80c4 80c0  |    |
0814 80c8 c080  |    |
0816 c8d4 80c8  |    |
0818 d480 c8d0  |    |
081a 80c0 28f1  |  ( |
081c 1914 c119  |    |
081e 14c0 8119  |    |
0820 18c5 1914  |    |
0822 c081 1914  |    |
0824 c119 14c0  |    |
0826 80c5 0cc0  |    |
0828 dcc0 c080  |    |
082a c50c c0dc  |    |
082c c0c0 80c1  |    |
082e 14c1 14c0  |    |
0830 c080 c114  |    |
0832 c114 c0c0  |    |
0834 80c0 dcc5  |    |
0836 0cc0 c080  |    |
0838 c0dc c50c  |    |
083a c0c0 2880  |  ( |
083c c0dc c50c  |    |
083e c0c0 80c0  |    |
0840 cd08 e0c0  |    |
0842 c080 c0cd  |    |
0844 08e0 c0c0  |    |
0846 80c0 c518  |    |
0848 c0c0 c080  |    |
084a c0c5 18c0  |    |
084c c0c0 80c0  |    |
084e c114 c0c0  |    |
0850 c080 c0c1  |    |
0852 14c0 c0c0  |    |
0854 80c0 c114  |    |
0856 c0c0 c080  |    |
0858 c0c1 14c0  |    |
085a c0c0 2880  |  ( |
085c c0c1 14c0  |    |
085e c0c0 80c0  |    |
0860 c114 c0c0  |    |
0862 c080 c0c1  |    |
0864 14c0 c0c0  |    |
0866 80c0 c114  |    |
0868 c0c0 c080  |    |
086a c0cd 18e0  |    |
086c c0c0 80c0  |    |
086e dd19 0cc0  |    |
0870 c080 c0cd  |    |
0872 18e0 c0c0  |    |
0874 f829 4161  | )Aa|
0876 310c 8149  |1  I|
0878 4028 c4c0  |@(  |
087a e4d8 80cc  |    |
087c c0c0 c081  |    |
087e 6164 8118  |ad  |
0880 d4e0 a164  |   d|
0882 a54c 2961  | L)a|
0884 4080 bd18  |@   |
0886 d4e0 80e0  |    |
0888 c080 c8c4  |    |
088a 80c4 80c0  |    |
088c 80c4 e480  |    |
088e c8d4 80c8  |    |
0890 d480 c8d0  |    |
0892 80c0 28f0  |  ( |
0894 dd19 18e0  |    |
0896 c0c0 8119  |    |
0898 1919 14c0  |    |
089a c080 dd19  |    |
089c 1918 c0c0  |    |
089e 80c5 0cc1  |    |
08a0 18e0 c080  |    |
08a2 c50c c0cc  |    |
08a4 e0c0 80c5  |    |
08a6 0cc0 cd0c  |    |
08a8 c080 c50c  |    |
08aa c0c5 0cc0  |    |
08ac 80c5 0cc0  |    |
08ae c50c c080  |    |
08b0 c50c c0c5  |    |
08b2 0cc0 2880  |  ( |
08b4 c50c c0cd  |    |
08b6 0cc0 80c5  |    |
08b8 0cc0 cce0  |    |
08ba c080 c50c  |    |
08bc c118 e0c0  |    |
08be 80c5 1919  |    |
08c0 18c0 c080  |    |
08c2 c519 1914  |    |
08c4 c0c0 80c5  |    |
08c6 1918 e0c0  |    |
08c8 c080 c50c  |    |
08ca c0c0 c0c0  |    |
08cc 80c5 0cc0  |    |
08ce c0c0 c080  |    |
08d0 c50c c0c0  |    |
08d2 c0c0 2880  |  ( |
08d4 c50c c0c0  |    |
08d6 c0c0 80c5  |    |
08d8 0cc0 c0c0  |    |
08da c080 c50c  |    |
08dc c0c0 c0c0  |    |
08de 80c5 0cc0  |    |
08e0 c0c0 c080  |    |
08e2 dd18 c0c0  |    |
08e4 c0c0 8119  |    |
08e6 18e0 c0c0  |    |
08e8 c080 dd18  |    |
08ea c0c0 c0c0  |    |
08ec f829 4161  | )Aa|
08ee 310c 8149  |1  I|
08f0 4028 c4c4  |@(  |
08f2 c4cc 80cc  |    |
08f4 c0c0 c081  |    |
08f6 6164 8118  |ad  |
08f8 d4e0 a140  |   @|
08fa a54c 2961  | L)a|
08fc 4080 bd18  |@   |
08fe d4e0 80d8  |    |
0900 e480 c8c4  |    |
0902 80c4 80c0  |    |
0904 80c8 c080  |    |
0906 c8d4 80c8  |    |
0908 d480 c8d0  |    |
090a 80c0 28f0  |  ( |
090c dd19 1919  |    |
090e 0cc0 8119  |    |
0910 1919 190c  |    |
0912 c080 dd19  |    |
0914 1919 0cc0  |    |
0916 80c5 0cc0  |    |
0918 c50c c080  |    |
091a c50c c0c5  |    |
091c 0cc0 80c5  |    |
091e 0cc0 c50c  |    |
0920 c080 c50c  |    |
0922 c0c5 0cc0  |    |
0924 80c5 0cc0  |    |
0926 c0c0 c080  |    |
0928 c50c c0c0  |    |
092a c0c0 2880  |  ( |
092c c50c c50c  |    |
092e c0c0 80c5  |    |
0930 0cc5 0cc0  |    |
0932 c080 c519  |    |
0934 190c c0c0  |    |
0936 80c5 1919  |    |
0938 0cc0 c080  |    |
093a c519 190c  |    |
093c c0c0 80c5  |    |
093e 0cc5 0cc0  |    |
0940 c080 c50c  |    |
0942 c50c c0c0  |    |
0944 80c5 0cc0  |    |
0946 c0c0 c080  |    |
0948 c50c c0c1  |    |
094a 14c0 2880  |  ( |
094c c50c c0c1  |    |
094e 14c0 80c5  |    |
0950 0cc0 c114  |    |
0952 c080 c50c  |    |
0954 c0c1 14c0  |    |
0956 80c5 0cc0  |    |
0958 c114 c080  |    |
095a dd19 1919  |    |
095c 14c0 8119  |    |
095e 1919 1914  |    |
0960 c080 dd19  |    |
0962 1919 14c0  |    |
0964 f829 4161  | )Aa|
0966 310c 8149  |1  I|
0968 4028 c4c4  |@(  |
096a ccc4 80cc  |    |
096c c0c0 c081  |    |
096e 6164 8118  |ad  |
0970 d4e0 a114  |    |
0972 a54c 80c4  | L  |
0974 c481 e081  |    |
0976 18d4 d4a1  |    |
0978 dda5 b1b0  |    |
097a a54c 80c4  | L  |
097c c481 e0a1  |    |
097e d9a5 bdb1  |    |
0980 85d1 94a5  |    |
0982 4c80 c4c4  |L   |
0984 81e0 a1d1  |    |
0986 a194 a54c  |   L|
0988 80c4 c481  |    |
098a e028 a1a5  | (  |
098c b9a1 95c9  |    |
098e a5d1 9590  |    |
0990 a54c 80c4  | L  |
0992 c481 e0a1  |    |
0994 c985 b99d  |    |
0996 94a5 4c80  |  L |
0998 c4c4 81e0  |    |
099a a18d bdb9  |    |
099c cdd1 c985  |    |
099e a5b9 d0b8  |    |
09a0 a54c 80cc  | L  |
09a2 c4c8 e081  |    |
09a4 6480 c4c8  |d   |
09a6 e4c8 8160  |   `|
09a8 8118 d8a0  |    |
09aa cca5 4c28  |  L(|
09ac 9495 4185  |  A |
09ae 9d95 51c9  |  Q |
09b0 85a5 b195  |    |
09b2 c828 bdc1  | (  |
09b4 85c1 95c8  |    |
09b6 b585 d5d1  |    |
09b8 bdb5 85d1  |    |
09ba a58c 81d1  |    |
09bc c9d5 9481  |    |
09be 4d41 4c80  |MAL |
09c0 c481 4140  |  A@|
09c2 8115 4028  |  @(|
09c4 9495 4185  |  A |
09c6 9d95 09bd  |    |
09c8 d5b9 91a5  |    |
09ca b99d 09bd  |    |
09cc e0e8 80dc  |    |
09ce e080 cce4  |    |
09d0 80d4 d0d8  |    |
09d2 80dc c4e0  |    |
09d4 2828 9495  |((  |
09d6 4185 9d95  |A   |
09d8 09bd d5b9  |    |
09da 91a5 b99d  |    |
09dc 09bd e0e8  |    |
09de 80a1 85d1  |    |
09e0 95b9 90a4  |    |
09e2 2894 9509  |(   |
09e4 959d a5b9  |    |
09e6 4185 9d95  |A   |
09e8 4d95 d1d5  |M   |
09ea c028 c4c0  | (  |
09ec c0c0 8109  |    |
09ee 4080 cccc  |@   |
09f0 c0c0 80c8  |    |
09f2 d4d4 c081  |    |
09f4 4134 80bd  |A4  |
09f6 c185 c195  |    |
09f8 c8b5 85d5  |    |
09fa d1bd b585  |    |
09fc d1a5 8c81  |    |
09fe 9985 b1cd  |    |