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

⟦d5033e51d⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da

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 01d8       |    |		.CONST	0x01d8								; 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 001c       |    |		.CONST	0x001c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
000f 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0011 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0013 00bf       |    |		Action	Accept_Activation
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001b 00c7       |    |		Action	Elaborate_Subprogram
001c			BODY_0008:
001c 00bc       |    |		Action	Signal_Activated
001d 00bb       |    |		Action	Signal_Completion
001e 0000 0000  |    |		.XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023       | #  |		.CONST	0x0023								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0001       |    |		.CONST	0x0001								; Number of locals
0023			BODY_0020:
0023			INIT_0020:
0023 e5fc       |    |		Load	0x2,-0x4
0024 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; "Acquiring Remote Connection =>  "
0026 e5ff       |    |		Load	0x2,-0x1
0027 01cc       |    |		Execute	Vector,Catenate
0028 e001       |    |		Load	0x0,0x1
0029 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
002a e002       |    |		Load	0x0,0x2
002b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002c e003       |    |		Load	0x0,0x3
002d 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
002e e5fd       |    |		Load	0x2,-0x3
002f e004       |    |		Load	0x0,0x4
0030 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0031 e004       |    |		Load	0x0,0x4
0032 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0033 e5ff       |    |		Load	0x2,-0x1
0034 e5fe       |    |		Load	0x2,-0x2
0035 e003       |    |		Load	0x0,0x3
0036 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0037 c5fb       |    |		Store	0x2,-0x5
0038 c5fa       |    |		Store	0x2,-0x6
0039 4800       |H   |		Short_Literal	0x0
003a e5fa       |    |		Load	0x2,-0x6
003b e002       |    |		Load	0x0,0x2
003c 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
003d 7004       |p   |		Jump_Nonzero	0x42
003e e5fc       |    |		Load	0x2,-0x4
003f e5fa       |    |		Load	0x2,-0x6
0040 e002       |    |		Load	0x0,0x2
0041 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0042 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0043 0000 0000  |    |		.BLANK	0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0053       | S  |		.CONST	0x0053								; Address of begin
0049 00c0       |    |		.CONST	0x00c0								; Address of exception handler
004a 0002       |    |		.CONST	0x0002								; Number of locals
004b			INIT_0048:
004b e005       |    |		Load	0x0,0x5
004c 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
004d 0322       | "  |		Declare_Variable	Record
004e 00db       |    |		Load_Top	At_Offset_3
004f e006       |    |		Load	0x0,0x6
0050 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0051 00d9       |    |		Load_Top	At_Offset_1
0052 017d       | }  |		Execute	Record,Structure_Write
0053			BODY_0048:
0053 00d8       |    |		Load_Top	At_Offset_0
0054 e5fe       |    |		Load	0x2,-0x2
0055 e5fb       |    |		Load	0x2,-0x5
0056 e5fc       |    |		Load	0x2,-0x4
0057 e007       |    |		Load	0x0,0x7
0058 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0059 7023       |p#  |		Jump_Nonzero	0x7d
005a e5f9       |    |		Load	0x2,-0x7
005b 4801       |H   |		Short_Literal	0x1
005c 4802       |H   |		Short_Literal	0x2
005d e008       |    |		Load	0x0,0x8
005e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
005f 035b       | [  |		Declare_Type	Array,Constrained
0060 0337       | 7  |		Declare_Variable	Array
0061 e5fc       |    |		Load	0x2,-0x4
0062 e008       |    |		Load	0x0,0x8
0063 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0064 e008       |    |		Load	0x0,0x8
0065 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0066 0119       |    |		Execute	Any,Check_In_Formal_Type
0067 4801       |H   |		Short_Literal	0x1
0068 00da       |    |		Load_Top	At_Offset_2
0069 01d6       |    |		Execute	Vector,Field_Write
006a e5fb       |    |		Load	0x2,-0x5
006b e008       |    |		Load	0x0,0x8
006c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
006d e008       |    |		Load	0x0,0x8
006e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006f 0119       |    |		Execute	Any,Check_In_Formal_Type
0070 4802       |H   |		Short_Literal	0x2
0071 00da       |    |		Load_Top	At_Offset_2
0072 01d6       |    |		Execute	Vector,Field_Write
0073 6080       |`   |		Indirect_Literal	Discrete,0xf4,{0x00000000, 0x000081c5}
0074 e002       |    |		Load	0x0,0x2
0075 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0076 e008       |    |		Load	0x0,0x8
0077 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0078 607b       |`{  |		Indirect_Literal	Discrete,0xf4,{0x00000000, 0x000081c5}
0079 e002       |    |		Load	0x0,0x2
007a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
007b a5f8       |    |		Store_Unchecked	0x2,-0x8
007c 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
007d 00db       |    |		Load_Top	At_Offset_3
007e e006       |    |		Load	0x0,0x6
007f 188c       |    |		Execute	Package,Field_Execute,Field_Number 0x8c
0080 01db       |    |		Execute	Vector,Length
0081 7001       |p   |		Jump_Nonzero	0x83
0082 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0083 e5f8       |    |		Load	0x2,-0x8
0084 e5f9       |    |		Load	0x2,-0x7
0085 e5fa       |    |		Load	0x2,-0x6
0086 e5fd       |    |		Load	0x2,-0x3
0087 e5fe       |    |		Load	0x2,-0x2
0088 00ea       |    |		Load_Encached	Null_String_Cache
0089 e5fc       |    |		Load	0x2,-0x4
008a e5ff       |    |		Load	0x2,-0x1
008b e006       |    |		Load	0x0,0x6
008c 18b8       |    |		Execute	Package,Field_Execute,Field_Number 0xb8
008d e5ff       |    |		Load	0x2,-0x1
008e 8210       |    |		Call	0x1,0x10
008f c5f8       |    |		Store	0x2,-0x8
0090 4800       |H   |		Short_Literal	0x0
0091 e5f8       |    |		Load	0x2,-0x8
0092 e002       |    |		Load	0x0,0x2
0093 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0094 682a       |h*  |		Jump_Zero	0xbf
0095 00d8       |    |		Load_Top	At_Offset_0
0096 e5fe       |    |		Load	0x2,-0x2
0097 e5fb       |    |		Load	0x2,-0x5
0098 e5fc       |    |		Load	0x2,-0x4
0099 e007       |    |		Load	0x0,0x7
009a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
009b 7023       |p#  |		Jump_Nonzero	0xbf
009c e5f9       |    |		Load	0x2,-0x7
009d 4801       |H   |		Short_Literal	0x1
009e 4802       |H   |		Short_Literal	0x2
009f e008       |    |		Load	0x0,0x8
00a0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a1 035b       | [  |		Declare_Type	Array,Constrained
00a2 0337       | 7  |		Declare_Variable	Array
00a3 e5fc       |    |		Load	0x2,-0x4
00a4 e008       |    |		Load	0x0,0x8
00a5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00a6 e008       |    |		Load	0x0,0x8
00a7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a8 0119       |    |		Execute	Any,Check_In_Formal_Type
00a9 4801       |H   |		Short_Literal	0x1
00aa 00da       |    |		Load_Top	At_Offset_2
00ab 01d6       |    |		Execute	Vector,Field_Write
00ac e5fb       |    |		Load	0x2,-0x5
00ad e008       |    |		Load	0x0,0x8
00ae 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00af e008       |    |		Load	0x0,0x8
00b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b1 0119       |    |		Execute	Any,Check_In_Formal_Type
00b2 4802       |H   |		Short_Literal	0x2
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 01d6       |    |		Execute	Vector,Field_Write
00b5 603a       |`:  |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x000081c6}
00b6 e002       |    |		Load	0x0,0x2
00b7 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00b8 e008       |    |		Load	0x0,0x8
00b9 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00ba 6035       |`5  |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x000081c6}
00bb e002       |    |		Load	0x0,0x2
00bc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00bd a5f8       |    |		Store_Unchecked	0x2,-0x8
00be 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
00bf 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
00c0			TRAP_0048:
00c0 e006       |    |		Load	0x0,0x6
00c1 1bbc       |    |		Execute	Package,Field_Read,Field_Number 0xbc
00c2 010f       |    |		Execute	Exception,Equal
00c3 6824       |h$  |		Jump_Zero	0xe8
00c4 4801       |H   |		Short_Literal	0x1
00c5 4802       |H   |		Short_Literal	0x2
00c6 e008       |    |		Load	0x0,0x8
00c7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00c8 035b       | [  |		Declare_Type	Array,Constrained
00c9 0337       | 7  |		Declare_Variable	Array
00ca 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; "Change Directory Context"
00cc e008       |    |		Load	0x0,0x8
00cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00ce e008       |    |		Load	0x0,0x8
00cf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d0 0119       |    |		Execute	Any,Check_In_Formal_Type
00d1 4801       |H   |		Short_Literal	0x1
00d2 00da       |    |		Load_Top	At_Offset_2
00d3 01d6       |    |		Execute	Vector,Field_Write
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 e006       |    |		Load	0x0,0x6
00d6 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00d7 e009       |    |		Load	0x0,0x9
00d8 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
00d9 e008       |    |		Load	0x0,0x8
00da 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00db 0119       |    |		Execute	Any,Check_In_Formal_Type
00dc 4802       |H   |		Short_Literal	0x2
00dd 00da       |    |		Load_Top	At_Offset_2
00de 01d6       |    |		Execute	Vector,Field_Write
00df 600c       |`   |		Indirect_Literal	Discrete,0xec,{0x00000000, 0x0000818c}
00e0 e002       |    |		Load	0x0,0x2
00e1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00e2 a5f8       |    |		Store_Unchecked	0x2,-0x8
00e3 e5f9       |    |		Load	0x2,-0x7
00e4 e5f8       |    |		Load	0x2,-0x8
00e5 e002       |    |		Load	0x0,0x2
00e6 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
00e7 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
00e8 0100       |    |		Execute	Exception,Raise
00e9 0000 0000  |    |		.XXX[0x3]
00eb 0000       |    |
00ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000818c}
00f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081c6}
00f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081c5}
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fe       |    |		.CONST	0x00fe								; Address of begin
00f9 0111       |    |		.CONST	0x0111								; Address of exception handler
00fa 0002       |    |		.CONST	0x0002								; Number of locals
00fb			INIT_00f8:
00fb 00da       |    |		Load_Top	At_Offset_2
00fc e006       |    |		Load	0x0,0x6
00fd 1890       |    |		Execute	Package,Field_Execute,Field_Number 0x90
00fe			BODY_00f8:
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 01db       |    |		Execute	Vector,Length
0100 7001       |p   |		Jump_Nonzero	0x102
0101 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0102 e5f8       |    |		Load	0x2,-0x8
0103 e5f9       |    |		Load	0x2,-0x7
0104 e5fa       |    |		Load	0x2,-0x6
0105 e5fd       |    |		Load	0x2,-0x3
0106 e5fe       |    |		Load	0x2,-0x2
0107 00ea       |    |		Load_Encached	Null_String_Cache
0108 e5fb       |    |		Load	0x2,-0x5
0109 e5fc       |    |		Load	0x2,-0x4
010a e5ff       |    |		Load	0x2,-0x1
010b e006       |    |		Load	0x0,0x6
010c 18b9       |    |		Execute	Package,Field_Execute,Field_Number 0xb9
010d e5ff       |    |		Load	0x2,-0x1
010e 8210       |    |		Call	0x1,0x10
010f c5f8       |    |		Store	0x2,-0x8
0110 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0111			TRAP_00f8:
0111 e006       |    |		Load	0x0,0x6
0112 1bbc       |    |		Execute	Package,Field_Read,Field_Number 0xbc
0113 010f       |    |		Execute	Exception,Equal
0114 6824       |h$  |		Jump_Zero	0x139
0115 4801       |H   |		Short_Literal	0x1
0116 4802       |H   |		Short_Literal	0x2
0117 e008       |    |		Load	0x0,0x8
0118 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0119 035b       | [  |		Declare_Type	Array,Constrained
011a 0337       | 7  |		Declare_Variable	Array
011b 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "Change Library Context"
011d e008       |    |		Load	0x0,0x8
011e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
011f e008       |    |		Load	0x0,0x8
0120 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0121 0119       |    |		Execute	Any,Check_In_Formal_Type
0122 4801       |H   |		Short_Literal	0x1
0123 00da       |    |		Load_Top	At_Offset_2
0124 01d6       |    |		Execute	Vector,Field_Write
0125 e5ff       |    |		Load	0x2,-0x1
0126 e006       |    |		Load	0x0,0x6
0127 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0128 e009       |    |		Load	0x0,0x9
0129 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
012a e008       |    |		Load	0x0,0x8
012b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
012c 0119       |    |		Execute	Any,Check_In_Formal_Type
012d 4802       |H   |		Short_Literal	0x2
012e 00da       |    |		Load_Top	At_Offset_2
012f 01d6       |    |		Execute	Vector,Field_Write
0130 67bb       |g   |		Indirect_Literal	Discrete,0xec,{0x00000000, 0x0000818c}
0131 e002       |    |		Load	0x0,0x2
0132 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0133 a5f8       |    |		Store_Unchecked	0x2,-0x8
0134 e5f9       |    |		Load	0x2,-0x7
0135 e5f8       |    |		Load	0x2,-0x8
0136 e002       |    |		Load	0x0,0x2
0137 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0138 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0139 0100       |    |		Execute	Exception,Raise
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145       | E  |		.CONST	0x0145								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
0145			BODY_0140:
0145 e5fe       |    |		Load	0x2,-0x2
0146 01db       |    |		Execute	Vector,Length
0147 7008       |p   |		Jump_Nonzero	0x150
0148 e008       |    |		Load	0x0,0x8
0149 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
014a 4806       |H   |		Short_Literal	0x6
014b 6040       |`@  |		Indirect_Literal	Discrete,0x18c,{0x00000000, 0x0000818b}
014c e002       |    |		Load	0x0,0x2
014d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
014e a5f9       |    |		Store_Unchecked	0x2,-0x7
014f 782b       |x+  |		Jump	0x17b
0150 e5fb       |    |		Load	0x2,-0x5
0151 6814       |h   |		Jump_Zero	0x166
0152 e5fa       |    |		Load	0x2,-0x6
0153 4801       |H   |		Short_Literal	0x1
0154 4801       |H   |		Short_Literal	0x1
0155 e008       |    |		Load	0x0,0x8
0156 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0157 035b       | [  |		Declare_Type	Array,Constrained
0158 0337       | 7  |		Declare_Variable	Array
0159 e5fe       |    |		Load	0x2,-0x2
015a e008       |    |		Load	0x0,0x8
015b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
015c e008       |    |		Load	0x0,0x8
015d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
015e 0119       |    |		Execute	Any,Check_In_Formal_Type
015f 4801       |H   |		Short_Literal	0x1
0160 00da       |    |		Load_Top	At_Offset_2
0161 01d6       |    |		Execute	Vector,Field_Write
0162 6025       |`%  |		Indirect_Literal	Discrete,0x188,{0x00000000, 0x0000818e}
0163 e002       |    |		Load	0x0,0x2
0164 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0165 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0166 e002       |    |		Load	0x0,0x2
0167 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0168 e5fc       |    |		Load	0x2,-0x4
0169 e00a       |    |		Load	0x0,0xa
016a 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
016b e00a       |    |		Load	0x0,0xa
016c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
016d 4801       |H   |		Short_Literal	0x1
016e e5ff       |    |		Load	0x2,-0x1
016f e006       |    |		Load	0x0,0x6
0170 1868       | h  |		Execute	Package,Field_Execute,Field_Number 0x68
0171 e5ff       |    |		Load	0x2,-0x1
0172 e006       |    |		Load	0x0,0x6
0173 1869       | i  |		Execute	Package,Field_Execute,Field_Number 0x69
0174 e5ff       |    |		Load	0x2,-0x1
0175 8402       |    |		Call	0x2,0x2
0176 e5fd       |    |		Load	0x2,-0x3
0177 e5fe       |    |		Load	0x2,-0x2
0178 e003       |    |		Load	0x0,0x3
0179 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
017a c5f9       |    |		Store	0x2,-0x7
017b 4800       |H   |		Short_Literal	0x0
017c e5f9       |    |		Load	0x2,-0x7
017d e002       |    |		Load	0x0,0x2
017e 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
017f 7004       |p   |		Jump_Nonzero	0x184
0180 e5fa       |    |		Load	0x2,-0x6
0181 e5f9       |    |		Load	0x2,-0x7
0182 e002       |    |		Load	0x0,0x2
0183 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0184 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000818e}
018c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000818b}
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195       |    |		.CONST	0x0195								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0002       |    |		.CONST	0x0002								; Number of locals
0193			INIT_0190:
0193 e00b       |    |		Load	0x0,0xb
0194 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0195			BODY_0190:
0195 00db       |    |		Load_Top	At_Offset_3
0196 e006       |    |		Load	0x0,0x6
0197 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0198 e00c       |    |		Load	0x0,0xc
0199 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
019a e00b       |    |		Load	0x0,0xb
019b 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
019c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
019d 00d8       |    |		Load_Top	At_Offset_0
019e 7003       |p   |		Jump_Nonzero	0x1a2
019f 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; "Unix"
01a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a2 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; "Other"
01a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a5 ; --------------------------------------------------------------------------------------
01a5 ; STRING TABLE
01a5 ; --------------------------------------------------------------------------------------
01a5 000c       |    |		.STRTAB	0x000c->0x01ab							; "Acquiring Remote Connection =>  "
01a6 002a       | *  |		.STRTAB	0x002a->0x01bb							; "Change Directory Context"
01a7 0040       | @  |		.STRTAB	0x0040->0x01c7							; "Change Library Context"
01a8 0054       | T  |		.STRTAB	0x0054->0x01d2							; "Unix"
01a9 0056       | V  |		.STRTAB	0x0056->0x01d4							; "Other"
01aa 0059       | Y  |		.STREND 0x0059->0x01d6
01ab 4163 7175  |Acqu|		.STRTAB_STRINGS
01d7 0000       |    |		.XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xf697,0x0000,0x0001,0x0000
01de 0000 0000  |    |		.BLANK	0000[0x22]