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

⟦92697578e⟧

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

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 0230       | 0  |		.CONST	0x0230								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0044       | D  |		.CONST	0x0044								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000d       |    |		.CONST	0x000d								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
001d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
001e e001       |    |		Load	0x0,0x1
001f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0020 e001       |    |		Load	0x0,0x1
0021 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0022 02ff       |    |		Declare_Variable	Variant_Record
0023 00d8       |    |		Load_Top	At_Offset_0
0024 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0025 e001       |    |		Load	0x0,0x1
0026 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0027 02ff       |    |		Declare_Variable	Variant_Record
0028 00d8       |    |		Load_Top	At_Offset_0
0029 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002a e001       |    |		Load	0x0,0x1
002b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
002c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
002d 02c7       |    |		Declare_Variable	Any
002e 00d8       |    |		Load_Top	At_Offset_0
002f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0030 e001       |    |		Load	0x0,0x1
0031 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0032 02ff       |    |		Declare_Variable	Variant_Record
0033 00d8       |    |		Load_Top	At_Offset_0
0034 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0035 e001       |    |		Load	0x0,0x1
0036 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0037 02c7       |    |		Declare_Variable	Any
0038 00d8       |    |		Load_Top	At_Offset_0
0039 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003a e002       |    |		Load	0x0,0x2
003b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003c 029f 0073  |   s|		Declare_Subprogram	INIT_0070,For_Call
003e 029f 008b  |    |		Declare_Subprogram	INIT_0088,For_Call
0040 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
0042 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
0044			BODY_0018:
0044 e001       |    |		Load	0x0,0x1
0045 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0046 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0047 e406       |    |		Load	0x2,0x6
0048 6023       |`#  |		Indirect_Literal	Discrete,0x6c,{0x00000000, 0x00004000}
0049 e003       |    |		Load	0x0,0x3
004a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004b e004       |    |		Load	0x0,0x4
004c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
004d e005       |    |		Load	0x0,0x5
004e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
004f 4801       |H   |		Short_Literal	0x1
0050 4800       |H   |		Short_Literal	0x0
0051 e004       |    |		Load	0x0,0x4
0052 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0053 e001       |    |		Load	0x0,0x1
0054 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0055 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0056 0092 017c  |   ||		Action	Push_String_Extended,0x17c					; "!Machine.Users.@"
0058 e001       |    |		Load	0x0,0x1
0059 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
005a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
005b c406       |    |		Store	0x2,0x6
005c c402       |    |		Store	0x2,0x2
005d 00cf       |    |		Action	Mark_Auxiliary
005e 7807       |x   |		Jump	0x66
005f 840d       |    |		Call	0x2,0xd
0060 e406       |    |		Load	0x2,0x6
0061 e001       |    |		Load	0x0,0x1
0062 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0063 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0064 c406       |    |		Store	0x2,0x6
0065 00c9       |    |		Action	Pop_Auxiliary_Loop
0066 e406       |    |		Load	0x2,0x6
0067 e001       |    |		Load	0x0,0x1
0068 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0069 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
006a 6ff4       |o   |		Jump_Zero	0x5f
006b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
006c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 e7ff       |    |		Load	0x3,-0x1
0074 6812       |h   |		Jump_Zero	0x87
0075 e7fe       |    |		Load	0x3,-0x2
0076 0092 017d  |   }|		Action	Push_String_Extended,0x17d					; " (bad status: "
0078 01cc       |    |		Execute	Vector,Catenate
0079 e7ff       |    |		Load	0x3,-0x1
007a e001       |    |		Load	0x0,0x1
007b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
007c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
007d 025e       | ^  |		Execute	Discrete,Convert
007e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
007f 01cc       |    |		Execute	Vector,Catenate
0080 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; ")"
0082 01cc       |    |		Execute	Vector,Catenate
0083 e006       |    |		Load	0x0,0x6
0084 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0085 e007       |    |		Load	0x0,0x7
0086 0257       | W  |		Execute	Discrete,Raise
0087 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e7ff       |    |		Load	0x3,-0x1
008c 6811       |h   |		Jump_Zero	0x9e
008d e7fe       |    |		Load	0x3,-0x2
008e 0092 017d  |   }|		Action	Push_String_Extended,0x17d					; " (bad status: "
0090 01cc       |    |		Execute	Vector,Catenate
0091 e7ff       |    |		Load	0x3,-0x1
0092 e001       |    |		Load	0x0,0x1
0093 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0094 025e       | ^  |		Execute	Discrete,Convert
0095 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0096 01cc       |    |		Execute	Vector,Catenate
0097 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; ")"
0099 01cc       |    |		Execute	Vector,Catenate
009a e006       |    |		Load	0x0,0x6
009b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
009c e007       |    |		Load	0x0,0x7
009d 0257       | W  |		Execute	Discrete,Raise
009e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
009f 0000       |    |		.XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 e7ff       |    |		Load	0x3,-0x1
00a4 6811       |h   |		Jump_Zero	0xb6
00a5 e7fe       |    |		Load	0x3,-0x2
00a6 0092 017d  |   }|		Action	Push_String_Extended,0x17d					; " (bad status: "
00a8 01cc       |    |		Execute	Vector,Catenate
00a9 e7ff       |    |		Load	0x3,-0x1
00aa e002       |    |		Load	0x0,0x2
00ab 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ac 025e       | ^  |		Execute	Discrete,Convert
00ad 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ae 01cc       |    |		Execute	Vector,Catenate
00af 0092 017e  |   ~|		Action	Push_String_Extended,0x17e					; ")"
00b1 01cc       |    |		Execute	Vector,Catenate
00b2 e006       |    |		Load	0x0,0x6
00b3 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00b4 e007       |    |		Load	0x0,0x7
00b5 0257       | W  |		Execute	Discrete,Raise
00b6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00b7 0000       |    |		.XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bf       |    |		.CONST	0x00bf								; Address of begin
00b9 0172       | r  |		.CONST	0x0172								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e406       |    |		Load	0x2,0x6
00bc e001       |    |		Load	0x0,0x1
00bd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00be 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00bf			BODY_00b8:
00bf 4801       |H   |		Short_Literal	0x1
00c0 e602       |    |		Load	0x3,0x2
00c1 0092 017f  |    |		Action	Push_String_Extended,0x17f					; ".Network_Public'"
00c3 e008       |    |		Load	0x0,0x8
00c4 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00c5 70ab       |p   |		Jump_Nonzero	0x171
00c6 4801       |H   |		Short_Literal	0x1
00c7 e602       |    |		Load	0x3,0x2
00c8 0092 0180  |    |		Action	Push_String_Extended,0x180					; ".Public'"
00ca e008       |    |		Load	0x0,0x8
00cb 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00cc 70a4       |p   |		Jump_Nonzero	0x171
00cd e406       |    |		Load	0x2,0x6
00ce e001       |    |		Load	0x0,0x1
00cf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00d0 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00d1 e009       |    |		Load	0x0,0x9
00d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d3 e001       |    |		Load	0x0,0x1
00d4 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
00d5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d6 012f       | /  |		Execute	Any,Equal
00d7 6890       |h   |		Jump_Zero	0x168
00d8 e001       |    |		Load	0x0,0x1
00d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00da e404       |    |		Load	0x2,0x4
00db 609c       |`   |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x00004000}
00dc e003       |    |		Load	0x0,0x3
00dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00de e406       |    |		Load	0x2,0x6
00df e001       |    |		Load	0x0,0x1
00e0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00e1 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00e2 00d1       |    |		Pop_Control	Pop_Count_1
00e3 c403       |    |		Store	0x2,0x3
00e4 0092 0181  |    |		Action	Push_String_Extended,0x181					; "Can't get version from iter"
00e6 e403       |    |		Load	0x2,0x3
00e7 840b       |    |		Call	0x2,0xb
00e8 e002       |    |		Load	0x0,0x2
00e9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00ea e405       |    |		Load	0x2,0x5
00eb e003       |    |		Load	0x0,0x3
00ec 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ed 4800       |H   |		Short_Literal	0x0
00ee e404       |    |		Load	0x2,0x4
00ef e009       |    |		Load	0x0,0x9
00f0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f1 0162       | b  |		Execute	Variant_Record,Check_In_Type
00f2 e009       |    |		Load	0x0,0x9
00f3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00f4 00d1       |    |		Pop_Control	Pop_Count_1
00f5 c409       |    |		Store	0x2,0x9
00f6 0092 0182  |    |		Action	Push_String_Extended,0x182					; "Can't get default directory"
00f8 e409       |    |		Load	0x2,0x9
00f9 840c       |    |		Call	0x2,0xc
00fa e5fe       |    |		Load	0x2,-0x2
00fb 6809       |h   |		Jump_Zero	0x105
00fc 0092 0183  |    |		Action	Push_String_Extended,0x183					; "Checking user: "
00fe e404       |    |		Load	0x2,0x4
00ff e001       |    |		Load	0x0,0x1
0100 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0101 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0102 01cc       |    |		Execute	Vector,Catenate
0103 e006       |    |		Load	0x0,0x6
0104 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0105 e001       |    |		Load	0x0,0x1
0106 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0107 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0108 e408       |    |		Load	0x2,0x8
0109 0120       |    |		Execute	Any,Is_Value
010a 6803       |h   |		Jump_Zero	0x10e
010b e001       |    |		Load	0x0,0x1
010c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
010d 7801       |x   |		Jump	0x10f
010e e408       |    |		Load	0x2,0x8
010f 6068       |`h  |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x00004000}
0110 e003       |    |		Load	0x0,0x3
0111 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0112 e004       |    |		Load	0x0,0x4
0113 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0114 e001       |    |		Load	0x0,0x1
0115 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0116 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0117 0092 0184  |    |		Action	Push_String_Extended,0x184					; "!users."
0119 e404       |    |		Load	0x2,0x4
011a e001       |    |		Load	0x0,0x1
011b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011c 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
011d 01cc       |    |		Execute	Vector,Catenate
011e e001       |    |		Load	0x0,0x1
011f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0120 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0121 c408       |    |		Store	0x2,0x8
0122 c402       |    |		Store	0x2,0x2
0123 0092 0185  |    |		Action	Push_String_Extended,0x185					; "Name resolution failed on !users."
0125 e404       |    |		Load	0x2,0x4
0126 e001       |    |		Load	0x0,0x1
0127 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0128 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0129 01cc       |    |		Execute	Vector,Catenate
012a e402       |    |		Load	0x2,0x2
012b 840a       |    |		Call	0x2,0xa
012c e408       |    |		Load	0x2,0x8
012d e001       |    |		Load	0x0,0x1
012e 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
012f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0130 e407       |    |		Load	0x2,0x7
0131 016d       | m  |		Execute	Variant_Record,Structure_Write
0132 e405       |    |		Load	0x2,0x5
0133 e407       |    |		Load	0x2,0x7
0134 016f       | o  |		Execute	Variant_Record,Equal
0135 7031       |p1  |		Jump_Nonzero	0x167
0136 0092 0186  |    |		Action	Push_String_Extended,0x186					; "Non-matching home world for "
0138 e404       |    |		Load	0x2,0x4
0139 e001       |    |		Load	0x0,0x1
013a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
013b 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
013c 01cc       |    |		Execute	Vector,Catenate
013d e006       |    |		Load	0x0,0x6
013e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
013f 0092 0187  |    |		Action	Push_String_Extended,0x187					; "    User refs: "
0141 e405       |    |		Load	0x2,0x5
0142 e00a       |    |		Load	0x0,0xa
0143 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0144 01cc       |    |		Execute	Vector,Catenate
0145 0092 0188  |    |		Action	Push_String_Extended,0x188					; ", World is: "
0147 01cc       |    |		Execute	Vector,Catenate
0148 e407       |    |		Load	0x2,0x7
0149 e00a       |    |		Load	0x0,0xa
014a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
014b 01cc       |    |		Execute	Vector,Catenate
014c e006       |    |		Load	0x0,0x6
014d 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
014e e5ff       |    |		Load	0x2,-0x1
014f 6817       |h   |		Jump_Zero	0x167
0150 e002       |    |		Load	0x0,0x2
0151 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0152 e003       |    |		Load	0x0,0x3
0153 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0154 4800       |H   |		Short_Literal	0x0
0155 e407       |    |		Load	0x2,0x7
0156 e404       |    |		Load	0x2,0x4
0157 e009       |    |		Load	0x0,0x9
0158 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0159 0162       | b  |		Execute	Variant_Record,Check_In_Type
015a e009       |    |		Load	0x0,0x9
015b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
015c c409       |    |		Store	0x2,0x9
015d 0092 0189  |    |		Action	Push_String_Extended,0x189					; "Set_Default_Directory failed"
015f e409       |    |		Load	0x2,0x9
0160 840c       |    |		Call	0x2,0xc
0161 0092 018a  |    |		Action	Push_String_Extended,0x18a					; "   Linkage re-established for "
0163 e602       |    |		Load	0x3,0x2
0164 01cc       |    |		Execute	Vector,Catenate
0165 e006       |    |		Load	0x0,0x6
0166 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0167 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0168 0092 018b  |    |		Action	Push_String_Extended,0x18b					; "Non user object in !Machine.Users: "
016a e406       |    |		Load	0x2,0x6
016b e001       |    |		Load	0x0,0x1
016c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
016e 01cc       |    |		Execute	Vector,Catenate
016f e006       |    |		Load	0x0,0x6
0170 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0171 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0172			TRAP_00b8:
0172 e007       |    |		Load	0x0,0x7
0173 010f       |    |		Execute	Exception,Equal
0174 6802       |h   |		Jump_Zero	0x177
0175 0008       |    |		Action	Idle
0176 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0177 0100       |    |		Execute	Exception,Raise
0178 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
017c ; --------------------------------------------------------------------------------------
017c ; STRING TABLE
017c ; --------------------------------------------------------------------------------------
017c 0022       | "  |		.STRTAB	0x0022->0x018d							; "!Machine.Users.@"
017d 0030       | 0  |		.STRTAB	0x0030->0x0195							; " (bad status: "
017e 003c       | <  |		.STRTAB	0x003c->0x019c							; ")"
017f 003b       | ;  |		.STRTAB	0x003b->0x019c							; ".Network_Public'"
0180 0049       | I  |		.STRTAB	0x0049->0x01a4							; ".Public'"
0181 004f       | O  |		.STRTAB	0x004f->0x01a8							; "Can't get version from iter"
0182 0068       | h  |		.STRTAB	0x0068->0x01b6							; "Can't get default directory"
0183 0081       |    |		.STRTAB	0x0081->0x01c3							; "Checking user: "
0184 008e       |    |		.STRTAB	0x008e->0x01cb							; "!users."
0185 0093       |    |		.STRTAB	0x0093->0x01ce							; "Name resolution failed on !users."
0186 00b2       |    |		.STRTAB	0x00b2->0x01df							; "Non-matching home world for "
0187 00cc       |    |		.STRTAB	0x00cc->0x01ed							; "    User refs: "
0188 00d9       |    |		.STRTAB	0x00d9->0x01f4							; ", World is: "
0189 00e3       |    |		.STRTAB	0x00e3->0x01fa							; "Set_Default_Directory failed"
018a 00fd       |    |		.STRTAB	0x00fd->0x0208							; "   Linkage re-established for "
018b 0119       |    |		.STRTAB	0x0119->0x0217							; "Non user object in !Machine.Users: "
018c 013a       | :  |		.STREND 0x013a->0x0229
018d 214d 6163  |!Mac|		.STRTAB_STRINGS
0229 0000 0000  |    |		.BLANK	0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb3d,0x0000,0x0001,0x0000
0236 181a 0033  |   3|		.XXX[0x23]
0238 0059 00d8  | Y  |
023a 7005 00d9  |p   |
023c 00eb 1814  |    |
023e 0fa8 7002  |  p |
0240 e218 0257  |   W|
0242 00d9 00eb  |    |
0244 18e9 00eb  |    |
0246 1814 0f49  |   I|
0248 680e 00d9  |h   |
024a 00eb 18e9  |    |
024c 00eb 18e5  |    |
024e 4976 00eb  |Iv  |
0250 0098 1810  |    |
0252 490d 00eb  |I   |
0254 0096 821e  |    |
0256 4401 00d9  |D   |
0258 4401       |D   |
0259 0000 0000  |    |		.BLANK	0000[0x7]
0260 0263 0004  | c  |		.XXX[0xb]
0262 0001 00da  |    |
0264 4976 00eb  |Iv  |
0266 0098 180f  |    |
0268 e010 182e  |   .|
026a 4401       |D   |
026b 0000 0000  |    |		.BLANK	0000[0x5]
0270 0273 0004  | s  |		.XXX[0x49]
0272 0001 00da  |    |
0274 00eb 1813  |    |
0276 6802 4800  |h H |
0278 4401 00da  |D   |
027a 821e 821f  |    |
027c 4401 0000  |D   |
027e 0000 0000  |    |
0280 0283 0004  |    |
0282 0001 00da  |    |
0284 00eb 1883  |    |
0286 0f04 7006  |  p |
0288 00da 00eb  |    |
028a 18ec 00eb  |    |
028c 1813 4401  |  D |
028e 4801 4401  |H D |
0290 0294 0004  |    |
0292 0002 00ec  |    |
0294 00db e010  |    |
0296 180d 6805  |  h |
0298 00db e010  |    |
029a 180e 0031  |   1|
029c 780e 00db  |x   |
029e e010 183e  |   >|
02a0 6805 00db  |h   |
02a2 e010 183f  |   ?|
02a4 0031 7805  | 1x |
02a6 00db 4907  |  I |
02a8 00eb 0096  |    |
02aa 0031 00d8  | 1  |
02ac 00eb 1813  |    |
02ae 7006 00db  |p   |
02b0 821e 00d9  |    |
02b2 821e 021f  |    |
02b4 7002 e218  |p   |
02b6 0257 00d8  | W  |
02b8 4401       |D   |
02b9 0000 0000  |    |		.BLANK	0000[0x7]
02c0 02c3 0004  |    |		.XXX[0x140]
02c2 0001 00db  |    |
02c4 00eb 1814  |    |
02c6 46ad 7aa8  |F z |
02c8 7a87 7aa6  |z z |
02ca 78ab 78d2  |x x |
02cc 791f 79e4  |y y |
02ce 79ed 7a02  |y z |
02d0 7a0b 791a  |z y |
02d2 7a3d 7a50  |z=zP|
02d4 78ab 78be  |x x |
02d6 78b3 797e  |x y~|
02d8 78b1 7a18  |x z |
02da 7a21 7a94  |z!z |
02dc 7a93 7a50  |z zP|
02de 7a91 7a90  |z z |
02e0 7a8f 7a8e  |z z |
02e2 7a8d 78c4  |z x |
02e4 78ef 791c  |x y |
02e6 7933 7a88  |y3z |
02e8 79fd 7982  |y y |
02ea 79af 79ae  |y y |
02ec 79ad 79b8  |y y |
02ee 7a81 79d6  |z y |
02f0 79f5 7a7e  |y z~|
02f2 7a7d 79f2  |z}y |
02f4 7a7b 7a7a  |z{zz|
02f6 7a79 7a40  |zyz@|
02f8 792d 792c  |y-y,|
02fa 79eb 7a74  |y zt|
02fc 7a73 797a  |zsyz|
02fe 7a71 7a70  |zqzp|
0300 7a6f 7a6e  |zozn|
0302 7a6d 7a6c  |zmzl|
0304 7a6b 7a6a  |zkzj|
0306 7a69 7a68  |zizh|
0308 7a67 7a66  |zgzf|
030a 7a65 7a64  |zezd|
030c 7a63 7a62  |zczb|
030e 7a61 7a60  |zaz`|
0310 7a5f 7a5e  |z_z^|
0312 7a5d 7a5c  |z]z\|
0314 7a5b 7a5a  |z[zZ|
0316 7a59 7a58  |zYzX|
0318 7a57 7a56  |zWzV|
031a 78f3 7a54  |x zT|
031c 7a53 7a52  |zSzR|
031e 7a51 7a50  |zQzP|
0320 7a4f 7a4e  |zOzN|
0322 78eb 7a4c  |x zL|
0324 7a4b 7a4a  |zKzJ|
0326 7a49 7a48  |zIzH|
0328 7a47 78cc  |zGx |
032a 7a45 791c  |zEy |
032c 7905 7886  |y x |
032e 7a41 7a40  |zAz@|
0330 7a3f 7a3e  |z?z>|
0332 7a3d 7a3c  |z=z<|
0334 7a3b 7a3a  |z;z:|
0336 794d 7a38  |yMz8|
0338 7a37 7a36  |z7z6|
033a 7a35 7a34  |z5z4|
033c 7a33 7a32  |z3z2|
033e 7a31 7a30  |z1z0|
0340 7a2f 7a2e  |z/z.|
0342 7a2d 7a2c  |z-z,|
0344 7a2b 7a2a  |z+z*|
0346 7a29 7a28  |z)z(|
0348 7a27 7a26  |z'z&|
034a 7a25 7a24  |z%z$|
034c 7a23 7a22  |z#z"|
034e 7a21 7a20  |z!z |
0350 7a1f 7a1e  |z z |
0352 7a1d 7a1c  |z z |
0354 7a1b 7a1a  |z z |
0356 7a19 7a18  |z z |
0358 7a17 7a16  |z z |
035a 7a15 7a14  |z z |
035c 7a13 7a12  |z z |
035e 7a11 7a10  |z z |
0360 7a0f 7a0e  |z z |
0362 7a0d 7a0c  |z z |
0364 7a0b 7a0a  |z z |
0366 7a09 7a08  |z z |
0368 7a07 7a06  |z z |
036a 7a05 7a04  |z z |
036c 7a03 7a02  |z z |
036e 7a01 7a00  |z z |
0370 79ff 79fe  |y y |
0372 79fd 79fc  |y y |
0374 79fb 79fa  |y y |
0376 00da e5fe  |    |
0378 00eb 18fc  |    |
037a 021f 69f4  |  i |
037c e5fd 00eb  |    |
037e 18fc 4403  |  D |
0380 00da e5fe  |    |
0382 00eb 18fc  |    |
0384 021f 69ea  |  i |
0386 e5fd 00eb  |    |
0388 18fc 4403  |  D |
038a 00da e5fe  |    |
038c 00eb 18fc  |    |
038e 021f 69e0  |  i |
0390 e5fd 00eb  |    |
0392 18fc 4403  |  D |
0394 00da e5fe  |    |
0396 00eb 18fc  |    |
0398 021f 69d6  |  i |
039a e5fd 00eb  |    |
039c 18fc 4403  |  D |
039e 00da e5fe  |    |
03a0 00eb 18fc  |    |
03a2 021f 69cc  |  i |
03a4 e5fd 00eb  |    |
03a6 18fc 4403  |  D |
03a8 00da e5fe  |    |
03aa 4902 00eb  |I   |
03ac 0096 021f  |    |
03ae 69c1 e5fd  |i   |
03b0 4902 00eb  |I   |
03b2 0096 4403  |  D |
03b4 00da e5fe  |    |
03b6 00eb 18f9  |    |
03b8 021f 6804  |  h |
03ba e5fd 00eb  |    |
03bc 18f9 4403  |  D |
03be 00da e5fe  |    |
03c0 4908 00eb  |I   |
03c2 0096 021f  |    |
03c4 6805 e5fd  |h   |
03c6 4908 00eb  |I   |
03c8 0096 4403  |  D |
03ca 00da e5fe  |    |
03cc 00eb 18f7  |    |
03ce 021f 69a0  |  i |
03d0 e5fd 00eb  |    |
03d2 18f7 4403  |  D |
03d4 00da e5fe  |    |
03d6 4901 00eb  |I   |
03d8 0096 021f  |    |
03da 6805 e5fd  |h   |
03dc 4901 00eb  |I   |
03de 0096 4403  |  D |
03e0 00da e5fe  |    |
03e2 4902 00eb  |I   |
03e4 0096 021f  |    |
03e6 6989 e5fd  |i   |
03e8 4902 00eb  |I   |
03ea 0096 4403  |  D |
03ec 00da e5fe  |    |
03ee 00eb 18fc  |    |
03f0 021f 697e  |  i~|
03f2 e5fd 00eb  |    |
03f4 18fc 4403  |  D |
03f6 00da e5fe  |    |
03f8 490f 00eb  |I   |
03fa 0096 021f  |    |
03fc 6973 e5fd  |is  |
03fe 490f 00eb  |I   |