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

⟦7f8cfb17b⟧

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

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 02e8       |    |		.CONST	0x02e8								; 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 0160       | `  |		.CONST	0x0160								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 6172       |ar  |		Indirect_Literal	Discrete,0x180,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f e002       |    |		Load	0x0,0x2
0010 0273       | s  |		Execute	Discrete,Plus
0011 e003       |    |		Load	0x0,0x3
0012 0273       | s  |		Execute	Discrete,Plus
0013 e004       |    |		Load	0x0,0x4
0014 0386       |    |		Declare_Variable	Package,Visible
0015 00d8       |    |		Load_Top	At_Offset_0
0016 020f       |    |		Execute	Module,Activate
0017 4800       |H   |		Short_Literal	0x0
0018 0093 01db  |    |		push_full_address	INIT_01d8
001a 00f5       |    |		Load_Encached	Unused21
001b 037e       | ~  |		Declare_Type	Task,Defined,Visible
001c 036e       | n  |		Declare_Variable	Task,Visible
001d 00bf       |    |		Action	Accept_Activation
001e e005       |    |		Load	0x0,0x5
001f 00da       |    |		Load_Top	At_Offset_2
0020 0098       |    |		Execute	Package,Field_Read_Dynamic
0021 0322       | "  |		Declare_Variable	Record
0022 00d8       |    |		Load_Top	At_Offset_0
0023 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0024 e005       |    |		Load	0x0,0x5
0025 00db       |    |		Load_Top	At_Offset_3
0026 0098       |    |		Execute	Package,Field_Read_Dynamic
0027 0322       | "  |		Declare_Variable	Record
0028 00d8       |    |		Load_Top	At_Offset_0
0029 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002a 00e1       |    |		Load_Encached	Boolean_Cache
002b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002c 00e1       |    |		Load_Encached	Boolean_Cache
002d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002e 00e1       |    |		Load_Encached	Boolean_Cache
002f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0030 00e1       |    |		Load_Encached	Boolean_Cache
0031 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0032 e006       |    |		Load	0x0,0x6
0033 0007       |    |		Action	Break_Optional
0034 00d8       |    |		Load_Top	At_Offset_0
0035 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0036 e006       |    |		Load	0x0,0x6
0037 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0038 e006       |    |		Load	0x0,0x6
0039 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
003a e007       |    |		Load	0x0,0x7
003b 02ff       |    |		Declare_Variable	Variant_Record
003c 00d8       |    |		Load_Top	At_Offset_0
003d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003e e008       |    |		Load	0x0,0x8
003f 0337       | 7  |		Declare_Variable	Array
0040 e009       |    |		Load	0x0,0x9
0041 0337       | 7  |		Declare_Variable	Array
0042 e007       |    |		Load	0x0,0x7
0043 02ff       |    |		Declare_Variable	Variant_Record
0044 00d8       |    |		Load_Top	At_Offset_0
0045 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0046 00d8       |    |		Load_Top	At_Offset_0
0047 02ff       |    |		Declare_Variable	Variant_Record
0048 00d8       |    |		Load_Top	At_Offset_0
0049 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004a e007       |    |		Load	0x0,0x7
004b 02ff       |    |		Declare_Variable	Variant_Record
004c 00ea       |    |		Load_Encached	Null_String_Cache
004d 800a       |    |		Call	0x0,0xa
004e 00d9       |    |		Load_Top	At_Offset_1
004f 016d       | m  |		Execute	Variant_Record,Structure_Write
0050 00e2       |    |		Load_Encached	Integer_Cache
0051 00e2       |    |		Load_Encached	Integer_Cache
0052 e00b       |    |		Load	0x0,0xb
0053 060a       |    |		Execute_Immediate	Set_Value_Unchecked,0xa
0054 e00c       |    |		Load	0x0,0xc
0055 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0056 e007       |    |		Load	0x0,0x7
0057 02ff       |    |		Declare_Variable	Variant_Record
0058 00d8       |    |		Load_Top	At_Offset_0
0059 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005a 4801       |H   |		Short_Literal	0x1
005b 4822       |H"  |		Short_Literal	0x22
005c 00e9       |    |		Load_Encached	String_Cache
005d 035b       | [  |		Declare_Type	Array,Constrained
005e 0337       | 7  |		Declare_Variable	Array
005f 00d8       |    |		Load_Top	At_Offset_0
0060 0335       | 5  |		Declare_Variable	Array,Duplicate
0061 00cd       |    |		Action	Spare6_Action
0062 4863       |Hc  |		Short_Literal	0x63
0063 4801       |H   |		Short_Literal	0x1
0064 00da       |    |		Load_Top	At_Offset_2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 4861       |Ha  |		Short_Literal	0x61
0067 4802       |H   |		Short_Literal	0x2
0068 00da       |    |		Load_Top	At_Offset_2
0069 01d6       |    |		Execute	Vector,Field_Write
006a 486c       |Hl  |		Short_Literal	0x6c
006b 4803       |H   |		Short_Literal	0x3
006c 00da       |    |		Load_Top	At_Offset_2
006d 01d6       |    |		Execute	Vector,Field_Write
006e 4865       |He  |		Short_Literal	0x65
006f 4804       |H   |		Short_Literal	0x4
0070 00da       |    |		Load_Top	At_Offset_2
0071 01d6       |    |		Execute	Vector,Field_Write
0072 486e       |Hn  |		Short_Literal	0x6e
0073 4805       |H   |		Short_Literal	0x5
0074 00da       |    |		Load_Top	At_Offset_2
0075 01d6       |    |		Execute	Vector,Field_Write
0076 4864       |Hd  |		Short_Literal	0x64
0077 4806       |H   |		Short_Literal	0x6
0078 00da       |    |		Load_Top	At_Offset_2
0079 01d6       |    |		Execute	Vector,Field_Write
007a 4861       |Ha  |		Short_Literal	0x61
007b 4807       |H   |		Short_Literal	0x7
007c 00da       |    |		Load_Top	At_Offset_2
007d 01d6       |    |		Execute	Vector,Field_Write
007e 4872       |Hr  |		Short_Literal	0x72
007f 4808       |H   |		Short_Literal	0x8
0080 00da       |    |		Load_Top	At_Offset_2
0081 01d6       |    |		Execute	Vector,Field_Write
0082 482f       |H/  |		Short_Literal	0x2f
0083 4809       |H   |		Short_Literal	0x9
0084 00da       |    |		Load_Top	At_Offset_2
0085 01d6       |    |		Execute	Vector,Field_Write
0086 4864       |Hd  |		Short_Literal	0x64
0087 480a       |H   |		Short_Literal	0xa
0088 00da       |    |		Load_Top	At_Offset_2
0089 01d6       |    |		Execute	Vector,Field_Write
008a 4861       |Ha  |		Short_Literal	0x61
008b 480b       |H   |		Short_Literal	0xb
008c 00da       |    |		Load_Top	At_Offset_2
008d 01d6       |    |		Execute	Vector,Field_Write
008e 4874       |Ht  |		Short_Literal	0x74
008f 480c       |H   |		Short_Literal	0xc
0090 00da       |    |		Load_Top	At_Offset_2
0091 01d6       |    |		Execute	Vector,Field_Write
0092 4865       |He  |		Short_Literal	0x65
0093 480d       |H   |		Short_Literal	0xd
0094 00da       |    |		Load_Top	At_Offset_2
0095 01d6       |    |		Execute	Vector,Field_Write
0096 482f       |H/  |		Short_Literal	0x2f
0097 480e       |H   |		Short_Literal	0xe
0098 00da       |    |		Load_Top	At_Offset_2
0099 01d6       |    |		Execute	Vector,Field_Write
009a 4867       |Hg  |		Short_Literal	0x67
009b 480f       |H   |		Short_Literal	0xf
009c 00da       |    |		Load_Top	At_Offset_2
009d 01d6       |    |		Execute	Vector,Field_Write
009e 4869       |Hi  |		Short_Literal	0x69
009f 4810       |H   |		Short_Literal	0x10
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 01d6       |    |		Execute	Vector,Field_Write
00a2 4876       |Hv  |		Short_Literal	0x76
00a3 4811       |H   |		Short_Literal	0x11
00a4 00da       |    |		Load_Top	At_Offset_2
00a5 01d6       |    |		Execute	Vector,Field_Write
00a6 4865       |He  |		Short_Literal	0x65
00a7 4812       |H   |		Short_Literal	0x12
00a8 00da       |    |		Load_Top	At_Offset_2
00a9 01d6       |    |		Execute	Vector,Field_Write
00aa 485f       |H_  |		Short_Literal	0x5f
00ab 4813       |H   |		Short_Literal	0x13
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 01d6       |    |		Execute	Vector,Field_Write
00ae 4874       |Ht  |		Short_Literal	0x74
00af 4814       |H   |		Short_Literal	0x14
00b0 00da       |    |		Load_Top	At_Offset_2
00b1 01d6       |    |		Execute	Vector,Field_Write
00b2 4868       |Hh  |		Short_Literal	0x68
00b3 4815       |H   |		Short_Literal	0x15
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 01d6       |    |		Execute	Vector,Field_Write
00b6 4865       |He  |		Short_Literal	0x65
00b7 4816       |H   |		Short_Literal	0x16
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 01d6       |    |		Execute	Vector,Field_Write
00ba 485f       |H_  |		Short_Literal	0x5f
00bb 4817       |H   |		Short_Literal	0x17
00bc 00da       |    |		Load_Top	At_Offset_2
00bd 01d6       |    |		Execute	Vector,Field_Write
00be 4864       |Hd  |		Short_Literal	0x64
00bf 4818       |H   |		Short_Literal	0x18
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 01d6       |    |		Execute	Vector,Field_Write
00c2 4861       |Ha  |		Short_Literal	0x61
00c3 4819       |H   |		Short_Literal	0x19
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 01d6       |    |		Execute	Vector,Field_Write
00c6 4874       |Ht  |		Short_Literal	0x74
00c7 481a       |H   |		Short_Literal	0x1a
00c8 00da       |    |		Load_Top	At_Offset_2
00c9 01d6       |    |		Execute	Vector,Field_Write
00ca 4865       |He  |		Short_Literal	0x65
00cb 481b       |H   |		Short_Literal	0x1b
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 01d6       |    |		Execute	Vector,Field_Write
00ce 482f       |H/  |		Short_Literal	0x2f
00cf 481c       |H   |		Short_Literal	0x1c
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 01d6       |    |		Execute	Vector,Field_Write
00d2 4830       |H0  |		Short_Literal	0x30
00d3 481d       |H   |		Short_Literal	0x1d
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 01d6       |    |		Execute	Vector,Field_Write
00d6 482f       |H/  |		Short_Literal	0x2f
00d7 481e       |H   |		Short_Literal	0x1e
00d8 00da       |    |		Load_Top	At_Offset_2
00d9 01d6       |    |		Execute	Vector,Field_Write
00da 486e       |Hn  |		Short_Literal	0x6e
00db 481f       |H   |		Short_Literal	0x1f
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 4875       |Hu  |		Short_Literal	0x75
00df 4820       |H   |		Short_Literal	0x20
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 01d6       |    |		Execute	Vector,Field_Write
00e2 486c       |Hl  |		Short_Literal	0x6c
00e3 4821       |H!  |		Short_Literal	0x21
00e4 00da       |    |		Load_Top	At_Offset_2
00e5 01d6       |    |		Execute	Vector,Field_Write
00e6 486c       |Hl  |		Short_Literal	0x6c
00e7 4822       |H"  |		Short_Literal	0x22
00e8 00da       |    |		Load_Top	At_Offset_2
00e9 01d6       |    |		Execute	Vector,Field_Write
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb 01d4       |    |		Execute	Vector,Structure_Write
00ec 4801       |H   |		Short_Literal	0x1
00ed 480d       |H   |		Short_Literal	0xd
00ee 00e9       |    |		Load_Encached	String_Cache
00ef 035b       | [  |		Declare_Type	Array,Constrained
00f0 0337       | 7  |		Declare_Variable	Array
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 0335       | 5  |		Declare_Variable	Array,Duplicate
00f3 00cd       |    |		Action	Spare6_Action
00f4 4863       |Hc  |		Short_Literal	0x63
00f5 4801       |H   |		Short_Literal	0x1
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 01d6       |    |		Execute	Vector,Field_Write
00f8 4861       |Ha  |		Short_Literal	0x61
00f9 4802       |H   |		Short_Literal	0x2
00fa 00da       |    |		Load_Top	At_Offset_2
00fb 01d6       |    |		Execute	Vector,Field_Write
00fc 486c       |Hl  |		Short_Literal	0x6c
00fd 4803       |H   |		Short_Literal	0x3
00fe 00da       |    |		Load_Top	At_Offset_2
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 4865       |He  |		Short_Literal	0x65
0101 4804       |H   |		Short_Literal	0x4
0102 00da       |    |		Load_Top	At_Offset_2
0103 01d6       |    |		Execute	Vector,Field_Write
0104 486e       |Hn  |		Short_Literal	0x6e
0105 4805       |H   |		Short_Literal	0x5
0106 00da       |    |		Load_Top	At_Offset_2
0107 01d6       |    |		Execute	Vector,Field_Write
0108 4864       |Hd  |		Short_Literal	0x64
0109 4806       |H   |		Short_Literal	0x6
010a 00da       |    |		Load_Top	At_Offset_2
010b 01d6       |    |		Execute	Vector,Field_Write
010c 4861       |Ha  |		Short_Literal	0x61
010d 4807       |H   |		Short_Literal	0x7
010e 00da       |    |		Load_Top	At_Offset_2
010f 01d6       |    |		Execute	Vector,Field_Write
0110 4872       |Hr  |		Short_Literal	0x72
0111 4808       |H   |		Short_Literal	0x8
0112 00da       |    |		Load_Top	At_Offset_2
0113 01d6       |    |		Execute	Vector,Field_Write
0114 482f       |H/  |		Short_Literal	0x2f
0115 4809       |H   |		Short_Literal	0x9
0116 00da       |    |		Load_Top	At_Offset_2
0117 01d6       |    |		Execute	Vector,Field_Write
0118 4864       |Hd  |		Short_Literal	0x64
0119 480a       |H   |		Short_Literal	0xa
011a 00da       |    |		Load_Top	At_Offset_2
011b 01d6       |    |		Execute	Vector,Field_Write
011c 4861       |Ha  |		Short_Literal	0x61
011d 480b       |H   |		Short_Literal	0xb
011e 00da       |    |		Load_Top	At_Offset_2
011f 01d6       |    |		Execute	Vector,Field_Write
0120 4874       |Ht  |		Short_Literal	0x74
0121 480c       |H   |		Short_Literal	0xc
0122 00da       |    |		Load_Top	At_Offset_2
0123 01d6       |    |		Execute	Vector,Field_Write
0124 4865       |He  |		Short_Literal	0x65
0125 480d       |H   |		Short_Literal	0xd
0126 00da       |    |		Load_Top	At_Offset_2
0127 01d6       |    |		Execute	Vector,Field_Write
0128 00d9       |    |		Load_Top	At_Offset_1
0129 01d4       |    |		Execute	Vector,Structure_Write
012a 00e3       |    |		Load_Encached	Natural_Cache
012b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
012c 029d 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call
012e 029d 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call
0130 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0131 e210       |    |		Load	0x1,0x10
0132 e21c       |    |		Load	0x1,0x1c
0133 e00d       |    |		Load	0x0,0xd
0134 e20d       |    |		Load	0x1,0xd
0135 0095       |    |		Execute	Package,Field_Reference_Dynamic
0136 e00e       |    |		Load	0x0,0xe
0137 e20d       |    |		Load	0x1,0xd
0138 0095       |    |		Execute	Package,Field_Reference_Dynamic
0139 e00f       |    |		Load	0x0,0xf
013a e010       |    |		Load	0x0,0x10
013b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
013c 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
013d e011       |    |		Load	0x0,0x11
013e e012       |    |		Load	0x0,0x12
013f e20d       |    |		Load	0x1,0xd
0140 0095       |    |		Execute	Package,Field_Reference_Dynamic
0141 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0142 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0143 e21d       |    |		Load	0x1,0x1d
0144 e013       |    |		Load	0x0,0x13
0145 e20d       |    |		Load	0x1,0xd
0146 0095       |    |		Execute	Package,Field_Reference_Dynamic
0147 e014       |    |		Load	0x0,0x14
0148 e20d       |    |		Load	0x1,0xd
0149 0095       |    |		Execute	Package,Field_Reference_Dynamic
014a e224       | $  |		Load	0x1,0x24
014b e015       |    |		Load	0x0,0x15
014c e20d       |    |		Load	0x1,0xd
014d 0095       |    |		Execute	Package,Field_Reference_Dynamic
014e e223       | #  |		Load	0x1,0x23
014f 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0150 e225       | %  |		Load	0x1,0x25
0151 e20f       |    |		Load	0x1,0xf
0152 e016       |    |		Load	0x0,0x16
0153 e20d       |    |		Load	0x1,0xd
0154 0095       |    |		Execute	Package,Field_Reference_Dynamic
0155 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0156 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0157 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0158 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0159 e21e       |    |		Load	0x1,0x1e
015a e017       |    |		Load	0x0,0x17
015b e20d       |    |		Load	0x1,0xd
015c 0095       |    |		Execute	Package,Field_Reference_Dynamic
015d 481d       |H   |		Short_Literal	0x1d
015e e20e       |    |		Load	0x1,0xe
015f 020e       |    |		Execute	Module,Augment_Imports
0160			BODY_0008:
0160 00be       |    |		Action	Activate_Tasks
0161 00bc       |    |		Action	Signal_Activated
0162 00bb       |    |		Action	Signal_Completion
0163 0000 0000  |    |		.BLANK	0000[0x5]
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 00e1       |    |		Load_Encached	Boolean_Cache
016c e21d       |    |		Load	0x1,0x1d
016d e21c       |    |		Load	0x1,0x1c
016e e006       |    |		Load	0x0,0x6
016f e018       |    |		Load	0x0,0x18
0170 e20d       |    |		Load	0x1,0xd
0171 0096       |    |		Execute	Package,Entry
0172 c215       |    |		Store	0x1,0x15
0173 00d2       |    |		Pop_Control	Pop_Count_2
0174 c211       |    |		Store	0x1,0x11
0175 e210       |    |		Load	0x1,0x10
0176 e216       |    |		Load	0x1,0x16
0177 e215       |    |		Load	0x1,0x15
0178 e21d       |    |		Load	0x1,0x1d
0179 e013       |    |		Load	0x0,0x13
017a e20d       |    |		Load	0x1,0xd
017b 0096       |    |		Execute	Package,Entry
017c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017d 0000 0000  |    |		.XXX[0x3]
017f 0000       |    |
0180 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f       |    |		.CONST	0x018f								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0003       |    |		.CONST	0x0003								; Number of locals
018b			INIT_0188:
018b 029f 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Call
018d 029f 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Call
018f			BODY_0188:
018f e226       | &  |		Load	0x1,0x26
0190 0a01       |    |		Execute_Immediate	Plus,0x1
0191 c226       | &  |		Store	0x1,0x26
0192 0092 0280  |    |		Action	Push_String_Extended,0x280					; "CLIENT has received : "
0194 e20f       |    |		Load	0x1,0xf
0195 e00e       |    |		Load	0x0,0xe
0196 e20d       |    |		Load	0x1,0xd
0197 0096       |    |		Execute	Package,Entry
0198 01cc       |    |		Execute	Vector,Catenate
0199 4801       |H   |		Short_Literal	0x1
019a e00f       |    |		Load	0x0,0xf
019b e010       |    |		Load	0x0,0x10
019c 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
019d e20f       |    |		Load	0x1,0xf
019e e019       |    |		Load	0x0,0x19
019f e20d       |    |		Load	0x1,0xd
01a0 0096       |    |		Execute	Package,Entry
01a1 a21f       |    |		Store_Unchecked	0x1,0x1f
01a2 e210       |    |		Load	0x1,0x10
01a3 e20f       |    |		Load	0x1,0xf
01a4 e01a       |    |		Load	0x0,0x1a
01a5 e20d       |    |		Load	0x1,0xd
01a6 0096       |    |		Execute	Package,Entry
01a7 00d1       |    |		Pop_Control	Pop_Count_1
01a8 e21f       |    |		Load	0x1,0x1f
01a9 0b0a       |    |		Execute_Immediate	Case_Compare,0xa
01aa 7008       |p   |		Jump_Nonzero	0x1b3
01ab 680a       |h   |		Jump_Zero	0x1b6
01ac 0092 0281  |    |		Action	Push_String_Extended,0x281					; "CLIENT : type of message is unknown"
01ae 4801       |H   |		Short_Literal	0x1
01af e00f       |    |		Load	0x0,0xf
01b0 e010       |    |		Load	0x0,0x10
01b1 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
01b2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b3 00d1       |    |		Pop_Control	Pop_Count_1
01b4 8402       |    |		Call	0x2,0x2
01b5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b6 8403       |    |		Call	0x2,0x3
01b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
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 0092 0282  |    |		Action	Push_String_Extended,0x282					; "CLIENT : The response is arrived : "
01bd 4801       |H   |		Short_Literal	0x1
01be e00f       |    |		Load	0x0,0xf
01bf e010       |    |		Load	0x0,0x10
01c0 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
01c1 e20f       |    |		Load	0x1,0xf
01c2 e01b       |    |		Load	0x0,0x1b
01c3 e20d       |    |		Load	0x1,0xd
01c4 0096       |    |		Execute	Package,Entry
01c5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c6 0000 0000  |    |		.XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 0092 0283  |    |		Action	Push_String_Extended,0x283					; "CLIENT : Your request has no response"
01cd 4801       |H   |		Short_Literal	0x1
01ce e00f       |    |		Load	0x0,0xf
01cf e010       |    |		Load	0x0,0x10
01d0 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
01d1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d2 0000 0000  |    |		.BLANK	0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd       |    |		.CONST	0x01dd								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 000c       |    |		.CONST	0x000c								; Number of locals
01db			INIT_01d8:
01db 00bf       |    |		Action	Accept_Activation
01dc 00bc       |    |		Action	Signal_Activated
01dd			BODY_01d8:
01dd 609e       |`   |		Indirect_Literal	Discrete,0x27c,{0x00000000, 0x00780000}
01de 00ba       |    |		Action	Initiate_Delay
01df 8001       |    |		Call	0x0,0x1
01e0 e002       |    |		Load	0x0,0x2
01e1 e003       |    |		Load	0x0,0x3
01e2 8004       |    |		Call	0x0,0x4
01e3 00d1       |    |		Pop_Control	Pop_Count_1
01e4 0092 0284  |    |		Action	Push_String_Extended,0x284					; "CLIENT has sent : "
01e6 e002       |    |		Load	0x0,0x2
01e7 8005       |    |		Call	0x0,0x5
01e8 01cc       |    |		Execute	Vector,Catenate
01e9 4801       |H   |		Short_Literal	0x1
01ea e006       |    |		Load	0x0,0x6
01eb e007       |    |		Load	0x0,0x7
01ec 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
01ed e008       |    |		Load	0x0,0x8
01ee e002       |    |		Load	0x0,0x2
01ef e009       |    |		Load	0x0,0x9
01f0 4801       |H   |		Short_Literal	0x1
01f1 e00a       |    |		Load	0x0,0xa
01f2 4800       |H   |		Short_Literal	0x0
01f3 800b       |    |		Call	0x0,0xb
01f4 00d1       |    |		Pop_Control	Pop_Count_1
01f5 c008       |    |		Store	0x0,0x8
01f6 e002       |    |		Load	0x0,0x2
01f7 e00c       |    |		Load	0x0,0xc
01f8 e00d       |    |		Load	0x0,0xd
01f9 e00e       |    |		Load	0x0,0xe
01fa 800f       |    |		Call	0x0,0xf
01fb 00d1       |    |		Pop_Control	Pop_Count_1
01fc e002       |    |		Load	0x0,0x2
01fd 8010       |    |		Call	0x0,0x10
01fe 00d1       |    |		Pop_Control	Pop_Count_1
01ff e011       |    |		Load	0x0,0x11
0200 8012       |    |		Call	0x0,0x12
0201 e013       |    |		Load	0x0,0x13
0202 016d       | m  |		Execute	Variant_Record,Structure_Write
0203 e002       |    |		Load	0x0,0x2
0204 e013       |    |		Load	0x0,0x13
0205 8004       |    |		Call	0x0,0x4
0206 00d1       |    |		Pop_Control	Pop_Count_1
0207 0092 0284  |    |		Action	Push_String_Extended,0x284					; "CLIENT has sent : "
0209 e002       |    |		Load	0x0,0x2
020a 8005       |    |		Call	0x0,0x5
020b 01cc       |    |		Execute	Vector,Catenate
020c 4801       |H   |		Short_Literal	0x1
020d e006       |    |		Load	0x0,0x6
020e e007       |    |		Load	0x0,0x7
020f 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0210 e008       |    |		Load	0x0,0x8
0211 e002       |    |		Load	0x0,0x2
0212 e009       |    |		Load	0x0,0x9
0213 4805       |H   |		Short_Literal	0x5
0214 e00a       |    |		Load	0x0,0xa
0215 4800       |H   |		Short_Literal	0x0
0216 800b       |    |		Call	0x0,0xb
0217 00d1       |    |		Pop_Control	Pop_Count_1
0218 c008       |    |		Store	0x0,0x8
0219 e002       |    |		Load	0x0,0x2
021a e014       |    |		Load	0x0,0x14
021b e00d       |    |		Load	0x0,0xd
021c e00e       |    |		Load	0x0,0xe
021d 800f       |    |		Call	0x0,0xf
021e 00d1       |    |		Pop_Control	Pop_Count_1
021f e002       |    |		Load	0x0,0x2
0220 8010       |    |		Call	0x0,0x10
0221 00d1       |    |		Pop_Control	Pop_Count_1
0222 e015       |    |		Load	0x0,0x15
0223 8012       |    |		Call	0x0,0x12
0224 e013       |    |		Load	0x0,0x13
0225 016d       | m  |		Execute	Variant_Record,Structure_Write
0226 e002       |    |		Load	0x0,0x2
0227 e013       |    |		Load	0x0,0x13
0228 8004       |    |		Call	0x0,0x4
0229 00d1       |    |		Pop_Control	Pop_Count_1
022a 0092 0284  |    |		Action	Push_String_Extended,0x284					; "CLIENT has sent : "
022c e002       |    |		Load	0x0,0x2
022d 8005       |    |		Call	0x0,0x5
022e 01cc       |    |		Execute	Vector,Catenate
022f 4801       |H   |		Short_Literal	0x1
0230 e006       |    |		Load	0x0,0x6
0231 e007       |    |		Load	0x0,0x7
0232 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0233 e008       |    |		Load	0x0,0x8
0234 e002       |    |		Load	0x0,0x2
0235 e009       |    |		Load	0x0,0x9
0236 4804       |H   |		Short_Literal	0x4
0237 e00a       |    |		Load	0x0,0xa
0238 4800       |H   |		Short_Literal	0x0
0239 800b       |    |		Call	0x0,0xb
023a 00d1       |    |		Pop_Control	Pop_Count_1
023b c008       |    |		Store	0x0,0x8
023c 00cf       |    |		Action	Mark_Auxiliary
023d 603a       |`:  |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x000f0000}
023e 00ba       |    |		Action	Initiate_Delay
023f 0092 0285  |    |		Action	Push_String_Extended,0x285					; "CLIENT : tests if something is arrived"
0241 4801       |H   |		Short_Literal	0x1
0242 e006       |    |		Load	0x0,0x6
0243 e007       |    |		Load	0x0,0x7
0244 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0245 00e1       |    |		Load_Encached	Boolean_Cache
0246 e016       |    |		Load	0x0,0x16
0247 e00d       |    |		Load	0x0,0xd
0248 8017       |    |		Call	0x0,0x17
0249 00d1       |    |		Pop_Control	Pop_Count_1
024a c008       |    |		Store	0x0,0x8
024b e008       |    |		Load	0x0,0x8
024c 6801       |h   |		Jump_Zero	0x24e
024d 8018       |    |		Call	0x0,0x18
024e e019       |    |		Load	0x0,0x19
024f 0f02       |    |		Execute_Immediate	Equal,0x2
0250 6802       |h   |		Jump_Zero	0x253
0251 4801       |H   |		Short_Literal	0x1
0252 c01a       |    |		Store	0x0,0x1a
0253 e01a       |    |		Load	0x0,0x1a
0254 7002       |p   |		Jump_Nonzero	0x257
0255 00c9       |    |		Action	Pop_Auxiliary_Loop
0256 7fe6       |    |		Jump	0x23d
0257 00ce       |    |		Action	Pop_Auxiliary
0258 e002       |    |		Load	0x0,0x2
0259 e01b       |    |		Load	0x0,0x1b
025a e00d       |    |		Load	0x0,0xd
025b e00e       |    |		Load	0x0,0xe
025c 800f       |    |		Call	0x0,0xf
025d 00d1       |    |		Pop_Control	Pop_Count_1
025e e002       |    |		Load	0x0,0x2
025f e01c       |    |		Load	0x0,0x1c
0260 8004       |    |		Call	0x0,0x4
0261 00d1       |    |		Pop_Control	Pop_Count_1
0262 0092 0284  |    |		Action	Push_String_Extended,0x284					; "CLIENT has sent : "
0264 e002       |    |		Load	0x0,0x2
0265 8005       |    |		Call	0x0,0x5
0266 01cc       |    |		Execute	Vector,Catenate
0267 4801       |H   |		Short_Literal	0x1
0268 e006       |    |		Load	0x0,0x6
0269 e007       |    |		Load	0x0,0x7
026a 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
026b e008       |    |		Load	0x0,0x8
026c e002       |    |		Load	0x0,0x2
026d e009       |    |		Load	0x0,0x9
026e 4802       |H   |		Short_Literal	0x2
026f e00a       |    |		Load	0x0,0xa
0270 4800       |H   |		Short_Literal	0x0
0271 800b       |    |		Call	0x0,0xb
0272 00d1       |    |		Pop_Control	Pop_Count_1
0273 c008       |    |		Store	0x0,0x8
0274 e00d       |    |		Load	0x0,0xd
0275 801d       |    |		Call	0x0,0x1d
0276 00bb       |    |		Action	Signal_Completion
0277 0000       |    |		.XXX[0x1]
0278 0000 0000  |    |		.LITERAL	{0x00000000, 0x000f0000}
027c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00780000}
0280 ; --------------------------------------------------------------------------------------
0280 ; STRING TABLE
0280 ; --------------------------------------------------------------------------------------
0280 000e       |    |		.STRTAB	0x000e->0x0287							; "CLIENT has received : "
0281 0022       | "  |		.STRTAB	0x0022->0x0292							; "CLIENT : type of message is unknown"
0282 0043       | C  |		.STRTAB	0x0043->0x02a3							; "CLIENT : The response is arrived : "
0283 0064       | d  |		.STRTAB	0x0064->0x02b5							; "CLIENT : Your request has no response"
0284 0087       |    |		.STRTAB	0x0087->0x02c7							; "CLIENT has sent : "
0285 0097       |    |		.STRTAB	0x0097->0x02d0							; "CLIENT : tests if something is arrived"
0286 00bb       |    |		.STREND 0x00bb->0x02e3
0287 434c 4945  |CLIE|		.STRTAB_STRINGS
02e4 0000 0000  |    |		.BLANK	0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug Table
02e8 ; --------------------------------------------------------------------------------------
02e8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x6811,0x0000,0x0001,0x0008
02ee 000b 030e  |    |		.DBG4T	0x000b,0x030e,0x8000,0x0000
02f2 001e 0312  |    |		.DBG4T	0x001e,0x0312,0x8000,0x8000
02f6 016b 0348  | k H|		.DBG4T	0x016b,0x0348,0x0001,0x0000
02fa 018b 034c  |   L|		.DBG4T	0x018b,0x034c,0x0001,0x4000
02fe 01bb 035e  |   ^|		.DBG4T	0x01bb,0x035e,0x0004,0x0000
0302 01cb 0362  |   b|		.DBG4T	0x01cb,0x0362,0x0004,0x0000
0306 01db 0000  |    |		.DBG4T	0x01db,0x0000,0x0000,0x0000
030a 01dc 0365  |   e|		.DBG4T	0x01dc,0x0365,0x0000,0x4000
030e ; --------------------------------------------------------------------------------------
030e ; Debug chain
030e ; --------------------------------------------------------------------------------------
030e 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0310 000b 0017  |    |		.DBGLNO	0x000b,0x0017
0312 ; --------------------------------------------------------------------------------------
0312 ; Debug chain
0312 ; --------------------------------------------------------------------------------------
0312 001a 0000  |    |		.DBGLEN	0x001a,0x0000
0314 001e 0024  |   $|		.DBGLNO	0x001e,0x0024,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003e,0x0040,0x0042,0x004a,0x0050,0x0051,0x0052,0x0054,0x0056,0x005a,0x00ec,0x012a,0x012c,0x012e,0x0130
032e 0001 0002  |    |		.XXX[0x1a]
0330 0003 0004  |    |
0332 0005 0006  |    |
0334 0008 0009  |    |
0336 000a 000b  |    |
0338 000c 000d  |    |
033a 000e 000f  |    |
033c 0010 0011  |    |
033e 0012 0013  |    |
0340 0014 0015  |    |
0342 0016 0017  |    |
0344 0018 0019  |    |
0346 001a 001b  |    |
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug chain
0348 ; --------------------------------------------------------------------------------------
0348 0000 0002  |    |		.DBGLEN	0x0000,0x0002
034a 016b 0175  | k u|		.DBGLNO	0x016b,0x0175
034c ; --------------------------------------------------------------------------------------
034c ; Debug chain
034c ; --------------------------------------------------------------------------------------
034c 0000 0008  |    |		.DBGLEN	0x0000,0x0008
034e 018f 0192  |    |		.DBGLNO	0x018f,0x0192,0x019d,0x01a2,0x01a8,0x01ac,0x01b4,0x01b6
0356 0001 0002  |    |		.XXX[0x8]
0358 0003 0004  |    |
035a 0005 0008  |    |
035c 0006 0007  |    |
035e ; --------------------------------------------------------------------------------------
035e ; Debug chain
035e ; --------------------------------------------------------------------------------------
035e 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0360 01bb 01c1  |    |		.DBGLNO	0x01bb,0x01c1
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug chain
0362 ; --------------------------------------------------------------------------------------
0362 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0364 01cb       |    |		.DBGLNO	0x01cb
0365 ; --------------------------------------------------------------------------------------
0365 ; Debug chain
0365 ; --------------------------------------------------------------------------------------
0365 0000 001e  |    |		.DBGLEN	0x0000,0x001e
0367 01dd 01df  |    |		.DBGLNO	0x01dd,0x01df,0x01e0,0x01e4,0x01ed,0x01f6,0x01fc,0x01ff,0x0203,0x0207,0x0210,0x0219,0x021f,0x0222,0x0226,0x022a,0x0233,0x023d,0x023f,0x0245,0x024b,0x024d,0x024e,0x0251,0x0253,0x0258,0x025e,0x0262,0x026b,0x0274
0385 0001 0002  |    |		.XXX[0x1e]
0387 0003 0004  |    |
0389 0005 0006  |    |
038b 0007 0008  |    |
038d 0009 000a  |    |
038f 000b 000c  |    |
0391 000d 000e  |    |
0393 000f 0010  |    |
0395 0011 0013  |    |
0397 0014 0015  |    |
0399 0016 0017  |    |
039b 0018 0019  |    |
039d 001a 001b  |    |
039f 001c 001d  |    |
03a1 001e 001f  |    |
03a3 0000 0000  |    |		.BLANK	0000[0x5d]