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

⟦631ae4da0⟧

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

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 0230       | 0  |		.CONST	0x0230								; 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 0x127, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0063       | c  |		.CONST	0x0063								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
000d e002       |    |		Load	0x0,0x2
000e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000f e003       |    |		Load	0x0,0x3
0010 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0011 00e2       |    |		Load_Encached	Integer_Cache
0012 029f 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Call
0014 4804       |H   |		Short_Literal	0x4
0015 032e       | .  |		Declare_Type	Record,Defined,Visible
0016 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0018 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
001a 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
001c 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
001e 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0020 00bf       |    |		Action	Accept_Activation
0021 00e1       |    |		Load_Encached	Boolean_Cache
0022 00e1       |    |		Load_Encached	Boolean_Cache
0023 4801       |H   |		Short_Literal	0x1
0024 4900       |I   |		Short_Literal	0x100
0025 00e9       |    |		Load_Encached	String_Cache
0026 035b       | [  |		Declare_Type	Array,Constrained
0027 4801       |H   |		Short_Literal	0x1
0028 4900       |I   |		Short_Literal	0x100
0029 00e9       |    |		Load_Encached	String_Cache
002a 035b       | [  |		Declare_Type	Array,Constrained
002b e20d       |    |		Load	0x1,0xd
002c e004       |    |		Load	0x0,0x4
002d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002e 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
0030 4806       |H   |		Short_Literal	0x6
0031 032d       | -  |		Declare_Type	Record,Defined
0032 00e2       |    |		Load_Encached	Integer_Cache
0033 0266       | f  |		Execute	Discrete,Bounds
0034 00da       |    |		Load_Top	At_Offset_2
0035 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
0037 4801       |H   |		Short_Literal	0x1
0038 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0039 4801       |H   |		Short_Literal	0x1
003a 4804       |H   |		Short_Literal	0x4
003b 00da       |    |		Load_Top	At_Offset_2
003c 035b       | [  |		Declare_Type	Array,Constrained
003d 0337       | 7  |		Declare_Variable	Array
003e 00d8       |    |		Load_Top	At_Offset_0
003f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0040 4800       |H   |		Short_Literal	0x0
0041 e005       |    |		Load	0x0,0x5
0042 02a0       |    |		Declare_Subprogram	Null_Subprogram
0043 038e       |    |		Declare_Type	Package,Defined
0044 0387       |    |		Declare_Variable	Package
0045 4800       |H   |		Short_Literal	0x0
0046 0093 011b  |    |		push_full_address	INIT_0118
0048 00f5       |    |		Load_Encached	Unused21
0049 037d       | }  |		Declare_Type	Task,Defined
004a 036f       | o  |		Declare_Variable	Task
004b 00d9       |    |		Load_Top	At_Offset_1
004c e006       |    |		Load	0x0,0x6
004d 4802       |H   |		Short_Literal	0x2
004e 00db       |    |		Load_Top	At_Offset_3
004f 020e       |    |		Execute	Module,Augment_Imports
0050 0007       |    |		Action	Break_Optional
0051 00da       |    |		Load_Top	At_Offset_2
0052 e007       |    |		Load	0x0,0x7
0053 e004       |    |		Load	0x0,0x4
0054 4803       |H   |		Short_Literal	0x3
0055 e216       |    |		Load	0x1,0x16
0056 020e       |    |		Execute	Module,Augment_Imports
0057 00d9       |    |		Load_Top	At_Offset_1
0058 020f       |    |		Execute	Module,Activate
0059 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0062 00c7       |    |		Action	Elaborate_Subprogram
0063			BODY_0008:
0063			BODY_0008:
0063 00be       |    |		Action	Activate_Tasks
0064 00bc       |    |		Action	Signal_Activated
0065 00bb       |    |		Action	Signal_Completion
0066 0000 0000  |    |		.XXX[0x2]
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 e5fc       |    |		Load	0x2,-0x4
006c e5fd       |    |		Load	0x2,-0x3
006d e5fe       |    |		Load	0x2,-0x2
006e e5ff       |    |		Load	0x2,-0x1
006f 4804       |H   |		Short_Literal	0x4
0070 e217       |    |		Load	0x1,0x17
0071 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0072 00d1       |    |		Pop_Control	Pop_Count_1
0073 c5fc       |    |		Store	0x2,-0x4
0074 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00db       |    |		Load_Top	At_Offset_3
007c 00db       |    |		Load_Top	At_Offset_3
007d 4802       |H   |		Short_Literal	0x2
007e e217       |    |		Load	0x1,0x17
007f 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
0080 00d1       |    |		Pop_Control	Pop_Count_1
0081 c5fe       |    |		Store	0x2,-0x2
0082 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0083 0000 0000  |    |		.BLANK	0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e5fc       |    |		Load	0x2,-0x4
008c e5fd       |    |		Load	0x2,-0x3
008d e5fe       |    |		Load	0x2,-0x2
008e e5ff       |    |		Load	0x2,-0x1
008f 4804       |H   |		Short_Literal	0x4
0090 e217       |    |		Load	0x1,0x17
0091 1710       |    |		Execute	Task,Entry_Call,Field_Number 0x10
0092 00d1       |    |		Pop_Control	Pop_Count_1
0093 c5fc       |    |		Store	0x2,-0x4
0094 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0095 0000 0000  |    |		.XXX[0x3]
0097 0000       |    |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00db       |    |		Load_Top	At_Offset_3
009c 00db       |    |		Load_Top	At_Offset_3
009d 4802       |H   |		Short_Literal	0x2
009e e217       |    |		Load	0x1,0x17
009f 1711       |    |		Execute	Task,Entry_Call,Field_Number 0x11
00a0 00d1       |    |		Pop_Control	Pop_Count_1
00a1 c5fe       |    |		Store	0x2,-0x2
00a2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a3 0000 0000  |    |		.BLANK	0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab e5fd       |    |		Load	0x2,-0x3
00ac e5fe       |    |		Load	0x2,-0x2
00ad e5ff       |    |		Load	0x2,-0x1
00ae 4803       |H   |		Short_Literal	0x3
00af e217       |    |		Load	0x1,0x17
00b0 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
00b1 00d1       |    |		Pop_Control	Pop_Count_1
00b2 c5fd       |    |		Store	0x2,-0x3
00b3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b4 0000 0000  |    |		.BLANK	0000[0x4]
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 4608       |F   |		Jump_Case	0x9
00bc 7808       |x   |		Jump	0xc5								; case 0x0
00bd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00be 7816       |x   |		Jump	0xd5								; case 0x2
00bf 7815       |x   |		Jump	0xd5								; case 0x3
00c0 7814       |x   |		Jump	0xd5								; case 0x4
00c1 7813       |x   |		Jump	0xd5								; case 0x5
00c2 7812       |x   |		Jump	0xd5								; case 0x6
00c3 7811       |x   |		Jump	0xd5								; case 0x7
00c4 7810       |x   |		Jump	0xd5								; case 0x8
00c5 4800       |H   |		Short_Literal	0x0
00c6 00db       |    |		Load_Top	At_Offset_3
00c7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c8 4800       |H   |		Short_Literal	0x0
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00cd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ce 00da       |    |		Load_Top	At_Offset_2
00cf 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00d0 0125       | %  |		Execute	Any,Set_Constraint
00d1 00da       |    |		Load_Top	At_Offset_2
00d2 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00d3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00d5 0869       | i  |		Execute_Immediate	Raise,0x69
00d6 0000 0000  |    |		.XXX[0x2]
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 00d1       |    |		Pop_Control	Pop_Count_1
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 01dc       |    |		Execute	Vector,Last
00de 00db       |    |		Load_Top	At_Offset_3
00df 01dd       |    |		Execute	Vector,First
00e0 0263       | c  |		Execute	Discrete,Above_Bound
00e1 7006       |p   |		Jump_Nonzero	0xe8
00e2 00d8       |    |		Load_Top	At_Offset_0
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 01d5       |    |		Execute	Vector,Field_Reference
00e5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e6 0a01       |    |		Execute_Immediate	Plus,0x1
00e7 7ff8       |    |		Jump	0xe0
00e8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00e9 0000 0000  |    |		.BLANK	0000[0x7]
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 4608       |F   |		Jump_Case	0x9
00f4 7808       |x   |		Jump	0xfd								; case 0x0
00f5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00f6 7819       |x   |		Jump	0x110								; case 0x2
00f7 7818       |x   |		Jump	0x110								; case 0x3
00f8 7817       |x   |		Jump	0x110								; case 0x4
00f9 7816       |x   |		Jump	0x110								; case 0x5
00fa 7815       |x   |		Jump	0x110								; case 0x6
00fb 7814       |x   |		Jump	0x110								; case 0x7
00fc 7813       |x   |		Jump	0x110								; case 0x8
00fd 00da       |    |		Load_Top	At_Offset_2
00fe 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00ff 0125       | %  |		Execute	Any,Set_Constraint
0100 00da       |    |		Load_Top	At_Offset_2
0101 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0102 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0103 00da       |    |		Load_Top	At_Offset_2
0104 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0105 0125       | %  |		Execute	Any,Set_Constraint
0106 00da       |    |		Load_Top	At_Offset_2
0107 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0108 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0109 00da       |    |		Load_Top	At_Offset_2
010a 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
010b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010c 4800       |H   |		Short_Literal	0x0
010d 00db       |    |		Load_Top	At_Offset_3
010e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
010f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0110 0869       | i  |		Execute_Immediate	Raise,0x69
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0137       | 7  |		.CONST	0x0137								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0013       |    |		.CONST	0x0013								; Number of locals
011b			INIT_0118:
011b 4804       |H   |		Short_Literal	0x4
011c 02cb       |    |		Declare_Variable	Entry
011d 4803       |H   |		Short_Literal	0x3
011e 02cb       |    |		Declare_Variable	Entry
011f 4802       |H   |		Short_Literal	0x2
0120 02cb       |    |		Declare_Variable	Entry
0121 4804       |H   |		Short_Literal	0x4
0122 02cb       |    |		Declare_Variable	Entry
0123 4802       |H   |		Short_Literal	0x2
0124 02cb       |    |		Declare_Variable	Entry
0125 00bf       |    |		Action	Accept_Activation
0126 00e2       |    |		Load_Encached	Integer_Cache
0127 480e 4828  |H H(|		Declare_Variable	Select	0x000, 0x005,
0129 4811 482c  |H H,|				[0x000]: 0x001 = 0x0008,
012b 4810 482e  |H H.|				[0x00d]: 0x036 = 0x01b0,
012d 480f 4832  |H H2|				[0x00f]: 0x032 = 0x0190,
012f 480d 4836  |H H6|				[0x010]: 0x02e = 0x0170,
0131 4800 4801  |H H |				[0x011]: 0x02c = 0x0160,
0133 4800 4805  |H H |				[0x00e]: 0x028 = 0x0140
0135 02cf       |    |
0136 00bc       |    |		Action	Signal_Activated
0137			BODY_0118:
0137 00cf       |    |		Action	Mark_Auxiliary
0138 00d9       |    |		Load_Top	At_Offset_1
0139 013f       | ?  |		Execute	Select,Rendezvous
013a 00d1       |    |		Pop_Control	Pop_Count_1
013b 00c9       |    |		Action	Pop_Auxiliary_Loop
013c 7ffb       |    |		Jump	0x138
013d 0000 0000  |    |		.XXX[0x3]
013f 0000       |    |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; See instruction 0x02cf at 0x127, index=0xe
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00db       |    |		Load_Top	At_Offset_3
0144 e001       |    |		Load	0x0,0x1
0145 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0146 a212       |    |		Store_Unchecked	0x1,0x12
0147 e212       |    |		Load	0x1,0x12
0148 700c       |p   |		Jump_Nonzero	0x155
0149 e5fc       |    |		Load	0x2,-0x4
014a 0092 01cf  |    |		Action	Push_String_Extended,0x1cf					; "Unused connection (for given time) not found in cache"
014c 4802       |H   |		Short_Literal	0x2
014d 0092 01d0  |    |		Action	Push_String_Extended,0x1d0					; "Connection_not_found"
014f e002       |    |		Load	0x0,0x2
0150 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0151 e002       |    |		Load	0x0,0x2
0152 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0153 c5fc       |    |		Store	0x2,-0x4
0154 4102       |A   |		End_Rendezvous	0x2
0155 e212       |    |		Load	0x1,0x12
0156 e001       |    |		Load	0x0,0x1
0157 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0158 e5fd       |    |		Load	0x2,-0x3
0159 017d       | }  |		Execute	Record,Structure_Write
015a e212       |    |		Load	0x1,0x12
015b e5fd       |    |		Load	0x2,-0x3
015c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
015d 4102       |A   |		End_Rendezvous	0x2
015e 0000 0000  |    |		.XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; See instruction 0x02cf at 0x127, index=0x11
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 00db       |    |		Load_Top	At_Offset_3
0164 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0165 e001       |    |		Load	0x0,0x1
0166 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0167 4800       |H   |		Short_Literal	0x0
0168 e5fe       |    |		Load	0x2,-0x2
0169 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
016a 4102       |A   |		End_Rendezvous	0x2
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; See instruction 0x02cf at 0x127, index=0x10
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 e5fc       |    |		Load	0x2,-0x4
0174 e5fd       |    |		Load	0x2,-0x3
0175 e5fe       |    |		Load	0x2,-0x2
0176 e001       |    |		Load	0x0,0x1
0177 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0178 a212       |    |		Store_Unchecked	0x1,0x12
0179 e212       |    |		Load	0x1,0x12
017a 700c       |p   |		Jump_Nonzero	0x187
017b e5fb       |    |		Load	0x2,-0x5
017c 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "Cache is full"
017e 4802       |H   |		Short_Literal	0x2
017f 0092 01d2  |    |		Action	Push_String_Extended,0x1d2					; "Entry_not_found"
0181 e002       |    |		Load	0x0,0x2
0182 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0183 e002       |    |		Load	0x0,0x2
0184 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0185 c5fb       |    |		Store	0x2,-0x5
0186 4102       |A   |		End_Rendezvous	0x2
0187 e212       |    |		Load	0x1,0x12
0188 e5fc       |    |		Load	0x2,-0x4
0189 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
018a 4102       |A   |		End_Rendezvous	0x2
018b 0000 0000  |    |		.BLANK	0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; See instruction 0x02cf at 0x127, index=0xf
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00db       |    |		Load_Top	At_Offset_3
0194 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0195 700c       |p   |		Jump_Nonzero	0x1a2
0196 e5fd       |    |		Load	0x2,-0x3
0197 0092 01d3  |    |		Action	Push_String_Extended,0x1d3					; "Connection not in cache"
0199 4802       |H   |		Short_Literal	0x2
019a 0092 01d4  |    |		Action	Push_String_Extended,0x1d4					; "entry_not_cached"
019c e002       |    |		Load	0x0,0x2
019d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
019e e002       |    |		Load	0x0,0x2
019f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01a0 c5fd       |    |		Store	0x2,-0x3
01a1 4102       |A   |		End_Rendezvous	0x2
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01a4 e001       |    |		Load	0x0,0x1
01a5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01a6 4800       |H   |		Short_Literal	0x0
01a7 e5fe       |    |		Load	0x2,-0x2
01a8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01a9 4102       |A   |		End_Rendezvous	0x2
01aa 0000 0000  |    |		.BLANK	0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; See instruction 0x02cf at 0x127, index=0xd
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 e5fd       |    |		Load	0x2,-0x3
01b4 e5fe       |    |		Load	0x2,-0x2
01b5 e001       |    |		Load	0x0,0x1
01b6 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01b7 a212       |    |		Store_Unchecked	0x1,0x12
01b8 e212       |    |		Load	0x1,0x12
01b9 700c       |p   |		Jump_Nonzero	0x1c6
01ba e5fb       |    |		Load	0x2,-0x5
01bb 0092 01d5  |    |		Action	Push_String_Extended,0x1d5					; "Connection not found in cache"
01bd 4802       |H   |		Short_Literal	0x2
01be 0092 01d0  |    |		Action	Push_String_Extended,0x1d0					; "Connection_not_found"
01c0 e002       |    |		Load	0x0,0x2
01c1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01c2 e002       |    |		Load	0x0,0x2
01c3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c4 c5fb       |    |		Store	0x2,-0x5
01c5 4102       |A   |		End_Rendezvous	0x2
01c6 e212       |    |		Load	0x1,0x12
01c7 e001       |    |		Load	0x0,0x1
01c8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01c9 e5fc       |    |		Load	0x2,-0x4
01ca 017d       | }  |		Execute	Record,Structure_Write
01cb e212       |    |		Load	0x1,0x12
01cc e5fc       |    |		Load	0x2,-0x4
01cd 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01ce 4102       |A   |		End_Rendezvous	0x2
01cf ; --------------------------------------------------------------------------------------
01cf ; STRING TABLE
01cf ; --------------------------------------------------------------------------------------
01cf 0010       |    |		.STRTAB	0x0010->0x01d7							; "Unused connection (for given time) not found in cache"
01d0 0043       | C  |		.STRTAB	0x0043->0x01f1							; "Connection_not_found"
01d1 0055       | U  |		.STRTAB	0x0055->0x01fb							; "Cache is full"
01d2 0060       | `  |		.STRTAB	0x0060->0x0202							; "Entry_not_found"
01d3 006d       | m  |		.STRTAB	0x006d->0x0209							; "Connection not in cache"
01d4 0082       |    |		.STRTAB	0x0082->0x0215							; "entry_not_cached"
01d5 0090       |    |		.STRTAB	0x0090->0x021d							; "Connection not found in cache"
01d6 00ab       |    |		.STREND 0x00ab->0x022b
01d7 556e 7573  |Unus|		.STRTAB_STRINGS
022c 0000 0000  |    |		.BLANK	0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x7701,0x0000,0x0001,0x0000
0236 0000 8c96  |    |		.XXX[0x1c]
0238 8580 0000  |    |
023a 4000 8c98  |@   |
023c 8580 0000  |    |
023e 4000 0000  |@   |
0240 0000 1193  |    |
0242 10b0 0000  |    |
0244 0804 0892  |    |
0246 2e70 0000  |.p  |
0248 0000 2800  |  ( |
024a 0000 4800  |  H |
024c 0319 e000  |    |
024e 0000 1000  |    |
0250 0000 1000  |    |
0252 0000 0000  |    |		.BLANK	0000[0x5]
0257 0081 9789  |    |		.XXX[0x13]
0259 debb dc00  |    |
025b 0005 0000  |    |
025d 0009 0000  |    |
025f 633c 0000  |c<  |
0261 0002 0000  |    |
0263 0002 0000  |    |
0265 0002 0000  |    |
0267 8e00 01ac  |    |
0269 049c       |    |
026a 0000 0000  |    |		.BLANK	0000[0x4]
026e 00d6 0723  |   #|		.XXX[0xe]
0270 0000 3a1c  |  : |
0272 c819 8045  |   E|
0274 224a 2000  |"J  |
0276 0054 0cc0  | T  |
0278 2292 b838  |"  8|
027a 0000 2800  |  ( |
027c 0000 0000  |    |		.BLANK	0000[0x4]
0280 2f3a 2140  |/:!@|		.XXX[0x19]
0282 0000 1000  |    |
0284 2f3a a140  |/: @|
0286 0000 1002  |    |
0288 0000 0000  |    |
028a 05e7 5428  |  T(|
028c 0000 0201  |    |
028e 0330 08a4  | 0  |
0290 ae0e 0000  |    |
0292 0a00 0000  |    |
0294 1200 00c3  |    |
0296 bc00 0000  |    |
0298 0400       |    |
0299 0000 0000  |    |		.BLANK	0000[0x8]
02a1 0041 c200  | A  |		.XXX[0x2]
02a3 0000 0000  |    |		.BLANK	0000[0x8]
02ab 8000 0000  |    |		.XXX[0x1a]
02ad 0000 0000  |    |
02af 8000 2771  |  'q|
02b1 006b 0370  | k p|
02b3 006b 00d6  | k  |
02b5 806b 09fa  | k  |
02b7 8035 82ed  | 5  |
02b9 4000 1237  |@  7|
02bb 3a06 95f1  |:   |
02bd c3dc d800  |    |
02bf 0041 034a  | A J|
02c1 f8e2 525c  |  R\|
02c3 0000 2000  |    |
02c5 0000 0000  |    |		.BLANK	0000[0x4]
02c9 128d 8858  |   X|		.XXX[0x19]
02cb 0000 0400  |    |
02cd 128d a858  |   X|
02cf 0000 0400  |    |
02d1 8000 0000  |    |
02d3 0251 b50b  | Q  |
02d5 0000 0080  |    |
02d7 40d2 be38  |@  8|
02d9 9497 0000  |    |
02db 0800 0000  |    |
02dd 0480 0036  |   6|
02df d100 0000  |    |
02e1 0100       |    |
02e2 0000 0000  |    |		.BLANK	0000[0x8]
02ea 0010 7080  |  p |		.XXX[0x2]
02ec 0000 0000  |    |		.BLANK	0000[0x8]
02f4 2000 0000  |    |		.XXX[0x1a]
02f6 0000 0000  |    |
02f8 2000 0ad8  |    |
02fa 801a c16e  |   n|
02fc 4000 0000  |@   |
02fe 0000 0000  |    |
0300 000d 6104  |  a |
0302 7000 069b  |p   |
0304 b481 bf82  |    |
0306 7754 a200  |wT  |
0308 0023 40e1  | #@ |
030a a4bc 593e  |  Y>|
030c 0000 0900  |    |
030e 0000 0000  |    |		.BLANK	0000[0x4]
0312 06c9 c216  |    |		.XXX[0x45]
0314 0000 0100  |    |
0316 06c9 e216  |    |
0318 0000 0100  |    |
031a 0000 1914  |    |
031c 00d9 3c42  |  <B|
031e c000 0020  |    |
0320 1037 f04f  | 7 O|
0322 1e66 6000  | f` |
0324 0460 0000  | `  |
0326 0120 000f  |    |
0328 52c0 0000  |R   |
032a 0040 0000  | @  |
032c 0040 0003  | @  |
032e 2280 0000  |"   |
0330 0000 0000  |    |
0332 0002 06fe  |    |
0334 09e1 fbd8  |    |
0336 0000 8c00  |    |
0338 0000 2400  |  $ |
033a 01ea 5800  |  X |
033c 0000 0800  |    |
033e 0000 0800  |    |
0340 0000 0800  |    |
0342 0334 4006  | 4@ |
0344 b080 2006  |    |
0346 b07b 1806  | {  |
0348 b0c4 3803  |  8 |
034a 5853 6400  |XSd |
034c 01df c3a0  |    |
034e 6fe8 479e  |o G |
0350 a080 0008  |    |
0352 d038 6943  | 8iC|
0354 6d91 e000  |m   |
0356 0240       | @  |
0357 0000 0000  |    |		.BLANK	0000[0x4]
035b 01d4 6e85  |  n |		.XXX[0x19]
035d 8000 0040  |   @|
035f 01d4 7285  |  r |
0361 8000 0040  |   @|
0363 1000 0000  |    |
0365 003a 8e50  | : P|
0367 b000 0008  |    |
0369 040d fd09  |    |
036b 717a c000  |qz  |
036d 0118 0000  |    |
036f 0048 0002  | H  |
0371 df90 0000  |    |
0373 0010       |    |
0374 0000 0000  |    |		.BLANK	0000[0x8]
037c 0001 0708  |    |		.XXX[0x2]
037e 0000 0000  |    |		.BLANK	0000[0x8]
0386 0200 0000  |    |		.XXX[0x9]
0388 0000 0000  |    |
038a 0200 00d4  |    |
038c f201 ac29  |   )|
038e 2c00       |,   |
038f 0000 0000  |    |		.BLANK	0000[0x4]
0393 d619 6b00  |  k |		.XXX[0xd]
0395 011b 85a8  |    |
0397 1fa6 3a90  |  : |
0399 a9b0 0001  |    |
039b 240f d32c  |$  ,|
039d e6fd b000  |    |
039f 0090       |    |
03a0 0000 0000  |    |		.BLANK	0000[0x4]
03a4 01db 33a1  |  3 |		.XXX[0x45]
03a6 4000 0010  |@   |
03a8 01db 35a1  |  5 |
03aa 4000 0010  |@   |
03ac 0000 02cb  |    |
03ae c43b 66b4  | ;f |
03b0 2800 0002  |(   |
03b2 0103 f4c7  |    |
03b4 577a 4c00  |WzL |
03b6 0024 0000  | $  |
03b8 0012 0001  |    |
03ba a700 0000  |    |
03bc 0004 0000  |    |
03be 0004 0000  |    |
03c0 5978 8000  |Yx  |
03c2 0000 0000  |    |
03c4 0000 207e  |   ~|
03c6 98ea ce99  |    |
03c8 8000 0480  |    |
03ca 0000 0240  |   @|
03cc 0034 e000  | 4  |
03ce 0000 0080  |    |
03d0 0000 0080  |    |
03d2 0000 0080  |    |
03d4 0099 be00  |    |
03d6 6b0c 9400  |k   |
03d8 6b05 6880  |k h |
03da 6b17 b080  |k   |
03dc 3587 7f40  |5  @|
03de 0072 449a  | rD |
03e0 0855 8d4c  | U L|
03e2 0c5c 0000  | \  |
03e4 4904 2ac6  |I * |
03e6 a74e dc00  | N  |
03e8 0024       | $  |
03e9 0000 0000  |    |		.BLANK	0000[0x4]
03ed 0093 b4c8  |    |		.XXX[0x13]
03ef 5000 0004  |P   |
03f1 0093 b4e8  |    |
03f3 5000 0004  |P   |
03f5 0000 0000  |    |
03f7 0012 769d  |  v |
03f9 0a00 0000  |    |
03fb 8041 0ab1  | A  |
03fd a9ab 8380  |    |
03ff 0009       |    |