$ od -c -N 50000 [Indigo]<XPort>CRuntime>Private>BWSMLoaderImpl.mesa!1
0000000 - - F i l e : B W S M L o a
0000020 d e r I m p l . m e s a - l
0000040 a s t e d i t b y \r - - D
0000060 W R \t 1 3 - J a n - 8 6 1 3
0000100 : 1 3 : 5 1 \r - - M E W \t 2 3
0000120 - M a y - 8 6 1 7 : 4 6 : 4 0
0000140 \r \r - - C o p y r i g h t (
0000160 C ) 1 9 8 6 b y X e r o
0000200 x C o r p o r a t i o n . A
0000220 l l r i g h t s r e s e r v
0000240 e d . \r \r D I R E C T O R Y \r
0000260 F i l e U S I N G [ F i
0000300 l e , P a g e N u m b e r ] ,
0000320 \r H e a p U S I N G [ C
0000340 r e a t e , E r r o r ] , \r
0000360 M L o a d e r U S I N G [
0000400 E r r o r C o d e , O p t i o
0000420 n s ] , \r M L o a d e r E x
0000440 t r a s , \r L o a d S t a t
0000460 e U S I N G [ G e t M o d u
0000500 l e I n f o , M o d u l e I n
0000520 f o R a n g e , \r M o d
0000540 u l e I n f o s O f B c d , M
0000560 o d u l e I n f o S e q u e n c
0000600 e H a n d l e ] , \r L o a d
0000620 S t a t e F o r m a t U S I N
0000640 G [ M o d u l e I n f o ] , \r
0000660 M F i l e , \r M F i l e
0000700 O n N S F i l e O p s , \r P
0000720 r i n c O p s U S I N G [ G
0000740 l o b a l F r a m e H a n d l e
0000760 ] , \r R u n t i m e U S I
0001000 N G [ \r C o n f i g E
0001020 r r o r , I n v a l i d G l o
0001040 b a l F r a m e , I s B o u n
0001060 d , L o a d C o n f i g , \r
0001100 U n N e w C o n f i g ,
0001120 V e r s i o n M i s m a t c h ]
0001140 , \r S p a c e U S I N G
0001160 [ E r r o r , I n s u f f i c
0001200 i e n t S p a c e ] , \r S p
0001220 e c i a l M F i l e , \r S p
0001240 e c i a l R u n t i m e U S I
0001260 N G [ G l o b a l F r a m e F
0001300 r o m P r o g r a m ] , \r V
0001320 o l u m e U S I N G [ R e a
0001340 d O n l y ] ; \r \r B W S M L o a
0001360 d e r I m p l : M O N I T O R
0001400 \r I M P O R T S H e a p ,
0001420 M F i l e , M F i l e O n N
0001440 S F i l e O p s , L o a d S t
0001460 a t e , S p e c i a l M F i l
0001500 e , S p e c i a l R u n t i m
0001520 e , R u n t i m e , S p a c
0001540 e , V o l u m e \r E X P
0001560 O R T S M L o a d e r , M L
0001600 o a d e r E x t r a s = \r
0001620 B E G I N \r \r l o a d e
0001640 r P a s s w o r d : C A R D I
0001660 N A L = 0 4 2 0 6 1 B ; -
0001700 - m y b i r t h d a y \r \r
0001720 H a n d l e : T Y P E =
0001740 L O N G P O I N T E R T O
0001760 O b j e c t ; \r O b j e c t
0002000 : P U B L I C T Y P E =
0002020 R E C O R D [ \r p a s
0002040 s w o r d : C A R D I N A L
0002060 254 l o a d e r P a s s w o r d
0002100 , \r f i l e : M F i l
0002120 e . H a n d l e , \r o p
0002140 t i o n s : O p t i o n s , \r
0002160 s t a r t e d : B O O
0002200 L E A N , \r n e x t :
0002220 H a n d l e , \r p r o g
0002240 r a m : P R O G R A M 254 T
0002260 R A S H ] ; \r O p t i o n s
0002300 : T Y P E = M L o a d e r
0002320 . O p t i o n s ; \r \r E
0002340 r r o r : P U B L I C E R R
0002360 O R [ c o d e : M L o a d e
0002400 r . E r r o r C o d e , s t r
0002420 i n g : L O N G S T R I N G
0002440 ] = C O D E ; \r V e r s
0002460 i o n M i s m a t c h : P U B
0002500 L I C S I G N A L [ m o d u
0002520 l e : L O N G S T R I N G ]
0002540 = C O D E ; \r \r h e
0002560 a p : U N C O U N T E D Z O
0002600 N E = H e a p . C r e a t e
0002620 [ i n i t i a l : 1 ] ; \r
0002640 h a n d l e s : H a n d l e
0002660 254 N I L ; \r \r - - p r o
0002700 c e d u r e s \r \r L o a d :
0002720 P U B L I C P R O C [ f i
0002740 l e : M F i l e . H a n d l e
0002760 , o p t i o n s : O p t i o
0003000 n s ] \r R E T U R N S
0003020 [ h : H a n d l e 254 N I L
0003040 ] = { \r p r o g r a
0003060 m : P R O G R A M ; \r
0003100 p i l o t F i l e : F i l e .
0003120 F i l e ; \r f i r s t P
0003140 a g e : F i l e . P a g e N u
0003160 m b e r ; \r A d d H a n
0003200 d l e : E N T R Y P R O C E
0003220 D U R E = \r B E
0003240 G I N \r h 254 h e
0003260 a p . N E W [ O b j e c t 254
0003300 [ \r o p t i o n
0003320 s : o p t i o n s , f i l e
0003340 : f i l e , s t a r t e d :
0003360 F A L S E , n e x t : h a
0003400 n d l e s , \r p
0003420 r o g r a m : p r o g r a m ]
0003440 ] ; \r h a n d l e s
0003460 254 h ; \r E N D ;
0003500 \r I F M F i l e . G e
0003520 t A c c e s s [ f i l e ] #
0003540 r e a d O n l y T H E N \r
0003560 E R R O R E r r o r
0003600 [ i n s u f f i c i e n t A c c
0003620 e s s , " W r o n g a c c e
0003640 s s f o r f i l e b e i n
0003660 g l o a d e d . " L ] ; \r
0003700 p i l o t F i l e 254 S p
0003720 e c i a l M F i l e . G e t C a
0003740 p a W i t h A c c e s s [ f i l
0003760 e ] ; \r f i r s t P a g
0004000 e 254 M F i l e O n N S F i l
0004020 e O p s . F i r s t P a g e A f
0004040 t e r L e a d e r [ f i l e ] ;
0004060 \r p r o g r a m 254 R
0004100 u n t i m e . L o a d C o n f i
0004120 g [ \r f i l e : p
0004140 i l o t F i l e , o f f s e t
0004160 : f i r s t P a g e , c o d
0004200 e L i n k s : o p t i o n s .
0004220 c o d e L i n k s \r
0004240 ! R u n t i m e . V e r s i o
0004260 n M i s m a t c h = > { \r
0004300 S I G N A L
0004320 V e r s i o n M i s m a t c h [
0004340 m o d u l e ] ; \r \t R E S U
0004360 M E } ; \r \t R u n t i m e . C o
0004400 n f i g E r r o r = > E R R
0004420 O R E r r o r [ S E L E C T
0004440 t y p e F R O M \r \t b a d
0004460 C o d e = > b a d C o d e ,
0004500 \r \t i n v a l i d C o n f i
0004520 g = > i n v a l i d P a r a
0004540 m e t e r s , \r \t m i s s i
0004560 n g C o d e = > m i s s i n
0004600 g C o d e , \r \t e x p o r t
0004620 e d T y p e C l a s h = > e
0004640 x p o r t e d T y p e C l a s h
0004660 , \r \t u n k n o w n = >
0004700 o t h e r , \r \t E N D C A S
0004720 E = > o t h e r , N I L ]
0004740 ; \r \t V o l u m e . R e a d O n
0004760 l y = > I F o p t i o n s
0005000 . c o d e L i n k s T H E N
0005020 { \r \t o p t i o n s . c o d
0005040 e L i n k s 254 F A L S E ;
0005060 R E T R Y } ; \r \t S p a c e . I
0005100 n s u f f i c i e n t S p a c e
0005120 = > E R R O R E r r o r [
0005140 g f t F u l l , N I L ] ; \r \t
0005160 S p a c e . E r r o r = > E
0005200 R R O R E r r o r [ o t h e r
0005220 , N I L ] ; \r \t H e a p . E r
0005240 r o r = > I F t y p e =
0005260 i n s u f f i c i e n t S p a
0005300 c e T H E N E R R O R E r
0005320 r o r [ g f t F u l l , N I L
0005340 ] ] ; \r A d d H a n d l
0005360 e [ ] ; \r - - M F i l e
0005400 . S e t R e l e a s e D a t a [
0005420 f i l e , [ M y R e l e a s e
0005440 , h ] ] ; \r } ; \r
0005460 \r - - M y R e l e a s e :
0005500 M F i l e . P l e a s e R e l
0005520 e a s e P r o c = { R E T U
0005540 R N [ a l l o w R e n a m e ] }
0005560 ; \r \r R u n : P U
0005600 B L I C P R O C [ f i l e :
0005620 M F i l e . H a n d l e , o
0005640 p t i o n s : O p t i o n s ]
0005660 R E T U R N S [ h : H a n
0005700 d l e ] = { \r h 254
0005720 L o a d [ f i l e , o p t i
0005740 o n s ] ; S t a r t [ h ] } ;
0005760 \r \r S t a r t : P
0006000 U B L I C P R O C [ h : H
0006020 a n d l e ] = { \r I
0006040 F h . p a s s w o r d # l
0006060 o a d e r P a s s w o r d T H
0006100 E N \r E R R O R
0006120 E r r o r [ o t h e r , " I n
0006140 v a l i d h a n d l e " L ] ;
0006160 \r I F h . s t a r t e
0006200 d T H E N \r E R
0006220 R O R E r r o r [ a l r e a d
0006240 y S t a r t e d , " A l r e a
0006260 d y s t a r t e d " L ] ; \r
0006300 I F R u n t i m e . I s
0006320 B o u n d [ L O O P H O L E [ h
0006340 . p r o g r a m ] ] T H E N
0006360 - - m a k e s m e g a g \r
0006400 S T A R T h . p r
0006420 o g r a m [ ! R u n t i m
0006440 e . I n v a l i d G l o b a l F
0006460 r a m e = > \r
0006500 E R R O R E r r o r [ o t h
0006520 e r , " I n v a l i d g l o
0006540 b a l f r a m e " L ] ] ; \r
0006560 h . s t a r t e d 254 T
0006600 R U E \r } ; \r \r R e
0006620 m o v e H a n d l e : E N T R
0006640 Y P R O C [ h : H a n d l
0006660 e ] = \r B E G I N \r
0006700 h a n d l e : H a n d
0006720 l e 254 h a n d l e s ; \r
0006740 p r e v : H a n d l e 254
0006760 N I L ; \r D O \r
0007000 I F h a n d l e = N
0007020 I L T H E N E X I T ; - -
0007040 n o t i n l i s t , e r
0007060 r o r c o n d i t i o n ? \r
0007100 I F h a n d l e =
0007120 h T H E N { \r
0007140 I F p r e v = N I L
0007160 T H E N h a n d l e s 254 h
0007200 . n e x t E L S E p r e v .
0007220 n e x t 254 h . n e x t ; \r
0007240 E X I T } ; \r
0007260 p r e v 254 h a n d l
0007300 e ; \r h a n d l e
0007320 254 h a n d l e . n e x t ; \r
0007340 E N D L O O P \r
0007360 E N D ; \r \r U n l o a d :
0007400 P U B L I C P R O C [ h :
0007420 H a n d l e ] = { - -
0007440 b o g u s \r I F h . p
0007460 a s s w o r d # l o a d e r
0007500 P a s s w o r d T H E N \r
0007520 E R R O R E r r o r
0007540 [ o t h e r , " I n v a l i d
0007560 h a n d l e " L ] ; \r
0007600 I F R u n t i m e . I s B o u
0007620 n d [ L O O P H O L E [ h . p r
0007640 o g r a m ] ] T H E N - -
0007660 m a k e s m e g a g \r
0007700 R u n t i m e . U n N e w
0007720 C o n f i g [ L O O P H O L E [
0007740 h . p r o g r a m ] ] ; \r
0007760 M F i l e . R e l e a s e [ h
0010000 . f i l e ] ; \r R e m o
0010020 v e H a n d l e [ h ] ; \r
0010040 h e a p . F R E E [ @ h ] } ;
0010060 \r \r 253 H a n d l e F r o
0010100 m P r o g r a m : P U B L I C
0010120 E N T R Y P R O C [ p r o
0010140 g : P R O G R A M ] R E T U
0010160 R N S [ H a n d l e ] = {
0010200 \r F O R h : H a n d
0010220 l e 254 h a n d l e s , h .
0010240 n e x t U N T I L h = N
0010260 I L D O \r I F h
0010300 . p r o g r a m = p r o g
0010320 T H E N R E T U R N [ h ] ; \r
0010340 E N D L O O P ; \r
0010360 R E T U R N [ N I L ] } ;
0010400 273 \r \r H a n d l e F r o m
0010420 P r o g r a m : P U B L I C
0010440 E N T R Y P R O C [ p r o g
0010460 : P R O G R A M ] R E T U R
0010500 N S [ H a n d l e ] = { \r
0010520 g f : P r i n c O p s .
0010540 G l o b a l F r a m e H a n d l
0010560 e = S p e c i a l R u n t i
0010600 m e . G l o b a l F r a m e F r
0010620 o m P r o g r a m [ p r o g ] ;
0010640 \r F O R h : H a n d
0010660 l e 254 h a n d l e s , h .
0010700 n e x t U N T I L h = N
0010720 I L D O \r m o d u
0010740 l e I n f o : L o a d S t a t e
0010760 F o r m a t . M o d u l e I n f
0011000 o = L o a d S t a t e . G e
0011020 t M o d u l e I n f o [ \r
0011040 S p e c i a l R u n t
0011060 i m e . G l o b a l F r a m e F
0011100 r o m P r o g r a m [ h . p r o
0011120 g r a m ] ] ; \r m o
0011140 d u l e S e q : L o a d S t a t
0011160 e . M o d u l e I n f o S e q u
0011200 e n c e H a n d l e 254 L o a
0011220 d S t a t e . M o d u l e I n f
0011240 o s O f B c d [ \r
0011260 m o d u l e I n f o . i n d e
0011300 x , h e a p ] ; \r
0011320 F O R i : L o a d S t a t e .
0011340 M o d u l e I n f o R a n g e
0011360 I N [ 0 . . m o d u l e S e q
0011400 . l e n g t h ) D O \r
0011420 I F m o d u l e S e q
0011440 [ i ] . g f = g f T H E N
0011460 { h e a p . F R E E [ @ m o d
0011500 u l e S e q ] ; R E T U R N [ h
0011520 ] } ; \r \t E N D L O O P ; \r
0011540 h e a p . F R E E [ @ m
0011560 o d u l e S e q ] ; \r
0011600 E N D L O O P ; \r R E
0011620 T U R N [ N I L ] ; \r } ;
0011640 \r \r G e t P r
0011660 o g r a m : P U B L I C P R
0011700 O C [ h : H a n d l e ] R
0011720 E T U R N S [ P R O G R A M ]
0011740 = { \r R E T U R N [
0011760 h . p r o g r a m ] ; \r } ;
0012000 \r \r \r E N D .
0012011