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

⟦e99b1bbe8⟧

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

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 04e8       |    |		.CONST	0x04e8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0033       | 3  |		.CONST	0x0033								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000a       |    |		.CONST	0x000a								; Number of locals
000b			INIT_0008:
000b e00d       |    |		Load	0x0,0xd
000c 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
000d 0322       | "  |		Declare_Variable	Record
000e 00d8       |    |		Load_Top	At_Offset_0
000f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0010 e00d       |    |		Load	0x0,0xd
0011 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0012 0322       | "  |		Declare_Variable	Record
0013 00d8       |    |		Load_Top	At_Offset_0
0014 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0015 e00d       |    |		Load	0x0,0xd
0016 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0017 02c7       |    |		Declare_Variable	Any
0018 00d8       |    |		Load_Top	At_Offset_0
0019 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001a e00d       |    |		Load	0x0,0xd
001b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
001c 0322       | "  |		Declare_Variable	Record
001d 00d8       |    |		Load_Top	At_Offset_0
001e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001f e00d       |    |		Load	0x0,0xd
0020 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0021 02c7       |    |		Declare_Variable	Any
0022 00d8       |    |		Load_Top	At_Offset_0
0023 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0024 e00f       |    |		Load	0x0,0xf
0025 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0026 02c7       |    |		Declare_Variable	Any
0027 00d8       |    |		Load_Top	At_Offset_0
0028 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0029 e00f       |    |		Load	0x0,0xf
002a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002b 02c7       |    |		Declare_Variable	Any
002c 00d8       |    |		Load_Top	At_Offset_0
002d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002e e5fe       |    |		Load	0x2,-0x2
002f e013       |    |		Load	0x0,0x13
0030 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0031 029f 0323  |   #|		Declare_Subprogram	INIT_0320,For_Call
0033			BODY_0008:
0033 4800       |H   |		Short_Literal	0x0
0034 0092 0335  |   5|		Action	Push_String_Extended,0x335					; "Rpc"
0036 e00e       |    |		Load	0x0,0xe
0037 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0038 840a       |    |		Call	0x2,0xa
0039 4800       |H   |		Short_Literal	0x0
003a 0092 0336  |   6|		Action	Push_String_Extended,0x336					; "Rpc_Server"
003c e00e       |    |		Load	0x0,0xe
003d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
003e 840a       |    |		Call	0x2,0xa
003f 4800       |H   |		Short_Literal	0x0
0040 0092 0337  |   7|		Action	Push_String_Extended,0x337					; "Transport_Stream"
0042 e00e       |    |		Load	0x0,0xe
0043 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0044 840a       |    |		Call	0x2,0xa
0045 4800       |H   |		Short_Literal	0x0
0046 0092 0338  |   8|		Action	Push_String_Extended,0x338					; "Transport_Interchange"
0048 e00e       |    |		Load	0x0,0xe
0049 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
004a 840a       |    |		Call	0x2,0xa
004b 4800       |H   |		Short_Literal	0x0
004c e5fe       |    |		Load	0x2,-0x2
004d e013       |    |		Load	0x0,0x13
004e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
004f e00e       |    |		Load	0x0,0xe
0050 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0051 840a       |    |		Call	0x2,0xa
0052 4800       |H   |		Short_Literal	0x0
0053 0092 0339  |   9|		Action	Push_String_Extended,0x339					; "Interchange"
0055 e00e       |    |		Load	0x0,0xe
0056 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0057 840a       |    |		Call	0x2,0xa
0058 4800       |H   |		Short_Literal	0x0
0059 e5fe       |    |		Load	0x2,-0x2
005a e00e       |    |		Load	0x0,0xe
005b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
005c 840a       |    |		Call	0x2,0xa
005d e405       |    |		Load	0x2,0x5
005e e5ff       |    |		Load	0x2,-0x1
005f e00d       |    |		Load	0x0,0xd
0060 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0061 00d1       |    |		Pop_Control	Pop_Count_1
0062 00cf       |    |		Action	Mark_Auxiliary
0063 780c       |x   |		Jump	0x70
0064 4800       |H   |		Short_Literal	0x0
0065 e405       |    |		Load	0x2,0x5
0066 e00d       |    |		Load	0x0,0xd
0067 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0068 e00e       |    |		Load	0x0,0xe
0069 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
006a 840a       |    |		Call	0x2,0xa
006b e405       |    |		Load	0x2,0x5
006c e00d       |    |		Load	0x0,0xd
006d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
006e 00d1       |    |		Pop_Control	Pop_Count_1
006f 00c9       |    |		Action	Pop_Auxiliary_Loop
0070 e405       |    |		Load	0x2,0x5
0071 e00d       |    |		Load	0x0,0xd
0072 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0073 6ff0       |o   |		Jump_Zero	0x64
0074 00ce       |    |		Action	Pop_Auxiliary
0075 4801       |H   |		Short_Literal	0x1
0076 4801       |H   |		Short_Literal	0x1
0077 e5fe       |    |		Load	0x2,-0x2
0078 e013       |    |		Load	0x0,0x13
0079 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
007a e00e       |    |		Load	0x0,0xe
007b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
007c 840a       |    |		Call	0x2,0xa
007d 4800       |H   |		Short_Literal	0x0
007e 0092 033a  |   :|		Action	Push_String_Extended,0x33a					; "Stream : Transport_Stream.Stream_Id;  \x0aId : Rpc.Transaction_Id;  \x0aVersion : Rpc.Version_Number;  \x0aProc : Rpc.Procedure_Number"
0080 4801       |H   |		Short_Literal	0x1
0081 0092 033b  |   ;|		Action	Push_String_Extended,0x33b					; "Process_Call"
0083 e00e       |    |		Load	0x0,0xe
0084 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0085 840a       |    |		Call	0x2,0xa
0086 4800       |H   |		Short_Literal	0x0
0087 e00e       |    |		Load	0x0,0xe
0088 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0089 840a       |    |		Call	0x2,0xa
008a 4800       |H   |		Short_Literal	0x0
008b 0092 033c  |   <|		Action	Push_String_Extended,0x33c					; "Proc"
008d e00e       |    |		Load	0x0,0xe
008e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
008f 840a       |    |		Call	0x2,0xa
0090 e402       |    |		Load	0x2,0x2
0091 e5ff       |    |		Load	0x2,-0x1
0092 e00d       |    |		Load	0x0,0xd
0093 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0094 00d1       |    |		Pop_Control	Pop_Count_1
0095 00cf       |    |		Action	Mark_Auxiliary
0096 79bf       |y   |		Jump	0x256
0097 4800       |H   |		Short_Literal	0x0
0098 00db       |    |		Load_Top	At_Offset_3
0099 0092 033d  |   =|		Action	Push_String_Extended,0x33d					; ".Procedure_Number."
009b 01cc       |    |		Execute	Vector,Catenate
009c e402       |    |		Load	0x2,0x2
009d e00d       |    |		Load	0x0,0xd
009e 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
009f 01cc       |    |		Execute	Vector,Catenate
00a0 e00e       |    |		Load	0x0,0xe
00a1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00a2 840a       |    |		Call	0x2,0xa
00a3 4800       |H   |		Short_Literal	0x0
00a4 00ea       |    |		Load_Encached	Null_String_Cache
00a5 e00e       |    |		Load	0x0,0xe
00a6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00a7 840a       |    |		Call	0x2,0xa
00a8 e402       |    |		Load	0x2,0x2
00a9 e00d       |    |		Load	0x0,0xd
00aa 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
00ab c404       |    |		Store	0x2,0x4
00ac 00cf       |    |		Action	Mark_Auxiliary
00ad 7872       |xr  |		Jump	0x120
00ae e404       |    |		Load	0x2,0x4
00af e00d       |    |		Load	0x0,0xd
00b0 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00b1 c408       |    |		Store	0x2,0x8
00b2 e404       |    |		Load	0x2,0x4
00b3 e00d       |    |		Load	0x0,0xd
00b4 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00b5 0f04       |    |		Execute_Immediate	Equal,0x4
00b6 7064       |pd  |		Jump_Nonzero	0x11b
00b7 7800       |x   |		Jump	0xb8
00b8 e404       |    |		Load	0x2,0x4
00b9 e00d       |    |		Load	0x0,0xd
00ba 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00bb c406       |    |		Store	0x2,0x6
00bc e408       |    |		Load	0x2,0x8
00bd e214       |    |		Load	0x1,0x14
00be 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00bf 7026       |p&  |		Jump_Nonzero	0xe6
00c0 00cf       |    |		Action	Mark_Auxiliary
00c1 781e       |x   |		Jump	0xe0
00c2 4800       |H   |		Short_Literal	0x0
00c3 4801       |H   |		Short_Literal	0x1
00c4 e408       |    |		Load	0x2,0x8
00c5 e5fe       |    |		Load	0x2,-0x2
00c6 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "Stream"
00c8 e408       |    |		Load	0x2,0x8
00c9 e214       |    |		Load	0x1,0x14
00ca 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00cb e406       |    |		Load	0x2,0x6
00cc e00d       |    |		Load	0x0,0xd
00cd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00ce e214       |    |		Load	0x1,0x14
00cf 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00d0 e404       |    |		Load	0x2,0x4
00d1 e00d       |    |		Load	0x0,0xd
00d2 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00d3 e00d       |    |		Load	0x0,0xd
00d4 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00d5 e406       |    |		Load	0x2,0x6
00d6 e00d       |    |		Load	0x0,0xd
00d7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d8 e00e       |    |		Load	0x0,0xe
00d9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00da 840a       |    |		Call	0x2,0xa
00db e406       |    |		Load	0x2,0x6
00dc e00d       |    |		Load	0x0,0xd
00dd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00de c406       |    |		Store	0x2,0x6
00df 00c9       |    |		Action	Pop_Auxiliary_Loop
00e0 e406       |    |		Load	0x2,0x6
00e1 e00d       |    |		Load	0x0,0xd
00e2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00e3 6fde       |o   |		Jump_Zero	0xc2
00e4 00ce       |    |		Action	Pop_Auxiliary
00e5 7835       |x5  |		Jump	0x11b
00e6 00cf       |    |		Action	Mark_Auxiliary
00e7 782e       |x.  |		Jump	0x116
00e8 4800       |H   |		Short_Literal	0x0
00e9 e404       |    |		Load	0x2,0x4
00ea e00d       |    |		Load	0x0,0xd
00eb 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00ec e00d       |    |		Load	0x0,0xd
00ed 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00ee e406       |    |		Load	0x2,0x6
00ef e00d       |    |		Load	0x0,0xd
00f0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00f1 e00e       |    |		Load	0x0,0xe
00f2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00f3 840a       |    |		Call	0x2,0xa
00f4 e408       |    |		Load	0x2,0x8
00f5 e214       |    |		Load	0x1,0x14
00f6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00f7 6819       |h   |		Jump_Zero	0x111
00f8 e404       |    |		Load	0x2,0x4
00f9 e00d       |    |		Load	0x0,0xd
00fa 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00fb 680a       |h   |		Jump_Zero	0x106
00fc e404       |    |		Load	0x2,0x4
00fd e00d       |    |		Load	0x0,0xd
00fe 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00ff 0f03       |    |		Execute_Immediate	Equal,0x3
0100 7005       |p   |		Jump_Nonzero	0x106
0101 e404       |    |		Load	0x2,0x4
0102 e00d       |    |		Load	0x0,0xd
0103 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0104 0f01       |    |		Execute_Immediate	Equal,0x1
0105 680b       |h   |		Jump_Zero	0x111
0106 4800       |H   |		Short_Literal	0x0
0107 0092 033f  |   ?|		Action	Push_String_Extended,0x33f					; "Interchange.Duration"
0109 e406       |    |		Load	0x2,0x6
010a e00d       |    |		Load	0x0,0xd
010b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
010c e013       |    |		Load	0x0,0x13
010d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
010e e00e       |    |		Load	0x0,0xe
010f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0110 840a       |    |		Call	0x2,0xa
0111 e406       |    |		Load	0x2,0x6
0112 e00d       |    |		Load	0x0,0xd
0113 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0114 c406       |    |		Store	0x2,0x6
0115 00c9       |    |		Action	Pop_Auxiliary_Loop
0116 e406       |    |		Load	0x2,0x6
0117 e00d       |    |		Load	0x0,0xd
0118 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0119 6fce       |o   |		Jump_Zero	0xe8
011a 00ce       |    |		Action	Pop_Auxiliary
011b e404       |    |		Load	0x2,0x4
011c e00d       |    |		Load	0x0,0xd
011d 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
011e c404       |    |		Store	0x2,0x4
011f 00c9       |    |		Action	Pop_Auxiliary_Loop
0120 e404       |    |		Load	0x2,0x4
0121 e00d       |    |		Load	0x0,0xd
0122 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0123 6f8a       |o   |		Jump_Zero	0xae
0124 00ce       |    |		Action	Pop_Auxiliary
0125 e402       |    |		Load	0x2,0x2
0126 e00d       |    |		Load	0x0,0xd
0127 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0128 6812       |h   |		Jump_Zero	0x13b
0129 e402       |    |		Load	0x2,0x2
012a e00d       |    |		Load	0x0,0xd
012b 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
012c c407       |    |		Store	0x2,0x7
012d e407       |    |		Load	0x2,0x7
012e e214       |    |		Load	0x1,0x14
012f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0130 680a       |h   |		Jump_Zero	0x13b
0131 4800       |H   |		Short_Literal	0x0
0132 e407       |    |		Load	0x2,0x7
0133 e00d       |    |		Load	0x0,0xd
0134 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0135 e407       |    |		Load	0x2,0x7
0136 e214       |    |		Load	0x1,0x14
0137 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0138 e00e       |    |		Load	0x0,0xe
0139 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
013a 840a       |    |		Call	0x2,0xa
013b 4800       |H   |		Short_Literal	0x0
013c e00e       |    |		Load	0x0,0xe
013d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
013e 840a       |    |		Call	0x2,0xa
013f e402       |    |		Load	0x2,0x2
0140 e00d       |    |		Load	0x0,0xd
0141 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
0142 c404       |    |		Store	0x2,0x4
0143 00cf       |    |		Action	Mark_Auxiliary
0144 7861       |xa  |		Jump	0x1a6
0145 e404       |    |		Load	0x2,0x4
0146 e00d       |    |		Load	0x0,0xd
0147 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0148 c408       |    |		Store	0x2,0x8
0149 e404       |    |		Load	0x2,0x4
014a e00d       |    |		Load	0x0,0xd
014b 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
014c 4604       |F   |		Jump_Case	0x5
014d 7804       |x   |		Jump	0x152								; case 0x0
014e 7803       |x   |		Jump	0x152								; case 0x1
014f 7851       |xQ  |		Jump	0x1a1								; case 0x2
0150 7801       |x   |		Jump	0x152								; case 0x3
0151 784f       |xO  |		Jump	0x1a1								; case 0x4
0152 e408       |    |		Load	0x2,0x8
0153 e214       |    |		Load	0x1,0x14
0154 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0155 684b       |hK  |		Jump_Zero	0x1a1
0156 e404       |    |		Load	0x2,0x4
0157 e00d       |    |		Load	0x0,0xd
0158 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0159 c406       |    |		Store	0x2,0x6
015a 00cf       |    |		Action	Mark_Auxiliary
015b 7840       |x@  |		Jump	0x19c
015c e408       |    |		Load	0x2,0x8
015d e214       |    |		Load	0x1,0x14
015e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
015f 6828       |h(  |		Jump_Zero	0x188
0160 4801       |H   |		Short_Literal	0x1
0161 4801       |H   |		Short_Literal	0x1
0162 e408       |    |		Load	0x2,0x8
0163 e5fe       |    |		Load	0x2,-0x2
0164 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "Stream"
0166 e408       |    |		Load	0x2,0x8
0167 e214       |    |		Load	0x1,0x14
0168 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0169 e406       |    |		Load	0x2,0x6
016a e00d       |    |		Load	0x0,0xd
016b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
016c e013       |    |		Load	0x0,0x13
016d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
016e e214       |    |		Load	0x1,0x14
016f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0170 840a       |    |		Call	0x2,0xa
0171 4800       |H   |		Short_Literal	0x0
0172 e408       |    |		Load	0x2,0x8
0173 e214       |    |		Load	0x1,0x14
0174 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0175 0092 0340  |   @|		Action	Push_String_Extended,0x340					; "("
0177 01cc       |    |		Execute	Vector,Catenate
0178 e406       |    |		Load	0x2,0x6
0179 e00d       |    |		Load	0x0,0xd
017a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
017b e013       |    |		Load	0x0,0x13
017c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
017d 01cc       |    |		Execute	Vector,Catenate
017e 0092 0341  |   A|		Action	Push_String_Extended,0x341					; ")"
0180 01cc       |    |		Execute	Vector,Catenate
0181 e406       |    |		Load	0x2,0x6
0182 e00d       |    |		Load	0x0,0xd
0183 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0184 e00e       |    |		Load	0x0,0xe
0185 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0186 840a       |    |		Call	0x2,0xa
0187 780f       |x   |		Jump	0x197
0188 4801       |H   |		Short_Literal	0x1
0189 4801       |H   |		Short_Literal	0x1
018a e408       |    |		Load	0x2,0x8
018b e5fe       |    |		Load	0x2,-0x2
018c 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "Stream"
018e e408       |    |		Load	0x2,0x8
018f e214       |    |		Load	0x1,0x14
0190 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0191 e406       |    |		Load	0x2,0x6
0192 e00d       |    |		Load	0x0,0xd
0193 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0194 e214       |    |		Load	0x1,0x14
0195 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0196 840a       |    |		Call	0x2,0xa
0197 e406       |    |		Load	0x2,0x6
0198 e00d       |    |		Load	0x0,0xd
0199 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
019a c406       |    |		Store	0x2,0x6
019b 00c9       |    |		Action	Pop_Auxiliary_Loop
019c e406       |    |		Load	0x2,0x6
019d e00d       |    |		Load	0x0,0xd
019e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
019f 6fbc       |o   |		Jump_Zero	0x15c
01a0 00ce       |    |		Action	Pop_Auxiliary
01a1 e404       |    |		Load	0x2,0x4
01a2 e00d       |    |		Load	0x0,0xd
01a3 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
01a4 c404       |    |		Store	0x2,0x4
01a5 00c9       |    |		Action	Pop_Auxiliary_Loop
01a6 e404       |    |		Load	0x2,0x4
01a7 e00d       |    |		Load	0x0,0xd
01a8 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01a9 6f9b       |o   |		Jump_Zero	0x145
01aa 00ce       |    |		Action	Pop_Auxiliary
01ab e402       |    |		Load	0x2,0x2
01ac e00d       |    |		Load	0x0,0xd
01ad 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
01ae c404       |    |		Store	0x2,0x4
01af e402       |    |		Load	0x2,0x2
01b0 e00d       |    |		Load	0x0,0xd
01b1 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
01b2 6834       |h4  |		Jump_Zero	0x1e7
01b3 e407       |    |		Load	0x2,0x7
01b4 e214       |    |		Load	0x1,0x14
01b5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01b6 6812       |h   |		Jump_Zero	0x1c9
01b7 4800       |H   |		Short_Literal	0x0
01b8 e407       |    |		Load	0x2,0x7
01b9 e214       |    |		Load	0x1,0x14
01ba 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01bb e404       |    |		Load	0x2,0x4
01bc 4802       |H   |		Short_Literal	0x2
01bd e402       |    |		Load	0x2,0x2
01be e00d       |    |		Load	0x0,0xd
01bf 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
01c0 e215       |    |		Load	0x1,0x15
01c1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01c2 e407       |    |		Load	0x2,0x7
01c3 e214       |    |		Load	0x1,0x14
01c4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01c5 e00e       |    |		Load	0x0,0xe
01c6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01c7 840a       |    |		Call	0x2,0xa
01c8 7827       |x'  |		Jump	0x1f0
01c9 4800       |H   |		Short_Literal	0x0
01ca 00ea       |    |		Load_Encached	Null_String_Cache
01cb e00e       |    |		Load	0x0,0xe
01cc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01cd 840a       |    |		Call	0x2,0xa
01ce 4800       |H   |		Short_Literal	0x0
01cf e407       |    |		Load	0x2,0x7
01d0 e00d       |    |		Load	0x0,0xd
01d1 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01d2 e404       |    |		Load	0x2,0x4
01d3 4802       |H   |		Short_Literal	0x2
01d4 e402       |    |		Load	0x2,0x2
01d5 e00d       |    |		Load	0x0,0xd
01d6 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
01d7 e215       |    |		Load	0x1,0x15
01d8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01d9 e407       |    |		Load	0x2,0x7
01da e00d       |    |		Load	0x0,0xd
01db 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01dc e407       |    |		Load	0x2,0x7
01dd e214       |    |		Load	0x1,0x14
01de 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01df e00e       |    |		Load	0x0,0xe
01e0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01e1 840a       |    |		Call	0x2,0xa
01e2 4800       |H   |		Short_Literal	0x0
01e3 e00e       |    |		Load	0x0,0xe
01e4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e5 840a       |    |		Call	0x2,0xa
01e6 7809       |x   |		Jump	0x1f0
01e7 4801       |H   |		Short_Literal	0x1
01e8 e404       |    |		Load	0x2,0x4
01e9 4802       |H   |		Short_Literal	0x2
01ea e402       |    |		Load	0x2,0x2
01eb e00d       |    |		Load	0x0,0xd
01ec 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
01ed e215       |    |		Load	0x1,0x15
01ee 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01ef 840a       |    |		Call	0x2,0xa
01f0 4801       |H   |		Short_Literal	0x1
01f1 0092 0342  |   B|		Action	Push_String_Extended,0x342					; "Rpc_Server.Begin_Response (Stream, Id);"
01f3 840a       |    |		Call	0x2,0xa
01f4 e402       |    |		Load	0x2,0x2
01f5 e00d       |    |		Load	0x0,0xd
01f6 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
01f7 6819       |h   |		Jump_Zero	0x211
01f8 4801       |H   |		Short_Literal	0x1
01f9 4800       |H   |		Short_Literal	0x0
01fa e407       |    |		Load	0x2,0x7
01fb e5fe       |    |		Load	0x2,-0x2
01fc 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "Stream"
01fe e407       |    |		Load	0x2,0x7
01ff e214       |    |		Load	0x1,0x14
0200 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0201 e407       |    |		Load	0x2,0x7
0202 e214       |    |		Load	0x1,0x14
0203 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0204 e214       |    |		Load	0x1,0x14
0205 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0206 840a       |    |		Call	0x2,0xa
0207 e407       |    |		Load	0x2,0x7
0208 e214       |    |		Load	0x1,0x14
0209 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
020a 7041       |pA  |		Jump_Nonzero	0x24c
020b 4800       |H   |		Short_Literal	0x0
020c 00ea       |    |		Load_Encached	Null_String_Cache
020d e00e       |    |		Load	0x0,0xe
020e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
020f 840a       |    |		Call	0x2,0xa
0210 783b       |x;  |		Jump	0x24c
0211 e402       |    |		Load	0x2,0x2
0212 e00d       |    |		Load	0x0,0xd
0213 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
0214 c404       |    |		Store	0x2,0x4
0215 00cf       |    |		Action	Mark_Auxiliary
0216 7830       |x0  |		Jump	0x247
0217 e404       |    |		Load	0x2,0x4
0218 e00d       |    |		Load	0x0,0xd
0219 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
021a c408       |    |		Store	0x2,0x8
021b e404       |    |		Load	0x2,0x4
021c e00d       |    |		Load	0x0,0xd
021d 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
021e 4802       |H   |		Short_Literal	0x2
021f 4803       |H   |		Short_Literal	0x3
0220 0262       | b  |		Execute	Discrete,In_Range
0221 7001       |p   |		Jump_Nonzero	0x223
0222 781f       |x   |		Jump	0x242
0223 e404       |    |		Load	0x2,0x4
0224 e00d       |    |		Load	0x0,0xd
0225 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0226 c406       |    |		Store	0x2,0x6
0227 00cf       |    |		Action	Mark_Auxiliary
0228 7814       |x   |		Jump	0x23d
0229 4801       |H   |		Short_Literal	0x1
022a 4800       |H   |		Short_Literal	0x0
022b e408       |    |		Load	0x2,0x8
022c e5fe       |    |		Load	0x2,-0x2
022d 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "Stream"
022f e408       |    |		Load	0x2,0x8
0230 e214       |    |		Load	0x1,0x14
0231 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0232 e406       |    |		Load	0x2,0x6
0233 e00d       |    |		Load	0x0,0xd
0234 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0235 e214       |    |		Load	0x1,0x14
0236 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0237 840a       |    |		Call	0x2,0xa
0238 e406       |    |		Load	0x2,0x6
0239 e00d       |    |		Load	0x0,0xd
023a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
023b c406       |    |		Store	0x2,0x6
023c 00c9       |    |		Action	Pop_Auxiliary_Loop
023d e406       |    |		Load	0x2,0x6
023e e00d       |    |		Load	0x0,0xd
023f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0240 6fe8       |o   |		Jump_Zero	0x229
0241 00ce       |    |		Action	Pop_Auxiliary
0242 e404       |    |		Load	0x2,0x4
0243 e00d       |    |		Load	0x0,0xd
0244 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0245 c404       |    |		Store	0x2,0x4
0246 00c9       |    |		Action	Pop_Auxiliary_Loop
0247 e404       |    |		Load	0x2,0x4
0248 e00d       |    |		Load	0x0,0xd
0249 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
024a 6fcc       |o   |		Jump_Zero	0x217
024b 00ce       |    |		Action	Pop_Auxiliary
024c 4800       |H   |		Short_Literal	0x0
024d 00ea       |    |		Load_Encached	Null_String_Cache
024e e00e       |    |		Load	0x0,0xe
024f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0250 840a       |    |		Call	0x2,0xa
0251 e402       |    |		Load	0x2,0x2
0252 e00d       |    |		Load	0x0,0xd
0253 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0254 00d1       |    |		Pop_Control	Pop_Count_1
0255 00c9       |    |		Action	Pop_Auxiliary_Loop
0256 e402       |    |		Load	0x2,0x2
0257 e00d       |    |		Load	0x0,0xd
0258 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0259 6e3d       |n=  |		Jump_Zero	0x97
025a 00ce       |    |		Action	Pop_Auxiliary
025b 4800       |H   |		Short_Literal	0x0
025c 0092 0343  |   C|		Action	Push_String_Extended,0x343					; "others"
025e e00e       |    |		Load	0x0,0xe
025f 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0260 840a       |    |		Call	0x2,0xa
0261 4800       |H   |		Short_Literal	0x0
0262 0092 0344  |   D|		Action	Push_String_Extended,0x344					; "Rpc.No_Such_Procedure"
0264 e00e       |    |		Load	0x0,0xe
0265 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0266 840a       |    |		Call	0x2,0xa
0267 4800       |H   |		Short_Literal	0x0
0268 e00e       |    |		Load	0x0,0xe
0269 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
026a 840a       |    |		Call	0x2,0xa
026b 4800       |H   |		Short_Literal	0x0
026c e00e       |    |		Load	0x0,0xe
026d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
026e 840a       |    |		Call	0x2,0xa
026f 4800       |H   |		Short_Literal	0x0
0270 0092 0345  |   E|		Action	Push_String_Extended,0x345					; "Constraint_Error"
0272 e00e       |    |		Load	0x0,0xe
0273 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0274 840a       |    |		Call	0x2,0xa
0275 4802       |H   |		Short_Literal	0x2
0276 0092 0346  |   F|		Action	Push_String_Extended,0x346					; "Rpc_Server.Return_Exception (Stream, id, "
0278 00db       |    |		Load_Top	At_Offset_3
0279 01cc       |    |		Execute	Vector,Catenate
027a 0092 0347  |   G|		Action	Push_String_Extended,0x347					; ".Exception_Number.Constraint_Error);"
027c 01cc       |    |		Execute	Vector,Catenate
027d 840a       |    |		Call	0x2,0xa
027e 4800       |H   |		Short_Literal	0x0
027f 0092 0348  |   H|		Action	Push_String_Extended,0x348					; "Numeric_Error"
0281 e00e       |    |		Load	0x0,0xe
0282 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0283 840a       |    |		Call	0x2,0xa
0284 4802       |H   |		Short_Literal	0x2
0285 0092 0346  |   F|		Action	Push_String_Extended,0x346					; "Rpc_Server.Return_Exception (Stream, id, "
0287 00db       |    |		Load_Top	At_Offset_3
0288 01cc       |    |		Execute	Vector,Catenate
0289 0092 0349  |   I|		Action	Push_String_Extended,0x349					; ".Exception_Number.Numeric_Error);"
028b 01cc       |    |		Execute	Vector,Catenate
028c 840a       |    |		Call	0x2,0xa
028d 4800       |H   |		Short_Literal	0x0
028e 0092 034a  |   J|		Action	Push_String_Extended,0x34a					; "Program_Error"
0290 e00e       |    |		Load	0x0,0xe
0291 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0292 840a       |    |		Call	0x2,0xa
0293 4802       |H   |		Short_Literal	0x2
0294 0092 0346  |   F|		Action	Push_String_Extended,0x346					; "Rpc_Server.Return_Exception (Stream, id, "
0296 00db       |    |		Load_Top	At_Offset_3
0297 01cc       |    |		Execute	Vector,Catenate
0298 0092 034b  |   K|		Action	Push_String_Extended,0x34b					; ".Exception_Number.Program_Error);"
029a 01cc       |    |		Execute	Vector,Catenate
029b 840a       |    |		Call	0x2,0xa
029c 4800       |H   |		Short_Literal	0x0
029d 0092 034c  |   L|		Action	Push_String_Extended,0x34c					; "Storage_Error"
029f e00e       |    |		Load	0x0,0xe
02a0 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02a1 840a       |    |		Call	0x2,0xa
02a2 4802       |H   |		Short_Literal	0x2
02a3 0092 0346  |   F|		Action	Push_String_Extended,0x346					; "Rpc_Server.Return_Exception (Stream, id, "
02a5 00db       |    |		Load_Top	At_Offset_3
02a6 01cc       |    |		Execute	Vector,Catenate
02a7 0092 034d  |   M|		Action	Push_String_Extended,0x34d					; ".Exception_Number.Storage_Error);"
02a9 01cc       |    |		Execute	Vector,Catenate
02aa 840a       |    |		Call	0x2,0xa
02ab 4800       |H   |		Short_Literal	0x0
02ac 0092 034e  |   N|		Action	Push_String_Extended,0x34e					; "Tasking_Error"
02ae e00e       |    |		Load	0x0,0xe
02af 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02b0 840a       |    |		Call	0x2,0xa
02b1 4802       |H   |		Short_Literal	0x2
02b2 0092 0346  |   F|		Action	Push_String_Extended,0x346					; "Rpc_Server.Return_Exception (Stream, id, "
02b4 00db       |    |		Load_Top	At_Offset_3
02b5 01cc       |    |		Execute	Vector,Catenate
02b6 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; ".Exception_Number.Tasking_Error);"
02b8 01cc       |    |		Execute	Vector,Catenate
02b9 840a       |    |		Call	0x2,0xa
02ba e403       |    |		Load	0x2,0x3
02bb e5ff       |    |		Load	0x2,-0x1
02bc e00d       |    |		Load	0x0,0xd
02bd 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02be 00d1       |    |		Pop_Control	Pop_Count_1
02bf 00cf       |    |		Action	Mark_Auxiliary
02c0 7831       |x1  |		Jump	0x2f2
02c1 e403       |    |		Load	0x2,0x3
02c2 e00d       |    |		Load	0x0,0xd
02c3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02c4 c406       |    |		Store	0x2,0x6
02c5 00cf       |    |		Action	Mark_Auxiliary
02c6 7821       |x!  |		Jump	0x2e8
02c7 4800       |H   |		Short_Literal	0x0
02c8 e5fe       |    |		Load	0x2,-0x2
02c9 0092 0350  |   P|		Action	Push_String_Extended,0x350					; "."
02cb 01cc       |    |		Execute	Vector,Catenate
02cc e406       |    |		Load	0x2,0x6
02cd e00d       |    |		Load	0x0,0xd
02ce 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02cf 01cc       |    |		Execute	Vector,Catenate
02d0 e00e       |    |		Load	0x0,0xe
02d1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02d2 840a       |    |		Call	0x2,0xa
02d3 4802       |H   |		Short_Literal	0x2
02d4 0092 0346  |   F|		Action	Push_String_Extended,0x346					; "Rpc_Server.Return_Exception (Stream, id, "
02d6 e409       |    |		Load	0x2,0x9
02d7 01cc       |    |		Execute	Vector,Catenate
02d8 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; ".Exception_Number."
02da 01cc       |    |		Execute	Vector,Catenate
02db e406       |    |		Load	0x2,0x6
02dc e00d       |    |		Load	0x0,0xd
02dd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02de 01cc       |    |		Execute	Vector,Catenate
02df 0092 0352  |   R|		Action	Push_String_Extended,0x352					; ");"
02e1 01cc       |    |		Execute	Vector,Catenate
02e2 840a       |    |		Call	0x2,0xa
02e3 e406       |    |		Load	0x2,0x6
02e4 e00d       |    |		Load	0x0,0xd
02e5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02e6 c406       |    |		Store	0x2,0x6
02e7 00c9       |    |		Action	Pop_Auxiliary_Loop
02e8 e406       |    |		Load	0x2,0x6
02e9 e00d       |    |		Load	0x0,0xd
02ea 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02eb 6fdb       |o   |		Jump_Zero	0x2c7
02ec 00ce       |    |		Action	Pop_Auxiliary
02ed e403       |    |		Load	0x2,0x3
02ee e00d       |    |		Load	0x0,0xd
02ef 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02f0 00d1       |    |		Pop_Control	Pop_Count_1
02f1 00c9       |    |		Action	Pop_Auxiliary_Loop
02f2 e403       |    |		Load	0x2,0x3
02f3 e00d       |    |		Load	0x0,0xd
02f4 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02f5 6fcb       |o   |		Jump_Zero	0x2c1
02f6 00ce       |    |		Action	Pop_Auxiliary
02f7 4801       |H   |		Short_Literal	0x1
02f8 00ea       |    |		Load_Encached	Null_String_Cache
02f9 e00e       |    |		Load	0x0,0xe
02fa 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02fb 840a       |    |		Call	0x2,0xa
02fc 4802       |H   |		Short_Literal	0x2
02fd 0092 0353  |   S|		Action	Push_String_Extended,0x353					; "procedure Serve_Guts is new Rpc_Server.Serve(Program => "
02ff 00db       |    |		Load_Top	At_Offset_3
0300 01cc       |    |		Execute	Vector,Catenate
0301 0092 0354  |   T|		Action	Push_String_Extended,0x354					; ".program,"
0303 01cc       |    |		Execute	Vector,Catenate
0304 0092 0355  |   U|		Action	Push_String_Extended,0x355					; "Process_Call => Process_Call);"
0306 01cc       |    |		Execute	Vector,Catenate
0307 840a       |    |		Call	0x2,0xa
0308 4800       |H   |		Short_Literal	0x0
0309 0092 0356  |   V|		Action	Push_String_Extended,0x356					; "procedure Serve (Connection : Transport.COnnection_Id) is "
030b 840a       |    |		Call	0x2,0xa
030c 4800       |H   |		Short_Literal	0x0
030d e00e       |    |		Load	0x0,0xe
030e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
030f 840a       |    |		Call	0x2,0xa
0310 4800       |H   |		Short_Literal	0x0
0311 0092 0357  |   W|		Action	Push_String_Extended,0x357					; "Serve_Guts (Connection);"
0313 840a       |    |		Call	0x2,0xa
0314 4801       |H   |		Short_Literal	0x1
0315 00ea       |    |		Load_Encached	Null_String_Cache
0316 e00e       |    |		Load	0x0,0xe
0317 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0318 840a       |    |		Call	0x2,0xa
0319 4800       |H   |		Short_Literal	0x0
031a 00ea       |    |		Load_Encached	Null_String_Cache
031b e00e       |    |		Load	0x0,0xe
031c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
031d 840a       |    |		Call	0x2,0xa
031e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
031f 0000       |    |		.XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 00da       |    |		Load_Top	At_Offset_2
0324 e5fd       |    |		Load	0x2,-0x3
0325 e015       |    |		Load	0x0,0x15
0326 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0327 00db       |    |		Load_Top	At_Offset_3
0328 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0329 680a       |h   |		Jump_Zero	0x334
032a 00db       |    |		Load_Top	At_Offset_3
032b 00d8       |    |		Load_Top	At_Offset_0
032c e015       |    |		Load	0x0,0x15
032d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
032e 0260       | `  |		Execute	Discrete,In_Type
032f 7001       |p   |		Jump_Nonzero	0x331
0330 0801       |    |		Execute_Immediate	Raise,0x1
0331 e5fd       |    |		Load	0x2,-0x3
0332 e015       |    |		Load	0x0,0x15
0333 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0334 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0335 ; --------------------------------------------------------------------------------------
0335 ; STRING TABLE
0335 ; --------------------------------------------------------------------------------------
0335 0048       | H  |		.STRTAB	0x0048->0x0359							; "Rpc"
0336 0049       | I  |		.STRTAB	0x0049->0x035a							; "Rpc_Server"
0337 0051       | Q  |		.STRTAB	0x0051->0x035f							; "Transport_Stream"
0338 005f       | _  |		.STRTAB	0x005f->0x0367							; "Transport_Interchange"
0339 0072       | r  |		.STRTAB	0x0072->0x0372							; "Interchange"
033a 007b       | {  |		.STRTAB	0x007b->0x0377							; "Stream : Transport_Stream.Stream_Id;  \x0aId : Rpc.Transaction_Id;  \x0aVersion : Rpc.Version_Number;  \x0aProc : Rpc.Procedure_Number"
033b 00f6       |    |		.STRTAB	0x00f6->0x03b6							; "Process_Call"
033c 0100       |    |		.STRTAB	0x0100->0x03bc							; "Proc"
033d 0102       |    |		.STRTAB	0x0102->0x03be							; ".Procedure_Number."
033e 0112       |    |		.STRTAB	0x0112->0x03c7							; "Stream"
033f 0116       |    |		.STRTAB	0x0116->0x03ca							; "Interchange.Duration"
0340 0128       | (  |		.STRTAB	0x0128->0x03d4							; "("
0341 0127       | '  |		.STRTAB	0x0127->0x03d4							; ")"
0342 0126       | &  |		.STRTAB	0x0126->0x03d5							; "Rpc_Server.Begin_Response (Stream, Id);"
0343 014b       | K  |		.STRTAB	0x014b->0x03e8							; "others"
0344 014f       | O  |		.STRTAB	0x014f->0x03eb							; "Rpc.No_Such_Procedure"
0345 0162       | b  |		.STRTAB	0x0162->0x03f6							; "Constraint_Error"
0346 0170       | p  |		.STRTAB	0x0170->0x03fe							; "Rpc_Server.Return_Exception (Stream, id, "
0347 0197       |    |		.STRTAB	0x0197->0x0412							; ".Exception_Number.Constraint_Error);"
0348 01b9       |    |		.STRTAB	0x01b9->0x0424							; "Numeric_Error"
0349 01c4       |    |		.STRTAB	0x01c4->0x042b							; ".Exception_Number.Numeric_Error);"
034a 01e3       |    |		.STRTAB	0x01e3->0x043b							; "Program_Error"
034b 01ee       |    |		.STRTAB	0x01ee->0x0442							; ".Exception_Number.Program_Error);"
034c 020d       |    |		.STRTAB	0x020d->0x0452							; "Storage_Error"
034d 0218       |    |		.STRTAB	0x0218->0x0459							; ".Exception_Number.Storage_Error);"
034e 0237       | 7  |		.STRTAB	0x0237->0x0469							; "Tasking_Error"
034f 0242       | B  |		.STRTAB	0x0242->0x0470							; ".Exception_Number.Tasking_Error);"
0350 0261       | a  |		.STRTAB	0x0261->0x0480							; "."
0351 0260       | `  |		.STRTAB	0x0260->0x0481							; ".Exception_Number."
0352 0270       | p  |		.STRTAB	0x0270->0x048a							; ");"
0353 0270       | p  |		.STRTAB	0x0270->0x048b							; "procedure Serve_Guts is new Rpc_Server.Serve(Program => "
0354 02a6       |    |		.STRTAB	0x02a6->0x04a7							; ".program,"
0355 02ad       |    |		.STRTAB	0x02ad->0x04ab							; "Process_Call => Process_Call);"
0356 02c9       |    |		.STRTAB	0x02c9->0x04ba							; "procedure Serve (Connection : Transport.COnnection_Id) is "
0357 0301       |    |		.STRTAB	0x0301->0x04d7							; "Serve_Guts (Connection);"
0358 0317       |    |		.STREND 0x0317->0x04e3
0359 5270 6352  |RpcR|		.STRTAB_STRINGS
04e4 0000 0000  |    |		.BLANK	0000[0x4]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; Debug Table
04e8 ; --------------------------------------------------------------------------------------
04e8 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2f26,0x0000,0x0001,0x0002
04ee 000b 04f6  |    |		.DBG4T	0x000b,0x04f6,0x0001,0xc000
04f2 0323 05da  | #  |		.DBG4T	0x0323,0x05da,0x0001,0x0000
04f6 ; --------------------------------------------------------------------------------------
04f6 ; Debug chain
04f6 ; --------------------------------------------------------------------------------------
04f6 0008 0069  |   i|		.DBGLEN	0x0008,0x0069
04f8 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0015,0x001a,0x001f,0x0024,0x002e,0x0031,0x0033,0x0039,0x003f,0x0045,0x004b,0x0052,0x0058,0x005d,0x0064,0x006b,0x0070,0x0075,0x007d,0x0086,0x008a,0x0090,0x0097,0x00a3,0x00a8,0x00ae,0x00b2,0x00b8,0x00bc,0x00c2,0x00db,0x00e0,0x00e8,0x00f4,0x0106,0x0111,0x0116,0x011b,0x0120,0x0125,0x0129,0x012d,0x0131,0x013b,0x013f,0x0145,0x0149,0x0152,0x0156,0x015c,0x0160,0x0171,0x0188,0x0197,0x019c,0x01a1,0x01a6,0x01ab,0x01af,0x01b3,0x01b7,0x01c9,0x01ce,0x01e2,0x01e7,0x01f0,0x01f4,0x01f8,0x0207,0x020b,0x0211,0x0217,0x021b,0x0223,0x0229,0x0238,0x023d,0x0242,0x0247,0x024c,0x0251,0x0256,0x025b,0x0261,0x0267,0x026b,0x026f,0x0275,0x027e,0x0284,0x028d,0x0293,0x029c,0x02a2,0x02ab,0x02b1,0x02ba,0x02c1,0x02c7,0x02d3,0x02e3,0x02e8,0x02ed,0x02f2,0x02f7,0x02fc,0x0308,0x030c,0x0310,0x0314,0x0319
0569 0002 0003  |    |		.XXX[0x71]
056b 0004 0005  |    |
056d 0006 0007  |    |
056f 0008 0009  |    |
0571 0001 0002  |    |
0573 0003 0004  |    |
0575 0005 0006  |    |
0577 0007 0008  |    |
0579 000a 000b  |    |
057b 0009 000c  |    |
057d 000d 000e  |    |
057f 000f 0010  |    |
0581 0012 0013  |    |
0583 0014 0016  |    |
0585 0017 0018  |    |
0587 0019 001b  |    |
0589 001c 001a  |    |
058b 001e 001f  |    |
058d 0020 0021  |   !|
058f 001d 0023  |   #|
0591 0015 0024  |   $|
0593 0026 0027  | & '|
0595 0028 0029  | ( )|
0597 002a 002c  | * ,|
0599 002d 002e  | - .|
059b 002f 0031  | / 1|
059d 0032 0033  | 2 3|
059f 0034 0035  | 4 5|
05a1 0030 0037  | 0 7|
05a3 002b 0038  | + 8|
05a5 0039 003b  | 9 ;|
05a7 003c 003d  | < =|
05a9 003e 003f  | > ?|
05ab 003a 0040  | : @|
05ad 0041 004c  | A L|
05af 004d 004e  | M N|
05b1 0042 0044  | B D|
05b3 0045 0046  | E F|
05b5 0048 0049  | H I|
05b7 0047 004b  | G K|
05b9 0043 004f  | C O|
05bb 0050 0011  | P  |
05bd 0051 0052  | Q R|
05bf 0053 0054  | S T|
05c1 0055 0056  | U V|
05c3 0057 0058  | W X|
05c5 0059 005a  | Y Z|
05c7 005b 005c  | [ \|
05c9 005d 005e  | ] ^|
05cb 005f 0061  | _ a|
05cd 0063 0064  | c d|
05cf 0065 0062  | e b|
05d1 0066 0060  | f `|
05d3 0067 0068  | g h|
05d5 0069 006a  | i j|
05d7 006b 006c  | k l|
05d9 006d       | m  |
05da ; --------------------------------------------------------------------------------------
05da ; Debug chain
05da ; --------------------------------------------------------------------------------------
05da 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05dc 0323 0327  | # '|		.DBGLNO	0x0323,0x0327,0x032a
05df 0000 0000  |    |		.BLANK	0000[0x21]