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

⟦d7614ffbc⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_2950e5

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0408       |    |		.CONST	0x0408								; 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 0002       |    |		.CONST	0x0002								; 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 0037       | 7  |		.CONST	0x0037								; Address of begin
0019 003b       | ;  |		.CONST	0x003b								; Address of exception handler
001a 000d       |    |		.CONST	0x000d								; Number of locals
001b			INIT_0018:
001b 0093 0000  |    |		push_full_address	0x0
001d 6046       |`F  |		Indirect_Literal	Discrete,0x64,{0x80000000, 0x00010000}
001e 0273       | s  |		Execute	Discrete,Plus
001f 0007       |    |		Action	Break_Optional
0020 e002       |    |		Load	0x0,0x2
0021 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0022 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0023 0092 0278  |   x|		Action	Push_String_Extended,0x278					; "!Targets.Implementation.Release"
0025 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0027 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call
0029 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
002b 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call
002d 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
002f 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0031 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
0033 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
0035 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
0037			BODY_0018:
0037 840a       |    |		Call	0x2,0xa
0038 840b       |    |		Call	0x2,0xb
0039 840c       |    |		Call	0x2,0xc
003a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
003b			TRAP_0018:
003b e402       |    |		Load	0x2,0x2
003c 010f       |    |		Execute	Exception,Equal
003d 6812       |h   |		Jump_Zero	0x50
003e e003       |    |		Load	0x0,0x3
003f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0040 4805       |H   |		Short_Literal	0x5
0041 0092 0279  |   y|		Action	Push_String_Extended,0x279					; "Unable to install "
0043 e5ff       |    |		Load	0x2,-0x1
0044 01cc       |    |		Execute	Vector,Catenate
0045 0092 027a  |   z|		Action	Push_String_Extended,0x27a					; " due to unhandled exception "
0047 01cc       |    |		Execute	Vector,Catenate
0048 4800       |H   |		Short_Literal	0x0
0049 4801       |H   |		Short_Literal	0x1
004a e004       |    |		Load	0x0,0x4
004b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
004c 01cc       |    |		Execute	Vector,Catenate
004d e005       |    |		Load	0x0,0x5
004e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
004f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0050 e003       |    |		Load	0x0,0x3
0051 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0052 4805       |H   |		Short_Literal	0x5
0053 0092 0279  |   y|		Action	Push_String_Extended,0x279					; "Unable to install "
0055 8406       |    |		Call	0x2,0x6
0056 01cc       |    |		Execute	Vector,Catenate
0057 0092 027a  |   z|		Action	Push_String_Extended,0x27a					; " due to unhandled exception "
0059 01cc       |    |		Execute	Vector,Catenate
005a 4800       |H   |		Short_Literal	0x0
005b 4801       |H   |		Short_Literal	0x1
005c e004       |    |		Load	0x0,0x4
005d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
005e 01cc       |    |		Execute	Vector,Catenate
005f e005       |    |		Load	0x0,0x5
0060 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0061 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0062 0000 0000  |    |		.XXX[0x2]
0064 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b e403       |    |		Load	0x2,0x3
006c 01db       |    |		Execute	Vector,Length
006d 0c20       |    |		Execute_Immediate	Greater_Equal,0x20
006e 681e       |h   |		Jump_Zero	0x8d
006f 4801       |H   |		Short_Literal	0x1
0070 e403       |    |		Load	0x2,0x3
0071 01dd       |    |		Execute	Vector,First
0072 e403       |    |		Load	0x2,0x3
0073 01dd       |    |		Execute	Vector,First
0074 0a1e       |    |		Execute_Immediate	Plus,0x1e
0075 00d8       |    |		Load_Top	At_Offset_0
0076 00e2       |    |		Load_Encached	Integer_Cache
0077 0260       | `  |		Execute	Discrete,In_Type
0078 7001       |p   |		Jump_Nonzero	0x7a
0079 0801       |    |		Execute_Immediate	Raise,0x1
007a e403       |    |		Load	0x2,0x3
007b 01cf       |    |		Execute	Vector,Slice_Read
007c e404       |    |		Load	0x2,0x4
007d e006       |    |		Load	0x0,0x6
007e 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
007f 680d       |h   |		Jump_Zero	0x8d
0080 e403       |    |		Load	0x2,0x3
0081 01dd       |    |		Execute	Vector,First
0082 0a1f       |    |		Execute_Immediate	Plus,0x1f
0083 00d8       |    |		Load_Top	At_Offset_0
0084 00e2       |    |		Load_Encached	Integer_Cache
0085 0260       | `  |		Execute	Discrete,In_Type
0086 7001       |p   |		Jump_Nonzero	0x88
0087 0801       |    |		Execute_Immediate	Raise,0x1
0088 e403       |    |		Load	0x2,0x3
0089 01dc       |    |		Execute	Vector,Last
008a e403       |    |		Load	0x2,0x3
008b 01cf       |    |		Execute	Vector,Slice_Read
008c 00ca       |    |		Action	Exit_Nullary_Function
008d e402       |    |		Load	0x2,0x2
008e 0257       | W  |		Execute	Discrete,Raise
008f 0000       |    |		.XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095       |    |		.CONST	0x0095								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 029f 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Call
0095			BODY_0090:
0095 4801       |H   |		Short_Literal	0x1
0096 0092 027b  |   {|		Action	Push_String_Extended,0x27b					; "<DEFAULT>"
0098 e5fe       |    |		Load	0x2,-0x2
0099 e006       |    |		Load	0x0,0x6
009a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
009b 6802       |h   |		Jump_Zero	0x9e
009c 8602       |    |		Call	0x3,0x2
009d 7804       |x   |		Jump	0xa2
009e e5fe       |    |		Load	0x2,-0x2
009f 0335       | 5  |		Declare_Variable	Array,Duplicate
00a0 00cd       |    |		Action	Spare6_Action
00a1 00ca       |    |		Action	Exit_Nullary_Function
00a2 0831       | 1  |		Execute_Immediate	Raise,0x31
00a3 0000 0000  |    |		.BLANK	0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ad       |    |		.CONST	0x00ad								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab 029f 021b  |    |		Declare_Subprogram	INIT_0218,For_Call
00ad			BODY_00a8:
00ad 4801       |H   |		Short_Literal	0x1
00ae 0092 027b  |   {|		Action	Push_String_Extended,0x27b					; "<DEFAULT>"
00b0 e5fe       |    |		Load	0x2,-0x2
00b1 e006       |    |		Load	0x0,0x6
00b2 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00b3 6802       |h   |		Jump_Zero	0xb6
00b4 8602       |    |		Call	0x3,0x2
00b5 7804       |x   |		Jump	0xba
00b6 e5fe       |    |		Load	0x2,-0x2
00b7 0335       | 5  |		Declare_Variable	Array,Duplicate
00b8 00cd       |    |		Action	Spare6_Action
00b9 00ca       |    |		Action	Exit_Nullary_Function
00ba 0831       | 1  |		Execute_Immediate	Raise,0x31
00bb 0000 0000  |    |		.BLANK	0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5       |    |		.CONST	0x00c5								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
00c5			BODY_00c0:
00c5 4801       |H   |		Short_Literal	0x1
00c6 0092 027b  |   {|		Action	Push_String_Extended,0x27b					; "<DEFAULT>"
00c8 e5fd       |    |		Load	0x2,-0x3
00c9 e006       |    |		Load	0x0,0x6
00ca 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00cb 6802       |h   |		Jump_Zero	0xce
00cc 8602       |    |		Call	0x3,0x2
00cd 7804       |x   |		Jump	0xd2
00ce e5fd       |    |		Load	0x2,-0x3
00cf 0335       | 5  |		Declare_Variable	Array,Duplicate
00d0 00cd       |    |		Action	Spare6_Action
00d1 00ca       |    |		Action	Exit_Nullary_Function
00d2 0831       | 1  |		Execute_Immediate	Raise,0x31
00d3 0000 0000  |    |		.BLANK	0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 0092 027c  |   ||		Action	Push_String_Extended,0x27c					; "!targets.implementation.release_"
00dd 8406       |    |		Call	0x2,0x6
00de 01cc       |    |		Execute	Vector,Catenate
00df 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "_"
00e1 01cc       |    |		Execute	Vector,Catenate
00e2 8407       |    |		Call	0x2,0x7
00e3 01cc       |    |		Execute	Vector,Catenate
00e4 8408       |    |		Call	0x2,0x8
00e5 01cc       |    |		Execute	Vector,Catenate
00e6 00ca       |    |		Action	Exit_Nullary_Function
00e7 0000       |    |		.XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 010f       |    |		.CONST	0x010f								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb e003       |    |		Load	0x0,0x3
00ec 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ed 4802       |H   |		Short_Literal	0x2
00ee 0092 027e  |   ~|		Action	Push_String_Extended,0x27e					; "Restoring predefined world"
00f0 e005       |    |		Load	0x0,0x5
00f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f2 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "<PROFILE>"
00f4 8409       |    |		Call	0x2,0x9
00f5 0092 0280  |    |		Action	Push_String_Extended,0x280					; ".predefined_archive"
00f7 01cc       |    |		Execute	Vector,Catenate
00f8 0092 0281  |    |		Action	Push_String_Extended,0x281					; "changed_objects replace"
00fa 0092 0282  |    |		Action	Push_String_Extended,0x282					; "*"
00fc 0092 0282  |    |		Action	Push_String_Extended,0x282					; "*"
00fe 0092 0283  |    |		Action	Push_String_Extended,0x283					; "[?,~!Targets."
0100 8406       |    |		Call	0x2,0x6
0101 01cc       |    |		Execute	Vector,Catenate
0102 0092 0284  |    |		Action	Push_String_Extended,0x284					; "]"
0104 01cc       |    |		Execute	Vector,Catenate
0105 e007       |    |		Load	0x0,0x7
0106 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0107 e003       |    |		Load	0x0,0x3
0108 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0109 4802       |H   |		Short_Literal	0x2
010a 0092 0285  |    |		Action	Push_String_Extended,0x285					; "Successfully restored predefined world"
010c e005       |    |		Load	0x0,0x5
010d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
010e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010f			TRAP_00e8:
010f 0007       |    |		Action	Break_Optional
0110 e003       |    |		Load	0x0,0x3
0111 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0112 4807       |H   |		Short_Literal	0x7
0113 4800       |H   |		Short_Literal	0x0
0114 4801       |H   |		Short_Literal	0x1
0115 e004       |    |		Load	0x0,0x4
0116 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0117 0092 0286  |    |		Action	Push_String_Extended,0x286					; " raised in Restore_Predefined"
0119 01cc       |    |		Execute	Vector,Catenate
011a e005       |    |		Load	0x0,0x5
011b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011c 00d8       |    |		Load_Top	At_Offset_0
011d 0101       |    |		Execute	Exception,Reraise
011e 0000 0000  |    |		.XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0148       | H  |		.CONST	0x0148								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 e003       |    |		Load	0x0,0x3
0124 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0125 4802       |H   |		Short_Literal	0x2
0126 0092 0287  |    |		Action	Push_String_Extended,0x287					; "Merging "
0128 8409       |    |		Call	0x2,0x9
0129 01cc       |    |		Execute	Vector,Catenate
012a 0092 0288  |    |		Action	Push_String_Extended,0x288					; ".install_activity into !machine.release.current.activity"
012c 01cc       |    |		Execute	Vector,Catenate
012d e005       |    |		Load	0x0,0x5
012e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
012f 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "<PROFILE>"
0131 0092 0289  |    |		Action	Push_String_Extended,0x289					; "!machine.release.current.activity"
0133 4801       |H   |		Short_Literal	0x1
0134 0092 028a  |    |		Action	Push_String_Extended,0x28a					; "?"
0136 0092 028a  |    |		Action	Push_String_Extended,0x28a					; "?"
0138 0092 028a  |    |		Action	Push_String_Extended,0x28a					; "?"
013a 8409       |    |		Call	0x2,0x9
013b 0092 028b  |    |		Action	Push_String_Extended,0x28b					; ".install_activity"
013d 01cc       |    |		Execute	Vector,Catenate
013e e008       |    |		Load	0x0,0x8
013f 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0140 e003       |    |		Load	0x0,0x3
0141 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0142 4802       |H   |		Short_Literal	0x2
0143 0092 028c  |    |		Action	Push_String_Extended,0x28c					; "Successfully merged activities"
0145 e005       |    |		Load	0x0,0x5
0146 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0147 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0148			TRAP_0120:
0148 0007       |    |		Action	Break_Optional
0149 e003       |    |		Load	0x0,0x3
014a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014b 4807       |H   |		Short_Literal	0x7
014c 4800       |H   |		Short_Literal	0x0
014d 4801       |H   |		Short_Literal	0x1
014e e004       |    |		Load	0x0,0x4
014f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0150 0092 028d  |    |		Action	Push_String_Extended,0x28d					; " raised in Merge_Activities"
0152 01cc       |    |		Execute	Vector,Catenate
0153 e005       |    |		Load	0x0,0x5
0154 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0155 00d8       |    |		Load_Top	At_Offset_0
0156 0101       |    |		Execute	Exception,Reraise
0157 0000       |    |		.XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015c       | \  |		.CONST	0x015c								; Address of begin
0159 017e       | ~  |		.CONST	0x017e								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b 8406       |    |		Call	0x2,0x6
015c			BODY_0158:
015c e003       |    |		Load	0x0,0x3
015d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
015e 4802       |H   |		Short_Literal	0x2
015f 0092 028e  |    |		Action	Push_String_Extended,0x28e					; "Replacing link to "
0161 00db       |    |		Load_Top	At_Offset_3
0162 01cc       |    |		Execute	Vector,Catenate
0163 e005       |    |		Load	0x0,0x5
0164 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0165 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "<PROFILE>"
0167 0092 028f  |    |		Action	Push_String_Extended,0x28f					; "!machine.release.current.commands"
0169 0092 0290  |    |		Action	Push_String_Extended,0x290					; "#"
016b 0092 0291  |    |		Action	Push_String_Extended,0x291					; "!targets.implementation.Rcf_customization."
016d e602       |    |		Load	0x3,0x2
016e 01cc       |    |		Execute	Vector,Catenate
016f 0092 0292  |    |		Action	Push_String_Extended,0x292					; "'spec_view.units."
0171 01cc       |    |		Execute	Vector,Catenate
0172 e602       |    |		Load	0x3,0x2
0173 01cc       |    |		Execute	Vector,Catenate
0174 e009       |    |		Load	0x0,0x9
0175 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0176 e003       |    |		Load	0x0,0x3
0177 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0178 4802       |H   |		Short_Literal	0x2
0179 0092 0293  |    |		Action	Push_String_Extended,0x293					; "Successfully replaced link"
017b e005       |    |		Load	0x0,0x5
017c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
017d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017e			TRAP_0158:
017e 0007       |    |		Action	Break_Optional
017f e003       |    |		Load	0x0,0x3
0180 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0181 4806       |H   |		Short_Literal	0x6
0182 0092 0294  |    |		Action	Push_String_Extended,0x294					; "Unable to define link to "
0184 e602       |    |		Load	0x3,0x2
0185 01cc       |    |		Execute	Vector,Catenate
0186 e005       |    |		Load	0x0,0x5
0187 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0188 e003       |    |		Load	0x0,0x3
0189 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
018a 4802       |H   |		Short_Literal	0x2
018b 4800       |H   |		Short_Literal	0x0
018c 4801       |H   |		Short_Literal	0x1
018d e004       |    |		Load	0x0,0x4
018e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
018f 0092 0295  |    |		Action	Push_String_Extended,0x295					; " raised in Replace_Links"
0191 01cc       |    |		Execute	Vector,Catenate
0192 e005       |    |		Load	0x0,0x5
0193 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0194 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0195 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019c       |    |		.CONST	0x019c								; Address of begin
0199 01bc       |    |		.CONST	0x01bc								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b 8406       |    |		Call	0x2,0x6
019c			BODY_0198:
019c e003       |    |		Load	0x0,0x3
019d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
019e 4802       |H   |		Short_Literal	0x2
019f 0092 0296  |    |		Action	Push_String_Extended,0x296					; "Registering target "
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 01cc       |    |		Execute	Vector,Catenate
01a3 e005       |    |		Load	0x0,0x5
01a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a5 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "<PROFILE>"
01a7 00ea       |    |		Load_Encached	Null_String_Cache
01a8 4800       |H   |		Short_Literal	0x0
01a9 0092 0297  |    |		Action	Push_String_Extended,0x297					; "$"
01ab 4800       |H   |		Short_Literal	0x0
01ac e602       |    |		Load	0x3,0x2
01ad 0092 0298  |    |		Action	Push_String_Extended,0x298					; ".register"
01af 01cc       |    |		Execute	Vector,Catenate
01b0 e00a       |    |		Load	0x0,0xa
01b1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b2 e003       |    |		Load	0x0,0x3
01b3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01b4 4802       |H   |		Short_Literal	0x2
01b5 0092 0299  |    |		Action	Push_String_Extended,0x299					; "Successfully registered target "
01b7 00db       |    |		Load_Top	At_Offset_3
01b8 01cc       |    |		Execute	Vector,Catenate
01b9 e005       |    |		Load	0x0,0x5
01ba 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01bb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01bc			TRAP_0198:
01bc 0007       |    |		Action	Break_Optional
01bd e003       |    |		Load	0x0,0x3
01be 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01bf 4802       |H   |		Short_Literal	0x2
01c0 4800       |H   |		Short_Literal	0x0
01c1 4801       |H   |		Short_Literal	0x1
01c2 e004       |    |		Load	0x0,0x4
01c3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c4 0092 029a  |    |		Action	Push_String_Extended,0x29a					; " raised in Register_Target"
01c6 01cc       |    |		Execute	Vector,Catenate
01c7 e005       |    |		Load	0x0,0x5
01c8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c9 00d8       |    |		Load_Top	At_Offset_0
01ca 0101       |    |		Execute	Exception,Reraise
01cb 0000 0000  |    |		.BLANK	0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01fa       |    |		.CONST	0x01fa								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0005       |    |		.CONST	0x0005								; Number of locals
01d3			INIT_01d0:
01d3 8405       |    |		Call	0x2,0x5
01d4 4801       |H   |		Short_Literal	0x1
01d5 00d9       |    |		Load_Top	At_Offset_1
01d6 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "_"
01d8 e006       |    |		Load	0x0,0x6
01d9 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01da 4801       |H   |		Short_Literal	0x1
01db 00da       |    |		Load_Top	At_Offset_2
01dc 01dd       |    |		Execute	Vector,First
01dd 00da       |    |		Load_Top	At_Offset_2
01de 0aff       |    |		Execute_Immediate	Plus,-0x1
01df 00d8       |    |		Load_Top	At_Offset_0
01e0 00e2       |    |		Load_Encached	Integer_Cache
01e1 0260       | `  |		Execute	Discrete,In_Type
01e2 7001       |p   |		Jump_Nonzero	0x1e4
01e3 0801       |    |		Execute_Immediate	Raise,0x1
01e4 e802       |    |		Load	0x4,0x2
01e5 01cf       |    |		Execute	Vector,Slice_Read
01e6 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "_"
01e8 e006       |    |		Load	0x0,0x6
01e9 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01ea 4801       |H   |		Short_Literal	0x1
01eb 00db       |    |		Load_Top	At_Offset_3
01ec 01dd       |    |		Execute	Vector,First
01ed 00da       |    |		Load_Top	At_Offset_2
01ee 0aff       |    |		Execute_Immediate	Plus,-0x1
01ef 00d8       |    |		Load_Top	At_Offset_0
01f0 00e2       |    |		Load_Encached	Integer_Cache
01f1 0260       | `  |		Execute	Discrete,In_Type
01f2 7001       |p   |		Jump_Nonzero	0x1f4
01f3 0801       |    |		Execute_Immediate	Raise,0x1
01f4 e802       |    |		Load	0x4,0x2
01f5 01cf       |    |		Execute	Vector,Slice_Read
01f6 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "_"
01f8 e006       |    |		Load	0x0,0x6
01f9 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01fa			BODY_01d0:
01fa 00d8       |    |		Load_Top	At_Offset_0
01fb e802       |    |		Load	0x4,0x2
01fc 01dd       |    |		Execute	Vector,First
01fd 027d       | }  |		Execute	Discrete,Greater
01fe 6813       |h   |		Jump_Zero	0x212
01ff 00db       |    |		Load_Top	At_Offset_3
0200 01dd       |    |		Execute	Vector,First
0201 0a01       |    |		Execute_Immediate	Plus,0x1
0202 00d8       |    |		Load_Top	At_Offset_0
0203 00e2       |    |		Load_Encached	Integer_Cache
0204 0260       | `  |		Execute	Discrete,In_Type
0205 7001       |p   |		Jump_Nonzero	0x207
0206 0801       |    |		Execute_Immediate	Raise,0x1
0207 00d9       |    |		Load_Top	At_Offset_1
0208 0aff       |    |		Execute_Immediate	Plus,-0x1
0209 00d8       |    |		Load_Top	At_Offset_0
020a 00e2       |    |		Load_Encached	Integer_Cache
020b 0260       | `  |		Execute	Discrete,In_Type
020c 7001       |p   |		Jump_Nonzero	0x20e
020d 0801       |    |		Execute_Immediate	Raise,0x1
020e e802       |    |		Load	0x4,0x2
020f 01cf       |    |		Execute	Vector,Slice_Read
0210 00cb       |    |		Action	Pop_Block_With_Result
0211 00ca       |    |		Action	Exit_Nullary_Function
0212 e402       |    |		Load	0x2,0x2
0213 0257       | W  |		Execute	Discrete,Raise
0214 0000 0000  |    |		.BLANK	0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0242       | B  |		.CONST	0x0242								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0005       |    |		.CONST	0x0005								; Number of locals
021b			INIT_0218:
021b 8405       |    |		Call	0x2,0x5
021c 4801       |H   |		Short_Literal	0x1
021d 00d9       |    |		Load_Top	At_Offset_1
021e 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "_"
0220 e006       |    |		Load	0x0,0x6
0221 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0222 4801       |H   |		Short_Literal	0x1
0223 00da       |    |		Load_Top	At_Offset_2
0224 01dd       |    |		Execute	Vector,First
0225 00da       |    |		Load_Top	At_Offset_2
0226 0aff       |    |		Execute_Immediate	Plus,-0x1
0227 00d8       |    |		Load_Top	At_Offset_0
0228 00e2       |    |		Load_Encached	Integer_Cache
0229 0260       | `  |		Execute	Discrete,In_Type
022a 7001       |p   |		Jump_Nonzero	0x22c
022b 0801       |    |		Execute_Immediate	Raise,0x1
022c e802       |    |		Load	0x4,0x2
022d 01cf       |    |		Execute	Vector,Slice_Read
022e 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "_"
0230 e006       |    |		Load	0x0,0x6
0231 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0232 4801       |H   |		Short_Literal	0x1
0233 00db       |    |		Load_Top	At_Offset_3
0234 01dd       |    |		Execute	Vector,First
0235 00da       |    |		Load_Top	At_Offset_2
0236 0aff       |    |		Execute_Immediate	Plus,-0x1
0237 00d8       |    |		Load_Top	At_Offset_0
0238 00e2       |    |		Load_Encached	Integer_Cache
0239 0260       | `  |		Execute	Discrete,In_Type
023a 7001       |p   |		Jump_Nonzero	0x23c
023b 0801       |    |		Execute_Immediate	Raise,0x1
023c e802       |    |		Load	0x4,0x2
023d 01cf       |    |		Execute	Vector,Slice_Read
023e 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "_"
0240 e006       |    |		Load	0x0,0x6
0241 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0242			BODY_0218:
0242 00d8       |    |		Load_Top	At_Offset_0
0243 e802       |    |		Load	0x4,0x2
0244 01dd       |    |		Execute	Vector,First
0245 027d       | }  |		Execute	Discrete,Greater
0246 6812       |h   |		Jump_Zero	0x259
0247 00d8       |    |		Load_Top	At_Offset_0
0248 0a01       |    |		Execute_Immediate	Plus,0x1
0249 00d8       |    |		Load_Top	At_Offset_0
024a 00e2       |    |		Load_Encached	Integer_Cache
024b 0260       | `  |		Execute	Discrete,In_Type
024c 7001       |p   |		Jump_Nonzero	0x24e
024d 0801       |    |		Execute_Immediate	Raise,0x1
024e 00db       |    |		Load_Top	At_Offset_3
024f 0aff       |    |		Execute_Immediate	Plus,-0x1
0250 00d8       |    |		Load_Top	At_Offset_0
0251 00e2       |    |		Load_Encached	Integer_Cache
0252 0260       | `  |		Execute	Discrete,In_Type
0253 7001       |p   |		Jump_Nonzero	0x255
0254 0801       |    |		Execute_Immediate	Raise,0x1
0255 e802       |    |		Load	0x4,0x2
0256 01cf       |    |		Execute	Vector,Slice_Read
0257 00cb       |    |		Action	Pop_Block_With_Result
0258 00ca       |    |		Action	Exit_Nullary_Function
0259 e402       |    |		Load	0x2,0x2
025a 0257       | W  |		Execute	Discrete,Raise
025b 0000 0000  |    |		.BLANK	0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026a       | j  |		.CONST	0x026a								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0003       |    |		.CONST	0x0003								; Number of locals
0263			INIT_0260:
0263 8405       |    |		Call	0x2,0x5
0264 4801       |H   |		Short_Literal	0x1
0265 00d9       |    |		Load_Top	At_Offset_1
0266 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "_"
0268 e006       |    |		Load	0x0,0x6
0269 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
026a			BODY_0260:
026a 00d8       |    |		Load_Top	At_Offset_0
026b 00da       |    |		Load_Top	At_Offset_2
026c 01dd       |    |		Execute	Vector,First
026d 027d       | }  |		Execute	Discrete,Greater
026e 6807       |h   |		Jump_Zero	0x276
026f 00d8       |    |		Load_Top	At_Offset_0
0270 00da       |    |		Load_Top	At_Offset_2
0271 01dc       |    |		Execute	Vector,Last
0272 00db       |    |		Load_Top	At_Offset_3
0273 01cf       |    |		Execute	Vector,Slice_Read
0274 00cb       |    |		Action	Pop_Block_With_Result
0275 00ca       |    |		Action	Exit_Nullary_Function
0276 e402       |    |		Load	0x2,0x2
0277 0257       | W  |		Execute	Discrete,Raise
0278 ; --------------------------------------------------------------------------------------
0278 ; STRING TABLE
0278 ; --------------------------------------------------------------------------------------
0278 0048       | H  |		.STRTAB	0x0048->0x029c							; "!Targets.Implementation.Release"
0279 0065       | e  |		.STRTAB	0x0065->0x02ab							; "Unable to install "
027a 0075       | u  |		.STRTAB	0x0075->0x02b4							; " due to unhandled exception "
027b 008f       |    |		.STRTAB	0x008f->0x02c2							; "<DEFAULT>"
027c 0096       |    |		.STRTAB	0x0096->0x02c7							; "!targets.implementation.release_"
027d 00b4       |    |		.STRTAB	0x00b4->0x02d7							; "_"
027e 00b3       |    |		.STRTAB	0x00b3->0x02d7							; "Restoring predefined world"
027f 00cb       |    |		.STRTAB	0x00cb->0x02e4							; "<PROFILE>"
0280 00d2       |    |		.STRTAB	0x00d2->0x02e9							; ".predefined_archive"
0281 00e3       |    |		.STRTAB	0x00e3->0x02f2							; "changed_objects replace"
0282 00f8       |    |		.STRTAB	0x00f8->0x02fe							; "*"
0283 00f7       |    |		.STRTAB	0x00f7->0x02fe							; "[?,~!Targets."
0284 0102       |    |		.STRTAB	0x0102->0x0305							; "]"
0285 0101       |    |		.STRTAB	0x0101->0x0305							; "Successfully restored predefined world"
0286 0125       | %  |		.STRTAB	0x0125->0x0318							; " raised in Restore_Predefined"
0287 0140       | @  |		.STRTAB	0x0140->0x0327							; "Merging "
0288 0146       | F  |		.STRTAB	0x0146->0x032b							; ".install_activity into !machine.release.current.activity"
0289 017c       | |  |		.STRTAB	0x017c->0x0347							; "!machine.release.current.activity"
028a 019b       |    |		.STRTAB	0x019b->0x0357							; "?"
028b 019a       |    |		.STRTAB	0x019a->0x0358							; ".install_activity"
028c 01a9       |    |		.STRTAB	0x01a9->0x0360							; "Successfully merged activities"
028d 01c5       |    |		.STRTAB	0x01c5->0x036f							; " raised in Merge_Activities"
028e 01de       |    |		.STRTAB	0x01de->0x037d							; "Replacing link to "
028f 01ee       |    |		.STRTAB	0x01ee->0x0386							; "!machine.release.current.commands"
0290 020d       |    |		.STRTAB	0x020d->0x0396							; "#"
0291 020c       |    |		.STRTAB	0x020c->0x0397							; "!targets.implementation.Rcf_customization."
0292 0234       | 4  |		.STRTAB	0x0234->0x03ac							; "'spec_view.units."
0293 0243       | C  |		.STRTAB	0x0243->0x03b4							; "Successfully replaced link"
0294 025b       | [  |		.STRTAB	0x025b->0x03c1							; "Unable to define link to "
0295 0272       | r  |		.STRTAB	0x0272->0x03ce							; " raised in Replace_Links"
0296 0288       |    |		.STRTAB	0x0288->0x03da							; "Registering target "
0297 0299       |    |		.STRTAB	0x0299->0x03e3							; "$"
0298 0298       |    |		.STRTAB	0x0298->0x03e4							; ".register"
0299 029f       |    |		.STRTAB	0x029f->0x03e8							; "Successfully registered target "
029a 02bc       |    |		.STRTAB	0x02bc->0x03f8							; " raised in Register_Target"
029b 02d4       |    |		.STREND 0x02d4->0x0405
029c 2154 6172  |!Tar|		.STRTAB_STRINGS
0405 0000 0000  |    |		.XXX[0x3]
0407 0000       |    |
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug Table
0408 ; --------------------------------------------------------------------------------------
0408 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x1965,0x0000,0x0001,0x000e
040e 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
0412 001b 0446  |   F|		.DBG4T	0x001b,0x0446,0x8001,0x0000
0416 006b 0459  | k Y|		.DBG4T	0x006b,0x0459,0x0002,0x0000
041a 0093 045e  |   ^|		.DBG4T	0x0093,0x045e,0x0002,0x0000
041e 00ab 0463  |   c|		.DBG4T	0x00ab,0x0463,0x0002,0x0000
0422 00c3 0468  |   h|		.DBG4T	0x00c3,0x0468,0x0002,0x0000
0426 00db 046d  |   m|		.DBG4T	0x00db,0x046d,0x0002,0x0000
042a 00eb 0470  |   p|		.DBG4T	0x00eb,0x0470,0x0001,0x0000
042e 0123 0477  | # w|		.DBG4T	0x0123,0x0477,0x0001,0x0000
0432 015b 047e  | [ ~|		.DBG4T	0x015b,0x047e,0x0001,0x0000
0436 019b 0486  |    |		.DBG4T	0x019b,0x0486,0x0001,0x0000
043a 01d3 048e  |    |		.DBG4T	0x01d3,0x048e,0x0004,0x0000
043e 021b 0497  |    |		.DBG4T	0x021b,0x0497,0x0004,0x0000
0442 0263 04a0  | c  |		.DBG4T	0x0263,0x04a0,0x0004,0x0000
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug chain
0446 ; --------------------------------------------------------------------------------------
0446 000c 0005  |    |		.DBGLEN	0x000c,0x0005
0448 001b 0020  |    |		.DBGLNO	0x001b,0x0020,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0038,0x0039,0x003e,0x0050
0459 ; --------------------------------------------------------------------------------------
0459 ; Debug chain
0459 ; --------------------------------------------------------------------------------------
0459 0000 0003  |    |		.DBGLEN	0x0000,0x0003
045b 006b 0080  | k  |		.DBGLNO	0x006b,0x0080,0x008d
045e ; --------------------------------------------------------------------------------------
045e ; Debug chain
045e ; --------------------------------------------------------------------------------------
045e 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0460 0095 009c  |    |		.DBGLNO	0x0095,0x009c,0x009e
0463 ; --------------------------------------------------------------------------------------
0463 ; Debug chain
0463 ; --------------------------------------------------------------------------------------
0463 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0465 00ad 00b4  |    |		.DBGLNO	0x00ad,0x00b4,0x00b6
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug chain
0468 ; --------------------------------------------------------------------------------------
0468 0000 0003  |    |		.DBGLEN	0x0000,0x0003
046a 00c5 00cc  |    |		.DBGLNO	0x00c5,0x00cc,0x00ce
046d ; --------------------------------------------------------------------------------------
046d ; Debug chain
046d ; --------------------------------------------------------------------------------------
046d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
046f 00db       |    |		.DBGLNO	0x00db
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug chain
0470 ; --------------------------------------------------------------------------------------
0470 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0472 00eb 00f2  |    |		.DBGLNO	0x00eb,0x00f2,0x0107,0x0110,0x011c
0477 ; --------------------------------------------------------------------------------------
0477 ; Debug chain
0477 ; --------------------------------------------------------------------------------------
0477 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0479 0123 012f  | # /|		.DBGLNO	0x0123,0x012f,0x0140,0x0149,0x0155
047e ; --------------------------------------------------------------------------------------
047e ; Debug chain
047e ; --------------------------------------------------------------------------------------
047e 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0480 015b 015c  | [ \|		.DBGLNO	0x015b,0x015c,0x0165,0x0176,0x017f,0x0188
0486 ; --------------------------------------------------------------------------------------
0486 ; Debug chain
0486 ; --------------------------------------------------------------------------------------
0486 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0488 019b 019c  |    |		.DBGLNO	0x019b,0x019c,0x01a5,0x01b2,0x01bd,0x01c9
048e ; --------------------------------------------------------------------------------------
048e ; Debug chain
048e ; --------------------------------------------------------------------------------------
048e 0004 0003  |    |		.DBGLEN	0x0004,0x0003
0490 01d3 01d4  |    |		.DBGLNO	0x01d3,0x01d4,0x01da,0x01ea,0x01fa,0x01ff,0x0212
0497 ; --------------------------------------------------------------------------------------
0497 ; Debug chain
0497 ; --------------------------------------------------------------------------------------
0497 0004 0003  |    |		.DBGLEN	0x0004,0x0003
0499 021b 021c  |    |		.DBGLNO	0x021b,0x021c,0x0222,0x0232,0x0242,0x0247,0x0259
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug chain
04a0 ; --------------------------------------------------------------------------------------
04a0 0002 0003  |    |		.DBGLEN	0x0002,0x0003
04a2 0263 0264  | c d|		.DBGLNO	0x0263,0x0264,0x026a,0x026f,0x0276
04a7 0000 0000  |    |		.BLANK	0000[0x159]