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

⟦700e968b3⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02f8       |    |		.CONST	0x02f8								; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x15d, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x166, index=0x0
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			INIT_0008:
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			BODY_0008:
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 008e       |    |		.CONST	0x008e								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000d       |    |		.CONST	0x000d								; Number of locals
001b			INIT_0018:
001b 029e 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Call,Unelaborated
001d 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
001f 0093 0000  |    |		push_full_address	0x0
0021 60c6       |`   |		Indirect_Literal	Discrete,0xe8,{0x80000000, 0x00030000}
0022 0273       | s  |		Execute	Discrete,Plus
0023 e002       |    |		Load	0x0,0x2
0024 0273       | s  |		Execute	Discrete,Plus
0025 e003       |    |		Load	0x0,0x3
0026 0273       | s  |		Execute	Discrete,Plus
0027 8004       |    |		Call	0x0,0x4
0028 00d8       |    |		Load_Top	At_Offset_0
0029 e005       |    |		Load	0x0,0x5
002a 0260       | `  |		Execute	Discrete,In_Type
002b 7001       |p   |		Jump_Nonzero	0x2d
002c 0801       |    |		Execute_Immediate	Raise,0x1
002d 60b6       |`   |		Indirect_Literal	Discrete,0xe4,{0x00000000, 0x00000400}
002e 4803       |H   |		Short_Literal	0x3
002f 4802       |H   |		Short_Literal	0x2
0030 0099       |    |		Action	Reference_Dynamic
0031 e006       |    |		Load	0x0,0x6
0032 0387       |    |		Declare_Variable	Package
0033 00d8       |    |		Load_Top	At_Offset_0
0034 020f       |    |		Execute	Module,Activate
0035 029e 0103  |    |		Declare_Subprogram	INIT_0100,For_Call,Unelaborated
0037 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
0039 0093 0000  |    |		push_full_address	0x0
003b 60a4       |`   |		Indirect_Literal	Discrete,0xe0,{0x80000000, 0x00020000}
003c 0273       | s  |		Execute	Discrete,Plus
003d e002       |    |		Load	0x0,0x2
003e 0273       | s  |		Execute	Discrete,Plus
003f e007       |    |		Load	0x0,0x7
0040 0273       | s  |		Execute	Discrete,Plus
0041 60a2       |`   |		Indirect_Literal	Discrete,0xe4,{0x00000000, 0x00000400}
0042 480a       |H   |		Short_Literal	0xa
0043 4806       |H   |		Short_Literal	0x6
0044 4802       |H   |		Short_Literal	0x2
0045 0099       |    |		Action	Reference_Dynamic
0046 e008       |    |		Load	0x0,0x8
0047 0387       |    |		Declare_Variable	Package
0048 00d8       |    |		Load_Top	At_Offset_0
0049 020f       |    |		Execute	Module,Activate
004a 029e 011b  |    |		Declare_Subprogram	INIT_0118,For_Call,Unelaborated
004c 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
004e 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
0050 0093 0000  |    |		push_full_address	0x0
0052 6089       |`   |		Indirect_Literal	Discrete,0xdc,{0x80000000, 0x00010000}
0053 0273       | s  |		Execute	Discrete,Plus
0054 e002       |    |		Load	0x0,0x2
0055 0273       | s  |		Execute	Discrete,Plus
0056 e009       |    |		Load	0x0,0x9
0057 0273       | s  |		Execute	Discrete,Plus
0058 4809       |H   |		Short_Literal	0x9
0059 4802       |H   |		Short_Literal	0x2
005a 0099       |    |		Action	Reference_Dynamic
005b 480a       |H   |		Short_Literal	0xa
005c 4802       |H   |		Short_Literal	0x2
005d 0099       |    |		Action	Reference_Dynamic
005e 4808       |H   |		Short_Literal	0x8
005f 4802       |H   |		Short_Literal	0x2
0060 0099       |    |		Action	Reference_Dynamic
0061 e00a       |    |		Load	0x0,0xa
0062 0387       |    |		Declare_Variable	Package
0063 00d8       |    |		Load_Top	At_Offset_0
0064 020f       |    |		Execute	Module,Activate
0065 0093 0000  |    |		push_full_address	0x0
0067 6070       |`p  |		Indirect_Literal	Discrete,0xd8,{0x80000000, 0x00010000}
0068 0273       | s  |		Execute	Discrete,Plus
0069 0007       |    |		Action	Break_Optional
006a 4800       |H   |		Short_Literal	0x0
006b 0093 014b  |   K|		push_full_address	INIT_0148
006d 00f5       |    |		Load_Encached	Unused21
006e 037d       | }  |		Declare_Type	Task,Defined
006f 036f       | o  |		Declare_Variable	Task
0070 e00b       |    |		Load	0x0,0xb
0071 e00c       |    |		Load	0x0,0xc
0072 e00d       |    |		Load	0x0,0xd
0073 e404       |    |		Load	0x2,0x4
0074 0095       |    |		Execute	Package,Field_Reference_Dynamic
0075 e00e       |    |		Load	0x0,0xe
0076 e40b       |    |		Load	0x2,0xb
0077 0095       |    |		Execute	Package,Field_Reference_Dynamic
0078 e00f       |    |		Load	0x0,0xf
0079 e40b       |    |		Load	0x2,0xb
007a 0095       |    |		Execute	Package,Field_Reference_Dynamic
007b a010       |    |		Store_Unchecked	0x0,0x10
007c e011       |    |		Load	0x0,0x11
007d a012       |    |		Store_Unchecked	0x0,0x12
007e 4808       |H   |		Short_Literal	0x8
007f e40d       |    |		Load	0x2,0xd
0080 020e       |    |		Execute	Module,Augment_Imports
0081 0007       |    |		Action	Break_Optional
0082 4802       |H   |		Short_Literal	0x2
0083 4802       |H   |		Short_Literal	0x2
0084 0099       |    |		Action	Reference_Dynamic
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 4808       |H   |		Short_Literal	0x8
0087 4802       |H   |		Short_Literal	0x2
0088 0099       |    |		Action	Reference_Dynamic
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 4805       |H   |		Short_Literal	0x5
008b 4802       |H   |		Short_Literal	0x2
008c 0099       |    |		Action	Reference_Dynamic
008d 00c7       |    |		Action	Elaborate_Subprogram
008e			BODY_0018:
008e 00be       |    |		Action	Activate_Tasks
008f 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; "             +-----------------------------------------------------------------+"
0091 e011       |    |		Load	0x0,0x11
0092 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0093 0092 01da  |    |		Action	Push_String_Extended,0x1da					; "             |                                                                 |"
0095 e011       |    |		Load	0x0,0x11
0096 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0097 0092 01db  |    |		Action	Push_String_Extended,0x1db					; "             |                    Object Request Brocker                       |"
0099 e011       |    |		Load	0x0,0x11
009a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
009b 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "             |                    ======================                       |"
009d e011       |    |		Load	0x0,0x11
009e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
009f 0092 01da  |    |		Action	Push_String_Extended,0x1da					; "             |                                                                 |"
00a1 e011       |    |		Load	0x0,0x11
00a2 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00a3 0092 01dd  |    |		Action	Push_String_Extended,0x1dd					; "             |                     (C) DESS LSI Project                        |"
00a5 e011       |    |		Load	0x0,0x11
00a6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00a7 0092 01da  |    |		Action	Push_String_Extended,0x1da					; "             |                                                                 |"
00a9 e011       |    |		Load	0x0,0x11
00aa 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00ab 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; "             +-----------------------------------------------------------------+"
00ad e011       |    |		Load	0x0,0x11
00ae 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00af 8013       |    |		Call	0x0,0x13
00b0 4801       |H   |		Short_Literal	0x1
00b1 e011       |    |		Load	0x0,0x11
00b2 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00b3 8014       |    |		Call	0x0,0x14
00b4 680d       |h   |		Jump_Zero	0xc2
00b5 4801       |H   |		Short_Literal	0x1
00b6 e011       |    |		Load	0x0,0x11
00b7 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00b8 4801       |H   |		Short_Literal	0x1
00b9 e011       |    |		Load	0x0,0x11
00ba 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00bb 0092 01de  |    |		Action	Push_String_Extended,0x1de					; "                                    Orb already active !"
00bd e011       |    |		Load	0x0,0x11
00be 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00bf 8408       |    |		Call	0x2,0x8
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 0257       | W  |		Execute	Discrete,Raise
00c2 e015       |    |		Load	0x0,0x15
00c3 e404       |    |		Load	0x2,0x4
00c4 0096       |    |		Execute	Package,Entry
00c5 0092 01df  |    |		Action	Push_String_Extended,0x1df					; "ORB Socket Identifier : "
00c7 8004       |    |		Call	0x0,0x4
00c8 00e0       |    |		Load_Encached	Standard_Cache
00c9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ca 01cc       |    |		Execute	Vector,Catenate
00cb e011       |    |		Load	0x0,0x11
00cc 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00cd 4801       |H   |		Short_Literal	0x1
00ce e011       |    |		Load	0x0,0x11
00cf 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00d0 4801       |H   |		Short_Literal	0x1
00d1 e011       |    |		Load	0x0,0x11
00d2 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00d3 4800       |H   |		Short_Literal	0x0
00d4 00d9       |    |		Load_Top	At_Offset_1
00d5 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00d6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d7 0000       |    |		.XXX[0x1]
00d8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00dc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00e0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
00e8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00ec 0000 0000  |    |		.BLANK	0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 4801       |H   |		Short_Literal	0x1
00f5 e40d       |    |		Load	0x2,0xd
00f6 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
00f7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
00fc 8402       |    |		Call	0x2,0x2
00fd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00fe 0000 0000  |    |		.XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 4801       |H   |		Short_Literal	0x1
0105 e40d       |    |		Load	0x2,0xd
0106 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
0107 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c 00d8       |    |		Load_Top	At_Offset_0
010d 00e3       |    |		Load_Encached	Natural_Cache
010e 0260       | `  |		Execute	Discrete,In_Type
010f 7001       |p   |		Jump_Nonzero	0x111
0110 0801       |    |		Execute_Immediate	Raise,0x1
0111 8405       |    |		Call	0x2,0x5
0112 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0113 0000 0000  |    |		.BLANK	0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e016       |    |		Load	0x0,0x16
011c e404       |    |		Load	0x2,0x4
011d 0096       |    |		Execute	Package,Entry
011e e017       |    |		Load	0x0,0x17
011f e407       |    |		Load	0x2,0x7
0120 0096       |    |		Execute	Package,Entry
0121 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0122 0000 0000  |    |		.BLANK	0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00db       |    |		Load_Top	At_Offset_3
012c 00d8       |    |		Load_Top	At_Offset_0
012d 00e3       |    |		Load_Encached	Natural_Cache
012e 0260       | `  |		Execute	Discrete,In_Type
012f 7001       |p   |		Jump_Nonzero	0x131
0130 0801       |    |		Execute_Immediate	Raise,0x1
0131 00db       |    |		Load_Top	At_Offset_3
0132 e018       |    |		Load	0x0,0x18
0133 e407       |    |		Load	0x2,0x7
0134 0096       |    |		Execute	Package,Entry
0135 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0136 0000 0000  |    |		.XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00db       |    |		Load_Top	At_Offset_3
013c 00d8       |    |		Load_Top	At_Offset_0
013d 00e3       |    |		Load_Encached	Natural_Cache
013e 0260       | `  |		Execute	Discrete,In_Type
013f 7001       |p   |		Jump_Nonzero	0x141
0140 0801       |    |		Execute_Immediate	Raise,0x1
0141 00db       |    |		Load_Top	At_Offset_3
0142 e019       |    |		Load	0x0,0x19
0143 e407       |    |		Load	0x2,0x7
0144 0096       |    |		Execute	Package,Entry
0145 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0177       | w  |		.CONST	0x0177								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0017       |    |		.CONST	0x0017								; Number of locals
014b			INIT_0148:
014b 4800       |H   |		Short_Literal	0x0
014c 02cb       |    |		Declare_Variable	Entry
014d 4801       |H   |		Short_Literal	0x1
014e 02cb       |    |		Declare_Variable	Entry
014f 4801       |H   |		Short_Literal	0x1
0150 02cb       |    |		Declare_Variable	Entry
0151 00bf       |    |		Action	Accept_Activation
0152 00e1       |    |		Load_Encached	Boolean_Cache
0153 e001       |    |		Load	0x0,0x1
0154 0322       | "  |		Declare_Variable	Record
0155 00d8       |    |		Load_Top	At_Offset_0
0156 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0157 6044       |`D  |		Indirect_Literal	Discrete,0x19c,{0x00000000, 0x00000400}
0158 e002       |    |		Load	0x0,0x2
0159 1c08       |    |		Execute_Immediate	Run_Utility,0x8
015a 00d8       |    |		Load_Top	At_Offset_0
015b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
015c 00e3       |    |		Load_Encached	Natural_Cache
015d 480d 4833  |H H3|		Declare_Variable	Select	0x000, 0x001,
015f 4800 4801  |H H |				[0x000]: 0x001 = 0x0008,
0161 4800 4801  |H H |				[0x00d]: 0x033 = 0x0198
0163 02cf       |    |
0164 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
0166 480f 4836  |H H6|		Declare_Variable	Select	0x000, 0x002,
0168 480e 4837  |H H7|				[0x000]: 0x001 = 0x0008,
016a 4800 4801  |H H |				[0x00e]: 0x037 = 0x01b8,
016c 4800 4802  |H H |				[0x00f]: 0x036 = 0x01b0
016e 02cf       |    |
016f 480f 4838  |H H8|		Declare_Variable	Select	0x000, 0x001,
0171 4801 4800  |H H |				[0x001]: 0x000 = 0x0000,
0173 4800 4801  |H H |				[0x00f]: 0x038 = 0x01c0
0175 02cf       |    |
0176 00bc       |    |		Action	Signal_Activated
0177			BODY_0148:
0177 00db       |    |		Load_Top	At_Offset_3
0178 013f       | ?  |		Execute	Select,Rendezvous
0179 00d1       |    |		Pop_Control	Pop_Count_1
017a 8003       |    |		Call	0x0,0x3
017b 00cf       |    |		Action	Mark_Auxiliary
017c 00d9       |    |		Load_Top	At_Offset_1
017d 013f       | ?  |		Execute	Select,Rendezvous
017e 4602       |F   |		Jump_Case	0x3
017f 7801       |x   |		Jump	0x181								; case 0x0
0180 7803       |x   |		Jump	0x184								; case 0x1
0181 e213       |    |		Load	0x1,0x13							; case 0x2
0182 8004       |    |		Call	0x0,0x4
0183 7810       |x   |		Jump	0x194
0184 00da       |    |		Load_Top	At_Offset_2
0185 013f       | ?  |		Execute	Select,Rendezvous
0186 4602       |F   |		Jump_Case	0x3
0187 7801       |x   |		Jump	0x189								; case 0x0
0188 7803       |x   |		Jump	0x18c								; case 0x1
0189 e213       |    |		Load	0x1,0x13							; case 0x2
018a 8004       |    |		Call	0x0,0x4
018b 7808       |x   |		Jump	0x194
018c 4801       |H   |		Short_Literal	0x1
018d a210       |    |		Store_Unchecked	0x1,0x10
018e 8215       |    |		Call	0x1,0x15
018f e210       |    |		Load	0x1,0x10
0190 6802       |h   |		Jump_Zero	0x193
0191 e211       |    |		Load	0x1,0x11
0192 8005       |    |		Call	0x0,0x5
0193 8003       |    |		Call	0x0,0x3
0194 00c9       |    |		Action	Pop_Auxiliary_Loop
0195 7fe6       |    |		Jump	0x17c
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; See instruction 0x02cf at 0x15d, index=0xd
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 4100       |A   |		End_Rendezvous	0x0
019c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5       |    |		.CONST	0x01a5								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 029f 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Call
01a5			BODY_01a0:
01a5 0092 01e0  |    |		Action	Push_String_Extended,0x1e0					; "TCP_IP_Message received by ORB =>"
01a7 e212       |    |		Load	0x1,0x12
01a8 8006       |    |		Call	0x0,0x6
01a9 01cc       |    |		Execute	Vector,Catenate
01aa e007       |    |		Load	0x0,0x7
01ab 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01ac 8402       |    |		Call	0x2,0x2
01ad 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ae 0000 0000  |    |		.XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; See instruction 0x02cf at 0x166, index=0xf
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 a213       |    |		Store_Unchecked	0x1,0x13
01b5 4100       |A   |		End_Rendezvous	0x0
01b6 0000 0000  |    |		.XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; See instruction 0x02cf at 0x166, index=0xe
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00db       |    |		Load_Top	At_Offset_3
01bc e212       |    |		Load	0x1,0x12
01bd 016d       | m  |		Execute	Variant_Record,Structure_Write
01be 4100       |A   |		End_Rendezvous	0x0
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; See instruction 0x02cf at 0x16f, index=0xf
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 a213       |    |		Store_Unchecked	0x1,0x13
01c5 4100       |A   |		End_Rendezvous	0x0
01c6 0000 0000  |    |		.XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 01d1       |    |		.CONST	0x01d1								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb e212       |    |		Load	0x1,0x12
01cc 8006       |    |		Call	0x0,0x6
01cd 8008       |    |		Call	0x0,0x8
01ce e211       |    |		Load	0x1,0x11
01cf 017d       | }  |		Execute	Record,Structure_Write
01d0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d1			TRAP_01c8:
01d1 0007       |    |		Action	Break_Optional
01d2 4800       |H   |		Short_Literal	0x0
01d3 a210       |    |		Store_Unchecked	0x1,0x10
01d4 0092 01e1  |    |		Action	Push_String_Extended,0x1e1					; "TCP_IP_Message unrecognized by ORB"
01d6 e007       |    |		Load	0x0,0x7
01d7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01d8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d9 ; --------------------------------------------------------------------------------------
01d9 ; STRING TABLE
01d9 ; --------------------------------------------------------------------------------------
01d9 0014       |    |		.STRTAB	0x0014->0x01e3							; "             +-----------------------------------------------------------------+"
01da 0062       | b  |		.STRTAB	0x0062->0x020b							; "             |                                                                 |"
01db 00b0       |    |		.STRTAB	0x00b0->0x0233							; "             |                    Object Request Brocker                       |"
01dc 00fe       |    |		.STRTAB	0x00fe->0x025b							; "             |                    ======================                       |"
01dd 014c       | L  |		.STRTAB	0x014c->0x0283							; "             |                     (C) DESS LSI Project                        |"
01de 019a       |    |		.STRTAB	0x019a->0x02ab							; "                                    Orb already active !"
01df 01d0       |    |		.STRTAB	0x01d0->0x02c7							; "ORB Socket Identifier : "
01e0 01e6       |    |		.STRTAB	0x01e6->0x02d3							; "TCP_IP_Message received by ORB =>"
01e1 0205       |    |		.STRTAB	0x0205->0x02e3							; "TCP_IP_Message unrecognized by ORB"
01e2 0225       | %  |		.STREND 0x0225->0x02f4
01e3 2020 2020  |    |		.STRTAB_STRINGS
02f5 0000 0000  |    |		.XXX[0x3]
02f7 0000       |    |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug Table
02f8 ; --------------------------------------------------------------------------------------
02f8 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0xd1a3,0x0000,0x0001,0x0000
02fe 0000 0000  |    |		.BLANK	0000[0x102]