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

⟦22d131946⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01a8       |    |		.CONST	0x01a8								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0089       |    |		.CONST	0x0089								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b e002       |    |		Load	0x0,0x2
000c 0129       | )  |		Execute	Any,Make_Visible
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0011 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0013 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0015 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0017 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0019 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
001b 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
001d 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
001f 4801       |H   |		Short_Literal	0x1
0020 608b       |`   |		Indirect_Literal	Discrete,0xac,{0x00000000, 0x00000400}
0021 00e9       |    |		Load_Encached	String_Cache
0022 035b       | [  |		Declare_Type	Array,Constrained
0023 0336       | 6  |		Declare_Variable	Array,Visible
0024 00d8       |    |		Load_Top	At_Offset_0
0025 0335       | 5  |		Declare_Variable	Array,Duplicate
0026 00cd       |    |		Action	Spare6_Action
0027 486e       |Hn  |		Short_Literal	0x6e
0028 4801       |H   |		Short_Literal	0x1
0029 00da       |    |		Load_Top	At_Offset_2
002a 01d6       |    |		Execute	Vector,Field_Write
002b 486f       |Ho  |		Short_Literal	0x6f
002c 4802       |H   |		Short_Literal	0x2
002d 00da       |    |		Load_Top	At_Offset_2
002e 01d6       |    |		Execute	Vector,Field_Write
002f 4862       |Hb  |		Short_Literal	0x62
0030 4803       |H   |		Short_Literal	0x3
0031 00da       |    |		Load_Top	At_Offset_2
0032 01d6       |    |		Execute	Vector,Field_Write
0033 486f       |Ho  |		Short_Literal	0x6f
0034 4804       |H   |		Short_Literal	0x4
0035 00da       |    |		Load_Top	At_Offset_2
0036 01d6       |    |		Execute	Vector,Field_Write
0037 4864       |Hd  |		Short_Literal	0x64
0038 4805       |H   |		Short_Literal	0x5
0039 00da       |    |		Load_Top	At_Offset_2
003a 01d6       |    |		Execute	Vector,Field_Write
003b 4879       |Hy  |		Short_Literal	0x79
003c 4806       |H   |		Short_Literal	0x6
003d 00da       |    |		Load_Top	At_Offset_2
003e 01d6       |    |		Execute	Vector,Field_Write
003f 606c       |`l  |		Indirect_Literal	Discrete,0xac,{0x00000000, 0x00000400}
0040 4807       |H   |		Short_Literal	0x7
0041 4820       |H   |		Short_Literal	0x20
0042 00d9       |    |		Load_Top	At_Offset_1
0043 e21b       |    |		Load	0x1,0x1b
0044 01d6       |    |		Execute	Vector,Field_Write
0045 3ffb       |?   |		Loop_Increasing	0x41
0046 00d9       |    |		Load_Top	At_Offset_1
0047 01d4       |    |		Execute	Vector,Structure_Write
0048 4801       |H   |		Short_Literal	0x1
0049 4802       |H   |		Short_Literal	0x2
004a e003       |    |		Load	0x0,0x3
004b 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
004c 035b       | [  |		Declare_Type	Array,Constrained
004d 0336       | 6  |		Declare_Variable	Array,Visible
004e 00d8       |    |		Load_Top	At_Offset_0
004f 0335       | 5  |		Declare_Variable	Array,Duplicate
0050 00cd       |    |		Action	Spare6_Action
0051 4800       |H   |		Short_Literal	0x0
0052 4801       |H   |		Short_Literal	0x1
0053 00da       |    |		Load_Top	At_Offset_2
0054 01d6       |    |		Execute	Vector,Field_Write
0055 4800       |H   |		Short_Literal	0x0
0056 4802       |H   |		Short_Literal	0x2
0057 00da       |    |		Load_Top	At_Offset_2
0058 01d6       |    |		Execute	Vector,Field_Write
0059 00d9       |    |		Load_Top	At_Offset_1
005a 01d4       |    |		Execute	Vector,Structure_Write
005b 4801       |H   |		Short_Literal	0x1
005c 4804       |H   |		Short_Literal	0x4
005d e003       |    |		Load	0x0,0x3
005e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
005f 035b       | [  |		Declare_Type	Array,Constrained
0060 0336       | 6  |		Declare_Variable	Array,Visible
0061 00d8       |    |		Load_Top	At_Offset_0
0062 0335       | 5  |		Declare_Variable	Array,Duplicate
0063 00cd       |    |		Action	Spare6_Action
0064 4800       |H   |		Short_Literal	0x0
0065 4801       |H   |		Short_Literal	0x1
0066 00da       |    |		Load_Top	At_Offset_2
0067 01d6       |    |		Execute	Vector,Field_Write
0068 4800       |H   |		Short_Literal	0x0
0069 4802       |H   |		Short_Literal	0x2
006a 00da       |    |		Load_Top	At_Offset_2
006b 01d6       |    |		Execute	Vector,Field_Write
006c 4800       |H   |		Short_Literal	0x0
006d 4803       |H   |		Short_Literal	0x3
006e 00da       |    |		Load_Top	At_Offset_2
006f 01d6       |    |		Execute	Vector,Field_Write
0070 4800       |H   |		Short_Literal	0x0
0071 4804       |H   |		Short_Literal	0x4
0072 00da       |    |		Load_Top	At_Offset_2
0073 01d6       |    |		Execute	Vector,Field_Write
0074 00d9       |    |		Load_Top	At_Offset_1
0075 01d4       |    |		Execute	Vector,Structure_Write
0076 00bf       |    |		Action	Accept_Activation
0077 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0088 00c7       |    |		Action	Elaborate_Subprogram
0089			BODY_0008:
0089 00bc       |    |		Action	Signal_Activated
008a 00bb       |    |		Action	Signal_Completion
008b 0000 0000  |    |		.BLANK	0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0097       |    |		.CONST	0x0097								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 e210       |    |		Load	0x1,0x10
0094 0322       | "  |		Declare_Variable	Record
0095 00d8       |    |		Load_Top	At_Offset_0
0096 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0097			BODY_0090:
0097 e004       |    |		Load	0x0,0x4
0098 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0099 00d9       |    |		Load_Top	At_Offset_1
009a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009b 4800       |H   |		Short_Literal	0x0
009c 00d9       |    |		Load_Top	At_Offset_1
009d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
009e 4800       |H   |		Short_Literal	0x0
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a1 e21b       |    |		Load	0x1,0x1b
00a2 00d9       |    |		Load_Top	At_Offset_1
00a3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a4 e21c       |    |		Load	0x1,0x1c
00a5 00d9       |    |		Load_Top	At_Offset_1
00a6 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00a7 00d8       |    |		Load_Top	At_Offset_0
00a8 00ca       |    |		Action	Exit_Nullary_Function
00a9 0000 0000  |    |		.XXX[0x3]
00ab 0000       |    |
00ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00b5 0335       | 5  |		Declare_Variable	Array,Duplicate
00b6 00cd       |    |		Action	Spare6_Action
00b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00bd 0335       | 5  |		Declare_Variable	Array,Duplicate
00be 00cd       |    |		Action	Spare6_Action
00bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00e4       |    |		Load_Encached	Positive_Cache
00c4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00c5			BODY_00c0:
00c5 0092 017b  |   {|		Action	Push_String_Extended,0x17b					; "going to send a message !"
00c7 8005       |    |		Call	0x0,0x5
00c8 e20f       |    |		Load	0x1,0xf
00c9 0901       |    |		Execute_Immediate	Binary_Scale,0x1
00ca 00ba       |    |		Action	Initiate_Delay
00cb e003       |    |		Load	0x0,0x3
00cc 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00cd 605a       |`Z  |		Indirect_Literal	Discrete,0x128,{0x00007fff, 0xffffffff}
00ce e5ff       |    |		Load	0x2,-0x1
00cf 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d4 e004       |    |		Load	0x0,0x4
00d5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d6 e5ff       |    |		Load	0x2,-0x1
00d7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00d8 00cf       |    |		Action	Mark_Auxiliary
00d9 7817       |x   |		Jump	0xf1
00da e003       |    |		Load	0x0,0x3
00db 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00dc 604b       |`K  |		Indirect_Literal	Discrete,0x128,{0x00007fff, 0xffffffff}
00dd e5ff       |    |		Load	0x2,-0x1
00de 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00df e5ff       |    |		Load	0x2,-0x1
00e0 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e3 e004       |    |		Load	0x0,0x4
00e4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e5 e5ff       |    |		Load	0x2,-0x1
00e6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e7 e20f       |    |		Load	0x1,0xf
00e8 00ba       |    |		Action	Initiate_Delay
00e9 00d9       |    |		Load_Top	At_Offset_1
00ea e20e       |    |		Load	0x1,0xe
00eb 027f       |    |		Execute	Discrete,Equal
00ec 7009       |p   |		Jump_Nonzero	0xf6
00ed 00d9       |    |		Load_Top	At_Offset_1
00ee 0a01       |    |		Execute_Immediate	Plus,0x1
00ef 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00f0 00c9       |    |		Action	Pop_Auxiliary_Loop
00f1 e5ff       |    |		Load	0x2,-0x1
00f2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f3 e004       |    |		Load	0x0,0x4
00f4 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00f5 6fe4       |o   |		Jump_Zero	0xda
00f6 00ce       |    |		Action	Pop_Auxiliary
00f7 00db       |    |		Load_Top	At_Offset_3
00f8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f9 e004       |    |		Load	0x0,0x4
00fa 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00fb 700d       |p   |		Jump_Nonzero	0x109
00fc 4801       |H   |		Short_Literal	0x1
00fd 4806       |H   |		Short_Literal	0x6
00fe e21a       |    |		Load	0x1,0x1a
00ff 01cf       |    |		Execute	Vector,Slice_Read
0100 e006       |    |		Load	0x0,0x6
0101 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0102 4801       |H   |		Short_Literal	0x1
0103 4806       |H   |		Short_Literal	0x6
0104 e5fe       |    |		Load	0x2,-0x2
0105 01ce       |    |		Execute	Vector,Slice_Write
0106 0092 017c  |   ||		Action	Push_String_Extended,0x17c					; "cannot get the connection after "
0108 8005       |    |		Call	0x0,0x5
0109 00d8       |    |		Load_Top	At_Offset_0
010a 00e0       |    |		Load_Encached	Standard_Cache
010b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010c 0092 017d  |   }|		Action	Push_String_Extended,0x17d					; " try to connect :"
010e 01cc       |    |		Execute	Vector,Catenate
010f e5ff       |    |		Load	0x2,-0x1
0110 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0111 e003       |    |		Load	0x0,0x3
0112 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0113 01cc       |    |		Execute	Vector,Catenate
0114 8005       |    |		Call	0x0,0x5
0115 00e3       |    |		Load_Encached	Natural_Cache
0116 e003       |    |		Load	0x0,0x3
0117 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0118 4800       |H   |		Short_Literal	0x0
0119 600e       |`   |		Indirect_Literal	Discrete,0x128,{0x00007fff, 0xffffffff}
011a e5fe       |    |		Load	0x2,-0x2
011b e5ff       |    |		Load	0x2,-0x1
011c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011d e004       |    |		Load	0x0,0x4
011e 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
011f e5ff       |    |		Load	0x2,-0x1
0120 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0121 e5ff       |    |		Load	0x2,-0x1
0122 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0123 00db       |    |		Load_Top	At_Offset_3
0124 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0125 e004       |    |		Load	0x0,0x4
0126 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0127 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0128 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2
0134 e5fd       |    |		Load	0x2,-0x3
0135 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0136 00db       |    |		Load_Top	At_Offset_3
0137 e003       |    |		Load	0x0,0x3
0138 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0139 e5fd       |    |		Load	0x2,-0x3
013a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
013b e003       |    |		Load	0x0,0x3
013c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
013d e5fd       |    |		Load	0x2,-0x3
013e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013f 0120       |    |		Execute	Any,Is_Value
0140 6803       |h   |		Jump_Zero	0x144
0141 e004       |    |		Load	0x0,0x4
0142 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0143 7802       |x   |		Jump	0x146
0144 e5fd       |    |		Load	0x2,-0x3
0145 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0146 e003       |    |		Load	0x0,0x3
0147 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0148 e007       |    |		Load	0x0,0x7
0149 e004       |    |		Load	0x0,0x4
014a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
014b e5fd       |    |		Load	0x2,-0x3
014c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
014d e5fd       |    |		Load	0x2,-0x3
014e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
014f e5fd       |    |		Load	0x2,-0x3
0150 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0151 e004       |    |		Load	0x0,0x4
0152 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0153 a5fc       |    |		Store_Unchecked	0x2,-0x4
0154 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015d e004       |    |		Load	0x0,0x4
015e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 e006       |    |		Load	0x0,0x6
0165 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0166 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c e006       |    |		Load	0x0,0x6
016d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
016e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016f 0000       |    |		.XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00da       |    |		Load_Top	At_Offset_2
0174 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0175 8217       |    |		Call	0x1,0x17
0176 00db       |    |		Load_Top	At_Offset_3
0177 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0178 8218       |    |		Call	0x1,0x18
0179 01cc       |    |		Execute	Vector,Catenate
017a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017b ; --------------------------------------------------------------------------------------
017b ; STRING TABLE
017b ; --------------------------------------------------------------------------------------
017b 0008       |    |		.STRTAB	0x0008->0x017f							; "going to send a message !"
017c 001f       |    |		.STRTAB	0x001f->0x018b							; "cannot get the connection after "
017d 003d       | =  |		.STRTAB	0x003d->0x019b							; " try to connect :"
017e 004c       | L  |		.STREND 0x004c->0x01a4
017f 676f 696e  |goin|		.STRTAB_STRINGS
01a4 0000 0000  |    |		.BLANK	0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug Table
01a8 ; --------------------------------------------------------------------------------------
01a8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x7ef3,0x0000,0x0001,0x000b
01ae 000b 01da  |    |		.DBG4T	0x000b,0x01da,0xc000,0x0000
01b2 0077 01ea  | w  |		.DBG4T	0x0077,0x01ea,0xc000,0x0000
01b6 0093 01f5  |    |		.DBG4T	0x0093,0x01f5,0x1002,0x0000
01ba 00b3 01fe  |    |		.DBG4T	0x00b3,0x01fe,0x1002,0x0000
01be 00bb 0201  |    |		.DBG4T	0x00bb,0x0201,0x1002,0x0000
01c2 00c3 0204  |    |		.DBG4T	0x00c3,0x0204,0x1001,0x4000
01c6 0133 0225  | 3 %|		.DBG4T	0x0133,0x0225,0x1001,0x0000
01ca 015b 022b  | [ +|		.DBG4T	0x015b,0x022b,0x1001,0x0000
01ce 0163 022e  | c .|		.DBG4T	0x0163,0x022e,0x1002,0x0000
01d2 016b 0231  | k 1|		.DBG4T	0x016b,0x0231,0x1002,0x0000
01d6 0173 0234  | s 4|		.DBG4T	0x0173,0x0234,0x1002,0x0000
01da ; --------------------------------------------------------------------------------------
01da ; Debug chain
01da ; --------------------------------------------------------------------------------------
01da 000e 0000  |    |		.DBGLEN	0x000e,0x0000
01dc 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0048,0x005b,0x0076
01ea ; --------------------------------------------------------------------------------------
01ea ; Debug chain
01ea ; --------------------------------------------------------------------------------------
01ea 0009 0000  |    |		.DBGLEN	0x0009,0x0000
01ec 0077 0079  | w y|		.DBGLNO	0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087
01f5 ; --------------------------------------------------------------------------------------
01f5 ; Debug chain
01f5 ; --------------------------------------------------------------------------------------
01f5 0001 0006  |    |		.DBGLEN	0x0001,0x0006
01f7 0093 0097  |    |		.DBGLNO	0x0093,0x0097,0x009b,0x009e,0x00a1,0x00a4,0x00a7
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug chain
01fe ; --------------------------------------------------------------------------------------
01fe 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0200 00b3       |    |		.DBGLNO	0x00b3
0201 ; --------------------------------------------------------------------------------------
0201 ; Debug chain
0201 ; --------------------------------------------------------------------------------------
0201 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0203 00bb       |    |		.DBGLNO	0x00bb
0204 ; --------------------------------------------------------------------------------------
0204 ; Debug chain
0204 ; --------------------------------------------------------------------------------------
0204 0001 000f  |    |		.DBGLEN	0x0001,0x000f
0206 00c3 00c5  |    |		.DBGLNO	0x00c3,0x00c5,0x00c8,0x00cb,0x00d8,0x00da,0x00e7,0x00e9,0x00ed,0x00f1,0x00f7,0x00fc,0x0106,0x0109,0x0115,0x0123
0216 0001 0002  |    |		.XXX[0xf]
0218 0003 0004  |    |
021a 0005 0006  |    |
021c 0007 0008  |    |
021e 0004 0009  |    |
0220 000a 000b  |    |
0222 000c 000d  |    |
0224 000e       |    |
0225 ; --------------------------------------------------------------------------------------
0225 ; Debug chain
0225 ; --------------------------------------------------------------------------------------
0225 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0227 0133 0136  | 3 6|		.DBGLNO	0x0133,0x0136,0x013b,0x014f
022b ; --------------------------------------------------------------------------------------
022b ; Debug chain
022b ; --------------------------------------------------------------------------------------
022b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022d 015b       | [  |		.DBGLNO	0x015b
022e ; --------------------------------------------------------------------------------------
022e ; Debug chain
022e ; --------------------------------------------------------------------------------------
022e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0230 0163       | c  |		.DBGLNO	0x0163
0231 ; --------------------------------------------------------------------------------------
0231 ; Debug chain
0231 ; --------------------------------------------------------------------------------------
0231 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0233 016b       | k  |		.DBGLNO	0x016b
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug chain
0234 ; --------------------------------------------------------------------------------------
0234 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0236 0173       | s  |		.DBGLNO	0x0173
0237 0000 0000  |    |		.BLANK	0000[0x1c9]