$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>RPC-EXAMPLESERVER.DCOM!1
0000000 ( F I L E C R E A T E D " 6
0000020 - D e c - 8 5 1 6 : 4 1 : 3 3
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P U S E
0000100 R S > K O T O > R P C - E X A M
0000120 P L E S E R V E R . ; 1 ) \r "
0000140 1 2 - N o v - 8 5 1 4 : 5 9 :
0000160 2 3 " b c o m p l ' d i n
0000200 " I N T E R L I S P - D 2 2 -
0000220 N o v - 8 5 . . . " d a t e
0000240 d " 2 2 - N o v - 8 5 1 1 :
0000260 3 2 : 5 8 " ) \r ( F I L E C R E
0000300 A T E D " 6 - D e c - 8 5
0000320 1 6 : 2 6 : 0 9 " { E R I S }
0000340 < L I S P U S E R S > K O T O >
0000360 R P C - E X A M P L E S E R V E
0000400 R . ; 1 1 7 3 6 7 c h a n g
0000420 e s t o : ( F N S \r H i d
0000440 e R P C - E X A M P L E S e r v
0000460 e r M o v d s E x p o r t R P
0000500 C - E X A M P L E U n e x p o
0000520 r t R P C - E X A M P L E R P
0000540 C - E X A M P L E S e r v e r D
0000560 i s p a t c h C a t c h F a k
0000600 e \r C a t c h N o o n e F a i
0000620 l e d C a t c h S i m p l e F
0000640 a i l e d S i m p l e S e r v
0000660 e r S t u b C o m p l e x S e
0000700 r v e r S t u b A r g T e s t
0000720 A S e r v e r S t u b \r A r g
0000740 T e s t B S e r v e r S t u b
0000760 U n m a r s h a l R P C - E X A
0001000 M P L E R e c 5 # 0 # 9 6 U n
0001020 m a r s h a l R P C - E X A M P
0001040 L E R e c 6 # 0 # 4 8 \r U n m
0001060 a r s h a l R P C - E X A M P L
0001100 E R e c 2 # 0 # 1 2 8 U n m a
0001120 r s h a l R P C - E X A M P L E
0001140 R e c 1 # 0 # 8 0 U n m a r s
0001160 h a l R P C - E X A M P L E R e
0001200 c 4 # 0 # 4 8 \r U n m a r s h
0001220 a l R P C - E X A M P L E R e c
0001240 3 # 1 # 1 5 U n m a r s h a l
0001260 R P C - E X A M P L E R e c 3 #
0001300 0 # 1 6 H i d e R P C - E x a
0001320 m p l e S e r v e r M o v d s
0001340 \r E x p o r t R P C - E x a m p
0001360 l e U n e x p o r t R P C - E
0001400 x a m p l e R P C - E x a m p
0001420 l e S e r v e r D i s p a t c h
0001440 U n m a r s h a l R P C - E x
0001460 a m p l e R e c 5 # 0 # 9 6 \r
0001500 U n m a r s h a l R P C - E x a
0001520 m p l e R e c 6 # 0 # 4 8 U n
0001540 m a r s h a l R P C - E x a m p
0001560 l e R e c 2 # 0 # 1 2 8 U n m
0001600 a r s h a l R P C - E x a m p l
0001620 e R e c 1 # 0 # 8 0 \r U n m a
0001640 r s h a l R P C - E x a m p l e
0001660 R e c 4 # 0 # 4 8 U n m a r s
0001700 h a l R P C - E x a m p l e R e
0001720 c 3 # 1 # 1 5 U n m a r s h a
0001740 l R P C - E x a m p l e R e c 3
0001760 # 0 # 1 6 ) ) \r H i d e R P C -
0002000 E x a m p l e S e r v e r M o v
0002020 d s D 1 \r ( P 0 p ) \0 0
0002040 001 \0 \0 \0 o \0 \0 \0 260 & d 001 021 001 \0 H
0002060 002 001 H 001 \t \0 \0 \n \0 \0 277 H 001 \t \0 \0
0002100 277 H 002 002 H 001 H 002 001 \v \0 \0 023 002 003 265
0002120 333 h 020 \0 ( 4 7 Q C H A N G E N
0002140 A M E 3 3 Q P U T D 2 5 Q
0002160 P U T D 2 2 Q G E T D ) \r
0002200 N I L \r ( 3 ( ( A r g T e s
0002220 t B H i d d e n . A r g T e s
0002240 t B . A r g T e s t B S e r
0002260 v e r S t u b ) ( A r g T e s
0002300 t A H i d d e n . A r g T e s
0002320 t A . A r g T e s t A S e r
0002340 v e r S t u b ) ( C o m p l e
0002360 x H i d d e n . C o m p l e x
0002400 . C o m p l e x S e r v e r
0002420 S t u b ) ( S i m p l e H i
0002440 d d e n . S i m p l e . S i
0002460 m p l e S e r v e r S t u b ) )
0002500 ) \r E x p o r t R P C - E x a m
0002520 p l e D 1 \r ( I 4 p a s s
0002540 w o r d I 3 u s e r I
0002560 2 v e r s i o n I 1 i n
0002600 s t a n c e I 0 t y p e )
0002620 \0 & \0 \0 \0 005 ` \0 \0 232 o \0 \0 \0 g
0002640 \0 \0 \n \0 \0 277 C D @ 265 006 o \0 \0 \0 A
0002660 B g \0 \0 \r 006 \0 \0 027 \0 \0 020 \0 ( 4 0
0002700 Q E x p o r t I n t e r f a c
0002720 e 1 5 Q E R R O R ) \r ( 4 3
0002740 Q R P C - E x a m p l e S e r
0002760 v e r I n t e r f a c e 3 4 Q
0003000 R P C - E x a m p l e S e r v
0003020 e r D i s p a t c h 1 2 Q R
0003040 P C - E x a m p l e 2 R P C
0003060 - E x a m p l e S e r v e r I n
0003100 t e r f a c e ) \r ( 2 7 Q "
0003120 R P C - E x a m p l e 6 - D e
0003140 c - 8 5 1 6 : 2 4 : 2 7 1 5 4
0003160 0 " 7 " A l r e a d y e x
0003200 p o r t e d " ) \r U n e x p o r
0003220 t R P C - E x a m p l e D 1 \r
0003240 N I L \0 030 \0 \0 \0 \0 ` \0 \0 265 \f o
0003260 \0 \0 \0 g \0 \0 \n \0 \0 \t \0 \0 h 027 \0 \0
0003300 020 \0 ( 2 1 Q U n e x p o r t I
0003320 n t e r f a c e 1 6 Q E R R
0003340 O R ) \r ( 2 5 Q R P C - E x a
0003360 m p l e S e r v e r I n t e r f
0003400 a c e 1 3 Q R P C - E x a m
0003420 p l e 2 R P C - E x a m p l
0003440 e S e r v e r I n t e r f a c e
0003460 ) \r ( 1 0 Q " n o t e x p
0003500 o r t e d " ) \r R P C - E x a m
0003520 p l e S e r v e r D i s p a t c
0003540 h A 0 0 0 1 D 1 \r ( I 1 a
0003560 r g I 0 t y p e F 0
0003600 l . . c o n v ) \0 - \0 001 \0 002 @
0003620 d g \0 \0 360 230 277 A P \n \0 \0 h 032 020 g
0003640 \0 \0 360 227 A P \n \0 \0 h 032 020 @ g \0 \0
0003660 360 264 \t A P \n \0 \0 h 032 020 \0 ( 5 0 Q
0003700 C a t c h F a k e 3 1 Q C
0003720 a t c h N o o n e F a i l e d
0003740 1 4 Q C a t c h S i m p l e F
0003760 a i l e d ) \r ( 4 0 Q F a k e
0004000 2 2 Q N o o n e F a i l e d
0004020 4 S i m p l e F a i l e d )
0004040 \r ( ) \r R P C - E x a m p l e S
0004060 e r v e r D i s p a t c h A 0 0
0004100 0 2 D 1 \r ( N A M E E R R O
0004120 R S E T F 0 l . . p u p
0004140 F 1 l . . c o n v F 2
0004160 r e q u e s t ) \0 8 \0 003 002 \0 R
0004200 d l 004 360 227 277 P Q \n \0 \0 260 ( d l 005
0004220 360 227 277 P Q \n \0 \0 260 033 d l 006 360 226 277
0004240 P Q \n \0 \0 214 l \a 360 225 P Q \n \0 \0 202
0004260 \b \0 \0 h 032 020 \0 ( 6 3 Q S H O U
0004300 L D N T 5 7 Q A r g T e s t
0004320 B S e r v e r S t u b 4 5 Q
0004340 A r g T e s t A S e r v e r S t
0004360 u b 3 0 Q C o m p l e x S e
0004400 r v e r S t u b 1 3 Q S i m
0004420 p l e S e r v e r S t u b ) \r N
0004440 I L \r ( ) \r R P C - E x a m p l
0004460 e S e r v e r D i s p a t c h
0004500 D 1 \r ( P 4 $ E x i t $ P
0004520 3 r e s u l t P 2 $ S
0004540 i g n a l A r g $ P 1 $ S
0004560 i g n a l T y p e $ P 0 $
0004600 S i g n a l C a t c h e r $ I
0004620 2 l . . c o n v I 1 r
0004640 e q u e s t I 0 l . . p u
0004660 p ) \0 # 005 \0 \0 003 g \0 \0 021 A 004 o
0004700 \0 \0 \0 \t \0 \0 [ 265 \t L 265 \b \b \0 \0 020
0004720 001 020 i 360 221 h 020 \b \0 \0 020 \0 ( 4 0 Q
0004740 S H O U L D N T 2 5 Q E R
0004760 R O R ! 1 4 Q R P C - E x a
0005000 m p l e S e r v e r D i s p a t
0005020 c h A 0 0 0 2 ) \r ( 2 R P C -
0005040 E x a m p l e S e r v e r D i s
0005060 p a t c h A 0 0 0 1 ) \r ( 1 1
0005100 Q ( R P C - E x a m p l e S e
0005120 r v e r D i s p a t c h A 0 0 0
0005140 2 ) ) \r C a t c h F a k e D 1
0005160 \r ( P 0 l . . d a t u m I
0005200 1 l . . c o n v I 0 a
0005220 r g F 1 l . . c P u p )
0005240 \0 = 001 001 \0 002 Q \t \0 \0 Q l 006 \n \0 \0
0005260 Q h A \v \0 \0 c 002 d A \n \0 \0 Q A \n
0005300 \0 \0 021 001 \0 H 002 002 002 Q A \n \0 \0 030 277
0005320 H 002 002 002 002 Q A \n \0 \0 030 277 H 022 h 032
0005340 032 020 \0 ( 6 3 Q \ U n m a r s h
0005360 a l A t o m 4 7 Q \ U n m a
0005400 r s h a l S t r i n g 3 3 Q
0005420 U n m a r s h a l R P C - E x a
0005440 m p l e R e c 1 # 0 # 8 0 2 6
0005460 Q \ U n m a r s h a l A t o m
0005500 1 7 Q \ C a l l 1 1 Q \
0005520 A d d P u p W o r d 3 \ S t
0005540 a r t S i g n a l ) \r N I L \r (
0005560 ) \r C a t c h N o o n e F a i l
0005600 e d D 1 \r ( I 1 l . . c o
0005620 n v I 0 a r g F 0 l
0005640 . . c P u p ) \0 ( \0 001 \0 002 P \t
0005660 \0 \0 P l 005 \n \0 \0 P @ 002 001 A \v \0 \0
0005700 P @ 001 A \v \0 \0 P h A \v \0 \0 c \0 d
0005720 A \n \0 \0 020 \0 ( 4 5 Q \ G e t A
0005740 r g B o o l 3 6 Q \ C a l l
0005760 3 0 Q \ M a r s h a l S t r
0006000 i n g 2 1 Q \ A d d P u p S
0006020 m a l l p 1 1 Q \ A d d P u
0006040 p W o r d 3 \ S t a r t S i
0006060 g n a l ) \r N I L \r ( ) \r C a t
0006100 c h S i m p l e F a i l e d D
0006120 1 \r ( I 1 l . . c o n v I
0006140 0 a r g F 0 l . . c P
0006160 u p ) \0 037 \0 001 \0 002 P \t \0 \0 P l
0006200 004 \n \0 \0 P o \0 \0 \0 @ A \f \0 \0 P h
0006220 A \v \0 \0 c \0 h 020 \0 ( 3 1 Q \ C
0006240 a l l 2 3 Q \ A d d P u p E
0006260 n u m 1 1 Q \ A d d P u p W
0006300 o r d 3 \ S t a r t S i g n
0006320 a l ) \r N I L \r ( 1 6 Q ( b
0006340 a d N u m b a d S t r i n g )
0006360 ) \r S i m p l e S e r v e r S t
0006400 u b D 1 \r ( P 2 l . . a r
0006420 g 2 P 1 l . . a r g 1 P
0006440 0 l . . r e s u l t I 1
0006460 l . . c o n v I 0 l . .
0006500 c P u p ) \0 " 003 \0 \0 002 021 0 002 @
0006520 A \n \0 \0 Y @ A \n \0 \0 Z I J \n \0 \0
0006540 X @ \t \0 \0 @ H A \v \0 \0 @ 020 \0 ( 3
0006560 6 Q \ A d d P u p B o o l e a
0006600 n 3 0 Q \ S t a r t R e t u
0006620 r n 2 3 Q S i m p l e 1 5
0006640 Q \ U n m a r s h a l S t r i
0006660 n g 7 \ G e t A r g D b l W
0006700 o r d ) \r N I L \r ( ) \r C o m p
0006720 l e x S e r v e r S t u b D 1
0006740 \r ( P 3 0 Q l . . i P 2
0006760 3 Q l . . i P 2 1 Q l .
0007000 . p P 2 0 Q l . . d a t u
0007020 m P 1 7 Q l . . d a t u m
0007040 P 1 6 Q l . . a r g 1 4
0007060 P 1 5 Q l . . a r g 1 3 P
0007100 1 4 Q l . . a r g 1 2 P
0007120 1 3 Q l . . a r g 1 1 P 1
0007140 2 Q l . . a r g 1 0 P 1 1
0007160 Q l . . a r g 9 P 1 0 Q
0007200 l . . a r g 8 P 7 l . . a
0007220 r g 7 P 6 l . . a r g 6
0007240 P 5 l . . a r g 5 P 4
0007260 l . . a r g 4 P 3 l . . a
0007300 r g 3 P 2 l . . a r g 2
0007320 P 1 l . . a r g 1 P 0
0007340 l . . r e s u l t I 1 l .
0007360 . c o n v I 0 l . . c P u
0007400 p ) 002 \b 034 \0 \0 002 021 360 016 @ A \n \0
0007420 \0 Y @ A \n \0 \0 Z @ A \n \0 \0 [ @ A
0007440 \n \0 \0 \ @ A \n \0 \0 _ 020 @ o \0 \0 \0
0007460 A \v \0 \0 ] @ A \n \0 \0 221 h 204 @ A \n
0007500 \0 \0 ^ @ A \n \0 \0 221 h 204 @ A \n \0 \0
0007520 _ 016 @ A \n \0 \0 _ 022 @ A \n \0 \0 021 001
0007540 017 O 036 002 002 002 @ A \n \0 \0 030 277 O 036 002
0007560 002 002 002 @ A \n \0 \0 030 277 O 036 022 _ 024 @
0007600 A \n \0 \0 021 001 017 O 036 002 002 001 021 001 020 O
0007620 002 002 002 @ A \n \0 \0 030 277 O 002 002 002
0007640 002 @ A \n \0 \0 030 023 O 036 002 002 002 @ A \n
0007660 \0 \0 030 277 O 036 022 _ 026 @ A \n \0 \0 021 001
0007700 017 O 036 d 262 3 002 @ A \n \0 \0 030 277 O 036
0007720 002 002 260 037 d 021 001 021 O " @ A \n \0 \0 021
0007740 001 020 O 002 @ A \n \0 \0 030 277 O 022 030
0007760 023 002 003 265 341 O 036 022 _ 030 @ l 002 \n \0 \0
0010000 b \0 A \n \0 \0 k 021 2 026 O & O $ 363 263
0010020 ' @ A \n \0 \0 _ , 277 O * 265 023 O , h
0010040 032 _ * _ ( 277 O & k 324 _ & 260 340 O ,
0010060 & _ * 277 260 362 O ( 022 _ 032 @ l 002 \n \0
0010100 \0 b \0 A \n \0 \0 k 021 2 026 O & O $ 363
0010120 222 261 \0 201 @ l 002 \n \0 \0 b \0 A \n \0 \0
0010140 k 021 2 033 O 0 O . 363 263 F @ A \n \0 \0
0010160 021 001 017 O 036 002 002 002 @ A \n \0 \0 030 277 O
0010200 036 002 002 002 002 @ A \n \0 \0 030 277 O 036 022 _
0010220 6 277 O 4 265 023 O 6 h 032 _ 4 _ 2 277 O
0010240 0 k 324 _ 0 260 301 O 6 & _ 4 277 260 362 O
0010260 2 022 _ , 277 O * 265 023 O , h 032 _ * _
0010300 ( 277 O & k 324 _ & 260 205 O , & _ * 277
0010320 260 362 O ( 022 _ 034 I J K L M N O 016 O
0010340 020 O 022 O 024 O 026 O 030 O 032 O 034 \r 016 \0
0010360 \0 X @ \t \0 \0 @ H 001 A \v \0 \0 @ H 002
0010400 002 001 A \v \0 \0 @ H 002 001 A \v \0 \0 @ 020
0010420 \0 ( 1 0 0 4 Q \ M a r s h a l
0010440 S t r i n g 7 7 4 Q \ A d d
0010460 P u p B o o l e a n 7 6 3 Q
0010500 \ A d d P u p B o o l e a n 7
0010520 5 4 Q \ S t a r t R e t u r n
0010540 7 4 7 Q C o m p l e x 6 0
0010560 0 Q \ U n m a r s h a l A t o
0010600 m 5 6 3 Q \ U n m a r s h a
0010620 l S t r i n g 5 4 6 Q U n m
0010640 a r s h a l R P C - E x a m p l
0010660 e R e c 1 # 0 # 8 0 5 2 6 Q
0010700 \ G e t A r g D b l W o r d 5
0010720 2 0 Q \ C h e c k P u p E x h
0010740 a u s t e d 4 7 5 Q \ G e t
0010760 A r g D b l W o r d 4 6 7 Q
0011000 \ C h e c k P u p E x h a u s t
0011020 e d 4 1 4 Q \ G e t A r g S
0011040 m a l l p 3 7 4 Q \ G e t A
0011060 r g D b l W o r d 3 6 6 Q \
0011100 C h e c k P u p E x h a u s t e
0011120 d 3 4 0 Q \ U n m a r s h a
0011140 l S t r i n g 3 2 5 Q U n m
0011160 a r s h a l R P C - E x a m p l
0011200 e R e c 6 # 0 # 4 8 3 0 2 Q
0011220 \ U n m a r s h a l S t r i n g
0011240 2 6 4 Q U n m a r s h a l R
0011260 P C - E x a m p l e R e c 5 # 0
0011300 # 9 6 2 5 0 Q \ U n m a r s
0011320 h a l A t o m 2 3 4 Q \ U n
0011340 m a r s h a l A t o m 2 1 7 Q
0011360 \ U n m a r s h a l S t r i n
0011400 g 1 7 2 Q U n m a r s h a l
0011420 R P C - E x a m p l e R e c 2 #
0011440 0 # 1 2 8 1 5 6 Q \ U n m a
0011460 r s h a l A t o m 1 4 1 Q \
0011500 U n m a r s h a l S t r i n g
0011520 1 2 4 Q U n m a r s h a l R P
0011540 C - E x a m p l e R e c 1 # 0 #
0011560 8 0 1 1 5 Q \ U n m a r s h
0011600 a l S t r i n g 1 0 6 Q U n
0011620 m a r s h a l R P C - E x a m p
0011640 l e R e c 3 # 0 # 1 6 7 6 Q
0011660 \ G e t A r g B o o l 7 0 Q
0011700 U n m a r s h a l R P C - E x a
0011720 m p l e R e c 3 # 0 # 1 6 6 0
0011740 Q \ G e t A r g B o o l 5 2
0011760 Q \ U n m a r s h a l S t r e
0012000 a m 3 7 Q U n m a r s h a l
0012020 R P C - E x a m p l e R e c 3 #
0012040 0 # 1 6 3 1 Q U n m a r s h
0012060 a l R P C - E x a m p l e R e c
0012100 4 # 0 # 4 8 2 3 Q U n m a r
0012120 s h a l R P C - E x a m p l e R
0012140 e c 3 # 0 # 1 6 1 5 Q \ G e
0012160 t A r g B o o l 7 \ G e t A
0012200 r g B o o l ) \r N I L \r ( 4 6
0012220 Q ( { N O D I R C O R E } ) )
0012240 \r A r g T e s t A S e r v e r S
0012260 t u b D 1 \r ( P 6 l . . a
0012300 r g 6 P 5 l . . a r g 5
0012320 P 4 l . . a r g 4 P 3
0012340 l . . a r g 3 P 2 l . . a
0012360 r g 2 P 1 l . . a r g 1
0012400 P 0 l . . r e s u l t I
0012420 1 l . . c o n v I 0 l .
0012440 . c P u p ) \0 j \a \0 \0 002 021 p 006
0012460 @ A \n \0 \0 Y @ A \n \0 \0 Z @ A \n \0
0012500 \0 [ @ A \n \0 \0 \ @ A \n \0 \0 ] @ o
0012520 \0 \0 \0 A \v \0 \0 ^ I J K L M N \r 006
0012540 \0 \0 X @ \t \0 \0 @ H 001 A \v \0 \0 @ H
0012560 002 001 A \v \0 \0 @ H 002 002 001 A \v \0 \0 @
0012600 H 002 002 002 001 A \v \0 \0 @ H 002 002 002 002 001
0012620 A \v \0 \0 @ 020 \0 ( 1 4 6 Q \ M a
0012640 r s h a l A t o m 1 3 3 Q \
0012660 M a r s h a l S t r i n g 1 2
0012700 1 Q \ A d d P u p B o o l e a
0012720 n 1 1 0 Q \ A d d P u p D b
0012740 l W o r d 1 0 0 Q \ A d d P
0012760 u p S m a l l p 7 1 Q \ S t
0013000 a r t R e t u r n 6 4 Q A r
0013020 g T e s t A 5 1 Q \ U n m a
0013040 r s h a l S t r e a m 3 7 Q
0013060 \ U n m a r s h a l A t o m 3
0013100 1 Q \ U n m a r s h a l S t r
0013120 i n g 2 3 Q \ G e t A r g B
0013140 o o l 1 5 Q \ G e t A r g D
0013160 b l W o r d 7 \ G e t A r g
0013200 S m a l l p ) \r N I L \r ( 4 5
0013220 Q ( { D S K } A R G F I L E )
0013240 ) \r A r g T e s t B S e r v e r
0013260 S t u b D 1 \r ( P 6 l . .
0013300 a r g 6 P 5 l . . a r g 5
0013320 P 4 l . . a r g 4 P 3
0013340 l . . a r g 3 P 2 l . .
0013360 a r g 2 P 1 l . . a r g 1
0013400 P 0 l . . r e s u l t I
0013420 1 l . . c o n v I 0 l
0013440 . . c P u p ) \0 j \a \0 \0 002 021 p
0013460 006 @ A \n \0 \0 Z @ A \n \0 \0 ] @ A \n
0013500 \0 \0 ^ @ A \n \0 \0 Y @ A \n \0 \0 [ @
0013520 o \0 \0 \0 A \v \0 \0 \ I J K L M N \r
0013540 006 \0 \0 X @ \t \0 \0 @ H 002 001 A \v \0 \0
0013560 @ H 002 002 002 001 A \v \0 \0 @ H 002 002 002 002
0013600 001 A \v \0 \0 @ H 001 A \v \0 \0 @ H 002 002
0013620 001 A \v \0 \0 @ 020 \0 ( 1 4 6 Q \ M
0013640 a r s h a l A t o m 1 3 5 Q
0013660 \ M a r s h a l S t r i n g 1
0013700 2 6 Q \ A d d P u p B o o l e
0013720 a n 1 1 3 Q \ A d d P u p D
0013740 b l W o r d 1 0 1 Q \ A d d
0013760 P u p S m a l l p 7 1 Q \ S
0014000 t a r t R e t u r n 6 4 Q A
0014020 r g T e s t B 5 1 Q \ U n m
0014040 a r s h a l S t r e a m 3 7 Q
0014060 \ U n m a r s h a l A t o m
0014100 3 1 Q \ U n m a r s h a l S t
0014120 r i n g 2 3 Q \ G e t A r g
0014140 B o o l 1 5 Q \ G e t A r g
0014160 D b l W o r d 7 \ G e t A r
0014200 g S m a l l p ) \r N I L \r ( 4
0014220 5 Q ( { N O D I R C O R E } )
0014240 ) \r U n m a r s h a l R P C - E
0014260 x a m p l e R e c 5 # 0 # 9 6
0014300 D 1 \r ( P 3 l . . r e s u l
0014320 t P 2 l . . i P 0 l
0014340 . . s i z e I 1 l . . c o
0014360 n v I 0 l . . p u p F
0014400 7 l . . c P u p ) \0 g \a 001 \0
0014420 002 @ l 003 \n \0 \0 b \0 d A \n \0 \0 221 h
0014440 020 @ A \n \0 \0 021 001 \0 H k @ A \n \0 \0
0014460 W 016 b \0 277 h @ l 002 \n \0 \0 b \0 A \n
0014500 \0 \0 W 016 b \0 277 h 032 032 032 021 3 006 @ H
0014520 l 003 332 \n \0 \0 277 J I 363 264 \t K 002 002 L
0014540 031 K 020 276 M 265 \r N h 032 ] 274 J k 324 Z
0014560 260 350 N & 275 260 367 \0 ( 1 0 4 Q \ S
0014600 k i p W o r d s I n 6 0 Q \
0014620 G e t A r g S m a l l p 5 2 Q
0014640 \ S k i p W o r d s I n 3 6
0014660 Q \ G e t A r g B o o l 2 4
0014700 Q \ G e t A r g D b l W o r d
0014720 1 4 Q \ G e t A r g B o o l
0014740 5 \ C h e c k P u p E x h a
0014760 u s t e d ) \r N I L \r ( ) \r U n
0015000 m a r s h a l R P C - E x a m p
0015020 l e R e c 6 # 0 # 4 8 D 1 \r (
0015040 I 1 l . . c o n v I 0
0015060 l . . p u p F 0 l . . c P
0015100 u p ) \0 024 \0 001 \0 002 @ A \n \0 \0 P
0015120 b \0 l 002 \n \0 \0 277 h h 032 032 020 \0 ( 1
0015140 4 Q \ S k i p W o r d s I n
0015160 4 \ G e t A r g B o o l ) \r N
0015200 I L \r ( ) \r U n m a r s h a l R
0015220 P C - E x a m p l e R e c 2 # 0
0015240 # 1 2 8 D 1 \r ( I 1 l . .
0015260 c o n v I 0 l . . p u p
0015300 F 1 l . . c P u p ) \0 X 001
0015320 001 \0 002 @ k \n \0 \0 b \0 \t \0 \0 312 \0 \0
0015340 021 001 \0 H j 360 265 \v H 005 003 264 006 H \t \0
0015360 \0 022 h 360 @ \t \0 \0 312 \0 036 021 001 \0 H j
0015400 360 265 \v H 005 003 264 006 H \t \0 \0 022 h 360 @
0015420 k \n \0 \0 277 @ A \n \0 \0 Q b \0 l 002 \n
0015440 \0 \0 277 h h 032 032 032 032 020 \0 ( 1 1 6 Q
0015460 \ S k i p W o r d s I n 1 0
0015500 6 Q U n m a r s h a l R P C -
0015520 E x a m p l e R e c 1 # 0 # 8 0
0015540 1 0 0 Q \ I n c r D a t a O
0015560 f f s e t 7 0 Q \ F Z E R O
0015600 P 4 4 Q \ C u r r e n t P u
0015620 p B a s e 3 5 Q \ F Z E R O
0015640 P 1 1 Q \ C u r r e n t P u
0015660 p B a s e 4 \ C h e c k P u
0015700 p E x h a u s t e d ) \r N I L \r
0015720 ( ) \r U n m a r s h a l R P C -
0015740 E x a m p l e R e c 1 # 0 # 8 0
0015760 D 1 \r ( I 1 l . . c o n v
0016000 I 0 l . . p u p ) \0 d 001
0016020 \0 \0 002 @ k \n \0 \0 b \0 \t \0 \0 312 \0 \0
0016040 021 001 \0 H j 360 265 \v H 005 003 264 006 H \t \0
0016060 \0 022 h 360 @ \t \0 \0 312 \0 020 021 001 \0 H j
0016100 360 265 \v H 005 003 264 006 H \t \0 \0 022 h 360 o
0016120 \0 \0 \0 @ \t \0 \0 312 \0 - k 330 \n \0 \0 001
0016140 @ k \n \0 \0 277 @ l 004 \n \0 \0 277 h d h
0016160 032 032 032 032 032 020 \0 ( 1 3 0 Q \ S k
0016200 i p W o r d s I n 1 2 1 Q \
0016220 I n c r D a t a O f f s e t 1
0016240 1 3 Q N T H 1 0 3 Q \ C u
0016260 r r e n t P u p B a s e 7 0 Q
0016300 \ F Z E R O P 4 4 Q \ C u
0016320 r r e n t P u p B a s e 3 5 Q
0016340 \ F Z E R O P 1 1 Q \ C u
0016360 r r e n t P u p B a s e 4 \
0016400 C h e c k P u p E x h a u s t e
0016420 d ) \r N I L \r ( 7 7 Q ( y e
0016440 n t w a h e n e r y p e n
0016460 e r y f l a t ) ) \r U n m a r
0016500 s h a l R P C - E x a m p l e R
0016520 e c 4 # 0 # 4 8 D 1 \r ( I 1
0016540 l . . c o n v I 0 l . .
0016560 p u p F 1 l . . c P u p )
0016600 \0 3 001 001 \0 002 @ k \n \0 \0 b \0 \t \0
0016620 \0 312 \0 \0 021 001 \0 H j 360 265 \v H 005 003 264
0016640 006 H \t \0 \0 022 h 360 @ A \n \0 \0 Q b \0
0016660 A \n \0 \0 h 032 032 032 020 \0 ( 5 4 Q \
0016700 G e t A r g D b l W o r d 4 5
0016720 Q U n m a r s h a l R P C - E
0016740 x a m p l e R e c 3 # 1 # 1 5
0016760 3 5 Q \ F Z E R O P 1 1 Q
0017000 \ C u r r e n t P u p B a s e
0017020 4 \ C h e c k P u p E x h a u
0017040 s t e d ) \r N I L \r ( ) \r U n m
0017060 a r s h a l R P C - E x a m p l
0017100 e R e c 3 # 1 # 1 5 D 1 \r ( I
0017120 1 l . . c o n v I 0 l
0017140 . . p u p ) \0 7 001 \0 \0 002 @ \t \0
0017160 \0 312 \0 033 021 001 \0 H j 360 265 \v H 005 003 264
0017200 006 H \t \0 \0 022 h 360 o \0 \0 \0 @ \t \0 \0
0017220 312 \0 322 k 330 \n \0 \0 001 @ k \n \0 \0 277 h
0017240 032 032 020 \0 ( 6 0 Q \ I n c r D a
0017260 t a O f f s e t 5 2 Q N T H
0017300 4 2 Q \ C u r r e n t P u p
0017320 B a s e 2 7 Q \ F Z E R O P
0017340 3 \ C u r r e n t P u p B a
0017360 s e ) \r N I L \r ( 3 6 Q ( y
0017400 e n t w a h e n e r y p e
0017420 n e r y f l a t ) ) \r U n m a
0017440 r s h a l R P C - E x a m p l e
0017460 R e c 3 # 0 # 1 6 D 1 \r ( I
0017500 1 l . . c o n v I 0 l .
0017520 . p u p ) \0 = 001 \0 \0 002 @ k \n \0
0017540 \0 b \0 \t \0 \0 312 \0 \f 021 001 \0 H j 360 265
0017560 \v H 005 003 264 006 H \t \0 \0 022 h 360 o \0 \0
0017600 \0 @ \t \0 \0 312 \0 322 k 330 \n \0 \0 001 @ k
0017620 \n \0 \0 277 h 032 032 020 \0 ( 6 6 Q \ I
0017640 n c r D a t a O f f s e t 6 0
0017660 Q N T H 5 0 Q \ C u r r e
0017700 n t P u p B a s e 3 5 Q \ F
0017720 Z E R O P 1 1 Q \ C u r r e
0017740 n t P u p B a s e 4 \ C h e
0017760 c k P u p E x h a u s t e d ) \r
0020000 N I L \r ( 4 4 Q ( y e n t
0020020 w a h e n e r y p e n e r y
0020040 f l a t ) ) \r ( P R E T T Y C
0020060 O M P R I N T R P C - E X A M
0020100 P L E S E R V E R C O M S ) \r (
0020120 R P A Q Q R P C - E X A M P L
0020140 E S E R V E R C O M S ( ( *
0020160 C r e a t e d b y L u p i n
0020200 e " 6 - D e c - 8 5 1 6 :
0020220 2 4 : 3 2 " ) ( F N S \r H i
0020240 d e R P C - E x a m p l e S e r
0020260 v e r M o v d s E x p o r t R
0020300 P C - E x a m p l e U n e x p
0020320 o r t R P C - E x a m p l e R
0020340 P C - E x a m p l e S e r v e r
0020360 D i s p a t c h C a t c h F a
0020400 k e \r C a t c h N o o n e F a
0020420 i l e d C a t c h S i m p l e
0020440 F a i l e d S i m p l e S e r
0020460 v e r S t u b C o m p l e x S
0020500 e r v e r S t u b A r g T e s
0020520 t A S e r v e r S t u b \r A r
0020540 g T e s t B S e r v e r S t u b
0020560 U n m a r s h a l R P C - E x
0020600 a m p l e R e c 5 # 0 # 9 6 U
0020620 n m a r s h a l R P C - E x a m
0020640 p l e R e c 6 # 0 # 4 8 \r U n
0020660 m a r s h a l R P C - E x a m p
0020700 l e R e c 2 # 0 # 1 2 8 U n m
0020720 a r s h a l R P C - E x a m p l
0020740 e R e c 1 # 0 # 8 0 U n m a r
0020760 s h a l R P C - E x a m p l e R
0021000 e c 4 # 0 # 4 8 \r U n m a r s
0021020 h a l R P C - E x a m p l e R e
0021040 c 3 # 1 # 1 5 U n m a r s h a
0021060 l R P C - E x a m p l e R e c 3
0021100 # 0 # 1 6 ) ( V A R S ( R P
0021120 C - E x a m p l e S e r v e r I
0021140 n t e r f a c e ) ) ( \r G L O
0021160 B A L V A R S R P C - E x a m
0021200 p l e S e r v e r I n t e r f a
0021220 c e ) ( D E C L A R E : D O
0021240 N T C O P Y E V A L @ C O M P
0021260 I L E E V A L @ L O A D ( F
0021300 I L E S ( L O A D C O M P )
0021320 \r R P C - E X A M P L E S I G
0021340 N A L ) ) ( D E C L A R E :
0021360 E V A L @ L O A D D O N T E V
0021400 A L @ C O M P I L E D O C O P
0021420 Y ( F I L E S ( S Y S L O A
0021440 D ) R P C ) ) ( P ( C O N
0021460 D ( ( E Q \r ( Q U O T E Y
0021500 ) ( A S K U S E R 1 5 ( Q
0021520 U O T E N ) " H i d e s e
0021540 r v e r f n s ( m u s t h
0021560 a v e b e e n a l r e a d y
0021600 l o a d e d ) ? " ) ) ( \r
0021620 H i d e R P C - E x a m p l e S
0021640 e r v e r M o v d s ) ) ) ) ) )
0021660 \r ( R P A Q Q R P C - E x a m
0021700 p l e S e r v e r I n t e r f a
0021720 c e N I L ) \r ( F I L E S L O
0021740 A D ( S Y S L O A D ) R P C
0021760 ) \r ( C O N D ( ( E Q ( Q U
0022000 O T E Y ) ( A S K U S E R
0022020 1 5 ( Q U O T E N ) " H i
0022040 d e s e r v e r f n s ( m
0022060 u s t h a v e b e e n a l
0022100 r e a d y l o a d e d ) ? "
0022120 ) ) ( \r H i d e R P C - E x a
0022140 m p l e S e r v e r M o v d s )
0022160 ) ) \r ( P U T P R O P S R P C
0022200 - E X A M P L E S E R V E R C
0022220 O P Y R I G H T ( " X e r o x
0022240 C o r p o r a t i o n " 1 9
0022260 8 5 ) ) \r N I L \r
0022271