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

⟦857207030⟧

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

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 0268       | h  |		.CONST	0x0268								; 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 003e       | >  |		.CONST	0x003e								; Address of begin
0019 00ba       |    |		.CONST	0x00ba								; Address of exception handler
001a 000b       |    |		.CONST	0x000b								; Number of locals
001b			INIT_0018:
001b e002       |    |		Load	0x0,0x2
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d e002       |    |		Load	0x0,0x2
001e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
001f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0020 e002       |    |		Load	0x0,0x2
0021 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0022 02c7       |    |		Declare_Variable	Any
0023 00d8       |    |		Load_Top	At_Offset_0
0024 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0025 e002       |    |		Load	0x0,0x2
0026 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0027 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0028 02c7       |    |		Declare_Variable	Any
0029 00d8       |    |		Load_Top	At_Offset_0
002a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002b 0092 0191  |    |		Action	Push_String_Extended,0x191					; "SYSTEM_SUBSYSTEM"
002d e002       |    |		Load	0x0,0x2
002e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
002f 0092 0192  |    |		Action	Push_String_Extended,0x192					; "SYSTEM_VIEW"
0031 e002       |    |		Load	0x0,0x2
0032 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0033 0093 0000  |    |		push_full_address	0x0
0035 60a2       |`   |		Indirect_Literal	Discrete,0xd8,{0x80000000, 0x00010000}
0036 0273       | s  |		Execute	Discrete,Plus
0037 0007       |    |		Action	Break_Optional
0038 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
003a 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
003c 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
003e			BODY_0018:
003e 4801       |H   |		Short_Literal	0x1
003f e003       |    |		Load	0x0,0x3
0040 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0041 0092 0193  |    |		Action	Push_String_Extended,0x193					; "Resolving all subobjects of "
0043 e5ff       |    |		Load	0x2,-0x1
0044 01cc       |    |		Execute	Vector,Catenate
0045 e004       |    |		Load	0x0,0x4
0046 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0047 e002       |    |		Load	0x0,0x2
0048 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0049 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004a e405       |    |		Load	0x2,0x5
004b 6088       |`   |		Indirect_Literal	Discrete,0xd4,{0x00000000, 0x00004000}
004c e005       |    |		Load	0x0,0x5
004d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004e e006       |    |		Load	0x0,0x6
004f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0050 e007       |    |		Load	0x0,0x7
0051 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0052 4801       |H   |		Short_Literal	0x1
0053 4800       |H   |		Short_Literal	0x0
0054 e006       |    |		Load	0x0,0x6
0055 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0056 e002       |    |		Load	0x0,0x2
0057 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0058 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0059 485b       |H[  |		Short_Literal	0x5b
005a e5ff       |    |		Load	0x2,-0x1
005b 01ca       |    |		Execute	Vector,Prepend
005c 0092 0194  |    |		Action	Push_String_Extended,0x194					; "].??"
005e 01cc       |    |		Execute	Vector,Catenate
005f e002       |    |		Load	0x0,0x2
0060 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0061 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0062 c405       |    |		Store	0x2,0x5
0063 c403       |    |		Store	0x2,0x3
0064 e403       |    |		Load	0x2,0x3
0065 8409       |    |		Call	0x2,0x9
0066 0092 0195  |    |		Action	Push_String_Extended,0x195					; "Melting All Frozen and Slushy Objects ..."
0068 e004       |    |		Load	0x0,0x4
0069 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
006a 00cf       |    |		Action	Mark_Auxiliary
006b 7838       |x8  |		Jump	0xa4
006c e002       |    |		Load	0x0,0x2
006d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006e e404       |    |		Load	0x2,0x4
006f 0120       |    |		Execute	Any,Is_Value
0070 6803       |h   |		Jump_Zero	0x74
0071 e002       |    |		Load	0x0,0x2
0072 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0073 7801       |x   |		Jump	0x75
0074 e404       |    |		Load	0x2,0x4
0075 e405       |    |		Load	0x2,0x5
0076 e002       |    |		Load	0x0,0x2
0077 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0078 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0079 c404       |    |		Store	0x2,0x4
007a c402       |    |		Store	0x2,0x2
007b 0092 0196  |    |		Action	Push_String_Extended,0x196					; "Getting Object From Iterator."
007d e402       |    |		Load	0x2,0x2
007e 840a       |    |		Call	0x2,0xa
007f e002       |    |		Load	0x0,0x2
0080 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0081 6052       |`R  |		Indirect_Literal	Discrete,0xd4,{0x00000000, 0x00004000}
0082 e005       |    |		Load	0x0,0x5
0083 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0084 4800       |H   |		Short_Literal	0x0
0085 e404       |    |		Load	0x2,0x4
0086 e002       |    |		Load	0x0,0x2
0087 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0088 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0089 c402       |    |		Store	0x2,0x2
008a 0092 0197  |    |		Action	Push_String_Extended,0x197					; "Making Object Uncontrolled."
008c e402       |    |		Load	0x2,0x2
008d 840a       |    |		Call	0x2,0xa
008e e002       |    |		Load	0x0,0x2
008f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0090 6043       |`C  |		Indirect_Literal	Discrete,0xd4,{0x00000000, 0x00004000}
0091 e005       |    |		Load	0x0,0x5
0092 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0093 e404       |    |		Load	0x2,0x4
0094 e002       |    |		Load	0x0,0x2
0095 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0096 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0097 c402       |    |		Store	0x2,0x2
0098 0092 0198  |    |		Action	Push_String_Extended,0x198					; "Unfreezing Object."
009a e402       |    |		Load	0x2,0x2
009b 840a       |    |		Call	0x2,0xa
009c e404       |    |		Load	0x2,0x4
009d 840b       |    |		Call	0x2,0xb
009e e405       |    |		Load	0x2,0x5
009f e002       |    |		Load	0x0,0x2
00a0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00a2 c405       |    |		Store	0x2,0x5
00a3 00c9       |    |		Action	Pop_Auxiliary_Loop
00a4 e405       |    |		Load	0x2,0x5
00a5 e002       |    |		Load	0x0,0x2
00a6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00a8 6fc3       |o   |		Jump_Zero	0x6c
00a9 00ce       |    |		Action	Pop_Auxiliary
00aa 0092 0199  |    |		Action	Push_String_Extended,0x199					; "Destroying Melted Objects ..."
00ac e004       |    |		Load	0x0,0x4
00ad 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00ae e5fe       |    |		Load	0x2,-0x2
00af 0092 019a  |    |		Action	Push_String_Extended,0x19a					; "<ALL_WORLDS>"
00b1 601e       |`   |		Indirect_Literal	Discrete,0xd0,{0x00000000, 0x7fffffff}
00b2 e5ff       |    |		Load	0x2,-0x1
00b3 e008       |    |		Load	0x0,0x8
00b4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00b5 0092 019b  |    |		Action	Push_String_Extended,0x19b					; "Done."
00b7 e004       |    |		Load	0x0,0x4
00b8 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ba			TRAP_0018:
00ba e408       |    |		Load	0x2,0x8
00bb 010f       |    |		Execute	Exception,Equal
00bc 6805       |h   |		Jump_Zero	0xc2
00bd 0092 019c  |    |		Action	Push_String_Extended,0x19c					; "Fatal Error, Terminating ..."
00bf e004       |    |		Load	0x0,0x4
00c0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00c1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c2 0092 019d  |    |		Action	Push_String_Extended,0x19d					; "Unhandled Exception, Raising ..."
00c4 e004       |    |		Load	0x0,0x4
00c5 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00c6 4801       |H   |		Short_Literal	0x1
00c7 4801       |H   |		Short_Literal	0x1
00c8 e009       |    |		Load	0x0,0x9
00c9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00ca e004       |    |		Load	0x0,0x4
00cb 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00cc 00d8       |    |		Load_Top	At_Offset_0
00cd 0101       |    |		Execute	Exception,Reraise
00ce 0000 0000  |    |		.XXX[0x2]
00d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
00d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
00d8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00dc 0000 0000  |    |		.BLANK	0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 e7ff       |    |		Load	0x3,-0x1
00e4 680f       |h   |		Jump_Zero	0xf4
00e5 4829       |H)  |		Short_Literal	0x29
00e6 0092 019e  |    |		Action	Push_String_Extended,0x19e					; "Bad Naming Status ("
00e8 e7ff       |    |		Load	0x3,-0x1
00e9 e002       |    |		Load	0x0,0x2
00ea 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00eb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ec 011c       |    |		Execute	Any,Convert_Unchecked
00ed 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ee 01cc       |    |		Execute	Vector,Catenate
00ef 01cb       |    |		Execute	Vector,Append
00f0 e004       |    |		Load	0x0,0x4
00f1 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00f2 e408       |    |		Load	0x2,0x8
00f3 0257       | W  |		Execute	Discrete,Raise
00f4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e7ff       |    |		Load	0x3,-0x1
00fc 6811       |h   |		Jump_Zero	0x10e
00fd 0092 019f  |    |		Action	Push_String_Extended,0x19f					; "Bad Error Status ("
00ff e7ff       |    |		Load	0x3,-0x1
0100 e002       |    |		Load	0x0,0x2
0101 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0102 011c       |    |		Execute	Any,Convert_Unchecked
0103 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0104 01cc       |    |		Execute	Vector,Catenate
0105 0092 01a0  |    |		Action	Push_String_Extended,0x1a0					; "), While "
0107 01cc       |    |		Execute	Vector,Catenate
0108 e7fe       |    |		Load	0x3,-0x2
0109 01cc       |    |		Execute	Vector,Catenate
010a e004       |    |		Load	0x0,0x4
010b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
010c e408       |    |		Load	0x2,0x8
010d 0257       | W  |		Execute	Discrete,Raise
010e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011d       |    |		.CONST	0x011d								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0004       |    |		.CONST	0x0004								; Number of locals
0113			INIT_0110:
0113 e002       |    |		Load	0x0,0x2
0114 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0115 e7ff       |    |		Load	0x3,-0x1
0116 e002       |    |		Load	0x0,0x2
0117 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0118 e002       |    |		Load	0x0,0x2
0119 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
011a 03f1       |    |		Declare_Variable	Discrete,With_Value
011b 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
011d			BODY_0110:
011d e603       |    |		Load	0x3,0x3
011e e00a       |    |		Load	0x0,0xa
011f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0120 027f       |    |		Execute	Discrete,Equal
0121 7026       |p&  |		Jump_Nonzero	0x148
0122 e603       |    |		Load	0x3,0x3
0123 e00a       |    |		Load	0x0,0xa
0124 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0125 027f       |    |		Execute	Discrete,Equal
0126 7021       |p!  |		Jump_Nonzero	0x148
0127 e603       |    |		Load	0x3,0x3
0128 e00a       |    |		Load	0x0,0xa
0129 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
012a 027f       |    |		Execute	Discrete,Equal
012b 701c       |p   |		Jump_Nonzero	0x148
012c e603       |    |		Load	0x3,0x3
012d e00a       |    |		Load	0x0,0xa
012e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
012f 027f       |    |		Execute	Discrete,Equal
0130 7017       |p   |		Jump_Nonzero	0x148
0131 e603       |    |		Load	0x3,0x3
0132 e00a       |    |		Load	0x0,0xa
0133 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0134 027f       |    |		Execute	Discrete,Equal
0135 7012       |p   |		Jump_Nonzero	0x148
0136 e603       |    |		Load	0x3,0x3
0137 e406       |    |		Load	0x2,0x6
0138 027f       |    |		Execute	Discrete,Equal
0139 700e       |p   |		Jump_Nonzero	0x148
013a e603       |    |		Load	0x3,0x3
013b e407       |    |		Load	0x2,0x7
013c 027f       |    |		Execute	Discrete,Equal
013d 700a       |p   |		Jump_Nonzero	0x148
013e e603       |    |		Load	0x3,0x3
013f e00a       |    |		Load	0x0,0xa
0140 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0141 027f       |    |		Execute	Discrete,Equal
0142 7005       |p   |		Jump_Nonzero	0x148
0143 e603       |    |		Load	0x3,0x3
0144 e00a       |    |		Load	0x0,0xa
0145 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0146 027f       |    |		Execute	Discrete,Equal
0147 681f       |h   |		Jump_Zero	0x167
0148 0092 01a1  |    |		Action	Push_String_Extended,0x1a1					; "Directory: "
014a e7ff       |    |		Load	0x3,-0x1
014b e002       |    |		Load	0x0,0x2
014c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
014d 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
014e 01cc       |    |		Execute	Vector,Catenate
014f e004       |    |		Load	0x0,0x4
0150 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0151 8604       |    |		Call	0x3,0x4
0152 e603       |    |		Load	0x3,0x3
0153 e00a       |    |		Load	0x0,0xa
0154 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0155 027f       |    |		Execute	Discrete,Equal
0156 7010       |p   |		Jump_Nonzero	0x167
0157 e002       |    |		Load	0x0,0x2
0158 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0159 600e       |`   |		Indirect_Literal	Discrete,0x168,{0x00000000, 0x00004000}
015a e005       |    |		Load	0x0,0x5
015b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
015c e00a       |    |		Load	0x0,0xa
015d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
015e e7ff       |    |		Load	0x3,-0x1
015f e002       |    |		Load	0x0,0x2
0160 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0161 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0162 c602       |    |		Store	0x3,0x2
0163 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; "Forcing Subclass To World."
0165 e602       |    |		Load	0x3,0x2
0166 840a       |    |		Call	0x2,0xa
0167 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0168 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
016c 0000 0000  |    |		.BLANK	0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0178       | x  |		.CONST	0x0178								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0003       |    |		.CONST	0x0003								; Number of locals
0173			INIT_0170:
0173 e00b       |    |		Load	0x0,0xb
0174 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0175 e002       |    |		Load	0x0,0x2
0176 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0177 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0178			BODY_0170:
0178 e002       |    |		Load	0x0,0x2
0179 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
017a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
017b e00b       |    |		Load	0x0,0xb
017c 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
017d e002       |    |		Load	0x0,0x2
017e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017f 67e8       |g   |		Indirect_Literal	Discrete,0x168,{0x00000000, 0x00004000}
0180 e005       |    |		Load	0x0,0x5
0181 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0182 4800       |H   |		Short_Literal	0x0
0183 e00b       |    |		Load	0x0,0xb
0184 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0185 e7ff       |    |		Load	0x3,-0x1
0186 e002       |    |		Load	0x0,0x2
0187 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0188 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0189 c602       |    |		Store	0x3,0x2
018a c802       |    |		Store	0x4,0x2
018b c803       |    |		Store	0x4,0x3
018c 0092 01a3  |    |		Action	Push_String_Extended,0x1a3					; "Setting target key"
018e e602       |    |		Load	0x3,0x2
018f 840a       |    |		Call	0x2,0xa
0190 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0191 ; --------------------------------------------------------------------------------------
0191 ; STRING TABLE
0191 ; --------------------------------------------------------------------------------------
0191 0028       | (  |		.STRTAB	0x0028->0x01a5							; "SYSTEM_SUBSYSTEM"
0192 0036       | 6  |		.STRTAB	0x0036->0x01ad							; "SYSTEM_VIEW"
0193 003f       | ?  |		.STRTAB	0x003f->0x01b2							; "Resolving all subobjects of "
0194 0059       | Y  |		.STRTAB	0x0059->0x01c0							; "].??"
0195 005b       | [  |		.STRTAB	0x005b->0x01c2							; "Melting All Frozen and Slushy Objects ..."
0196 0082       |    |		.STRTAB	0x0082->0x01d7							; "Getting Object From Iterator."
0197 009d       |    |		.STRTAB	0x009d->0x01e5							; "Making Object Uncontrolled."
0198 00b6       |    |		.STRTAB	0x00b6->0x01f3							; "Unfreezing Object."
0199 00c6       |    |		.STRTAB	0x00c6->0x01fc							; "Destroying Melted Objects ..."
019a 00e1       |    |		.STRTAB	0x00e1->0x020a							; "<ALL_WORLDS>"
019b 00eb       |    |		.STRTAB	0x00eb->0x0210							; "Done."
019c 00ee       |    |		.STRTAB	0x00ee->0x0213							; "Fatal Error, Terminating ..."
019d 0108       |    |		.STRTAB	0x0108->0x0221							; "Unhandled Exception, Raising ..."
019e 0126       | &  |		.STRTAB	0x0126->0x0231							; "Bad Naming Status ("
019f 0137       | 7  |		.STRTAB	0x0137->0x023a							; "Bad Error Status ("
01a0 0147       | G  |		.STRTAB	0x0147->0x0243							; "), While "
01a1 014e       | N  |		.STRTAB	0x014e->0x0248							; "Directory: "
01a2 0157       | W  |		.STRTAB	0x0157->0x024d							; "Forcing Subclass To World."
01a3 016f       | o  |		.STRTAB	0x016f->0x025a							; "Setting target key"
01a4 017f       |    |		.STREND 0x017f->0x0263
01a5 5359 5354  |SYST|		.STRTAB_STRINGS
0264 0000 0000  |    |		.BLANK	0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug Table
0268 ; --------------------------------------------------------------------------------------
0268 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x976c,0x0000,0x0001,0x0000
026e 0000 0000  |    |		.BLANK	0000[0x192]