$ od -c -N 50000 [Indigo]<XMesa>Old>System>XMesa.dm!5
0000000 377 \0 \0 M e s a . l o g \0 376 001 \0 G
0000020 L f i l e : M e s a . L o g
0000040 L o g f o r M e s a
0000060 . b c p l a n d f r i e n d
0000100 s \r A d d e n t r i e s a t
0000120 f r o n t \r \r O c t o b e r
0000140 1 7 , 1 9 7 8 ; v e r s i o
0000160 n 2 9 . 1 6 . 3 ; A d d e d
0000200 c o d e d t o d e t e r m
0000220 i n e a n d p r i n t m i
0000240 c r o c o d e v e r s i o n
0000260 n u m b e r s . R e v i s e
0000300 d H a r d w a r e I n f o d
0000320 a t a s t r u c t u r e .
0000340 R L \r \r S e p t e m b e r 2 0
0000360 , 1 9 7 8 ; v e r s i o n
0000400 2 9 . 1 6 . 2 ; C o n f i g u
0000420 r 376 001 \0 O e a t i o n i n f o
0000440 n o w s t o r e d a t l
0000460 o c a t i o n 3 . R L \r \r
0000500 A u g u s t 1 0 , 1 9 7 8 ;
0000520 v e r s i o n 2 9 . 1 6 ;
0000540 F i x W a k e H e a d t o
0000560 i g n o r e W W . R J \r \r
0000600 J u l y 2 0 , 1 9 7 8 ; v
0000620 e r s i o n 2 9 . 1 5 ; C h
0000640 a n g e d A d v a n c e T i m
0000660 e r t o i n c r e m e n t
0000700 t i m e r b e f o r e t e s
0000720 t i n g r a t h e r t h a n
0000740 a t c o m p e l t i o n o
0000760 f l o o p . T h i s c h
0001000 a n g e s s e m a n t i c s
0001020 o f " W A 376 001 \0 I i I T n
0001040 t i c k s " f r o m w a i t
0001060 i n g a t l e a s t n t
0001100 o w a i t i n g a t m o s
0001120 t n . A l s o c h a n g
0001140 e d d e f a u l t e x t e n
0001160 s i o n f o r / b t o "
0001200 S V " . R J \r \r J u l y 6
0001220 , 1 9 7 8 ; v e r s i o n
0001240 2 9 . 1 4 ; B u g i n E x
0001260 i t ( t o o f e w l e v e
0001300 l s o f i n d i r e c t i o
0001320 n ) . R J \r \r M a y 1 8 ,
0001340 1 9 7 8 ; v e r s i o n 2
0001360 9 . 1 3 ; C o r r e c t e d
0001400 d e f i n i t i o n o f I m
0001420 a g e P r e f i x ( 376 001 \0 263 264
0001440 t y p e w a s i n w r o n
0001460 g p l a c e ) . R J \r \r M
0001500 a y 1 7 , 1 9 7 8 ; v e r
0001520 s i o n 2 9 . 1 2 ; F i x
0001540 c o d e i n C l e a n U p Q
0001560 u e u e ( w a s f o l l o w
0001600 i n g l i n k i n s t e a d
0001620 o f c l e a n U p L i n k )
0001640 . R J \r \r A p r i l 1 5 ,
0001660 1 9 7 8 ; v e r s i o n 2
0001700 9 . 1 1 ; C h e c k f o r
0001720 D s t a r m a c h i n e s i
0001740 n u s e r o m ( A l t o E
0001760 n g i n e e r i n g n u m b e
0002000 r = 4 o r 5 ) . R J
0002020 \r \r A p r i l 1 3 , 1 9 7 8
0002040 376 001 \0 364 375 ; v e r s i o n 2
0002060 9 . 1 0 ; r s h i f t ( j &
0002100 3 ) c h a n g e d t o r s
0002120 h i f t ( j & # 1 7 ) i n
0002140 F i n d S p a c e a n d A l
0002160 l o c P a g e s . R J \r \r A
0002200 p r i l 4 , 1 9 7 8 ; v e
0002220 r s i o n 2 9 . 9 ; C o r r
0002240 e c t t i m e o u t = N O T I
0002260 F Y o f 2 9 . 5 t o t u
0002300 r n o f f w a i t i n g O n
0002320 C V a n d n o t s e t t
0002340 i m e o u t P e n d i n g .
0002360 W a k e H e a d n o l o n g
0002400 e r c l e a r s t i m e o u
0002420 t P e n d i n g ( n e v e r
0002440 c o u l d 376 001 \0 337 272 h a v e
0002460 b e e n o n a n y w a y ) .
0002500 R J \r \r M a r c h 2 2 ,
0002520 1 9 7 8 ; v e r s i o n 2 9
0002540 . 6 ; P u n t D a t a n o
0002560 w p o i n t e d t o b y
0002600 4 5 6 . I n i t i a l s t
0002620 a t e n o w a f t e r s e
0002640 c o n d p a g e o f N o v
0002660 a C o d e . R J \r \r M a r
0002700 c h 2 1 , 1 9 7 8 ; v e r
0002720 s i o n 2 9 . 5 ; T i m e o
0002740 u t s m e r e l y N O T I F
0002760 Y i n s t e a d o f c a u
0003000 s i n g t r a p . T i m e
0003020 o u t g r a i n i s 3 6
0003040 0 H z t i c k ( 376 001 \0 _ 247 =
0003060 5 0 m s ) . l e a d e r D A
0003100 i n c h e c k f i l e s i
0003120 s c h e c k e d . B o o t l
0003140 o a d e r n o w t o l d t
0003160 o s t a r t a t p a g e
0003200 2 i n s t e a d o f p a g
0003220 e 0 . R J \r \r M a r c h
0003240 2 , 1 9 7 8 ; v e r s i o n
0003260 2 9 . 0 ; N e w I m a g e
0003300 f i l e m a p f o r m a t
0003320 t o a l l o w c h e c k
0003340 f i l e s . B o o t L o a d
0003360 e r r e w r i t t e n a c c
0003400 o r d i n g l y . R J \r \r F
0003420 e b r u a r y 1 9 7 8 ; v e
0003440 r s i o n 2 8 . 0 ; A c c 376
0003460 001 \0 8 347 e p t o p e n s t r
0003500 e a m f o r i m a g e f i
0003520 l e p a s s e d i n b y
0003540 E x e c u t i v e / 8 . R J
0003560 \r \r J a n u a r y 9 , 1 9 7
0003600 8 ; v e r s i o n 2 7 . 0 ;
0003620 N o v a c o d e e x p a n
0003640 d e d t o t w o p a g e s
0003660 . I n c l u d e s a l l
0003700 o f n e w p r o c e s s s
0003720 t u f f a n d t i m e o u t
0003740 s . B L K a n d C O N V
0003760 E R T d e l e t e d . R J
0004000 \r \r D e c e m b e r , 1 9 7 7
0004020 ; v e r s i o n 2 6 . 0 ;
0004040 N e w N o v a c o d e t o
0004060 r u n 376 001 \0 | : f o r t e
0004100 s t i n g p r o c e s s o p
0004120 c o d e s . R J \r \r N o v e
0004140 m b e r , 1 9 7 7 ; v e r s
0004160 i o n 2 5 . 2 ; N e w N o
0004200 v a c o d e t o r u n w
0004220 i t h v e r s i o n 2 4 m
0004240 i c r o c o d e ; / m g l o
0004260 b a l s w i t c h t o l o
0004300 a d m i c r o c o d e o n l
0004320 y . R J \r \r A u g u s t 2
0004340 9 , 1 9 7 7 ; v e r s i o n
0004360 2 4 . 2 ; C o r r e c t e d
0004400 s t r u c t u r e I m a g e
0004420 H e a d e r t o c o r r e s
0004440 p o n d t o I m a g e D e f
0004460 s . I m a g e H e 376 001 \0 } G a d
0004500 e r . R J \r \r A u g u s t
0004520 2 8 , 1 9 7 7 ; v e r s i o
0004540 n 2 4 . 1 ; S e p a r a t e
0004560 l o g n o w m a i n t a i
0004600 n e d f o r B c p l a n d
0004620 N o v a c o d e p r o g r
0004640 a m s . V e r s i o n 2 4
0004660 i m p l e m e n t s n e w
0004700 i m a g e f i l e f o r m a
0004720 t , n e w v e r s i o n n
0004740 u m b e r i n g . I m a g e
0004760 f i l e r e c o r d s ( s
0005000 t a t e v e c t o r , v e r
0005020 s i o n s t a m p , h e a d
0005040 e r ) a r e n o w d e f i
0005060 n e d b y s t r u c t u 376 001
0005100 \0 M 375 r e d e c l a r a t i o
0005120 n s . M e s a C o m . c m
0005140 h a s d e p a r t e d a n d
0005160 M e s a . r u n n o w r e
0005200 w r i t e s C o m . C m t o
0005220 m a k e t h e f i r s t
0005240 i t e m t h e i m a g e f
0005260 i l e n a m e i f n e c e
0005300 s s a r y . T h e / V s
0005320 w i t c h p r i n t s n o t
0005340 o n l y i t s o w n v e
0005360 r s i o n , b u t a l s o
0005400 t h e t w o v e r s i o n
0005420 s t a m p s f r o m t h e
0005440 i m a g e h e a d e r . N
0005460 e w p o l i c y i s t h a
0005500 t a 376 \0 247 353 353 l l v e r s i
0005520 o n s o n < A l t o m e s a
0005540 > w i l l a l w a y s p r
0005560 i n t o w n v e r s i o n .
0005600 W h e n i n s t a l l e d
0005620 o n < M e s a > v e r s i
0005640 o n w i l l b e p r i n t
0005660 e d o n l y o n d e m a n
0005700 d . M B o o t : N o w r e
0005720 t r i e s d i s k e r r o r
0005740 s 5 t i m e s . R J \r 377
0005760 \0 \0 M e s a . d \0 376 001 \0 b a / /
0006000 M e s a . d - C o m m o n
0006020 D e f i n i t i o n s f o r
0006040 M e s a . b c p l a n d M e
0006060 s a X . b c p l - R . L e
0006100 v i n \r / / l a s t m o d i f
0006120 i e d b y L e v i n : O
0006140 c t o b e r 1 0 , 1 9 7 8
0006160 8 : 2 3 P M \r \r m a n i f
0006200 e s t \t [ \r \t H a r d w a r e C
0006220 o n f i g u r a t i o n = #
0006240 3 \r \t ] \r \r s t r u c t u r e
0006260 H a r d w a r e I n f o : [ \r
0006300 \t \t r e s e r v e d b i t
0006320 5 \r \t \t A l t o T y p e
0006340 b i t 3 \r \t \t u s e X M
0006360 b i t 1 \r \t \t u n u s 376 001
0006400 \0 264 032 e d b i t 2 \r \t \t
0006420 s e c o n d R O M b i t 1 \r
0006440 \t \t b a n k s b i t 4 \r
0006460 \t \t m e s a M i c r o c o d
0006500 e V e r s i o n b y t e \r \t \t
0006520 X M M i c r o c o d e V e r
0006540 s i o n b y t e \r \t \t ] \r \r m
0006560 a n i f e s t l H a r d w a r
0006600 e I n f o = ( s i z e H a
0006620 r d w a r e I n f o ) / 1 6 \r \r
0006640 \r / / S o m e c o n v e n t
0006660 i o n s : \r \r / / A l t o T
0006700 y p e i s i n [ 1 . . 5 ]
0006720 , 0 m e a n s u n k n o w
0006740 n \r / / u s e X M i s t
0006760 r u e i f f A l t o T y p e
0007000 i s 376 \0 205 342 271 3 a n d s
0007020 e c o n d R O M i s t r u e
0007040 a n d X M M i c r o c o d e
0007060 V e r s i o n i s n o n - z
0007100 e r o \r / / X M M i c r o c
0007120 o d e V e r s i o n i s n o
0007140 n - z e r o i f f X M m i
0007160 c r o c o d e i s i n t h
0007200 e s e c o n d R O M \r 377 \0 \0
0007220 M e s a . b c p l \0 376 001 \0 205 300 /
0007240 / M e s a . b c p l - B C P
0007260 L s e t u p f o r M e s a
0007300 E m u l a t o r - R . J
0007320 o h n s s o n \r / / l a s t m
0007340 o d i f i e d b y L e v i n
0007360 : O c t o b e r 1 1 , 1
0007400 9 7 8 8 : 3 7 A M \r \r /
0007420 / b l d r m e s a m e s a X
0007440 f o r m a t m b o o t m e
0007460 s a - n o v a 1 m e s a - n o
0007500 v a 2 m e s a r a m m e s a
0007520 X r a m r e a d p r a m g p
0007540 t i m e c o n v a t i m e c
0007560 o n v b t i m e i o \r / / f i
0007600 l e s m e s a r a m a n d
0007620 l a t e r m a y n o t b 376
0007640 001 \0 026 \a e u s e d a f t e r
0007660 F i n d S p a c e ( ) \r \r / /
0007700 i n c o m p a t i b l e m i c
0007720 r o c o d e w i t h v e r s
0007740 i o n 1 5 a ; F e b r u a r
0007760 y 3 , 1 9 7 7 \r / / R O M
0010000 c o m p a t i b l e m i c r o
0010020 c o d e w i t h v e r s i o
0010040 n 1 6 a ; F e b r u a r y
0010060 1 8 , 1 9 7 7 \r / / i n c o m
0010100 p a t i b l e m i c r o c o d
0010120 e w i t h v e r s i o n 1
0010140 8 a ; M a y 1 8 , 1 9 7 7
0010160 \r / / i n c o m p a t i b l e
0010200 m i c r o c o d e w i t h v
0010220 e r s i o n 1 9 a ; M a y
0010240 2 7 , 376 001 \0 7 217 1 9 7 7 \r / /
0010260 n e w v e r s i o n n u m b
0010300 e r i n g a t 2 3 . 3 \r / /
0010320 c h e c k f i l e f o r m a
0010340 t a t v e r s i o n 2 9 ;
0010360 M a r c h 1 9 7 8 \r / / s u
0010400 p p o r t A l t o X M ; J
0010420 u l y 2 7 , 1 9 7 8 \r \r m a
0010440 n i f e s t [ M a j o r V e
0010460 r s i o n = 2 9 ; M i n o
0010500 r V e r s i o n = 1 6 ; X
0010520 M V e r s i o n = 3 ] \r m
0010540 a n i f e s t [ I m a g e V
0010560 e r s i o n I D = 0 3 1 6 8
0010600 ] \r m a n i f e s t [ p r
0010620 i n t v e r s i o n = t r u
0010640 e ] \r \r g e t 376 001 \0 " 375 " S
0010660 y s D e f s . d " \r g e t " S
0010700 t r e a m s . d " \r g e t " A
0010720 l t o F i l e S y s . d " \r g e
0010740 t " M e s a . d " \r \r / / O
0010760 S r o u t i n e s \r e x t e r
0011000 n a l \t [ \r \t G e t s ; P u t
0011020 s ; R e s e t s ; W s ; R
0011040 e a d B l o c k \r \t O p e n F i
0011060 l e ; C l o s e s ; E n d o
0011100 f s \r \t T r u n c a t e D i s k
0011120 S t r e a m \r \t M o v e B l o c
0011140 k ; Z e r o \r \t R e a l D A ;
0011160 R e a l D i s k D A \r \t M y F
0011200 r a m e \r \t J u n t a ; O s F
0011220 i n i s h \r \t D i s a b l e I n
0011240 t e r r u p t s ; E n a b 376 001
0011260 \0 n e l e I n t e r r u p t s \r
0011300 \t O u t L d ; I n L d \r \t G e
0011320 t C o m p l e t e F a ; P o s
0011340 i t i o n P a g e \r \t ] \r / /
0011360 O S s t a t i c s \r e x t e r
0011400 n a l \t [ \r \t d s p \r \t k e y s
0011420 \r \t s y s D i s k \r \t l v U s e
0011440 r F i n i s h P r o c \r \t f p C
0011460 o m C m ; f p S y s D i r \r \t
0011500 ] \r m a n i f e s t \t [ \r \t I n
0011520 t e r r u p t V e c t o r =
0011540 # 5 0 1 \r \t D i s p l a y I n t
0011560 e r r u p t W o r d = # 4 2
0011600 1 \r \t W a k e u p s W a i t i n
0011620 g = # 4 5 2 \r \t A c t i v e
0011640 = # 4 5 3 \r \t P o i n t e r
0011660 T o B 376 001 \0 Q 374 o o t M a p =
0011700 # 2 4 \r \t P u n t D a t a =
0011720 # 4 5 6 \r \t D e f a u l t P r
0011740 i o r i t y = 1 3 \r \t S w a
0011760 t I n t e r r u p t L e v e l
0012000 = 3 \r \t S w a t I n t e r r u
0012020 p t B i t = # 1 0 \r \t T i m
0012040 e o u t I n t e r r u p t L e v
0012060 e l = 4 \r \t T i m e o u t I
0012100 n t e r r u p t B i t = # 2
0012120 0 \r \t P a r i t y I n t e r r u
0012140 p t B i t = 1 \r \t / / T h
0012160 e s e m u s t m a t c h S
0012200 D D e f s . m e s a \r \t S y s t
0012220 e m D i s p a t c h = # 1 0
0012240 6 0 \r \t s G o i n g A w a y =
0012260 # 4 3 \r \t s F 376 001 \0 \ 270 i r s
0012300 t P r o c e s s = # 5 5 \r \t
0012320 s L a s t P r o c e s s = #
0012340 5 6 \r \t s P r o c e s s T r a p
0012360 = # 5 7 \r \t s F i r s t S t
0012400 a t e V e c t o r = # 6 0 \r
0012420 \t ] \r \r e x t e r n a l \t [ D
0012440 e t e r m i n e C o n f i g u r
0012460 a t i o n ] \t \t \t \t / / M e s
0012500 a X \t \r e x t e r n a l \t [ R
0012520 a m I m a g e ; X R a m I m a
0012540 g e ] \t \t \t \t \t / / M e s a R
0012560 a m a n d M e s a X R a m \r
0012600 \r e x t e r n a l \t [ S e t u
0012620 p R e a d P a r a m ; R e a d P
0012640 a r a m ] \t \t \t \t / / g p \r e
0012660 x t e r n a l \t [ R e a 376 001 \0
0012700 360 M d P a c k e d R A M ; L o
0012720 a d P a c k e d R A M ] \t \t \t
0012740 / / r e a d p r a m \r e x t e r
0012760 n a l \t [ F O R M A T N ; C
0013000 O N C A T E N A T E ] \t \t \t \t
0013020 / / f o r m a t \r e x t e r n a
0013040 l \t [ U N P A C K D T ; W R
0013060 I T E U D T ] \t \t \t \t \t / / c
0013100 t i m e \r e x t e r n a l \t [ \t
0013120 \t \t \t \t \t \t / / m e s a - n o v
0013140 a \r \t E M L O O P \r \t M e s a N
0013160 o v a 1 \r \t M e s a N o v a S i
0013200 z e 1 \r \t A C 1 P t r \r \t A b s
0013220 o l u t e T X V \r \t C l e a n U
0013240 p Q u e u e U s e r \r \t R e q u
0013260 e u e S u b U s e r \r \t W a k e
0013300 H e 376 001 \0 375 G a d I m p l e m e
0013320 n t e r \r \t S T O P U s e r \r \t
0013340 A d v a n c e T i m e r P t r \r
0013360 \t p r o c e s s T r a p P t r \r
0013400 \t f i r s t P r o c e s s P t r
0013420 \r \t l a s t P r o c e s s P t r
0013440 \r \t f i r s t S t a t e V e c t
0013460 o r P t r \r \t P S c o d e \r \t M
0013500 e s a N o v a 2 \r \t M e s a N o
0013520 v a S i z e 2 \r \t S T O P I m p
0013540 l e m e n t e r \r \t C l e a n U
0013560 p Q u e u e I m p l e m e n t e
0013600 r \r \t R e q u e u e S u b I m p
0013620 l e m e n t e r \r \t W a k e H e
0013640 a d U s e r \r \t O S F P t r \r \t
0013660 O u t L d P t r \r \t I n L d P t
0013700 r \r \t F i n i 376 001 \0 253 367 s h P t
0013720 r \r \t F i n P r o c P t r \r \t ]
0013740 \r e x t e r n a l \t [ \t \t \t \t /
0013760 / m b o o t \r \t M B O O T \r \t S
0014000 w a t F l a g \r \t ] \r \r m a n i
0014020 f e s t \t [ M e s a S t a r t
0014040 = # 4 2 0 ] / / S t a r t i n
0014060 g a d d r e s s i n r a m
0014100 \r m a n i f e s t \t [ T X V =
0014120 # 2 5 ] / / T r a n s f e r
0014140 V e c t o r f o r N o v a
0014160 C o d e \r m a n i f e s t \t [
0014200 x N o v a C o d e = # 1 7 4 4
0014220 0 0 ] / / E x t e n d e d
0014240 N o v a C o d e \r m a n i f e
0014260 s t \t [ M i c r o c o d e O p
0014300 t i o n = # 1 ] \r \r s 376 001 \0 A
0014320 331 t a t i c \t [ E m u l a t e
0014340 L o o p ; B o o t D a t a ]
0014360 \r s t a t i c \t [ I m a g e C
0014400 o u n t = 0 ] \r s t a t i c \t
0014420 [ M F i l e N a m e ; I F i l
0014440 e N a m e ; I F i l e ] \r s t
0014460 a t i c \t [ r a m = t r u e ;
0014500 b o o t f i l e = f a l s e
0014520 ] \r s t a t i c \t [ P M l o c
0014540 ; B L l o c ; P a g e s T o S k
0014560 i p ] \r s t a t i c \t [ F i
0014600 r s t B l o c k ; I m a g e O
0014620 p t i o n s ] \r s t a t i c \t
0014640 [ g i v e i m a g e v e r s i
0014660 o n = f a l s e ] \r \r s t
0014700 r u c t u r e s t r i n g : \t
0014720 [ 376 001 \0 N 264 l e n g t h b y
0014740 t e \r \t \t c h a r ^ 1 , 2 5
0014760 5 b y t e \r \t \t ] \r \r s t r u
0015000 c t u r e B o o t M a p : \t [
0015020 f p @ F P \r \t \t f i r s
0015040 t p a g e w o r d \r \t \t a
0015060 d d r e s s ^ 0 , ( 2 5 5 - l F
0015100 P - 1 ) w o r d \r \t \t ] \r m a
0015120 n i f e s t [ l B o o t M a
0015140 p = 2 5 6 ] \r \r s t r u c
0015160 t u r e B l t I t e m : \t [ \r
0015200 \t \t f i r s t S o u r c e M
0015220 1 w o r d \r \t \t l a s t D
0015240 e s t w o r d \r \t \t m i n
0015260 u s C o u n t w o r d \r \t \t ]
0015300 \r \r s t r u c t u r e B o o t
0015320 L i s t : \t 376 001 \0 c l [ \r \t \t
0015340 p a g e M a p w o r d \r \t \t
0015360 f i r s t D a w o r d \r \t
0015400 \t i n i t i a l S t a t e
0015420 w o r d \r \t \t b l t ^ 0 , 3
0015440 @ B l t I t e m / / c o u
0015460 l d b e a n y n u m b e r
0015500 o f t h e s e \r \t \t t e
0015520 r m i n a t o r w o r d / /
0015540 = 0 \r \t \t ] \r m a n i f e s
0015560 t [ l B o o t L i s t =
0015600 s i z e B o o t L i s t / 1 6
0015620 ] \r \r s t r u c t u r e S t
0015640 a t e V e c t o r : \t [ \r \t \t
0015660 s t k ^ 0 , 7 w o r d \r \t \t
0015700 i n s t b y t e b y t e \r
0015720 \t \t f i l l b i 376 001 \0 j 363
0015740 t 4 \r \t \t s t k p t r b
0015760 i t 4 \r \t \t X w o r d \r
0016000 \t \t Y w o r d \r \t \t ] \r m
0016020 a n i f e s t [ l S t a t e
0016040 V e c t o r = s i z e S t
0016060 a t e V e c t o r / 1 6 ] \r \r
0016100 s t r u c t u r e V e r s i o
0016120 n S t a m p : \t [ \r \t z a p p e
0016140 d b i t 1 \r \t n e t b i t
0016160 7 \r \t h o s t b i t 8 \r \t
0016200 t i m e : [ \r \t \t l o w w o
0016220 r d \r \t \t h i g h w o r d \r \t
0016240 \t ] \r \t ] \r \r s t r u c t u r e
0016260 I m a g e P r e f i x : \t [ \r
0016300 \t \t v e r s i o n i d e n t
0016320 w o r d \r \t \t v e r s i o
0016340 376 001 \0 221 237 n @ V e r s i o n S
0016360 t a m p \r \t \t c r e a t o r
0016400 @ V e r s i o n S t a m p \r \t
0016420 \t o p t i o n s w o r d \r
0016440 \t \t l e a d e r D A w o r
0016460 d \r \t \t s t a t e @ S t a
0016500 t e V e c t o r \r \t \t l o a
0016520 d S t a t e B a s e w o r d \r
0016540 \t \t i n i t i a l L o a d S
0016560 t a t e B a s e w o r d \r \t \t
0016600 t y p e b i t 2 \r \t \t
0016620 f i l l b i t 5 \r \t \t
0016640 l o a d S t a t e P a g e s b
0016660 i t 9 \r \t \t ] \r m a n i f e s
0016700 t [ l I m a g e P r e f i x
0016720 = s i z e I m a g e P r e
0016740 f i x / 1 376 001 \0 O 277 6 ] \r m a
0016760 n i f e s t [ F i r s t I m
0017000 a g e D a t a P a g e = 2
0017020 ] \r m a n i f e s t [ \t / /
0017040 i m a g e t y p e s \r \t b o o
0017060 t m e s a = 0 \r \t m a k e i
0017100 m a g e = 1 \r \t c h e c k f
0017120 i l e = 2 \r \t o t h e r =
0017140 3 \r \t ] \r \r s t r u c t u r e
0017160 M a p I t e m : [ \r \t \t
0017200 p a g e b y t e \r \t \t c o
0017220 u n t b i t 7 \r \t \t t a
0017240 g b i t 1 \r \t \t d a w
0017260 o r d \r \t \t b a s e w o r
0017300 d \r \t \t ] \r m a n i f e s t [
0017320 \r \t l n o r m a l M a p I t e m
0017340 = 1 \r \t l c h a 376 001 \0 266 356 n
0017360 g e M a p I t e m = 3 \r \t ]
0017400 \r \f \r \r l e t M e s a ( l a y
0017420 o u t , u p , c f a ) b e \r [
0017440 M e s a \r l e t f 1 = v e c
0017460 2 0 ; I F i l e N a m e = f 1
0017500 ; I F i l e N a m e ! 0 = 0 \r
0017520 l e t f 2 = v e c 2 0 ; M
0017540 F i l e N a m e = f 2 ; M F i
0017560 l e N a m e ! 0 = 0 \r \r \r \r i f
0017600 p r i n t v e r s i o n t h
0017620 e n W r i t e V e r s i o n (
0017640 ) \r \r I F i l e = 0 \r u n t
0017660 i l u p ! 0 e q 0 d o \r
0017700 [ \r i f u p > > U P E
0017720 . t y p e e q o p e n S t r
0017740 e a m s t h e n \r [ 376
0017760 001 \0 % ~ I F i l e = u p !
0020000 1 ; b r e a k ] \r u p
0020020 = u p + u p > > U P E . l
0020040 e n g t h \r ] \r \r i f I F
0020060 i l e e q 0 t h e n S e
0020100 t u p P a r a m s ( ) \r \r \r / /
0020120 L o a d e m u l a t i o n s
0020140 t a t e f r o m i m a g e
0020160 f i l e \r l e t h e a d e r
0020200 = v e c l I m a g e P r e f
0020220 i x - 1 \r R e a d I m a g e B l
0020240 o c k ( h e a d e r , l I m a g
0020260 e P r e f i x ) \r \r i f g i v
0020300 e i m a g e v e r s i o n t h
0020320 e n \r \t [ \r \t W r i t e S t a m
0020340 p ( l v h e a d e r > > I m a
0020360 g e P r 376 001 \0 202 - e f i x . v e
0020400 r s i o n ) \r \t W s ( " , c r
0020420 e a t o r " ) \r \t W r i t e S
0020440 t a m p ( l v h e a d e r > >
0020460 I m a g e P r e f i x . c r e a
0020500 t o r ) \r \t K e y b o a r d W a
0020520 i t ( ) \r \t ] \r l e t i m a g
0020540 e C f a = v e c l C F A -
0020560 1 \r G e t C o m p l e t e F a (
0020600 I F i l e , i m a g e C f a )
0020620 \r i f h e a d e r > > I m a g
0020640 e P r e f i x . v e r s i o n i
0020660 d e n t n e I m a g e V e r
0020700 s i o n I D t h e n \r \t A b o
0020720 r t M s g ( " * N I n c o r r e
0020740 c t i m a g e f i l e f o
0020760 r m a t . " ) \r i 376 001 \0 217 006 f
0021000 h e a d e r > > I m a g e P r e
0021020 f i x . t y p e e q c h e c
0021040 k f i l e & \r h e a d e
0021060 r > > I m a g e P r e f i x . l
0021100 e a d e r D A n e i m a g e
0021120 C f a > > C F A . f p . l e a d
0021140 e r V i r t u a l D a t h e n
0021160 \r \t A b o r t M s g ( " * N T h
0021200 i s C h e c k P o i n t f i
0021220 l e h a s b e e n t a m p
0021240 e r e d w i t h . " ) \r \r I m
0021260 a g e O p t i o n s = h e a d e
0021300 r > > I m a g e P r e f i x . o
0021320 p t i o n s \r \r / / r e a d i
0021340 n t h e p a g e a d d r e
0021360 s s - c o u n t w o r d s 376 001
0021400 \0 273 025 u n t i l a 0 i s
0021420 f o u n d \r l e t P a g e M
0021440 a p = v e c 2 5 0 \r l e t M
0021460 a p l a s t = 0 \r f o r i = 0
0021500 t o 2 5 0 d o \r [
0021520 \r P a g e M a p ! i = R
0021540 e a d I m a g e ( ) \r i
0021560 f P a g e M a p ! i e q 0
0021600 t h e n \r \t [ \r \t M a p l a s
0021620 t = i \r \t b r e a k \r \t ] \r
0021640 ] \r P a g e s T o S k i p =
0021660 0 \t / / n u m b e r o f p a
0021700 g e s t o s k i p i n f
0021720 i l e \r \r L o a d M e s a M i c
0021740 r o c o d e ( ) \r \r F i n d S p
0021760 a c e ( P a g e M a p , M a p l
0022000 a s t 376 001 \0 \v | ) \r \r / / g e t
0022020 s t u f f r e a d y f o r
0022040 p a g e z e r o \r l e t b
0022060 d = v e c l B o o t L i s
0022100 t ; B o o t D a t a = b d
0022120 ; Z e r o ( B o o t D a t a ,
0022140 l B o o t L i s t ) \r F i x M
0022160 E S A N O V A ( ) \r \r / / f i n
0022200 d d i s k a d d r e s s o
0022220 f p a g e F i r s t I m a g
0022240 e D a t a P a g e o f i m a
0022260 g e f i l e \r P o s i t i o n
0022300 P a g e ( I F i l e , F i r s
0022320 t I m a g e D a t a P a g e ) \r
0022340 G e t C o m p l e t e F a ( I F
0022360 i l e , i m a g e C f a ) \r R
0022400 e a l D i s k D 376 001 \0 J p A ( s
0022420 y s D i s k , i m a g e C f a
0022440 > > C F A . f a . d a , l v
0022460 F i r s t B l o c k ) \r \r / /
0022500 s e t u p b o o t m a p \r [
0022520 \r @ P o i n t e r T o B o o t M
0022540 a p = P M l o c \r M o v e B
0022560 l o c k ( P M l o c , l v ( i
0022600 m a g e C f a > > C F A . f p )
0022620 , l F P ) \r P M l o c > > B o o
0022640 t M a p . f i r s t p a g e =
0022660 F i r s t I m a g e D a t a P
0022700 a g e \r f o r i = 0 t o
0022720 P a g e s T o S k i p - 1 d
0022740 o \r \t P M l o c > > B o o t M a
0022760 p . a d d r e s s ^ i = P a
0023000 g e M a p ! 0 & # 1 7 7 4 376 001 \0
0023020 301 y 0 0 \r l e t a = P a g
0023040 e s T o S k i p ; \r l e t n e
0023060 x t i = n i l \r l e t i
0023100 = 0 \r u n t i l i e q M
0023120 a p l a s t d o \r \t [ \r \t l e
0023140 t i t e m = l v ( P a g
0023160 e M a p ! i ) \r \t t e s t i t
0023200 e m > > M a p I t e m . t a g \r
0023220 \t i f s o \r \t [ \r
0023240 \t P M l o c > > B o o t
0023260 M a p . a d d r e s s ^ a =
0023300 ( i t e m > > M a p I t e m . b
0023320 a s e l s h i f t 1 ) +
0023340 1 \r \t P M l o c > > B o
0023360 o t M a p . a d d r e s s ^ ( a
0023400 + 1 ) = i t e m > > M a p I
0023420 t e 376 001 \0 { 217 m . d a \r \t
0023440 a = a + 2 \r \t
0023460 n e x t i = i + l c h a n g
0023500 e M a p I t e m \r \t ] \r
0023520 \t i f n o t n e x t i =
0023540 i + l n o r m a l M a p I t e
0023560 m \r \t \r \t l e t m e m a d d r
0023600 e s s = i t e m > > M a p I
0023620 t e m . p a g e l s h i f t
0023640 8 \r \t f o r j = 1 t o
0023660 i t e m > > M a p I t e m . c o
0023700 u n t d o \r \t [ \r \t
0023720 P M l o c > > B o o t M a
0023740 p . a d d r e s s ^ a = m e
0023760 m a d d r e s s \r \t m e
0024000 m a d d r e s s = m e m a d
0024020 d r e s s + 376 001 \0 Y 0 # 4 0
0024040 0 \r \t a = a + 1
0024060 \r \t ] \r \t i = n e x
0024100 t i \r \t ] \r P M l o c > > B o o
0024120 t M a p . a d d r e s s ^ a =
0024140 0 \r ] \r \r E m u l a t e L o o
0024160 p = T X V \r F i x A n d M o v e
0024200 M B O O T ( ) \r \r l e t i n t
0024220 v e c = v e c 1 5 \r F i x
0024240 I n t e r r u p t s ( i n t v e
0024260 c ) \r l e t i n i t i a l s t
0024300 a t e = x N o v a C o d e +
0024320 M e s a N o v a S i z e 2 \r M a
0024340 k e B l t I t e m ( l v B o o
0024360 t D a t a > > B o o t L i s t .
0024400 b l t ^ 3 , \r l v h e
0024420 a d e r > > I m a g e P 376 001 \0 +
0024440 + r e f i x . s t a t e , i n
0024460 i t i a l s t a t e , l S t a
0024500 t e V e c t o r ) \r B o o t D a
0024520 t a > > B o o t L i s t . i n i
0024540 t i a l S t a t e = i n i t
0024560 i a l s t a t e ; \r \r @ l v U s
0024600 e r F i n i s h P r o c = F
0024620 i n i s h P t r \r J u n t a ( l
0024640 e v B a s i c , G o ) \r \r ] M
0024660 e s a \r \r \r a n d G o ( ) b
0024700 e \r [ B L l o c ( B o o t D a
0024720 t a ) ] \r \f \r \r a n d S e t
0024740 u p P a r a m s ( ) b e \r [ \r
0024760 / / G e t s w i t c h e s f
0025000 r o m c o m m a n d l i n e
0025020 \r l e t S t r i n g V e c = v
0025040 e 376 001 \0 s F c 1 0 0 \r l e t
0025060 S w i t c h V e c = v e c 1 0
0025100 0 \r l e t G l o b a l S w i t
0025120 c h V e c = S w i t c h V e c \r
0025140 l e t c o m c m = O p e n
0025160 F i l e ( " C o m . C m " , k
0025200 s T y p e R e a d O n l y , c
0025220 h a r I t e m , v e r L a t e
0025240 s t , f p C o m C m ) ; \r S e
0025260 t u p R e a d P a r a m ( S t r
0025300 i n g V e c , S w i t c h V e c
0025320 , c o m c m , G l o b a l S w i
0025340 t c h V e c ) \r \r I m a g e C o
0025360 u n t = 0 \r l e t d o n e =
0025400 f a l s e \r \r l e t u s e n
0025420 a m e = f a l s e \r \r t e s
0025440 t I m a g 376 001 \0 201 } e F i l e
0025460 ( S t r i n g V e c ) \r i f
0025500 s o u s e n a m e = t r u e \r
0025520 i f n o t \r i f (
0025540 G l o b a l S w i t c h V e c !
0025560 0 n e 0 ) t h e n f o r
0025600 I = 1 t o G l o b a l S w
0025620 i t c h V e c ! 0 d o \r \t [ S
0025640 w i t c h L o o p \r \t s w i t c
0025660 h o n G l o b a l S w i t c h
0025700 V e c ! I i n t o \r \t \t [ S w
0025720 i t c h C a s e s \r \t \t c a s e
0025740 $ V : c a s e $ v : \r \t \t
0025760 \t [ V \r \t \t \t i f n o t p r
0026000 i n t v e r s i o n t h e n
0026020 W r i t e V e r s i o n ( ) \r \t
0026040 \t \t g i v e i m a g e 376 001 \0 032 8
0026060 v e r s i o n = t r u e \r \t
0026100 \t \t e n d c a s e \r \t \t \t ] V \r
0026120 \t \t c a s e $ M : c a s e
0026140 $ m : \r \t \t \t [ M \r \t \t \t t e s
0026160 t L o a d M e s a M i c r o c
0026200 o d e ( ) \r \t \t \t i f s o
0026220 [ W s ( " * N M i c r o c o
0026240 d e l o a d e d " ) ; f i n
0026260 i s h ] \r \t \t \t i f n o t
0026300 A b o r t M s g ( " * N T h i
0026320 s m a c h i n e h a s e x
0026340 t r a R O M ; c a n ' t u
0026360 s e R A M " ) \r \t \t \t e n d c
0026400 a s e \r \t \t \t ] M \r \t \t c a s e
0026420 $ S : c a s e $ s : \r \t \t
0026440 \t [ S \r \t \t \t @ S w a t F l a g
0026460 376 001 \0 4 Q = # 7 7 4 0 0 \r \t \t \t
0026500 e n d c a s e \r \t \t \t ] S \r \t \t
0026520 c a s e $ Q : c a s e $ q
0026540 : \r \t \t \t [ C \r \t \t \t d o n e =
0026560 t r u e \r \t \t \t e n d c a s e \r
0026600 \t \t \t ] C \r \t \t c a s e $ B :
0026620 c a s e $ b : \r \t \t \t [ B \r
0026640 \t \t \t b o o t f i l e = t r u e
0026660 \r \t \t \t e n d c a s e \r \t \t \t ]
0026700 B \r \t \t d e f a u l t : \r \t \t \t
0026720 [ H u h \r \t \t \t W s ( " * N B a
0026740 d s w i t c h e n c o u n t
0026760 e r e d . " ) \r \t \t \t e n d c
0027000 a s e \r \t \t \t ] H u h \r \t \t ] S
0027020 w i t c h C a s e s \r \t ] S w i
0027040 t c h L o o p \r \r l e t r e w
0027060 r i t e c 376 001 \0 374 343 o m c m =
0027100 n o t u s e n a m e \r \r / /
0027120 r e a d t h e p a r a m e
0027140 t e r s \r t e s t u s e n a m
0027160 e \r i f s o C O N C A T E
0027200 N A T E ( I F i l e N a m e , S
0027220 t r i n g V e c ) \r i f n o
0027240 t \r u n t i l d o n e
0027260 d o \r [ p a r a m l o
0027300 o p \r l e t p = R
0027320 e a d P a r a m ( $ P , 0 , 0 ,
0027340 0 , t r u e ) \r i f (
0027360 p e q 0 ) % ( p e q - 1
0027400 ) t h e n b r e a k \r
0027420 t e s t S w i t c h V e c !
0027440 0 e q 0 \r i
0027460 f s o i f I F i 376 001 \0 001 343 l
0027500 e N a m e ! 0 e q 0 t h e
0027520 n [ C O N C A T E N A T E (
0027540 I F i l e N a m e , p ) ; b r
0027560 e a k ] \r i f
0027600 n o t \r [ l o c
0027620 a l s w i t c h e s \r
0027640 f o r I = 1 t o S w
0027660 i t c h V e c ! 0 d o \r
0027700 s w i t c h o
0027720 n S w i t c h V e c ! I i n
0027740 t o \r [
0027760 \r c a s
0030000 e $ C : c a s e $ c : \r
0030020 [
0030040 i f I F i l e N a m e ! 0
0030060 e q 0 t h e n C O N C A 376
0030100 001 \0 I 316 T E N A T E ( I F i l e
0030120 N a m e , p ) ; \r
0030140 d o n e
0030160 = t r u e ; \r
0030200 e n d c a s
0030220 e \r
0030240 ] \r
0030260 c a s e $ I : c a s e $ i
0030300 : \r
0030320 [ C O N C A T E N A T E (
0030340 I F i l e N a m e , p ) ; e n
0030360 d c a s e ] \r
0030400 c a s e $ M : c a s
0030420 e $ m : \r
0030440 [ C O N C A T E N
0030460 A T E ( M F i l e N a m e , p )
0030500 ; e n 376 001 \0 \v 226 d c a s e ]
0030520 \r d e f
0030540 a u l t : \r
0030560 [ \r
0030600 W s ( F O R M A
0030620 T N ( " * N B a d s w i t c h
0030640 ' < C > ' , i t e m w i l
0030660 l b e i g n o r e d . " ,
0030700 S w i t c h V e c ! I ) ) \r
0030720 K e
0030740 y b o a r d W a i t ( ) \r
0030760 ] \r
0031000 ] \r
0031020 ] l o c a l s w i t c
0031040 h e s \r ] p a r a m l o
0031060 o p \r \r i f M F i l e N a m e
0031100 ! 0 n e 0 t 376 001 \0 274 323 h e
0031120 n D e f a u l t N a m e ( M F
0031140 i l e N a m e , " M E S A " , "
0031160 P R A M " ) \r i f b o o t f i
0031200 l e t h e n \r \t [ \r \t D e f a
0031220 u l t N a m e ( I F i l e N a m
0031240 e , " M E S A " , " S V " ) \r \t
0031260 L o a d M e s a M i c r o c o d
0031300 e ( ) \r \t l e t m e s s a g e
0031320 = v e c l I n L d M e s s
0031340 a g e \r \t l e t f p = v e
0031360 c l F P \r \t l e t c f a =
0031400 v e c l C F A \r \t l e t f
0031420 i l e = O p e n F i l e ( I
0031440 F i l e N a m e , k s T y p e R
0031460 e a d O n l y , w o r d I t e m
0031500 ) \r \t i f ( ( f i l e e 376 001
0031520 \0 F 247 q 0 ) % ( f i l e e q
0031540 - 1 ) ) t h e n \r \t \t A b o
0031560 r t M s g ( F O R M A T N ( " *
0031600 N F i l e ' < S > ' n o t
0031620 f o u n d . " , I F i l e N a m
0031640 e ) ) \r \t G e t C o m p l e t e
0031660 F a ( f i l e , c f a ) ; \r \t M
0031700 o v e B l o c k ( f p , l v
0031720 c f a > > C F A . f p , l F P
0031740 ) \r \t l e t r e a l d a =
0031760 0 \r \t R e a l D i s k D A ( s y
0032000 s D i s k , c f a > > C F A .
0032020 f a . d a , l v r e a l d a
0032040 ) \r \t f p > > F P . l e a d e r
0032060 V i r t u a l D a = r e a l
0032100 d a \r \t m e s s a g e ! 1 =
0032120 # 3 7 376 001 \0 N 364 7 / / l e
0032140 v e l = - 1 , r e a s o n
0032160 = p r o c e e d \r \t I n L d
0032200 ( f p , m e s s a g e ) \r \t ] \r
0032220 \r D e f a u l t N a m e ( I F i
0032240 l e N a m e , " M e s a " , " i
0032260 m a g e " ) \r \r / / m a y b e
0032300 r e w r i t e c o m c m h
0032320 e r e \r t e s t r e w r i t e
0032340 c o m c m \r i f s o \r
0032360 [ l e t n e w c o
0032400 m c m = O p e n F i l e ( "
0032420 C o m . C m " , k s T y p e W
0032440 r i t e O n l y , c h a r I t
0032460 e m , v e r L a t e s t , f
0032500 p C o m C m ) \r
0032520 f o r i = 1 376 001 \0 364 362 t o
0032540 I F i l e N a m e > > s t r i n
0032560 g . l e n g t h d o \r
0032600 P u t s ( n e w
0032620 c o m c m , I F i l e N a m e >
0032640 > s t r i n g . c h a r ^ i ) \r
0032660 \t t e s t E n d o f s ( c o m
0032700 c m ) \r \t i f s o P u t s
0032720 ( n e w c o m c m , $ * N ) \r \t
0032740 i f n o t P u t s ( n e w
0032760 c o m c m , $ * S ) \r
0033000 u n t i l E n d o f s (
0033020 c o m c m ) d o \r
0033040 P u t s ( n e w c o
0033060 m c m , G e t s ( c o m c m ) )
0033100 ; \r C l o s e s
0033120 ( c o m c m ) ; C l o s 376 001 \0
0033140 373 x e s ( n e w c o m c m ) ; \r
0033160 ] \r i f n o t
0033200 C l o s e s ( c o m c m ) \r \r I
0033220 F i l e = O p e n F i l e ( I F
0033240 i l e N a m e , k s T y p e R e
0033260 a d O n l y , w o r d I t e m )
0033300 \r i f ( ( I F i l e e q 0
0033320 ) % ( I F i l e e q - 1 ) )
0033340 t h e n \r \t A b o r t M s g (
0033360 F O R M A T N ( " * N I m a g e
0033400 f i l e ' < S > ' n o t
0033420 f o u n d . " , I F i l e N a m
0033440 e ) ) \r \r ] / / e n d S e
0033460 t u p P a r a m s \r \r \f \r a n d
0033500 I m a g e F i l e ( n a m e )
0033520 = v a l o f \r [ \r \t l e t
0033540 c a 376 001 \0 Q 324 p ( c ) = ( (
0033560 c g e $ a ) & ( c l e
0033600 $ z ) ) ? c + $ A - $ a ,
0033620 c \r \t l e t s = v e c
0033640 4 0 \r \t s > > s t r i n g . l e
0033660 n g t h = n a m e ! 0 \r \t f
0033700 o r i = 1 t o s > > s
0033720 t r i n g . l e n g t h d o \r
0033740 \t s > > s t r i n g . c h a
0033760 r ^ i = n a m e ! i \r \t M o
0034000 v e B l o c k ( n a m e , s , n
0034020 a m e ! 0 ) \r \t s = " . I M A G
0034040 E " \r \t l e t o f s = n a
0034060 m e > > s t r i n g . l e n g t
0034100 h - s > > s t r i n g . l e n g
0034120 t h \r \t i f o f s l s 0
0034140 t h e n r e 376 001 \0 V 333 s u l t
0034160 i s f a l s e \r \t f o r i
0034200 = 1 t o s > > s t r i n g
0034220 . l e n g t h d o \r \t i f
0034240 c a p ( n a m e > > s t r i n
0034260 g . c h a r ^ ( o f s + i ) )
0034300 n e s > > s t r i n g . c h a
0034320 r ^ i t h e n r e s u l t i
0034340 s f a l s e \r \t r e s u l t i
0034360 s t r u e \r ] \r \r a n d F i
0034400 x A n d M o v e M B O O T ( )
0034420 b e \r [ \r \t B o o t D a t a > >
0034440 B o o t L i s t . p a g e M a p
0034460 = P M l o c \r \t B o o t D a
0034500 t a > > B o o t L i s t . f i r
0034520 s t D a = F i r s t B l o c
0034540 k \r \r \t M o v e B l o c 376 001 \0 335
0034560 225 k ( B L l o c , M B O O T ,
0034600 2 5 6 ) ; \r \r ] \r \r a n d F
0034620 i x M E S A N O V A ( ) b e \r
0034640 [ \r \t i f A b s o l u t e T X
0034660 V n e T X V t h e n \r \t
0034700 A b o r t M s g ( " C o d
0034720 e i n M e s a - N o v a i
0034740 n c o r r e c t l y a s s e m
0034760 b l e d " ) \r \t @ O S F P t r
0035000 = O s F i n i s h \r \t @ A C 1
0035020 P t r = M e s a S t a r t \r
0035040 \t @ O u t L d P t r = O u t
0035060 L d \r \t @ I n L d P t r = I
0035100 n L d \r \t @ F i n P r o c P t r
0035120 = S y s t e m D i s p a t c
0035140 h + s G o i n g A w a y \r \t @ p
0035160 r 376 001 \0 322 037 o c e s s T r a p P
0035200 t r = S y s t e m D i s p a
0035220 t c h + s P r o c e s s T r a p
0035240 \r \t @ f i r s t P r o c e s s P
0035260 t r = S y s t e m D i s p a
0035300 t c h + s F i r s t P r o c e s
0035320 s \r \t @ l a s t P r o c e s s P
0035340 t r = S y s t e m D i s p a
0035360 t c h + s L a s t P r o c e s s
0035400 \r \t @ f i r s t S t a t e V e c
0035420 t o r P t r = S y s t e m D
0035440 i s p a t c h + s F i r s t S t
0035460 a t e V e c t o r \r \t @ S T O P
0035500 U s e r = S T O P I m p l e
0035520 m e n t e r \r \t @ C l e a n U p
0035540 Q u e u e U s e r = C l e a
0035560 n U p Q u e 376 001 \0 < 365 u e I m p
0035600 l e m e n t e r \r \t @ R e q u e
0035620 u e S u b U s e r = R e q u
0035640 e u e S u b I m p l e m e n t e
0035660 r \r \t @ W a k e H e a d U s e r
0035700 = W a k e H e a d I m p l e
0035720 m e n t e r \r \t M a k e B l t I
0035740 t e m ( l v B o o t D a t a >
0035760 > B o o t L i s t . b l t ^ 0 ,
0036000 M e s a N o v a 1 , T X V ,
0036020 M e s a N o v a S i z e 1 ) \r
0036040 / / \t M o v e B l o c k ( T X V
0036060 , M e s a N o v a 1 , M e s
0036100 a N o v a S i z e 1 ) \r \t M a k
0036120 e B l t I t e m ( l v B o o t
0036140 D a t a > > B o o t L i s t . b
0036160 l t ^ 1 , M e s a N 376 001 \0 314 X
0036200 o v a 2 , x N o v a C o d e ,
0036220 M e s a N o v a S i z e 2 ) \r
0036240 / / \t M o v e B l o c k ( T X V
0036260 , M e s a N o v a 2 , M e s
0036300 a N o v a S i z e 2 ) \r \t @ P u
0036320 n t D a t a = 0 \r ] \r \r a n
0036340 d M a k e B l t I t e m ( i t
0036360 e m , s o u r c e , d e s t
0036400 , c o u n t ) b e \r [ \r i t
0036420 e m > > B l t I t e m . f i r s
0036440 t S o u r c e M 1 = s o u r
0036460 c e - 1 \r i t e m > > B l t I t
0036500 e m . l a s t D e s t = d e
0036520 s t + c o u n t - 1 \r i t e m >
0036540 > B l t I t e m . m i n u s C o
0036560 u n t = - c o u n t \r ] \r \r
0036600 376 001 \0 254 342 a n d F i x I n t e
0036620 r r u p t s ( v ) b e \r [ \r \t
0036640 l e t t = @ P S c o d e -
0036660 2 \r \t f o r i = 0 t o 1 4
0036700 d o \r \t [ t = t + 1
0036720 ; v ! i = t ] \r \t M a k e B
0036740 l t I t e m ( l v B o o t D a
0036760 t a > > B o o t L i s t . b l t
0037000 ^ 2 , \t v , I n t e r r u p t
0037020 V e c t o r , 1 5 ) \r \t D i s
0037040 a b l e I n t e r r u p t s ( )
0037060 \r \t @ D i s p l a y I n t e r r
0037100 u p t W o r d = S w a t I n
0037120 t e r r u p t B i t \r \t @ A c t
0037140 i v e = S w a t I n t e r r
0037160 u p t B i t \r \t I n t e r r u p
0037200 t V e c t 376 001 \0 p N o r ! S w a
0037220 t I n t e r r u p t L e v e l
0037240 = I n t e r r u p t V e c t o
0037260 r ! 8 / / S W A T a n d
0037300 T I M E R \r \t @ W a k e u p s W
0037320 a i t i n g = 0 \r \t E n a b
0037340 l e I n t e r r u p t s ( ) \r \t
0037360 v ! S w a t I n t e r r u p t L
0037400 e v e l = I n t e r r u p t
0037420 V e c t o r ! S w a t I n t e r
0037440 r u p t L e v e l / / S W A
0037460 T a n d T I M E R \r \t v ! T
0037500 i m e o u t I n t e r r u p t L
0037520 e v e l = A d v a n c e T i
0037540 m e r P t r \r ] \r \f \r \r a n d
0037560 l e t L o a d M e s a M i c r
0037600 o c o d e ( ) = 376 001 \0 360 245 v
0037620 a l o f \r [ L o a d M e s a M i
0037640 c r o c o d e \r l e t M B F i
0037660 l e = 0 \r l e t r a m v e r
0037700 = 0 \r D e t e r m i n e C o n
0037720 f i g u r a t i o n ( ) \r i f
0037740 H a r d w a r e C o n f i g u r
0037760 a t i o n > > H a r d w a r e I
0040000 n f o . s e c o n d R O M t h
0040020 e n \r [ R e p o r t R O M \r
0040040 W r i t e R O M V e r s i o
0040060 n ( ) \r i f @ R a m I m a
0040100 g e n e H a r d w a r e C o
0040120 n f i g u r a t i o n > > H a r
0040140 d w a r e I n f o . m e s a M i
0040160 c r o c o d e V e r s i o n t
0040200 h e n \r A b o r t M s 376
0040220 001 \0 375 i g ( " * N U n u s a b l
0040240 e m i c r o c o d e i n s
0040260 e c o n d R O M " ) \r ] R
0040300 e p o r t R O M \r i f H a r d
0040320 w a r e C o n f i g u r a t i o
0040340 n > > H a r d w a r e I n f o .
0040360 A l t o T y p e > 3 t h e
0040400 n r e s u l t i s f a l s e
0040420 \r i f H a r d w a r e C o n f
0040440 i g u r a t i o n > > H a r d w
0040460 a r e I n f o . s e c o n d R O
0040500 M & \r H a r d w a r e C
0040520 o n f i g u r a t i o n > > H a
0040540 r d w a r e I n f o . A l t o T
0040560 y p e n e 3 t h e n r e
0040600 s u l t i s f a l s e \r t e s
0040620 t I m 376 001 \0 325 \n a g e O p t i
0040640 o n s & M i c r o c o d e O p t
0040660 i o n \r i f s o \r \t [ \r
0040700 \t l e t s i n k = 0 \r \t u n t
0040720 i l ( I m a g e C o u n t & #
0040740 3 7 7 ) e q # 3 7 7 d o
0040760 s i n k = R e a d I m a g e ( )
0041000 \r \t P a g e s T o S k i p = P a
0041020 g e s T o S k i p + 1 0 \t / / 1
0041040 0 m o r e p a g e s i n
0041060 m i c r o c o d e \r \t i f M F
0041100 i l e N a m e ! 0 e q 0 t
0041120 h e n [ M B F i l e = I F i
0041140 l e ; M F i l e N a m e = I F
0041160 i l e N a m e ] \r \t ] \r
0041200 i f n o t i f M F i l e N
0041220 a m e ! 0 e q 376 001 \0 033 ~ 0
0041240 t h e n \r \t [ \r \t t e s t H a
0041260 r d w a r e C o n f i g u r a t
0041300 i o n > > H a r d w a r e I n f
0041320 o . s e c o n d R O M \r \t
0041340 i f s o L o a d P a c k e
0041360 d R A M ( X R a m I m a g e ,
0041400 l v r a m v e r ) \r \t
0041420 i f n o t \r \t [ N o
0041440 R O M \r \t L o a d P
0041460 a c k e d R A M ( R a m I m a g
0041500 e , l v r a m v e r ) \r \t
0041520 H a r d w a r e C o n
0041540 f i g u r a t i o n > > H a r d
0041560 w a r e I n f o . m e s a M i c
0041600 r o c o d e V e r s i o n =
0041620 r a m v e r \r \t 376 001
0041640 \0 024 371 ] N o R O M \r \t r e s u l
0041660 t i s t r u e \r \t ] \r \r i f
0041700 M B F i l e e q 0 t h e n
0041720 \r M B F i l e = O p e n F i
0041740 l e ( M F i l e N a m e , k s T
0041760 y p e R e a d O n l y , w o r d
0042000 I t e m ) \r i f ( M B F i l e
0042020 e q 0 ) t h e n \r \t A b o
0042040 r t M s g ( F O R M A T N ( " *
0042060 N < S > n o t f o u n d . "
0042100 , M F i l e N a m e ) ) \r \r l e
0042120 t M B P r o b l e m s = R e a
0042140 d P a c k e d R A M ( M B F i l
0042160 e ) \r i f ( M B P r o b l e m
0042200 s n e 0 ) t h e n \r \t [ \r
0042220 \t W s ( F O R M A T N ( " * N <
0042240 S > 376 001 \0 B x h a d s o m e
0042260 c o n s t a n t d i s a g r
0042300 e e m e n t s . " , M F i l e N
0042320 a m e ) ) \r \t K e y b o a r d W
0042340 a i t ( ) \r \t ] \r i f M B F i
0042360 l e n e I F i l e t h e n
0042400 C l o s e s ( M B F i l e ) \r
0042420 ] L o a d M e s a M i c r o c o
0042440 d e \r \f \r \r a n d l e t F i
0042460 n d S p a c e ( P a g e M a p ,
0042500 M a p l a s t ) b e \r [ F i n
0042520 d S p a c e \r / / f i n d s p
0042540 a c e f o r b o o t l o a
0042560 d e r a n d p a g e m a p
0042600 w h i c h d o e s n o t i
0042620 n t e r f e r e \r / / w i t h
0042640 t h i s p r o 376 001 \0 203 n g r a
0042660 m o r t h e i m a g e t
0042700 o b e l o a d e d \r l e t
0042720 I n U s e = v e c 1 5 \r Z e r
0042740 o ( I n U s e , 1 6 ) \r l e t
0042760 b o o t L i s t S i z e =
0043000 0 \r l e t n e x t i = n i
0043020 l \r l e t i = 0 \r u n t i
0043040 l i e q M a p l a s t d
0043060 o \r [ \r l e t
0043100 i t e m = l v ( P a g e M
0043120 a p ! i ) \r t e s t i
0043140 t e m > > M a p I t e m . t a g
0043160 \r \t i f s o \r \t [ \r \t
0043200 n e x t i = i + l c h
0043220 a n g e M a p I t e m \r \t
0043240 b o o t L i s t S i z e 376 001 \0
0043260 206 206 = b o o t L i s t S i z
0043300 e + 2 \r \t ] \r \t i f
0043320 n o t n e x t i = i + l n
0043340 o r m a l M a p I t e m \r
0043360 l e t p a g e , c o u n t
0043400 = i t e m > > M a p I t e m
0043420 . p a g e , i t e m > > M a p
0043440 I t e m . c o u n t \r b
0043460 o o t L i s t S i z e = b o
0043500 o t L i s t S i z e + c o u
0043520 n t \r f o r j = p a g
0043540 e t o p a g e + c o u n t -
0043560 1 d o \r \t [ \r \t l e t w d
0043600 = j r s h i f t 4 \r \t I n
0043620 U s e ! ( w d ) = I n U s e
0043640 ! ( w d ) % ( # 1 0 0 0 0 0
0043660 r 376 001 \0 266 024 s h i f t ( j &
0043700 # 1 7 ) ) \r \t ] \r i =
0043720 n e x t i \r ] \r l e t
0043740 l a s t p a g e = ( M y F r a
0043760 m e ( ) - 2 5 6 ) r s h i f t
0044000 8 \r l e t f i r s t p a g e
0044020 = ( R a m I m a g e + 2 5 5 )
0044040 r s h i f t 8 \r l e t p =
0044060 A l l o c P a g e s ( I n U s
0044100 e , f i r s t p a g e , l a
0044120 s t p a g e , 1 ) \r B L l o c
0044140 = p l s h i f t 8 \r i f
0044160 p n e 0 t h e n \r
0044200 p = A l l o c P a g e s (
0044220 I n U s e , p + 1 , l a s t
0044240 p a g e , ( b o o t L i s t S
0044260 i z e + 2 5 6 376 001 \0 212 l ) r s
0044300 h i f t 8 ) \r P M l o c =
0044320 p l s h i f t 8 \r i f P M
0044340 l o c e q 0 t h e n \r \t A
0044360 b o r t M s g ( " * N C a n ' t
0044400 f i n d e n o u g h s p a
0044420 c e f o r l o a d e r . " )
0044440 \r ] F i n d S p a c e \r \r \r a n
0044460 d A l l o c P a g e s ( m a p
0044500 , f i r s t , l a s t , n
0044520 p a g e s ) = v a l o f \r [
0044540 \r l e t n = 0 \r f o r i
0044560 = f i r s t t o l a s t
0044600 d o \r [ \r t e
0044620 s t ( m a p ! ( i r s h i f
0044640 t 4 ) & ( # 1 0 0 0 0 0
0044660 r s h i f t ( i & 376 001 \0
0044700 330 # 1 7 ) ) ) e q 0 \r
0044720 i f s o \r \t [ n =
0044740 n + 1 ; i f n e q n
0044760 p a g e s t h e n r e s u l
0045000 t i s i - n + 1 ] \r
0045020 i f n o t n = 0 \r
0045040 ] \r r e s u l t i s 0 \r ]
0045060 \r \f \r \r a n d D e f a u l t N
0045100 a m e ( n a m e , d e f n a m e
0045120 , d e f e x t ) b e \r [ D e f
0045140 a u l t N a m e \r i f n a m e
0045160 ! 0 e q 0 t h e n \r
0045200 [ \r C O N C A T E N A
0045220 T E ( n a m e , d e f n a m e ,
0045240 " . " , d e f e x t ) \r
0045260 r e t u r n \r ] \r f o r
0045300 376 001 \0 M 300 I = 1 t o n a m
0045320 e > > s t r i n g . l e n g t h
0045340 d o \r [ \r i f
0045360 n a m e > > s t r i n g . c h
0045400 a r ^ I e q $ . t h e n
0045420 r e t u r n \r ] \r C O N
0045440 C A T E N A T E ( n a m e , n a
0045460 m e , " . " , d e f e x t ) \r ]
0045500 D e f a u l t N a m e \r \r a n d
0045520 l e t K e y b o a r d W a i
0045540 t ( ) b e \r [ K e y b o a r d
0045560 W a i t \r \r W s ( " [ ] " )
0045600 \r l e t C h a r = G e t s ( k
0045620 e y s ) \r P u t s ( d s p , C h
0045640 a r ) \r s w i t c h o n C h a
0045660 r i n t o \r [ \r
0045700 c a s e 376 001 \0 346 036 $ F : c
0045720 a s e $ f : f i n i s h
0045740 \r ] \r ] K e y b o a r d
0045760 W a i t \r \r \r a n d A b o r
0046000 t M s g ( s ) b e \r [ A b o r
0046020 t M s g \r \t W s ( s ) \r \t R e s
0046040 e t s ( k e y s ) \r \t K e y b o
0046060 a r d W a i t ( ) \r \t f i n i s
0046100 h \r ] A b o r t M s g \r \r \r a n
0046120 d R e a d I m a g e ( ) = v a
0046140 l o f \r [ R e a d I m a g e \r I
0046160 m a g e C o u n t = I m a g e C
0046200 o u n t + 1 \r i f E n d o f s
0046220 ( I F i l e ) t h e n A b o
0046240 r t M s g ( " P r e m a t u r e
0046260 e n d o f i m a g e f i
0046300 l e . " ) \r r e s u l 376 001 \0 345 027
0046320 t i s G e t s ( I F i l e ) \r
0046340 ] R e a d I m a g e \r \r \r a n d
0046360 R e a d I m a g e B l o c k (
0046400 p , n ) b e \r [ R e a d I m a
0046420 g e B l o c k \r I m a g e C o u
0046440 n t = I m a g e C o u n t + n \r
0046460 i f R e a d B l o c k ( I F i
0046500 l e , p , n ) n e n t h e
0046520 n \r \t [ \r \t A b o r t M s g ( "
0046540 P r e m a t u r e e n d o f
0046560 i m a g e f i l e . " ) \r \t
0046600 ] \r ] R e a d I m a g e B l o c
0046620 k \r \r \r a n d W r i t e V e r
0046640 s i o n ( ) b e \r [ W r i t e
0046660 V e r s i o n \r W s ( \r F O R M
0046700 A T N ( " R u n M e s a < D >
0046720 376 001 \0 255 001 . < D > . < D > , m
0046740 i c r o c o d e < D > [ < D >
0046760 ] * N " , M a j o r V e r s i
0047000 o n , M i n o r V e r s i o n
0047020 , X M V e r s i o n , @ R a
0047040 m I m a g e , @ X R a m I m a
0047060 g e ) ) \r ] W r i t e V e r s i
0047100 o n \r \r a n d W r i t e R O M
0047120 V e r s i o n ( ) b e \r [ W r
0047140 i t e R O M V e r s i o n \r W s
0047160 ( F O R M A T N ( " R O M 1 m
0047200 i c r o c o d e < D > " , H a
0047220 r d w a r e C o n f i g u r a t
0047240 i o n > > H a r d w a r e I n f
0047260 o . m e s a M i c r o c o d e V
0047300 e r s i o n ) ) \r t e s t H a
0047320 r d w a r 376 001 \0 $ 206 e C o n f i
0047340 g u r a t i o n > > H a r d w a
0047360 r e I n f o . X M M i c r o c o
0047400 d e V e r s i o n n e 0 \r
0047420 i f s o W s ( F O R M A T N
0047440 ( " , X M m i c r o c o d e
0047460 < D > * N " , \r \t \t H a r
0047500 d w a r e C o n f i g u r a t i
0047520 o n > > H a r d w a r e I n f o
0047540 . X M M i c r o c o d e V e r s
0047560 i o n ) ) \r i f n o t W s
0047600 ( " * N " ) \r ] W r i t e R O M
0047620 V e r s i o n \r \r a n d W r i
0047640 t e S t a m p ( v ) b e \r [ W
0047660 r i t e S t a m p \r l e t
0047700 u v = v e c 6 \r l e t
0047720 d v = v e c 376 001 \0 244 317 1
0047740 \r d v ! 0 , d v ! 1 =
0047760 v > > V e r s i o n S t a m p .
0050000 t i m e . h i g h , v > > V e
0050020 r s i o n S t a m p . t i m e .
0050040 l o w / / r e v e r s e \r
0050060 U N P A C K D T ( d v , u v
0050100 ) \r W R I T E U D T ( d s p
0050120 , u v ) \r W s ( F O R M A T
0050140 N ( " < B > # < B > # " , v >
0050160 > V e r s i o n S t a m p . n e
0050200 t , v > > V e r s i o n S t a m
0050220 p . h o s t ) ) \r i f v >
0050240 > V e r s i o n S t a m p . z a
0050260 p p e d n e 0 t h e n \r
0050300 W s ( " z a p p e d ! "
0050320 ) \r ] W r i t e S t a m p \r \r 377
0050340 \0 \0 M e s a X . b c p l \0 376 001 \0
0050360 g 322 / / M e s a X . b c p l -
0050400 X M s u p p o r t f o r
0050420 R u n M e s a - R . L e v
0050440 i n \r / / l a s t m o d i f i
0050460 e d b y L e v i n : O c
0050500 t o b e r 1 7 , 1 9 7 8
0050520 1 0 : 4 1 A M \r \r g e t "
0050540 M e s a . d " \r \r e x t e r n a
0050560 l \t [ M o v e B l o c k ; Z
0050600 e r o ] \t \t \t \t / / O S \r e
0050620 x t e r n a l \t [ D e t e r m
0050640 i n e C o n f i g u r a t i o n
0050660 ] \t \t \t / / e x p o r t e d
0050700 t o M e s a . b c p l \t \r \r m
0050720 a n i f e s t \t [ \r \t W a k e u
0050740 p s W a i t i n g = # 4 5 2
0050760 \r \t 376 001 \0 312 322 A c t i v e =
0051000 # 4 5 3 \r \t ] \r \r m a n i f e s
0051020 t \t [ E m u l a t o r B R =
0051040 # 1 7 7 7 4 0 ] \r \r s t r u
0051060 c t u r e B a n k R e g i s t
0051100 e r : [ \r \t \t u n u s e d
0051120 b i t 1 2 \r \t \t p r i m
0051140 a r y b i t 2 \r \t \t a l
0051160 t e r n a t e b i t 2 \r \t \t
0051200 ] \r \r l e t D e t e r m i n e
0051220 C o n f i g u r a t i o n ( )
0051240 b e \r [ D e t e r m i n e C o n
0051260 f i g u r a t i o n \r m a n i f
0051300 e s t b a n k 0 o n l y =
0051320 # 1 0 \r l e t v e r s = t a b
0051340 l e [ \r # 6 1 0 1 4 \t
0051360 \t / / V E R S 376 001 \0 326 5 \r
0051400 # 1 4 0 1 \t \t / / J M P 1
0051420 3 \r ] \r l e t e n g i
0051440 n e e r i n g N u m b e r =
0051460 v e r s ( ) r s h i f t 1 2
0051500 \r Z e r o ( H a r d w a r e C o
0051520 n f i g u r a t i o n , l H a r
0051540 d w a r e I n f o ) \r t e s t
0051560 e n g i n e e r i n g N u m b e
0051600 r e q 0 \r i f s o
0051620 H a r d w a r e C o n f i g u r
0051640 a t i o n > > H a r d w a r e I
0051660 n f o . A l t o T y p e = 1
0051700 \r i f n o t H a r d w
0051720 a r e C o n f i g u r a t i o n
0051740 > > H a r d w a r e I n f o . A
0051760 l t o T y p e = e n 376 001 \0 j
0052000 \t g i n e e r i n g N u m b e r
0052020 \r H a r d w a r e C o n f i g u
0052040 r a t i o n > > H a r d w a r e
0052060 I n f o . u s e X M = f a l
0052100 s e \r H a r d w a r e C o n f i
0052120 g u r a t i o n > > H a r d w a
0052140 r e I n f o . b a n k s = b
0052160 a n k 0 o n l y \t \t \t / / b a
0052200 n k 0 o n l y \r H a r d w a
0052220 r e C o n f i g u r a t i o n >
0052240 > H a r d w a r e I n f o . s e
0052260 c o n d R O M = f a l s e \r
0052300 H a r d w a r e C o n f i g u r
0052320 a t i o n > > H a r d w a r e I
0052340 n f o . m e s a M i c r o c o d
0052360 e V e r s i o n = 0 \r H a r
0052400 d 376 001 \0 037 P w a r e C o n f i g
0052420 u r a t i o n > > H a r d w a r
0052440 e I n f o . X M M i c r o c o d
0052460 e V e r s i o n = 0 \r i f
0052500 ( H a r d w a r e C o n f i g u
0052520 r a t i o n > > H a r d w a r e
0052540 I n f o . A l t o T y p e <
0052560 2 ) % \r ( H a r d w a r
0052600 e C o n f i g u r a t i o n > >
0052620 H a r d w a r e I n f o . A l t
0052640 o T y p e > 3 ) t h e n
0052660 r e t u r n \t / / i g n o r e
0052700 p s e u d o - A l t o s \r R O
0052720 M V e r s i o n ( ) \r i f H a
0052740 r d w a r e C o n f i g u r a t
0052760 i o n > > H a r d w a r e I n f
0053000 o . A l t o 376 001 \0 250 W T y p e
0053020 n e 3 t h e n r e t u r n
0053040 \r l e t b a n k s A v a i l a
0053060 b l e = F i n d M e m o r y
0053100 B a n k s ( ) \r H a r d w a r e
0053120 C o n f i g u r a t i o n > > H
0053140 a r d w a r e I n f o . b a n k
0053160 s = b a n k s A v a i l a b
0053200 l e \r H a r d w a r e C o n f i
0053220 g u r a t i o n > > H a r d w a
0053240 r e I n f o . u s e X M = (
0053260 b a n k s A v a i l a b l e n
0053300 e b a n k 0 o n l y ) & \r \t
0053320 H a r d w a r e C o n f i g u r
0053340 a t i o n > > H a r d w a r e I
0053360 n f o . s e c o n d R O M & \r
0053400 \t ( H a r d w a r e C 376 001 \0 022 352
0053420 o n f i g u r a t i o n > > H a
0053440 r d w a r e I n f o . X M M i c
0053460 r o c o d e V e r s i o n n e
0053500 0 ) \r ] D e t e r m i n e C o
0053520 n f i g u r a t i o n \r \f \r \r a
0053540 n d l e t R O M V e r s i o
0053560 n ( ) b e \r [ R O M V e r s i
0053600 o n \r m a n i f e s t [ R e
0053620 a l R A M l o c = # 3 0 0 ;
0053640 P o s s i b l e R A M l o c
0053660 = # 7 7 7 - 1 ] \r m a n i f
0053700 e s t h i g h w o r d = #
0053720 2 0 0 0 \r l e t v e r s i o n
0053740 T a b l e = t a b l e [
0053760 3 4 ] \r l e t s a v e R e a
0054000 l R A M = v e c 3 \r l e t
0054020 376 001 \0 r q s a v e P o s s i b
0054040 l e R A M = v e c 3 \r l e
0054060 t W r i t e O n e = t a b l e
0054100 [ / / ( h i g h , a d d
0054120 r e s s , l o w ) \r # 5
0054140 5 0 0 1 \t \t / / S T A 3 1
0054160 2 \r # 3 5 0 0 3 \t \t / /
0054200 L D A 3 3 2 \r # 6
0054220 1 0 1 2 \t \t / / W R T R A M \r
0054240 # 3 5 0 0 1 \t \t / / L D A
0054260 3 1 2 \r # 1 4 0 1
0054300 \t \t / / J M P 1 3 \r
0054320 ] \r l e t R e a d O n e = t a
0054340 b l e [ / / ( p o i n t
0054360 e r , a d d r e s s ) \r
0054400 # 5 5 0 0 1 \t \t / / S T A 3
0054420 1 2 \r 376 001 \0 \a D # 1 1
0054440 5 0 0 0 \t \t / / M O V 0 3 \r
0054460 # 6 1 0 1 1 \t \t / / R D
0054500 R A M \r # 4 1 4 0 0 \t \t
0054520 / / S T A 0 0 3 \r
0054540 # 3 5 0 0 1 \t \t / / L D A 3
0054560 1 2 \r # 1 4 0 1 \t \t /
0054600 / J M P 1 3 \r ] \r l
0054620 e t J m p R A M = t a b l e
0054640 [ \r # 6 1 0 1 0 \t \t / /
0054660 J M P R A M \r # 1 4 0 1
0054700 \t \t / / J M P 1 3 \r
0054720 ] \r l e t i n i t C P = t
0054740 a b l e [ \r # 1 0 0 ;
0054760 # 1 7 0 3 0 1 ; \t / /
0055000 L _ A L L O N E S , S W M O
0055020 D E , : x 1 ; \r 376 001 \0 5 264
0055040 # 6 0 1 1 0 ; # 1 0 2 0 2
0055060 0 ; \t / / x 1 : c p _ L ,
0055100 : S T A R T ; \r ] \r l e
0055120 t g e t V e r s i o n C o d e
0055140 = t a b l e [ \r #
0055160 6 0 1 1 0 ; # 1 0 2 0 2 0 ; \t
0055200 / / x 2 : c p _ L , : S T A
0055220 R T ; \r # 6 0 ; # 1 7
0055240 0 7 7 6 ; \t / / L _ -
0055260 2 , S W M O D E , : x 2 ; \r
0055300 ] \r l e t r e a d C P
0055320 = t a b l e [ \r # 6
0055340 0 0 6 0 ; # 1 0 0 3 0 1 ; \t /
0055360 / L _ c p , S W M O
0055400 D E , : x 3 ; \r # 1 4
0055420 0 3 0 ; # 1 0 2 0 2 0 ; \t / 376
0055440 001 \0 303 N / x 3 : A C 0 _ L ,
0055460 : S T A R T ; \r ] \r R
0055500 e a d O n e ( s a v e R e a l R
0055520 A M , h i g h w o r d + R e a l
0055540 R A M l o c ) ; R e a d O
0055560 n e ( s a v e R e a l R A M + 1
0055600 , R e a l R A M l o c ) ; \r R e
0055620 a d O n e ( s a v e R e a l R A
0055640 M + 2 , h i g h w o r d + R e a
0055660 l R A M l o c + 1 ) ; R e a d
0055700 O n e ( s a v e R e a l R A M +
0055720 3 , R e a l R A M l o c + 1 ) ;
0055740 \r W r i t e O n e ( i n i t C P
0055760 ! 0 , R e a l R A M l o c , i n
0056000 i t C P ! 1 ) ; \r W r i t e O n
0056020 e ( i n i t C P ! 2 , R e a l R
0056040 A M l o 376 001 \0 $ O c + 1 , i n i
0056060 t C P ! 3 ) ; \r J m p R A M ( 0
0056100 , R e a l R A M l o c ) ; \t \t \t
0056120 \t / / c p _ - 1 \r \r R e a
0056140 d O n e ( s a v e P o s s i b l
0056160 e R A M , h i g h w o r d + P o
0056200 s s i b l e R A M l o c ) ;
0056220 R e a d O n e ( s a v e P o s
0056240 s i b l e R A M + 1 , P o s s i
0056260 b l e R A M l o c ) ; \r R e a d
0056300 O n e ( s a v e P o s s i b l e
0056320 R A M + 2 , h i g h w o r d + P
0056340 o s s i b l e R A M l o c + 1 )
0056360 ; \r R e a d O n e ( s a v e P o
0056400 s s i b l e R A M + 3 , P o s s
0056420 i b l e R A M l o c + 1 ) ; \r W
0056440 r i t e O n e ( g 376 001 \0 { ; e t
0056460 V e r s i o n C o d e ! 0 , P o
0056500 s s i b l e R A M l o c , g e t
0056520 V e r s i o n C o d e ! 1 ) ; \r
0056540 W r i t e O n e ( g e t V e r s
0056560 i o n C o d e ! 2 , P o s s i b
0056600 l e R A M l o c + 1 , g e t V e
0056620 r s i o n C o d e ! 3 ) ; \r J m
0056640 p R A M ( 0 , P o s s i b l e R
0056660 A M l o c + 1 ) ; \r W r i t e O
0056700 n e ( s a v e P o s s i b l e R
0056720 A M ! 0 , P o s s i b l e R A M
0056740 l o c , s a v e P o s s i b l e
0056760 R A M ! 1 ) ; \r W r i t e O n e
0057000 ( s a v e P o s s i b l e R A M
0057020 ! 2 , P o s s i b l e R A M l o
0057040 c + 1 , s a v e P o s s i b 376 001
0057060 \0 G 227 l e R A M ! 3 ) ; \r \r W r
0057100 i t e O n e ( r e a d C P ! 0 ,
0057120 R e a l R A M l o c , r e a d C
0057140 P ! 1 ) ; \r W r i t e O n e ( r
0057160 e a d C P ! 2 , R e a l R A M l
0057200 o c + 1 , r e a d C P ! 3 ) ; \r
0057220 l e t v a l C P = J m p R
0057240 A M ( 0 , R e a l R A M l o c )
0057260 ; \r W r i t e O n e ( s a v e R
0057300 e a l R A M ! 0 , R e a l R A M
0057320 l o c , s a v e R e a l R A M !
0057340 1 ) ; \r W r i t e O n e ( s a v
0057360 e R e a l R A M ! 2 , R e a l R
0057400 A M l o c + 1 , s a v e R e a l
0057420 R A M ! 3 ) ; \r s w i t c h o n
0057440 v a l C P i n t o \r [ V
0057460 e r s 376 001 \0 + 3 i o n C a s e s
0057500 \r c a s e - 2 : \t \t / /
0057520 n o R O M o n m a c h i n
0057540 e \r [ \r e n d c
0057560 a s e \r ] \r c a s e
0057600 - 1 : \t \t / / M e s a 4 .
0057620 1 R O M o n m a c h i n e
0057640 \r [ \r H a r d w
0057660 a r e C o n f i g u r a t i o n
0057700 > > H a r d w a r e I n f o . m
0057720 e s a M i c r o c o d e V e r s
0057740 i o n = v e r s i o n T a b
0057760 l e ! 0 \r H a r d w a r
0060000 e C o n f i g u r a t i o n > >
0060020 H a r d w a r e I n f o . s e c
0060040 o n d R O M = t r u e \r
0060060 e n d c a s 376 001 \0 255 227 e \r
0060100 ] \r d e f a u l t : \t
0060120 \t / / s o m e o t h e r R
0060140 O M o n m a c h i n e \r
0060160 [ \r H a r d w a r e
0060200 C o n f i g u r a t i o n > > H
0060220 a r d w a r e I n f o . s e c o
0060240 n d R O M = t r u e \r
0060260 i f ( v a l C P & # 1 0
0060300 0 0 0 0 ) n e 0 t h e n \r
0060320 [ G e t X M \r
0060340 l e t v e r s i o n =
0060360 0 \r l e t v a l
0060400 = v a l C P \r w
0060420 h i l e ( v a l & # 1 0 0
0060440 0 0 0 ) n e 0 d o \r \t [ l
0060460 o o p \r \t v e r s i o n 376 001 \0
0060500 1 264 = v e r s i o n + 1 \r \t v
0060520 a l = v a l l s h i f t
0060540 1 \r \t ] l o o p \r v
0060560 a l C P = v a l C P & (
0060600 # 1 7 7 7 7 7 r s h i f t v
0060620 e r s i o n ) \r H a
0060640 r d w a r e C o n f i g u r a t
0060660 i o n > > H a r d w a r e I n f
0060700 o . X M M i c r o c o d e V e r
0060720 s i o n = v e r s i o n \r
0060740 ] G e t X M \r
0060760 H a r d w a r e C o n f i g u r
0061000 a t i o n > > H a r d w a r e I
0061020 n f o . m e s a M i c r o c o d
0061040 e V e r s i o n = v e r s i
0061060 o n T a b l e ! v a l C P \r
0061100 376 001 \0 G 324 e n d c a s e \r
0061120 ] \r ] V e r s i o n C
0061140 a s e s \r ] R O M V e r s i o n
0061160 \r \f \r \r a n d l e t F i n d
0061200 M e m o r y B a n k s ( ) =
0061220 v a l o f \r [ F i n d M e m o r
0061240 y B a n k s \r m a n i f e s t
0061260 t e s t l o c a t i o n = 0
0061300 \r l e t b i t T o S e t =
0061320 # 4 \t \t \t / / s t a r t w i
0061340 t h b a n k 1 \r l e t b a
0061360 n k b i t s = # 1 0 \t \t \t /
0061400 / b a n k 0 a l w a y s
0061420 p r e s e n t \r l e t s a v e
0061440 d A c t i v e = @ A c t i v
0061460 e \r l e t G e t A l t e r n a
0061500 t e B a n k = 376 001 \0 337 234 t a b l
0061520 e [ \r # 6 1 0 2 5 \t \t
0061540 / / X M L D A \r # 1 4 0
0061560 1 \t \t / / J M P 1 3 \r
0061600 ] \r l e t S e t A l t e r n
0061620 a t e B a n k = t a b l e [ \r
0061640 # 6 1 0 2 6 \t \t / / X M
0061660 S T A \r # 1 4 0 1 \t \t /
0061700 / J M P 1 3 \r ] \r @
0061720 A c t i v e = 0 \r E m u l a
0061740 t o r B R > > B a n k R e g i s
0061760 t e r . a l t e r n a t e =
0062000 0 \r u n t i l b i t T o S e t
0062020 e q 0 d o \r [ \r
0062040 E m u l a t o r B R > > B
0062060 a n k R e g i s t e r . a l t e
0062100 r n a t e = E m u l 376 001 \0 #
0062120 275 a t o r B R > > B a n k R e g
0062140 i s t e r . a l t e r n a t e +
0062160 1 \r l e t o l d v a l
0062200 = G e t A l t e r n a t e B
0062220 a n k ( 0 , t e s t l o c a t i
0062240 o n ) \r S e t A l t e r
0062260 n a t e B a n k ( o l d v a l +
0062300 1 , t e s t l o c a t i o n ) \r
0062320 i f G e t A l t e r n
0062340 a t e B a n k ( t e s t l o c a
0062360 t i o n ) e q o l d v a l +
0062400 1 t h e n \r \t [ b a n k b i
0062420 t s = b a n k b i t s %
0062440 b i t T o S e t ; C l e a r B
0062460 a n k ( ) ] \r b i t T
0062500 o S e t = b i t T o S e t
0062520 r 376 001 \0 g 035 s h i f t 1 \r
0062540 ] \r @ W a k e u p s W a i t
0062560 i n g = 0 \r @ A c t i v e
0062600 = s a v e d A c t i v e \r r e
0062620 s u l t i s b a n k b i t s \r
0062640 ] F i n d M e m o r y B a n k s
0062660 \r \r a n d l e t C l e a r B
0062700 a n k ( ) b e \t \t \t / / w i
0062720 l l b e u n n e c e s s a r
0062740 y w h e n A l t o O S d
0062760 o e s i t f o r u s \r [ C
0063000 l e a r B a n k \r m a n i f e s
0063020 t B B T l e n g t h = 1 6
0063040 \r l e t B i t B l t T a b l e
0063060 = v e c B B T l e n g t h
0063100 \t \t \t \t / / e x t r a w o r
0063120 d f o r 376 001 \0 T 216 e v e n
0063140 a l i g n m e n t \r / / \t C l e
0063160 a r s p a g e s [ 0 . . 2 5
0063200 3 ] ; p a g e s 2 5 4 - 2 5
0063220 5 a r e I / O r e g i s t
0063240 e r s \r l e t I n i t i a l B
0063260 B T = t a b l e [ \r
0063300 # 3 4 \t \t \t / / d e s t i
0063320 n a l t e r n a t e b a n k
0063340 , g r a y , r e p l a c e \r
0063360 # 0 \t \t \t / / u n u s
0063400 e d \r # 0 \t \t \t / / d
0063420 e s t a d d r e s s \r
0063440 2 5 6 * 2 \t \t / / l e n g t h
0063460 o f s c a n l i n e ( w
0063500 o r d s ) \r # 0 \t \t \t /
0063520 / d e s t b l o c 376 001 \0 347 I
0063540 k X - o f f s e t ( b i t s
0063560 ) \r # 0 \t \t \t / / d e
0063600 s t b l o c k Y - o f f s e
0063620 t ( s c a n l i n e s ) \r
0063640 2 5 6 * 2 * 1 6 \t \t / /
0063660 d e s t b l o c k w i d t h
0063700 ( b i t s ) [ 2 p a g e
0063720 s w i d e ] \r 1 2 7 \t
0063740 \t \t / / d e s t b l o c k
0063760 h e i g h t ( s c a n l i n
0064000 e s ) \r # 0 ; # 0 ;
0064020 # 0 ; # 0 \t / / s o u r c e
0064040 i n f o n o t r e l e v a
0064060 n t \r # 0 ; # 0 ; #
0064100 0 ; # 0 \t / / g r a y \r
0064120 ] \r l e t D o B i t B L T
0064140 376 001 \0 315 227 = t a b l e [ \r
0064160 # 5 4 4 1 1 \t \t / / S T A
0064200 3 s a v e d A C 3 \r #
0064220 5 0 4 0 7 \t \t / / S T A 2 s
0064240 a v e d A C 2 \r # 1 1 1
0064260 0 0 0 \t \t / / M O V 0 2 \r
0064300 # 1 2 6 4 0 0 \t \t / / S U
0064320 B 1 1 \r # 6 1 0 2 4
0064340 \t \t / / B I T B L T \r #
0064360 3 0 4 0 3 \t \t / / L D A 2 s
0064400 a v e d A C 2 \r # 3 4 4
0064420 0 3 \t \t / / L D A 3 s a v e
0064440 d A C 3 \r # 1 4 0 1 \t \t
0064460 / / J M P 1 3 \r # 0
0064500 \t \t \t / / s a v e d A C 2 \r
0064520 # 0 \t \t \t / / s a v e d A C
0064540 3 \r 376 \0 235 310 324 ] \r B i t
0064560 B l t T a b l e = B i t B l
0064600 t T a b l e + ( B i t B l t
0064620 T a b l e & 1 ) \t \t / / e
0064640 n s u r e e v e n w o r d
0064660 a l i g n m e n t \r M o v e B l
0064700 o c k ( B i t B l t T a b l e ,
0064720 I n i t i a l B B T , B B T l e
0064740 n g t h ) \r D o B i t B L T ( B
0064760 i t B l t T a b l e ) \r ] C l e
0065000 a r B a n k \r 377 \0 \0 M B o o t .
0065020 a s m \0 376 001 \0 036 o ; A L T O
0065040 M E S A B O O T L O A D E R
0065060 - M B o o t . a s m \r ; L
0065100 O A D E D A L M O S T A N Y
0065120 W H E R E A N D E X E C U T
0065140 E D \r ; R . J o h n s s o n
0065160 - 2 0 F e b 7 6 \r ; L
0065200 a s t e d i t e d M a r c h
0065220 2 0 , 1 9 7 8 5 : 4 0
0065240 P M \r \r \t . T I T L B O O T \r
0065260 \t . T X T M B \r \r \t . E N T
0065300 M B O O T \r \t . E N T S w a t
0065320 F l a g \r \r \t . S R E L \r \t M B
0065340 O O T : \t B O O T \r \t S w a t F
0065360 l a g : B R E A K \r \r \t . N R
0065400 E L \r \t . G E T " M e s a - N
0065420 o v a D e f s . a 376 001 \0 X 316 s m
0065440 " \r \r \r \r ; A C 0 i s p o i
0065460 n t e r t o a r g u m e n t
0065500 l i s t \r \r B O O T : \t M O V
0065520 0 2 \r \t L D A 3 0 , 2 \t
0065540 \t ; P O I N T E R T O B O
0065560 O T M A P R E C O R D \r \t L D
0065600 A 0 0 , 3 \t \t ; S N 1 \r \t
0065620 S T A 0 D C B 1 + s n 1 \r \t
0065640 S T A 0 D C B 2 + s n 1 \r \t
0065660 L D A 0 1 , 3 \r \t S T A 0
0065700 D C B 1 + s n 2 \r \t S T A 0
0065720 D C B 2 + s n 2 \r \t L D A 0
0065740 5 , 3 \t \t ; f i r s t p a
0065760 g e \r \t S T A 0 D C B 2 + p
0066000 a g e n u m b e r \r \t N E G 0
0066020 0 \t \t \t ; - 1 \r \t C O M 376 001
0066040 \0 274 s 0 0 \r \t S T A 0 D
0066060 C B 1 + p a g e n u m b e r \r \t
0066100 L D A 0 C 6 \r \t A D D 3
0066120 0 \r \t S T A 0 P G P T R \r \t
0066140 L D A 0 1 , 2 \r \t S T A 0
0066160 D C B 1 + d i s k a d d r e s
0066200 s \r \t L D A 0 2 , 2 \t \t ;
0066220 i n i t i a l S t a t e \r \t S
0066240 T A 0 c u r r e n t S t a t
0066260 e \r B L T L O O P : \r \t L D A
0066300 0 C 3 \r \t A D D 0 2 \r \t L
0066320 D A 0 0 , 2 \r \t M O V 0
0066340 0 S N R \r \t J M P D O I
0066360 T \r \t L D A 1 1 , 2 \r \t L D
0066400 A 3 2 , 2 \r \t B L T \t \t ;
0066420 d o s o m e B L T s \r \t J M
0066440 P B 376 001 \0 250 236 L T L O O P \r C
0066460 3 : \t 3 \r \r D O I T : \t \r \t D I
0066500 R \t \t ; N O M O R E I N T
0066520 E R R U P T S \r \t S U B 0 0
0066540 \t \t ; C L E A R S O M E L O
0066560 C A T I O N S \r \t L D A 2 P
0066600 A G E 1 \t ; P O I N T E R T
0066620 O P A G E 1 L O C A T I O
0066640 N S \r \t S T A 0 D I S P , 2
0066660 \t ; D I S P L A Y O F F \r \t S
0066700 T A 0 I W W , 2 \t ; W A K E
0066720 U P S W A I T I N G \r \r ; \t J
0066740 S R . + 1 \t \t ; R E L O C A T
0066760 E C U R S O R P O I N T E R
0067000 S \r ; C U R F I X : \t L D A 1
0067020 P O C U R S O R M 1 \r ; \t A D
0067040 D 3 1 \r ; \t 376 001 \0 001 4 S T A
0067060 1 P O C U R S O R M 1 \r ; \t
0067100 L D A 1 P M C U R S O R M 1
0067120 \r ; \t A D D 3 1 \r ; \t S T A
0067140 1 P M C U R S O R M 1 \r ; \r
0067160 ; \t L D A 0 P C U R S O R M
0067200 1 \r ; \t L D A 1 P M C U R S
0067220 O R M 1 \r ; \t L D A 3 C N 1
0067240 6 \r ; \t B L T \t \t ; S A V E O
0067260 L D C U R S O R \r ; \t L D A
0067300 0 P M C U R S O R M 1 \r ; \t L
0067320 D A 1 C U R E N D \r ; \t L D
0067340 A 3 C N 1 6 \r ; \t B L T \t \t
0067360 ; I N S E R T M E S A C U R
0067400 S O R \r \r ; N O W F I X U P
0067420 T H E A D D R E S S E S I
0067440 N T H E D I S K B L 376 001 \0
0067460 n 306 O C K S \r \r \t J S R . + 1
0067500 \r F : \t M O V 3 1 \t \t ; A
0067520 D D R O F F I X U P T O
0067540 A C 1 \r \t L D A 2 D C B 2 \t
0067560 ; O F F S E T O F F I R S
0067600 T D C B I S I N S E C O
0067620 N D \r \t L D A 3 D C B 1 \t ;
0067640 A N D V I C E V E R S A \r
0067660 \t A D D 1 2 \r \t A D D 1
0067700 3 \t \t ; T H E F I X U P S \r
0067720 \t S T A 2 D C B 2 \r \t S T A
0067740 3 D C B 1 \r \r ; N O W F
0067760 I X T H E H E A D E R A N
0070000 D L A B E L A D D R E S S E
0070020 S \r \r \t L D A 0 3 2 \t \r \t
0070040 A D D 1 0 \r \t S T A 0 3
0070060 2 376 001 \0 206 N \r \t L D A 0 4
0070100 2 \r \t A D D 1 0 \r \t S T A
0070120 0 4 2 \r \t L D A 0 3
0070140 3 \r \t A D D 1 0 \r \t S T A
0070160 0 3 3 \r \t L D A 0 4 3
0070200 \r \t A D D 1 0 \r \t S T A 0
0070220 4 3 \r \r ; S T A R T T H
0070240 E D I S K A N D J U M P
0070260 I N T O L O O P \r \r \t L D A
0070300 0 @ P G P T R \t ; p i c k
0070320 u p f i r s t d a t a a d
0070340 d r e s s \r \t S T A 0 d a t
0070360 a 2 \t \t ; S T O R E I T
0070400 I N D C B \r \t S T A 2 @ P
0070420 D B L K \r \t J M P A D V A N C
0070440 E \r \r \r \r ; D C B 1 A N D
0070460 D C B 2 A R 376 001 \0 207 332 E T H
0070500 E D I S K C O N T R O L B
0070520 L O C K S \r \r ; l a y o u
0070540 t o f d i s k c o m m a n
0070560 d b l o c k \r \t n e x t =
0070600 0 \r \t s t a t u s = 1 \r \t c
0070620 o m m a n d = 2 \r \t h e a d
0070640 e r = 3 \r \t l a b e l =
0070660 4 \r \t d a t a = 5 \r \t n o r
0070700 m a l i n t e r r u p t s =
0070720 6 \r \t e r r o r i n t e r r u p
0070740 t s = 7 \r \t u n u s e d =
0070760 1 0 \r \t d i s k a d d r e s s
0071000 = 1 1 \r ; t h e s e
0071020 h a n g o f f t h e e n d
0071040 b u t a r e n o t p a r
0071060 t o f t h e c o m 376 001 \0 >
0071100 301 m a n d \r \t p r e v = 1 2
0071120 \r \t b l a n k = 1 3 \r \t n u
0071140 m c h a r s = 1 4 \r \t p a g
0071160 e n u m b e r = 1 5 \r \t v e
0071200 r s i o n = 1 6 \r \t s n 1
0071220 = 1 7 \r \t s n 2 = 2 0 \r \r
0071240 D C B 1 : \t D C B 2 - F \t ; T H
0071260 I S I S T H E F I R S T
0071300 D C B ' S L I N K W O R D \r
0071320 \r \r \t 0 \t ; S T A T U S \r \t 4 4
0071340 0 2 0 \t ; C O M M A N D . R
0071360 E A D h e a d e r a n d d
0071400 a t a , c h e c k l a b e l
0071420 \r \t D H D R - F \t ; H E A D E R
0071440 \r \t D C B 2 + d i s k a d d r e
0071460 s s - F \t ; T H E L A B E L
0071500 I 376 001 \0 234 W S R E A D I N
0071520 O N T O P O F T H E H E
0071540 A D E R \r \t 0 \t ; D A T A P O
0071560 I N T E R I S M O D I F I E
0071600 D I N O P E R A T I O N \r \t
0071620 0 \t ; I N T E R R U P T S A R
0071640 E I N A C T I V E \r \t 0 \r \t 0
0071660 \t ; U N U S E D \r \t 0 \t ; D I S
0071700 K A D D R E S S , A L S O
0071720 T H E F I R S T L O C A T I
0071740 O N F O R O T H E R D C B
0071760 ' S L A B E L \r \t 0 \t ; p r e
0072000 v \r \t 0 \t ; b l a n k \r \t 0 \t ;
0072020 n u m c h a r s \r \t 0 \t ; p a g
0072040 e n u m b e r \r \t 0 \t ; v e r
0072060 s i o n \r \t 0 \t ; S N 1 \r \t 0 \t
0072100 ; S N 2 \r \r 376 001 \0 235 003 D C B 2 :
0072120 \t D C B 1 - F \t ; T H I S I S
0072140 T H E S E C O N D D C B \r
0072160 \t 0 \t ; S T A T U S \r \t 4 4 0 2
0072200 0 \t ; C O M M A N D \r \t D H D R
0072220 - F \t ; H E A D E R \r \t D C B 1
0072240 + d i s k a d d r e s s - F \t ;
0072260 L A B E L \r \t 0 \t ; D A T A \r \t
0072300 0 \r \t 0 \r \t 0 \r \t 0 \t ; D I S K
0072320 A D D R E S S F O R S E C
0072340 O N D D C B , L A B E L F
0072360 O R F I R S T D C B \r \t 0 \t
0072400 ; p r e v \r \t 0 \t ; b l a n k \r
0072420 \t 0 \t ; n u m c h a r s \r \t 0 \t
0072440 ; p a g e n u m b e r \r \t 0 \t
0072460 ; v e r s i o n \r \t 0 \t ; S N 1
0072500 \r \t 0 \t ; S N 2 \r \r D 376 001 \0 030 243
0072520 H D R : \t . B L K 2 \t ; r e a
0072540 d h e a d e r h e r e \r \r C
0072560 N 1 6 : \t - 1 6 . \r C 6 : \t 6 \r
0072600 \r P A G E 1 : \t 4 0 0 \r D I S P
0072620 = \t 4 2 0 - 4 0 0 \t \t ; d i s
0072640 p l a y \r D I W = \t 4 2 1 - 4 0
0072660 0 \t \t ; d i s p l a y v e r
0072700 t i c a l i n t e r r u p t \r
0072720 I W W = \t 4 5 2 - 4 0 0 \t \t ;
0072740 w a k e u p s w a i t i n g \r
0072760 I A C T W = \t 4 5 3 - 4 0 0 \t \t
0073000 ; a c t i v e i n t e r r u
0073020 p t s \r \r P D B L K : \t 5 2 1 \t
0073040 \t ; d i s k \r E R M S K : \t 3
0073060 6 7 \t \t ; e r r o r m a s k
0073100 f o r d i s k t r a n s f
0073120 376 001 \0 304 333 e r \r P G P T R : \t 0
0073140 \t \t ; p o i n t e r t o n
0073160 e x t P a g e T a b l e e
0073200 n t r y \r \r ; C U R E N D : \t 4
0073220 5 0 \t \t ; e n d o f c u r
0073240 s o r f o r B L T \r ; P C U
0073260 R S O R M 1 : 4 3 0 \r ; P O C
0073300 U R S O R M 1 : O L D C U R S
0073320 O R - C U R F I X - 1 \r ; P M C
0073340 U R S O R M 1 : M E S A C U R
0073360 S O R - C U R F I X - 1 \r ; \r ;
0073400 O L D C U R S O R : . B L K
0073420 2 0 \t \t ; s a v e t h e e
0073440 n t r y c u r s o r \r ; M E S
0073460 A C U R S O R : \r ; \t 1 0 4 7 6
0073500 0 \r ; \t 1 5 4 4 0 0 \r ; \t 1 2 4
0073520 4 0 0 \r ; 376 001 \0 236 o \t 1 0 4 7 0
0073540 0 \r ; \t 1 0 4 4 0 0 \r ; \t 1 0 4
0073560 4 0 0 \r ; \t 1 0 4 7 6 0 \r ; \t 0
0073600 0 0 0 0 0 \r ; \t 0 0 3 4 1 6 \r ;
0073620 \t 0 0 4 2 2 1 \r ; \t 0 0 4 0 2 1
0073640 \r ; \t 0 0 3 4 3 7 \r ; \t 0 0 0 2
0073660 2 1 \r ; \t 0 0 4 2 2 1 \r ; \t 0 0
0073700 3 4 2 1 \r ; \t 0 0 0 0 0 0 \r \r ;
0073720 M A I N L O O P O F T H
0073740 E L O A D E R . \r ; E N T
0073760 E R A T A D V A N C E W I
0074000 T H A C 2 = P O I N T E R
0074020 T O D C B 1 , A C 3 = P O
0074040 I N T E R T O D C B 2 . \r ;
0074060 T H E D I S K H A S B E
0074100 E N S T A R T E D o n D C
0074120 B 1 . \r \r ; A T 376 001 \0 352 e S
0074140 E T U P A C 0 H A S A D D
0074160 R E S S F O R N E X T T R
0074200 A N S F E R , A C 2 = P O I N
0074220 T E R T O \r ; N E X T D C
0074240 B , A C 3 = P O I N T E R T
0074260 O A C T I V E D C B \r R E T
0074300 R Y C O U N T : 6 \r \r S E T U
0074320 P : \t S T A 0 d a t a 2 \t
0074340 \t ; A D D R E S S O F N E
0074360 X T T R A N S F E R \r \t S U B
0074400 0 0 \r \t S T A 0 s t a t
0074420 u s 2 \t \t ; C L E A R S T
0074440 A T U S O F N E X T \r \t S T
0074460 A 0 p r e v , 3 \t \t ; l a
0074500 b e l o f n e x t t r a n
0074520 s f e r c l e a r e d f o 376
0074540 001 \0 266 \b r c h e c k \r \t S T A
0074560 0 b l a n k , 3 \r \t S T A
0074600 0 n u m c h a r s , 3 \r \t I S
0074620 Z p a g e n u m b e r , 3 \t ;
0074640 b u m p p a g e n u m b e
0074660 r \r \t J M P . + 1 \r \t I S Z
0074700 p a g e n u m b e r , 3 \t ; b
0074720 y 2 \r \t L D A 0 C 6 \r \t S
0074740 T A 0 R E T R Y C O U N T \r
0074760 R E T R Y : \t L D A 1 E R M
0075000 S K \r \r K W A I T : \t L D A 0
0075020 s t a t u s 3 \t \t ; W A I
0075040 T F O R D I S K T O S T
0075060 O P \r \t M O V 0 0 S N R \r
0075100 \t J M P K W A I T \r \t A N
0075120 D 0 1 S Z R \t ; C H E C
0075140 K F O 376 001 \0 7 > R E R R O R
0075160 \r \t J M P D S K E R R \t ;
0075200 G O T O N E \r ; \t I S Z
0075220 @ C U R E N D \t ; C O U N T
0075240 I N C U R S O R \r \t \t \t ;
0075260 n e v e r s k i p \r \t s t a
0075300 1 d i s k a d d r e s s , 3 \r
0075320 \t l d a 0 N e w D a \r \t s t
0075340 a 1 N e w D a \r \t s n z 0
0075360 0 \t \t ; i f c h a n g i n
0075400 g f i l e s \r \t j m p A
0075420 D V A N C E \r \t s t a 0 d i
0075440 s k a d d r e s s , 2 \r \t s t a
0075460 2 @ P D B L K \r \t s t a 2
0075500 n e x t , 3 \r \t l d a 0 p
0075520 a g e n u m b e r , 3 \r \t n e g
0075540 0 0 \r \t c o m 376 001 \0 0 257 0
0075560 0 \t \t ; s u b t r a c t 1
0075600 \r \t s t a 0 p a g e n u m b
0075620 e r , 2 ; u p d a t e i t
0075640 e m s f o r n e x t c h e
0075660 c k \r \t l d a 1 s n 1 , 3 \r
0075700 \t s t a 1 s n 1 , 2 \r \t l d
0075720 a 1 s n 2 , 3 \r \t s t a 1
0075740 s n 2 , 2 \r \r A D V A N C E :
0075760 M O V 2 0 \t \t ; E X C H
0076000 A N G E C U R R E N T A N D
0076020 I N A C T I V E D C B P O
0076040 I N T E R S \r \t M O V 3 2 \r
0076060 \t M O V 0 3 \t \t ; A C 3 =
0076100 P O I N T E R T O A C T I V
0076120 E D C B \r \t L D A 0 0 , 2
0076140 \t \t ; C H E C K L I N K 376 001
0076160 \0 J \b O F D C B J U S T
0076200 F I N I S H E D \r \t M O V 0
0076220 0 S N R \t ; T E S T F O R
0076240 L A S T P A G E \r \t J M
0076260 P S T P R \r \t L D A 0 d i
0076300 s k a d d r e s s , 3 ; C U
0076320 R R E N T D I S K A D D R E
0076340 S S \r \t S T A 0 @ P G P T R
0076360 \t ; R E P L A C E O L D C
0076400 O R E A D D R E S S \r \t I S Z
0076420 P G P T R \r \t L D A 0 @ P
0076440 G P T R \r \t M O V Z R 0 0
0076460 S Z C \t ; T E S T F O R F
0076500 I L E C H A N G E \r \t J M
0076520 P C h a n g e F i l e \r \t M O
0076540 V Z L 0 0 S Z R \t ; t e
0076560 s t 376 001 \0 350 \a f o r e n d
0076600 o f l i s t \r \t J M P S
0076620 E T U P \t ; M O R E T O D
0076640 O \r \t S T A 0 0 3 \t \t ;
0076660 C L E A R D C B C H A I N
0076700 L I N K \r \t J M P S E T U P \r
0076720 \r C 2 : \t 2 \r N e w D a : \t 0 \r
0076740 \r C h a n g e F i l e : \t ; A
0076760 C 0 h a s n e w f i l e
0077000 p a g e n u m b e r \r \t l d a
0077020 1 C 2 \r \t s u b 1 0 \r \t
0077040 s t a 0 p a g e n u m b e r
0077060 , 3 \t ; n e w p a g e - 2
0077100 n u m b e r t o l a b e l \r
0077120 \t i s z P G P T R \r \t s u b
0077140 0 0 \r \t s t a 0 n e x t ,
0077160 3 \t \t ; b r e 376 001 \0 207 l a k
0077200 t h e c h a i n \r \t s t a 0
0077220 s n 1 , 3 \r \t s t a 0 s n
0077240 2 , 3 \t \t ; z e r o t h e
0077260 s e r i a l n u m b e r \r \t l
0077300 d a 0 @ P G P T R \r \t s t a
0077320 0 N e w D a \t \t ; n e w
0077340 d i s k a d d r e s s \r \t i s
0077360 z P G P T R \r \t l d a 0 @
0077400 P G P T R \t \t ; f i r s t m
0077420 e m o r y a d d r e s s f o
0077440 r n e w f i l e \r \t j m p
0077460 S E T U P \r \r S T P R : \r ; \t L
0077500 D A 0 P O C U R S O R M 1 \r
0077520 ; \t L D A 1 C U R E N D \r ;
0077540 \t L D A 3 C N 1 6 \r ; \t B L
0077560 T \t \t ; R E S T O R E 376 001 \0
0077600 237 342 C U R S O R \r B R E A K : \t
0077620 J M P . + 1 \t \t ; s e t t
0077640 o s w a t b r e a k ( # 7
0077660 7 4 0 0 ) t o b r e a k b
0077700 e f o r e s t a r t i n g M
0077720 e s a \r \t J M P E m u l a t e
0077740 \r \r S W A T T r a p : \t 5 6 7 \r
0077760 D S K E R R : \t D S Z R E T R
0100000 Y C O U N T \r \t J M P T r
0100020 y A g a i n \r \t J S R D S K E
0100040 R R 1 \r \t . T X T " D i s k
0100060 e r r o r r e a d i n g i m
0100100 a g e f i l e " \r D S K E R R
0100120 1 : \t M O V 3 1 \r \t L D A
0100140 3 @ S W A T T r a p \r \t J M P
0100160 1 6 , 3 \t ; d o e s a C
0100200 a l 376 \0 223 s ^ l S w a t \r \r T r
0100220 y A g a i n : \r \t S U B 0 0
0100240 \r \t S T A 0 1 , 3 \t ; c l e
0100260 a r a c t i v e s t a t u s
0100300 \r \t S T A 3 @ P D B L K \t ;
0100320 r e s t a r t d i s k \r \t J M
0100340 P R E T R Y \r \r \t J M P B O
0100360 O T + 2 0 0 \t \t ; E r r o r
0100400 i f c o d e t o o b i g \r
0100420 \r \r \r \t . E N D ; \r 377 \0 \0 M e s
0100440 a - N o v a D e f s . a s m \0 376
0100460 001 \0 030 ! ; M e s a - N o v a D
0100500 e f s . a s m ; e d i t e d
0100520 b y J o h n s s o n , J a n
0100540 u a r y 1 8 , 1 9 7 8 2
0100560 : 2 1 P M \r \r ; s t r u c t
0100600 u r e o f m o n i t o r l
0100620 o c k s \r l o c k q u e u e =
0100640 0 \t \t ; l o c k : { l o c
0100660 k e d , u n l o c k e d } , \r
0100700 \t \t \t ; q u e u e : P O I N
0100720 T E R [ 0 . . 7 7 7 7 7 B ]
0100740 T O P S B \r \r ; s t r u c t
0100760 u r e o f P S B s \t ; P S
0101000 B : T Y P E = R E C O R D
0101020 [ \r l i n k = 0 \t \t ; l
0101040 i n k : P S B p t r , - -
0101060 m u s t 376 001 \0 206 371 b e 0 !
0101100 ! \r c l e a n U p L i n k =
0101120 1 \t \t ; c l e a n U p L i n k
0101140 : P S B p t r , \r t i m e o u
0101160 t = 2 \t \t ; t i m e o u t
0101200 : I N T E G E R \r b i t s a n
0101220 d p r i o r i t y = 3 \t ;
0101240 e n t e r f a i l e d , d e t
0101260 a c h e d : B O O L E A N , \r
0101300 \t \t \t ; f i l l : [ 0 . . 3
0101320 7 B ] , \r s t a t e = 6
0101340 0 0 \t \t ; s t a t e : { f r
0101360 a m e R e a d y , f r a m e T
0101400 a k e n , d e a d , a l i v
0101420 e } \r t i m e o u t A l l o
0101440 w e d = 1 0 0 \t ; t i m e
0101460 o u t A l l o w e 376 001 \0 032 @ d :
0101500 B O O L E A N , \r a b o r
0101520 t P e n d i n g = 4 0 \t ;
0101540 a b o r t P e n d i n g : B O
0101560 O L E A N , \r t i m e o u t
0101600 P e n d i n g = 2 0 \t ; t
0101620 i m e o u t P e n d i n g : B
0101640 O O L E A N , \r w a i t i n
0101660 g O n C V = 1 0 \t ; w a i
0101700 t i n g O n C V : B O O L E A
0101720 N , \r p r i o r i t y =
0101740 7 \t \t ; p r i o r i t y : [
0101760 0 . . 7 ] , \r f r a m e = 4
0102000 \t \t ; f r a m e : F r a m e
0102020 H a n d l e ] \r l P S B = 5
0102040 \r \r ; s t r u c t u r e o f
0102060 S t a t e V e c t o r \r s 376 001
0102100 \0 r J t k 0 = 0 \r s t k p
0102120 = 1 0 \r d e s t = 1 1 \r s
0102140 o u r c e = 1 2 \r l S t a t
0102160 e V e c t o r = 1 1 . \r \r ;
0102200 s t r u c t u r e o f F r
0102220 a m e \r p c = 1 \r \r ; f i
0102240 x e d a d d r e s s e s \r S D
0102260 C = 2 0 \r c u r r e n t P S
0102300 B = 2 1 \r r e a d y L i s t
0102320 = 2 2 \r c u r r e n t S t a
0102340 t e = 2 3 \r b o o t P a g e
0102360 T a b l e = 2 4 \r E m u l a
0102400 t e = 2 5 \r o S T O P
0102420 = 1 \r o M E = 4 \r
0102440 o M R E = 5 \r o M X W
0102460 = 6 \r o M X D = 7 \r
0102500 o N 376 \0 237 316 > O T I F Y =
0102520 1 0 \r o B C A S T = 1 1
0102540 \r o R E Q U E U E = 1 2
0102560 \r C V A = 4 0 \t \t ; A r r
0102600 a y o f p o i n t e r s t
0102620 o N a k e d C V s \r A C T I
0102640 V E = 4 5 3 \t \t ; A c t i
0102660 v e i n t e r r u p t m a s
0102700 k \r I N T P C = 5 0 0 \t \t ;
0102720 S a v e d P C o n i n t
0102740 e r r u p t \r 377 \0 \0 M e s a - N
0102760 o v a 1 . a s m \0 376 001 \0 304 306 ; \t
0103000 F I L E M E S A - N O V A 1 .
0103020 A S M \r ; \t R . J O H N S S O
0103040 N \r ; \t L A S T M O D I F I E
0103060 D A u g u s t 1 0 , 1 9 7
0103100 8 9 : 4 7 A M \r \t . T I T
0103120 L M e s a N o v a 1 \r \t . T X
0103140 T M B \r ; \r \t . E N T E M L
0103160 O O P \r \t . E N T M e s a N o
0103200 v a 1 \r \t . E N T M e s a N o
0103220 v a S i z e 1 \r \t . E N T A C
0103240 0 P t r \r \t . E N T A C 1 P t
0103260 r \r \t . E N T A b s o l u t e
0103300 T X V \r \t . E N T C l e a n U
0103320 p Q u e u e U s e r \r \t . E N T
0103340 R e q u e u e S u b U s e r \r
0103360 \t . E N T W a k e H e a d 376 001
0103400 \0 ! 352 I m p l e m e n t e r \r \t
0103420 . E N T S T O P U s e r \r \t .
0103440 E N T A d v a n c e T i m e r
0103460 P t r \r \t . E N T p r o c e s
0103500 s T r a p P t r \r \t . E N T f
0103520 i r s t P r o c e s s P t r \r \t
0103540 . E N T l a s t P r o c e s s
0103560 P t r \r \t . E N T f i r s t S
0103600 t a t e V e c t o r P t r \r ; \r
0103620 \t . S R E L \r E M L O O P : \t E
0103640 M L P - T X V \t ; W H E R E T
0103660 O S T A R T R U N N I N G \r
0103700 M e s a N o v a 1 : T X V \r M
0103720 e s a N o v a S i z e 1 : E N
0103740 D - T X V \r A C 0 P t r : \t c u
0103760 r r e n t S t a t e \r A C 1 P t
0104000 r : \t 376 001 \0 ~ z W A S A C 1 \r A
0104020 b s o l u t e T X V : X \t ;
0104040 T o c h e c k c o m p a t i
0104060 b i l i t y \r C l e a n U p Q u
0104100 e u e U s e r : C l e a n U p
0104120 Q u e u e \r R e q u e u e S u b
0104140 U s e r : R e q u e u e P t r
0104160 \r W a k e H e a d I m p l e m e
0104200 n t e r : W a k e H e a d - T
0104220 X V + X \r S T O P U s e r : p
0104240 S T O P \r A d v a n c e T i m e
0104260 r P t r : A d v a n c e T i m
0104300 e r - T X V + X \r p r o c e s s
0104320 T r a p P t r : p r o c e s s
0104340 T r a p \r f i r s t P r o c e s
0104360 s P t r : f i r s t P r o c e
0104400 s s \r l a s t P 376 001 \0 350 351 r o c
0104420 e s s P t r : l a s t P r o c
0104440 e s s \r f i r s t S t a t e V e
0104460 c t o r P t r : f i r s t S t
0104500 a t e V e c t o r \r ; \r \t . N R
0104520 E L \r \t . G E T " M e s a - N
0104540 o v a D e f s . a s m " \r \r X
0104560 = 2 5 \t \t ; T h e a b s o
0104600 l u t e l o c a t i o n o f
0104620 T X V a t r u n t i m e
0104640 \r \r \r T X V : \t E M L P - T X V
0104660 + X \t ; M i c r o c o d e e
0104700 x p e c t s t h i s t o b
0104720 e i n l o c a t i o n 2 5
0104740 \r \t M S T O P - T X V + X \r \t 7
0104760 7 4 0 0 \t \t ; B L K \r \t 7 7 4
0105000 0 0 \t \t ; C O N V E R T 376 001 \0
0105020 375 ] \r \t M E - T X V + X \r \t M R
0105040 E - T X V + X \r \t M X W - T X V
0105060 + X \r \t M X D - T X V + X \r \t N
0105100 O T I F Y - T X V + X \r \t B C A
0105120 S T - T X V + X \r \t R E Q U E U
0105140 E - T X V + X \r \r C V A r r a y
0105160 : \t ; T h i s w i l l b e
0105200 l o c a t i o n 4 0 \r \t 0 \r
0105220 \t 0 \r \t 0 \r \t 0 \r \t 0 \r \t 0 \r \t
0105240 0 \r \t 0 \r \t 0 \r \t 0 \r \t 0 \r \t 0
0105260 \r \t 0 \r \t 0 \r \t 0 \r \t 0 \r \r M S
0105300 T O P : \t J M P @ p S T O P \r
0105320 p S T O P : \t 0 \r \r \r ; \r ; L
0105340 o c a t i o n s f o r s a v
0105360 i n g a c c u m u l a t o r s
0105400 \r W A S A C 1 : \t 0 \r t r a p m
0105420 a s 376 001 \0 207 p k : a b o r t P
0105440 e n d i n g ; + t i m e o u t P
0105460 e n d i n g ; m a k e t i
0105500 m e o u t n o t t r a p \r p
0105520 r o c e s s T r a p : 0 \r \r ;
0105540 M o n i t o r R e E n t r y
0105560 ( @ M o n i t o r , c v p t r )
0105600 \r M R E : \r \t s t a \t 1 c v p
0105620 t r \r \t j s r \t E n t e r \r \t m
0105640 o v \t 0 0 s n c \t \t ; i f
0105660 f a i l e d \r \t j m p \t E
0105700 M L P 1 \t \t ; t h e n r e t
0105720 u r n \r \t l d a \t 0 c v p t r
0105740 \r \t j s r \t @ C l e a n U p Q u
0105760 e u e \r \t l d a \t 2 c u r r e
0106000 n t P S B \r \t s u b \t 0 0 \r \t
0106020 s t a \t 0 c 376 001 \0 + L l e a n
0106040 U p L i n k , 2 \t ; c u r r e
0106060 n t P S B . c l e a n U p L i n
0106100 k _ C l e a n \r \t l d a \t 0
0106120 t r a p m a s k \r \t l d a \t 1
0106140 b i t s a n d p r i o r i t y
0106160 , 2 \r \t a n d # \t 0 1 s n r
0106200 \t \t ; i f n o t i m e o u
0106220 t o r a b o r t \r \t j m
0106240 p \t E n t e r T r u e \t ;
0106260 t h e n r e t u r n \r \t l d a
0106300 \t 2 c u r r e n t S t a t e \t
0106320 ; c a u s e a t r a p i
0106340 n t h e c u r r e n t s t
0106360 a t e \r \t l d a \t 1 d e s t ,
0106400 2 \r \t s t a \t 1 s o u r c e ,
0106420 2 \t ; m a k e t h e 376 001 \0 Y
0106440 : d e s t b e t h e s o
0106460 u r c e \r \t l d a \t 1 @ p r o
0106500 c e s s T r a p \r \t s t a \t 1
0106520 d e s t , 2 \t ; a n d c a u
0106540 s e a c a l l t o S D [
0106560 s P r o c e s s T r a p ] \r \t j
0106600 m p \t E M L P \r \r E n t e r : \t
0106620 \t ; ( @ M o n i t o r ) r e t
0106640 u r n s c a r r y = 1 i f f
0106660 s u c c e s s \r \t m o v \t 0 ,
0106700 2 \t \t ; c o p y p o i n t e
0106720 r \r \t l d a \t 0 l o c k q u e
0106740 u e , 2 \t ; g e t l o c k
0106760 a n d q u e u e w o r d \r \t
0107000 m o v z l \t 0 0 \t \t ; l o c
0107020 k b i t t o c a r r y \r \t
0107040 m 376 001 \0 5 026 o v l \t 1 1 \t \t ;
0107060 s t o r e c a r r y i n
0107100 l o w - o r d e r A C 1 \r \t m
0107120 o v z r \t 0 0 \t \t ; s e t
0107140 l o c k b i t t o 0 =
0107160 l o c k e d \r \t s t a \t 0 l o
0107200 c k q u e u e , 2 \t ; s t o r
0107220 e v a l u e b a c k \r \t m o
0107240 v z r \t 1 1 s z c \t \t ; t
0107260 e s t a n d r e m o v e l
0107300 o c k b i t \r \t j m p 0
0107320 , 3 \t \t ; d o n e , c a r r
0107340 y = 1 \r E n t e r F a i l : \t \r
0107360 \t s t a \t 3 E X W r e t u r n
0107400 \r \t m o v \t 2 1 \t \t ; a s s
0107420 u m e s q u e u e = 0 \r \t l d
0107440 a \t 2 c u 376 001 \0 = 353 r r e n t
0107460 P S B \r \t l d a \t 0 b i t s a
0107500 n d p r i o r i t y , 2 \r \t m o
0107520 v l \t 0 0 \r \t m o v o r \t 0
0107540 0 \r \t s t a \t 0 b i t s a n d
0107560 p r i o r i t y , 2 ; s e t
0107600 e n t e r f a i l e d _ T
0107620 R U E \r \t l d a \t 0 p R e a d
0107640 y L i s t \r \t j s r \t R e q u e
0107660 u e S u b ; ( p R e a d y L i s
0107700 t , @ M o n i t o r . q u e u e
0107720 , c u r r e n t P S B ) \r \t m o
0107740 v z \t 0 0 \t \t ; s e t c a
0107760 r r y = 0 \r \t j m p \t @ E X W r
0110000 e t u r n \r \r R E Q U E U E : \t
0110020 ; ( @ f r o m , @ t o , p ) \r \t
0110040 j s r \t R e q u e u e 376 001 \0 266 267
0110060 S u b \r \t j m p \t E M L P 1 \r \r
0110100 T a b o r t P e n d i n g : a
0110120 b o r t P e n d i n g \r R e S c
0110140 h e d u l e P e n d i n g : 0
0110160 \r c l S t a t e V e c t o r :
0110200 l S t a t e V e c t o r \r \r ;
0110220 M o n i t o r E x i t a n d
0110240 D e p a r t ( @ M o n i t o r
0110260 ) \r M X D : \r \t j s r \t E x i t
0110300 \r \t j m p \t E M L P 1 \r \r \r N o
0110320 n e R e a d y : \r \t E I R \r E M
0110340 L P : \t D I R \r E M L P 1 : \t L
0110360 D A 1 W A S A C 1 \r \t L D A
0110400 0 c u r r e n t S t a t e \r
0110420 \t L D A 2 R e S c h e d u l
0110440 e P e n d i n g \r \t S N Z 2
0110460 376 001 \0 z ; 2 \r \t 6 1 0 1 0 \t
0110500 ; J M P R M \r R e S c h e d u
0110520 l e : \r \t l d a \t 2 S D C \r \t
0110540 s z \t 2 2 \t \t ; s c h e d u
0110560 l i n g d i s a b l e d ? \r \t
0110600 6 1 0 1 0 \t ; J M P R M \t
0110620 ; \t j m p \t E M L P \r \t l d a \t
0110640 3 r e a d y L i s t \r \t s n z
0110660 \t 3 3 \r \t j m p \t N o n e
0110700 R e a d y \r \t s t a \t 2 R e S
0110720 c h e d u l e P e n d i n g \r \t
0110740 l d a \t 3 l i n k , 3 \t ; p
0110760 R e a d y L i s t ^ ^ . l i n k
0111000 \r \t l d a \t 2 c u r r e n t P
0111020 S B \r \t ; s n e \t 2 3 \r \t
0111040 ; j m p \t E M L P \r \t s t a \t 3
0111060 c u r r 376 001 \0 356 373 e n t P S B
0111100 \t ; s t o r e n e w P S B
0111120 \r \t l d a \t 3 c u r r e n t S
0111140 t a t e \r \t l d a \t 0 d e s t
0111160 , 3 \r \t s t a \t 0 f r a m e ,
0111200 2 \r \t l d a \t 3 c u r r e n t
0111220 P S B \r \t l d a \t 1 b i t s a
0111240 n d p r i o r i t y , 3 \r \t m o
0111260 v z l \t 1 0 \t \t ; c a r r y
0111300 _ e n t e r f a i l e d \r \t
0111320 c y c l e \t 1 7 \r \t s t a \t 0
0111340 b i t s a n d p r i o r i t y ,
0111360 3 ; e n t e r f a i l e d
0111400 _ F A L S E \r \t l d a \t 0 m
0111420 P r i o r i t y \r \t a n d \t 0
0111440 1 \t \t ; i s o l a t e p r i
0111460 o r i t y \r \t l d a 376 001 \0 310 212 \t
0111500 0 @ f i r s t S t a t e V e c
0111520 t o r \r \t l d a \t 2 c l S t a
0111540 t e V e c t o r \r \t m u l \t \t \t
0111560 ; A C 1 _ p r i o r i t y
0111600 * l S t a t e V e c t o r + f i
0111620 r s t S t a t e V e c t o r \r \t
0111640 s t a \t 1 c u r r e n t S t a
0111660 t e \r \t m o v \t 1 2 \r \t l d a
0111700 \t 1 f r a m e , 3 \r \t s t a \t
0111720 1 d e s t , 2 \r \t m o v \t 0
0111740 0 s n c \r \t j m p \t E M L
0111760 P 1 \r \t j m p \t E n t e r F a l
0112000 s e \r \r m P r i o r i t y : p
0112020 r i o r i t y \r f i r s t S t a
0112040 t e V e c t o r : 0 \r \r ; M
0112060 o n i t o r E x i t a n d 376
0112100 001 \0 361 321 W a i t ( @ M o n i t
0112120 o r , c v p t r , t i m e o u t
0112140 ) \r M X W : \r \t s t a \t 1 c v
0112160 p t r \r \t s t a \t 2 s a v e t
0112200 i m e o u t \r \t j s r \t E x i t
0112220 \r \t l d a \t 0 c v p t r \r \t j
0112240 s r \t @ C l e a n U p Q u e u e
0112260 \r \t l d a \t 2 c u r r e n t P
0112300 S B \r \t l d a \t 1 T a b o r t
0112320 P e n d i n g \r \t l d a \t 0 b
0112340 i t s a n d p r i o r i t y , 2
0112360 \r \t a n d # \t 1 0 s z r \t \t
0112400 ; i f n o t a b o r t P e
0112420 n d i n g \r \t j m p \t E M L
0112440 P 1 \r \t l d a \t 1 @ c v p t r
0112460 \r \t m o v z l \t 1 1 s n c \t
0112500 \t ; t 376 001 \0 023 374 e s t w w
0112520 b i t \r \t j m p \t M X W q \r
0112540 \t s t a \t 1 @ c v p t r \t ;
0112560 w w s e t , c l e a r i t
0112600 a n d d o n ' t s t o p \r
0112620 \t j m p \t E M L P 1 \r \r M X W q
0112640 : \t l d a \t 1 T w a i t i n g
0112660 O n C V \r \t a d d \t 1 0 \r \t l
0112700 d a \t 1 F t i m e o u t A l l
0112720 o w e d \r \t a n d \t 1 0 \t \t ;
0112740 t i m e o u t A l l o w e d
0112760 _ F A L S E \r \t l d a \t 3 s
0113000 a v e t i m e o u t \r \t s z \t 3
0113020 3 \r \t a d c \t 1 0 \t \t ;
0113040 t i m e o u t A l l o w e d
0113060 _ T R U E \r \t s t a \t 0 b i
0113100 t s a n d p r i o 376 001 \0 263 356 r i
0113120 t y , 2 \r \t l d a \t 0 t i m e
0113140 r \r \t a d d \t 0 3 \r \t s t a \t
0113160 3 t i m e o u t , 2 \t ; c u
0113200 r r e n t P S B . t i m e o u t
0113220 _ t i m e r + t i m e o u t
0113240 \r \t l d a \t 0 p R e a d y L i
0113260 s t \r \t l d a \t 1 c v p t r \r
0113300 \t j s r \t R e q u e u e S u b ;
0113320 ( p R e a d y L i s t , c v p t
0113340 r , c u r r e n t P S B ) \r \t j
0113360 m p \t E M L P 1 \r \r C l e a n U
0113400 p Q u e u e : \t 0 \t ; ( q ) r
0113420 e t u r n s ( q ) \r \r R e q u
0113440 e u e S u b : \t s t a \t 2 R e
0113460 S c h e d u l e P e n d i n g \t
0113500 \r \t j m p \t @ R e q u e u e 376 001
0113520 \0 341 > P t r \r R e q u e u e P t
0113540 r : \t 0 \t ; ( q 1 , q 2 , p )
0113560 \r \r E X W r e t u r n : 0 \r \r
0113600 c v p t r : \t 0 \r s a v e t i m
0113620 e o u t : 0 \r T w a i t i n g
0113640 O n C V : w a i t i n g O n C
0113660 V \r F t i m e o u t A l l o w e
0113700 d : 0 - t i m e o u t A l l o
0113720 w e d - 1 \r p R e a d y L i s t
0113740 : r e a d y L i s t \r \r ; M
0113760 o n i t o r E n t r y ( @ M o
0114000 n i t o r ) \r M E : \r \t j s r \t
0114020 E n t e r \r \t m o v \t 0 0 s
0114040 n c \t \t ; i f f a i l e d \r
0114060 \t j m p \t E M L P 1 \t ;
0114100 t h e n r e s c h e d u l e
0114120 \r E n 376 001 \0 272 7 t e r T r u e :
0114140 \r \t s u b z l \t 0 0 s k p \r
0114160 E n t e r F a l s e : \r \t s u b
0114200 \t 0 0 \r \t l d a \t 2 c u r r
0114220 e n t S t a t e \r \t s t a \t 0
0114240 s t k 0 , 2 \t ; s t o r e r
0114260 e t u r n v a l u e \r \t m k o
0114300 n e \t 0 0 \r \t s t a \t 0 s t
0114320 k p , 2 \t ; s t k p _ 1 \r
0114340 \t j m p \t E M L P \r \r N O T I F
0114360 Y : \t \t ; ( c v p t r ) \r \t j s
0114400 r \t @ C l e a n U p Q u e u e \r
0114420 \t j s r \t W a k e H e a d \r \t j
0114440 m p \t E M L P 1 \r \r B C A S T :
0114460 \t \t ; ( c v p t r ) \r \t j s r \t
0114500 @ C l e a n U p Q u e u e \r \t s
0114520 t a \t 0 c v p 376 001 \0 # J t r \r
0114540 B C A S T l o o p : \r \t l d a \t
0114560 0 c v p t r \r \t j s r \t W a k
0114600 e H e a d \r \t s z \t 2 2 \t \t ;
0114620 = p r o c e s s n o t i f
0114640 i e d o r 0 i f n o n e
0114660 \r \t j m p \t B C A S T l o o
0114700 p \r \t j m p \t E M L P 1 \r \r E x
0114720 i t : \t \t ; ( @ M o n i t o r )
0114740 r e t u r n s c a r r y = 1
0114760 i f f r e q u e u e w a s
0115000 c a l l e d \r \t s t a \t 0 s
0115020 a v e q \r \t s t a \t 3 E X W r
0115040 e t u r n \r \t l d a \t 1 @ s a
0115060 v e q \r \t m o v \t 1 2 s n r
0115100 \t \t ; i f m q ^ = N I L
0115120 \r \t j m p \t e x i t s 376 001 \0
0115140 ) 377 t o r e \t ; l o w - o r d
0115160 e r z e r o w i l l g o
0115200 t o c a r r y \r \r \t l d a \t 1
0115220 p R e a d y L i s t \r \t ; 0
0115240 c o r r e c t f r o m a
0115260 b o v e \r \t l d a \t 2 l i n k
0115300 , 2 \t ; p _ m q ^ ^ . l i
0115320 n k \r \t j s r \t R e q u e u e S
0115340 u b ; ( @ M o n i t o r . q u e
0115360 u e , p R e a d y L i s t , M o
0115400 n i t o r . q u e u e . l i n k
0115420 ) \r \t l d a \t 1 @ s a v e q \r
0115440 \t m o v o l \t 1 1 \t \t ; l o
0115460 w - o r d e r o n e w i l l
0115500 g o t o c a r r y \r e x i
0115520 t s t o r e : \r \t m o v o r \t 1
0115540 1 376 001 \0 346 233 \t \t ; s e t l
0115560 o c k t o 1 = u n l o c
0115600 k e d \r \t \t \t \t ; c a r r y
0115620 _ 1 i f f r e q u e u e
0115640 h a p p e n e d \r \t s t a \t 1
0115660 @ s a v e q \r \t j m p \t @ E X W
0115700 r e t u r n \r \r s a v e q : \t 0
0115720 \r \r W a k e H e a d : \t ; ( c v
0115740 p t r ) \r \t s t a \t 3 E X W r
0115760 e t u r n \r \t m o v \t 0 3 \r \t
0116000 l d a \t 2 0 , 3 \t \t ; c v p
0116020 t r ^ \r \t m o v z l # \t 2 2
0116040 s n r \t \t ; t e s t f o r
0116060 p r o c e s s = 0 , i g n
0116100 o r e w w \r \t j m p \t @ E
0116120 X W r e t u r n \r \t l d a \t 2
0116140 l i n k , 2 \t 376 001 \0 232 351 ; c v
0116160 p t r ^ ^ . l i n k \r \t l d a \t
0116200 1 b i t s a n d p r i o r i t
0116220 y , 2 \r \t l d a \t 3 F w a i t
0116240 i n g O n C V \r \t a n d \t 3 1
0116260 \r \t s t a \t 1 b i t s a n d p
0116300 r i o r i t y , 2 \r \t l d a \t 1
0116320 p R e a d y L i s t \r \t j s r
0116340 \t R e q u e u e S u b ; ( c v p
0116360 t r , p R e a d y L i s t , c v
0116400 p t r ^ ) \r \t j m p \t @ E X W r
0116420 e t u r n \r \r F w a i t i n g O
0116440 n C V : 0 - w a i t i n g O n
0116460 C V - 1 \r \r t i m e r : \t 0 \r t
0116500 i m e f l a g : - 3 \r t i m e
0116520 c o n s t : - 3 \r \r A d v a n
0116540 c e T i m e r : \r \t i s 376 001 \0 271
0116560 ' z \t t i m e f l a g \r \t b
0116600 r i \r \t l d a \t 0 t i m e c o
0116620 n s t \r \t s t a \t 0 t i m e f
0116640 l a g \r \t i s z \t t i m e r \r \t
0116660 n o p \r \t l d a \t 2 @ f i
0116700 r s t P r o c e s s \r l o o p :
0116720 \t l d a \t 0 t i m e r m a s k
0116740 \r \t l d a \t 1 b i t s a n d p
0116760 r i o r i t y , 2 \r \t a n d \t 0
0117000 1 \r \t s e q \t 0 1 \r \t j
0117020 m p \t n o t r e a d y \r \t l d a
0117040 \t 1 t i m e o u t , 2 \r \t l d
0117060 a \t 0 t i m e r \r \t s e q \t 0
0117100 1 \r \t j m p \t n o t r e a
0117120 d y \r ; \t l d a \t 0 F t i m e
0117140 o u t P e n d i n g \r ; \t l d a
0117160 \t 376 001 \0 302 $ 1 b i t s a n d p
0117200 r i o r i t y , 2 \r ; \t a n d \t
0117220 0 1 \r ; \t a d c \t 0 1 \t \t ;
0117240 p . t i m e o u t P e n d i n
0117260 g _ T R U E \r \t l d a \t 0
0117300 F w a i t i n g O n C V \r \t l d
0117320 a \t 1 b i t s a n d p r i o r
0117340 i t y , 2 \r \t a n d \t 0 1 \t \t
0117360 ; p . w a i t i n g O n C V
0117400 _ F A L S E \r \t s t a \t 1 b
0117420 i t s a n d p r i o r i t y , 2
0117440 \r \t s u b \t 0 0 \r \t l d a \t 1
0117460 p R e a d y L i s t \r \t j s r
0117500 \t R e q u e u e S u b ; ( N I L
0117520 , p R e a d y L i s t , p ) -
0117540 - r e t u r n s p i n A
0117560 C 2 \r n o t 376 \0 376 303 032 r e a d y
0117600 : \r \t l d a \t 1 @ l a s t P r
0117620 o c e s s \r \t s n e \t 1 2 \r \t
0117640 b r i \r \t l d a \t 1 c l P
0117660 S B \r \t a d d \t 1 2 \r \t j m p
0117700 l o o p \r \r t i m e r m a s k
0117720 : s t a t e + t i m e o u t A
0117740 l l o w e d + w a i t i n g O n
0117760 C V \r F t i m e o u t P e n d i
0120000 n g : 0 - t i m e o u t P e n
0120020 d i n g - 1 \r f i r s t P r o c
0120040 e s s : 0 \r l a s t P r o c e
0120060 s s : 0 \r c l P S B : l P S
0120100 B \r \r E N D : \t j m p \t T X V +
0120120 2 0 0 \t \t ; g e n e r a t e
0120140 e r r o r i f t o o b i g
0120160 \r \r ; \r ; \r \t . E 376 \0 003 N G N D
0120200 \r 377 \0 \0 M e s a - N o v a 2 . a
0120220 s m \0 376 001 \0 003 177 ; \t F I L E M
0120240 E S A - N O V A 2 . A S M \r ; \t
0120260 R . J O H N S S O N \r ; \t L A
0120300 S T M O D I F I E D b y L
0120320 e v i n : A u g u s t 2 5 ,
0120340 1 9 7 8 4 : 5 6 P M \r \t
0120360 . T I T L M e s a N o v a 2 \r
0120400 \t . T X T M B \r ; \r \t . E N T
0120420 P S c o d e \r \t . E N T M e
0120440 s a N o v a 2 \r \t . E N T M e
0120460 s a N o v a S i z e 2 \r \t . E N
0120500 T S T O P I m p l e m e n t e
0120520 r \r \t . E N T C l e a n U p Q
0120540 u e u e I m p l e m e n t e r \r
0120560 \t . E N T R e q u e u e S u b
0120600 I m p l e m e n t e r \r \t . E N
0120620 T W a k e H e 376 001 \0 f 027 a d U
0120640 s e r \r \t . E N T O S F P t r
0120660 \r \t . E N T O u t L d P t r \r
0120700 \t . E N T I n L d P t r \r \t .
0120720 E N T F i n i s h P t r \r \t .
0120740 E N T F i n P r o c P t r \r ;
0120760 \r \t . S R E L \r P S c o d e : \t
0121000 P C O R R \r M e s a N o v a 2 :
0121020 S T A R T \r M e s a N o v a S
0121040 i z e 2 : E N D - S T A R T \r
0121060 S T O P I m p l e m e n t e r :
0121100 S T O P - S T A R T + X \r C l
0121120 e a n U p Q u e u e I m p l e m
0121140 e n t e r : C l e a n U p Q u
0121160 e u e - S T A R T + X \r R e q u
0121200 e u e S u b I m p l e m e n t e
0121220 r : R e q u e u e S u b 376 001 \0
0121240 \0 ; - S T A R T + X \r W a k e H
0121260 e a d U s e r : W a k e H e a
0121300 d \r O S F P t r : \t R T R N \r O
0121320 u t L d P t r : \t O U T L D P \r
0121340 I n L d P t r : \t I N L D P \r F
0121360 i n i s h P t r : F I N I S H
0121400 - S T A R T + X \r F i n P r o c
0121420 P t r : F I N P R O C \r ; \r \t
0121440 . N R E L \r \t . G E T " M e s
0121460 a - N o v a D e f s . a s m " \r
0121500 \r X = 1 7 4 4 0 0 \t \t ; w
0121520 h e r e t h i s c o d e w
0121540 i l l b e l o a d e d \r \r S
0121560 T A R T : \r P C O R R : \t P S 0
0121600 - S T A R T + X - 1 + 2 \t ; A
0121620 b s o l u t e a d d r e s s
0121640 o f 376 001 \0 [ 360 P S 0 - 1 + 2 \r
0121660 \r ; P S 0 t h r u P S 1 6
0121700 m u s t b e c o n s e c u
0121720 t i v e l o c a t i o n s \r \r
0121740 P S 0 : \t J S R P S W I T C H
0121760 \r P S 1 : \t J S R P S W I T C
0122000 H \r P S 2 : \t J S R P S W I T
0122020 C H \r P S 3 : \t J S R P S W I
0122040 T C H \r P S 4 : \t J S R P S W
0122060 I T C H \r P S 5 : \t J S R P S
0122100 W I T C H \r P S 6 : \t J S R P
0122120 S W I T C H \r P S 7 : \t J S R
0122140 P S W I T C H \r P S 1 0 : \t J S
0122160 R P S W I T C H \r P S 1 1 : \t
0122200 J S R P S W I T C H \r P S 1 2
0122220 : \t J S R P S W I T C H \r P S
0122240 1 3 : \t J S R 376 001 \0 \f 363 P S W
0122260 I T C H \r P S 1 4 : \t J S R P
0122300 S W I T C H \r P S 1 5 : \t J S R
0122320 P S W I T C H \r P S 1 6 : \t J
0122340 S R P S W I T C H \r \r p I N T
0122360 P C : I N T P C \r \r P S W I T
0122400 C H : \r \t L D A 0 P C O R R
0122420 \r \t S U B 0 3 \t \t ; A C 3
0122440 n o w h a s i n t e r r u
0122460 p t c h a n n e l n u m b e
0122500 r \r \t L D A 0 C V A , 3 \t ;
0122520 A C 0 n o w h a s C V p
0122540 t r t o N O T I F Y \r \t L D
0122560 A 1 @ p I N T P C \t ; F i
0122600 n d o u t w h e r e w e
0122620 i n t e r r u p t e d f r o m
0122640 \r \t M O V L # 1 1 376 001 \0 +
0122660 212 S Z C \r \t B R I \t \t ; S
0122700 o m e t h i n g w r o n g ,
0122720 p r o b a b l y S W A T a b
0122740 o r t \r \r N a k e d N o t i f y
0122760 : \t ; ( c v p t r ) \r \t m o v \t
0123000 0 2 s n r \t \t ; t e s t
0123020 f o r n o c v \r \t b r i
0123040 \r \t l d a \t 1 0 , 2 \t \t ; c
0123060 v p t r ^ \r \t m o v z l # \t 1
0123100 1 s z r \t \t ; t e s t f o
0123120 r e m p t y , i g n o r e
0123140 p o s s i b l e w w \r \t j
0123160 m p \t D o N o t i f y \r \t s u b
0123200 z r \t 0 0 \r \t s t a \t 0 0 ,
0123220 2 \t \t ; c v p t r ^ _ [ w
0123240 w , e m p t y ] \r \t b r i \r D o
0123260 N 376 001 \0 364 002 o t i f y : \r \t j s
0123300 r \t C l e a n U p Q u e u e \r \t
0123320 j s r \t @ W a k e H e a d \r \t b
0123340 r i \r \r W a k e H e a d : 0 \r
0123360 \r S T O P : \t L D A 2 c u r
0123400 r e n t S t a t e \t ; C O P Y
0123420 S T A T E P O I N T E R T
0123440 O A C 2 \r \t J S R N O V A C
0123460 O D E \t ; A D D R E S S O F
0123500 D I S P A T C H T A B L E
0123520 T O A C 3 \r \t J M P @ R T R
0123540 N \r \t J M P @ R T R N \r \t J M
0123560 P D O O U T L D \r \t J M P D
0123600 O I N L D \r \t J M P D I S A S
0123620 T E R \r \t J M P N O V A J S R
0123640 \r N O V A C O D E : \t L D A 0
0123660 0 , 2 \t \t 376 001 \0 240 ' ; P I C
0123700 K U P C O D E \r \t A D D 0
0123720 3 \t \t ; A D D T O T A B
0123740 L E B A S E \r \t J M P 0 , 3
0123760 \r \r \r F I N P R O C : \t 0 \t ;
0124000 P O I N T S T O P D F O R
0124020 F I N I S H P R O C E D U R
0124040 E \r \r F I N I S H : \t D I R \r \t
0124060 L D A 1 @ F I N P R O C \r \t
0124100 M O V # 1 1 S N R \r \t J M
0124120 P 1 , 3 \r \t I N C 3 3 \r \t
0124140 S T A 3 R T R N \t \t ; N E
0124160 W R E T U R N A D D R E S S
0124200 \r \t L D A 2 c u r r e n t S
0124220 t a t e \r \t S T A 1 1 1 , 2
0124240 \t \t ; X \r \t S U B 1 1 \r \t
0124260 S T A 1 1 2 , 2 \t 376 001 \0 315 276
0124300 \t ; Y \r \t S T A 0 0 , 2 \t
0124320 \t ; T H E F I N I S H C O
0124340 D E \r \t S U B Z L 0 0 \r \t S
0124360 T A 0 1 0 , 2 \t \t ; S T K
0124400 P _ 1 \r \t S T A 1 @ p A
0124420 C T I V E \t ; D I S A B L E
0124440 A L L I N T E R R U P T S \r \t
0124460 I S Z S D C \t \t ; d i s a b
0124500 l e r e s c h e d u l e \r \t J
0124520 M P @ E m u l a t e \r \r p A C
0124540 T I V E : A C T I V E \r \r D O
0124560 O U T L D : \t S U B Z L 0 0
0124600 \r \t S T A 0 1 0 , 2 \t ; S
0124620 T K P _ 1 \r \t L D A 0 1
0124640 , 2 \t \t ; F P \r \t L D A 1
0124660 2 , 2 \t \t ; @ M E S S A G E \r
0124700 376 001 \0 361 312 \t J S R @ O U T L D
0124720 P \r O U T L D P : \t 0 \r \t S T A
0124740 0 0 , 2 \t \t ; R E T U R N
0124760 V A L U E \r \t J M P @ E m u l
0125000 a t e \r \r D O I N L D : \t S U B
0125020 0 0 \r \t S T A 0 1 0 , 2
0125040 \t ; S T K P _ 0 \r \t L D A
0125060 0 1 , 2 \r \t L D A 1 2 ,
0125100 2 \r \t J M P @ I N L D P \t \t ;
0125120 N E V E R R E T U R N S \r \r
0125140 D I S A S T E R : \t L D A 2
0125160 @ P u n t D a t a \t ; P O I N
0125200 T E R T O P U N T D A T A
0125220 \r \t M O V # 2 2 S N R \r \t
0125240 J M P S w a t P u n t \t \t
0125260 ; N O T S E T U P Y E T
0125300 \r \t I N C 376 001 \0 q 023 2 2 \r \t
0125320 I N C 2 2 \r \t L D A 0 -
0125340 1 , 2 \t \t ; M E S A C O R E F
0125360 P \r \t M O V # 0 0 S N R \r
0125400 \t J M P S w a t P u n t \t
0125420 \t ; N O T S E T U P Y E
0125440 T \r \t S U B 1 1 \r \t J S R
0125460 @ O U T L D P \r I N L D P : \t 0
0125500 \r \t L D A 0 - 2 , 2 \t \t ;
0125520 M E S A D E B U G G E R F P \r \t
0125540 M O V 2 1 \r \t J M P @ I N
0125560 L D P \r P u n t D a t a : \t 4 5
0125600 6 \r \r R T R N : \t 0 \r \r S W A T
0125620 T r a p : \t 5 6 7 \r S w a t P u
0125640 n t : \r \t J S R S w a t 1 \r \t
0125660 . T X T " P u n t ! " \r S w a
0125700 t 1 : \t M O V 3 376 001 \0 Y 024 1
0125720 \r \t L D A 3 @ S W A T T r a
0125740 p \r \t J M P 1 6 , 3 \t ; d o
0125760 e s a C a l l S w a t \r \r ;
0126000 C A L L L E A V E S F C N
0126020 - C O D E , A D D R E S S ,
0126040 A R G O N T O P O F S T
0126060 A C K \r ; \t t o s \t A R G \r ; \t
0126100 t o s - 1 \t A D D R E S S \r ; \t
0126120 t o s - 2 \t F C N - C O D E \r ;
0126140 C A L L S N O V A C O D E
0126160 W I T H A R G I N A C 0
0126200 , R E T U R N S A C 0 T O
0126220 T O S \r ; I N T E R R U P T
0126240 S M U S T R E M A I N O F
0126260 F ! \r N O V A J S R : \t D S Z
0126300 1 0 , 2 \t \t ; S T K P _ 376
0126320 001 \0 264 q S T K P - 1 \r \t D S
0126340 Z 1 0 , 2 \t \t ; S T K P _
0126360 S T K P - 1 \r \t ; T H E
0126400 S E S H O U L D N E V E R
0126420 S K I P \r \t L D A 3 1 0 , 2
0126440 \t ; A C 3 _ S T K P \r \t A
0126460 D D 2 3 \t \t ; A C 3 _
0126500 P O I N T E R T O N E W T
0126520 O S + 1 \r \t L D A 0 1 , 3 \t
0126540 \t ; A C 0 _ A R G \r \t J S
0126560 R @ 0 , 3 \r \t L D A 2 c u
0126600 r r e n t S t a t e \r \t L D A
0126620 3 1 0 , 2 \t ; A C 3 _ S
0126640 T K P \r \t A D D 2 3 \r \t S T
0126660 A 0 - 1 , 3 \r \t J M P @ E
0126700 m u l a t e \r \r C l e a n U p Q
0126720 u e u e 376 001 \0 364 230 : \t ; ( q )
0126740 r e t u r n s ( q ) \r \t s t a
0126760 \t 3 Q S r e t u r n \r \t m o v
0127000 \t 0 2 \r \t l d a \t 3 0 , 2 \t
0127020 ; p _ q ^ \r \t m o v z l #
0127040 \t 3 3 s n r \t \t ; t e s t
0127060 p = N I L ; i g n o r e
0127100 w w \r \t j m p \t @ Q S r e
0127120 t u r n \r \t l d a \t 1 c l e a
0127140 n U p L i n k , 3 \r \t s n z \t 1
0127160 1 \t \t ; t e s t p . c l e
0127200 a n U p L i n k = N I L \r \t
0127220 j m p \t @ Q S r e t u r n \r
0127240 \r f i n d h e a d : \r \t s n e \t
0127260 1 3 \t \t ; t e s t p . c l
0127300 e a n U p L i n k # p \r \t
0127320 j m p \t q u e u 376 001 \0 274 n e e
0127340 m p t y \r \t s n z \t 1 1 \t \t ;
0127360 t e s t p . c l e a n U p L
0127400 i n k # 0 \r \t j m p \t f
0127420 o u n d h e a d \r \t m o v \t 1
0127440 3 \t \t ; p _ p . c l e a n
0127460 U p L i n k \r \t l d a \t 1 c l
0127500 e a n U p L i n k , 3 \t ; l o
0127520 a d p . c l e a n U p L i n k
0127540 \r \t j m p \t f i n d h e a d \r \r
0127560 f o u n d h e a d : \r \t m o v \t
0127600 3 0 \t \t ; h e a d _ p \r
0127620 f i n d t a i l : \r \t l d a \t 1
0127640 l i n k , 3 \r \t s n e \t 0 1
0127660 \t \t ; t e s t p . l i n k =
0127700 h e a d \r \t j m p \t f o u
0127720 n d t a i l \r \t m o v \t 1 376 001
0127740 \0 212 v 3 \t \t ; p _ p . l i
0127760 n k \r \t j m p \t f i n d t a i l
0130000 \r \r q u e u e e m p t y : \r \t s
0130020 u b \t 3 3 \t \t ; s e t q ^
0130040 _ N I L w h e n p . c l
0130060 e a n U p L i n k = p \r f o u n
0130100 d t a i l : \r \t s t a \t 3 0 ,
0130120 2 \t \t ; q ^ _ p \r \t m o v
0130140 \t 2 0 \t \t ; r e t u r n q
0130160 \r \t j m p \t @ Q S r e t u r n \r
0130200 \r q 1 : \t 0 \r q 2 : \t 0 \r p : \t
0130220 0 \r Q S r e t u r n : 0 \r \r R
0130240 e q u e u e S u b : \t \t ; ( q
0130260 1 , q 2 , p ) \r \t \t \t ; r e t
0130300 u r n s w i t h p s t i l
0130320 l i n A C 2 \r \t s t a \t 0
0130340 q 1 \r 376 001 \0 Z \n \t s t a \t 1 q
0130360 2 \r \t s t a \t 2 p \r \t s t a \t
0130400 3 Q S r e t u r n \r \r \t l d a
0130420 \t 3 l i n k , 2 \r \t s u b \t 2
0130440 3 s z r \t \t ; t e s t p
0130460 . l i n k = p \r \t j m p
0130500 \t d e l i n k \t \t ; n o t e
0130520 q u a l ; m u s t d e l i n
0130540 k \r \t ; p p = 0 = A C
0130560 3 \r \t s z \t 0 0 \t \t ; i f
0130600 q 1 = 0 \r \t j m p \t c l e a
0130620 n S t o r e \r \t l d a \t 1 l i
0130640 n k , 2 \t \t ; A C 1 = p
0130660 . l i n k ( a d d e d . . . d
0130700 d r ) \r \t j m p \t c l e a n L a
0130720 t e r \r \r d e l i n k : \t m o v
0130740 z \t 0 3 s n 376 001 \0 342 265 r \t \t
0130760 ; i f q 1 = 0 \r \t m o v
0131000 o \t 2 3 s k p \t \t ; t h e
0131020 n p ; c a r r y = 1 i f f
0131040 q 1 = 0 \r s e a r c h : \t l d
0131060 a \t 3 0 , 3 \t \t ; e l s e
0131100 q 1 ^ ; a s s u m e s l i n
0131120 k = 0 \r \t ; p p i s i
0131140 n 3 \r \t l d a \t 1 l i n k ,
0131160 3 \r \t s e q \t 1 2 \r \t j m
0131200 p \t s e a r c h \t \t ; a s s u
0131220 m e s l i n k = 0 \r \r \t ;
0131240 n o w p p . l i n k = p
0131260 \r \t l d a \t 1 l i n k , 2 \r \t
0131300 s t a \t 1 l i n k , 3 \t ; p
0131320 p . l i n k _ p . l i n k \r
0131340 \r \t m o v # \t 0 0 s z 376 001 \0
0131360 ! m c \t \t ; t e s t q 1 = 0
0131400 ( c a r r y s e t a b o v
0131420 e ) \r \t j m p \t c l e a n L
0131440 a t e r \t ; c l e a n u p l
0131460 a t e r \r c l e a n N o w : \r \t
0131500 l d a \t 0 @ q 1 \r \t s u b # \t
0131520 0 2 s n r \t \t ; i f q 1
0131540 ^ = p \r c l e a n S t o r e :
0131560 s t a \t 3 @ q 1 \t \t ; q 1 ^
0131600 _ p p \r \t j m p i n s e r
0131620 t \r c l e a n L a t e r : \r \t s
0131640 t a \t 1 c l e a n U p L i n k
0131660 , 2 \t ; p . c l e a n U p L i
0131700 n k _ p . l i n k \r \r i n s
0131720 e r t : \t l d a \t 3 @ q 2 \t \t
0131740 ; p p _ q 2 ^ \r \t s z \t 3
0131760 3 376 001 \0 006 275 \t \t ; t e s t
0132000 f o r z e r o \r \t j m p \t
0132020 R Q n o n e m p t y \r \t ; h e
0132040 r e i f q u e u e w a s
0132060 e m p t y \r \t s t a \t 2 l i n
0132100 k , 2 \t ; p . l i n k _ p
0132120 \r \t s t a \t 2 @ q 2 \t \t ; q
0132140 2 ^ _ p ; \r \t j m p \t @ Q S
0132160 r e t u r n \r m P r i o r i t y
0132200 : p r i o r i t y \r R Q n o n
0132220 e m p t y : \r \t l d a \t 0 m P
0132240 r i o r i t y \t \t ; m a s k \r
0132260 \t l d a \t 1 b i t s a n d p r
0132300 i o r i t y , 2 \r \t a n d \t 0
0132320 1 \t \t ; p . p r i o r i t y \r
0132340 \t l d a \t 2 b i t s a n d p r
0132360 i o r i t y , 376 001 \0 2 206 3 \r \t a
0132400 n d \t 0 2 \t \t ; p p . p r i
0132420 o r i t y \r \t s l e u \t 1 2 \t
0132440 \t ; s k i p i f p . p r i
0132460 o r i t y < = p p . p r i o
0132500 r i t y \r \t j m p \t i S e a
0132520 r c h \r \t ; h e r e i f i
0132540 t e m i s n e w q u e u e
0132560 h e a d \r \t l d a \t 2 p \r \t
0132600 s t a \t 2 @ q 2 \t \t ; q 2 ^
0132620 _ p \r \t j m p s e t L i n
0132640 k s \r \r i S e a r c h : \r \t l d
0132660 a \t 2 l i n k , 3 \t ; p p .
0132700 l i n k \r \t l d a \t 2 b i t s
0132720 a n d p r i o r i t y , 2 \r \t a
0132740 n d \t 0 2 \t \t ; p p . l i n
0132760 k . p r i o r i t y \r \t 376 001 \0 a
0133000 360 s l e u \t 1 2 \t \t ; s k i
0133020 p i f p . p r i o r i t y
0133040 < = p p . l i n k . p r i o r
0133060 i t y \r \t j m p s e a r c
0133100 h d o n e \r \t l d a \t 3 l i n
0133120 k , 3 \r \t j m p \t i S e a r c h
0133140 \r s e a r c h d o n e : \r \t l d
0133160 a \t 2 p \r s e t L i n k s : \r
0133200 \t l d a \t 1 l i n k , 3 \r \t s
0133220 t a \t 1 l i n k , 2 \t ; p .
0133240 l i n k _ p p . l i n k \r \t
0133260 s t a \t 2 l i n k , 3 \t ; p
0133300 p . l i n k _ p \r \t j m p \t
0133320 @ Q S r e t u r n \r \r E N D : \t
0133340 j m p \t S T A R T + 2 0 0 \t \t ;
0133360 g e n e r a t e e r r o r
0133400 i 376 \0 025 267 B f t o o b i g \r
0133420 \r ; \r ; \r \t . E N D \r 377 \0 \0 R e
0133440 a d P r a m . b c p l \0 376 001 \0 #
0133460 267 / / R e a d p a c k e d
0133500 R A M i m a g e \r / / l a s
0133520 t e d i t e d b y L e v i
0133540 n : A u g u s t 2 5 , 1 9
0133560 7 8 1 0 : 1 1 A M \r \r e x
0133600 t e r n a l \t / / e n t r i e
0133620 s \r [ \t R e a d P a c k e d R A
0133640 M \r \t L o a d P a c k e d R A M
0133660 \r ] \r \r e x t e r n a l \t / /
0133700 O . S . \r [ \t R e a d B l o c k
0133720 \r \t W s ; W o \r ] \r \r \r l e t
0133740 R e a d P a c k e d R A M ( s
0133760 t , l v R ; n u m a r g s
0134000 n a ) = v a l o f \r [ \t l e
0134020 t v = v e c # 4 0 0 \r \t
0134040 R e a d B l o c k ( s t , v ,
0134060 376 001 \0 323 031 # 2 1 ) \t / / r e
0134100 a d B R f i l e h e a d e
0134120 r \r \t i f ( v ! 7 n e # 1
0134140 7 ) % ( v ! # 1 7 n e #
0134160 4 4 0 1 ) t h e n \t / / b a
0134200 d f i l e \r \t [ W s ( " B
0134220 a d R A M i m a g e f i l
0134240 e * N " ) ; r e s u l t i s
0134260 - 1 ] \r \t R e a d B l o c k (
0134300 s t , v , # 4 0 0 ) \t / /
0134320 c o n s t a n t s \r \t i f n a
0134340 g e 2 t h e n @ l v R
0134360 = v ! 0 \t \t / / R A M I D
0134400 v a l u e \r \t l e t d i f
0134420 = c h e c k c o n s t s ( v )
0134440 \r \t f o r i = 0 b y #
0134460 2 0 0 t o 376 001 \0 a * # 1 6 0
0134500 0 d o \r \t [ R e a d B l o
0134520 c k ( s t , v , # 4 0 0 ) \r
0134540 \t w r a m v e c ( i , v
0134560 , # 2 0 0 ) \r \t ] \r \t r e s
0134600 u l t i s d i f \r ] \r \r a n d
0134620 L o a d P a c k e d R A M ( v
0134640 , l v R ; n u m a r g s n
0134660 a ) = v a l o f \r [ \t i f
0134700 n a g e 2 t h e n @ l v
0134720 R = v ! 0 \t \t / / R A M
0134740 I D v a l u e \r \t l e t d i
0134760 f = c h e c k c o n s t s (
0135000 v ) \r \t w r a m v e c ( 0 , v
0135020 + # 4 0 0 , # 2 0 0 0 ) \r \t r
0135040 e s u l t i s d i f \r ] \r \r a
0135060 n d c h e c k c o n 376 001 \0 214 c
0135100 s t s ( v ) = v a l o f \r [
0135120 \t l e t d i f = 0 \r \t l e
0135140 t r c t = t a b l e [ 0
0135160 ; # 1 7 1 0 0 1 ; # 1 4 0 3
0135200 0 ; # 1 0 2 0 2 0 ] \r \t f o r
0135220 i = 1 t o # 3 7 7 d
0135240 o \r \t [ r c t ! 0 = ( i
0135260 & # 3 7 0 ) l s h i f t 8
0135300 + ( i & 7 ) l s h i f t 4
0135320 \r \t w r a m v e c ( # 1 0
0135340 0 0 , r c t , 2 ) \r \t
0135360 l e t v a l , w d = v !
0135400 i , j r a m ( # 1 0 0 0 ) \r \t
0135420 i f ( v a l n e w d
0135440 ) & ( v a l n e 0 ) t
0135460 h e n \r \t [ W s ( " C
0135500 376 001 \0 341 341 o n s t a n t " ) ;
0135520 W o ( i ) \r \t W s (
0135540 " i s " ) ; W o ( w d ) \r
0135560 \t W s ( " , s h o
0135600 u l d b e " ) ; W o ( v a
0135620 l ) \r \t W s ( " * N
0135640 " ) \r \t d i f =
0135660 d i f + 1 \r \t ] \r \t ]
0135700 \r \t i f d i f n e 0 t h
0135720 e n \r \t [ W o ( d i f ) ;
0135740 W s ( " c o n s t a n t s d
0135760 i f f e r * N " ) ] \r \t r e s
0136000 u l t i s d i f \r ] \r \r a n d
0136020 w r a m v e c ( a d d r , v
0136040 , n ) b e \r [ \t l e t w r
0136060 i t e r = t a b l e [ \r \t
0136100 # 5 376 \0 362 033 003 5 0 0 1 \t /
0136120 / S T A 3 1 , 2 \r \t
0136140 # 3 5 0 0 3 \t / / L D A 3
0136160 3 , 2 \r \t # 6 1 0 1 2 \t /
0136200 / W R T R A M \r \t # 3 5
0136220 0 0 1 \t / / L D A 3 1 , 2
0136240 \r \t # 1 4 0 1 \t / / J M
0136260 P 1 , 3 \r \t ] \r \t l e t p
0136300 = v \r \t f o r i = 0
0136320 t o n - 1 d o \r \t [ w r
0136340 i t e r ( @ p , a d d r + i ,
0136360 p ! 1 ) ; p = p + 2 ]
0136400 \r ] \r \r a n d j r a m ( l o c
0136420 , a c 0 ) = ( t a b l e [
0136440 # 6 1 0 1 0 ; # 1 4 0 1 ] )
0136460 ( a c 0 , l o c ) \r \0 377 \0 \0 M
0136500 e s a R a m . b r \0 376 001 \0 205 266 002
0136520 \0 \t 036 \0 \0 \t 021 \0 \0 \t 031 \0 \0 \0 017 \0
0136540 \0 \t 034 \0 \0 \t 035 \0 \0 \0 \0 \0 \0 \t 001 \0
0136560 \0 \0 " \0 001 \0 002 377 376 377 377 377 377 \0 017 377
0136600 377 \0 003 \0 004 \0 005 \0 006 \0 \a \0 \b 377 370 377
0136620 370 \0 020 \0 037 \0 \0 ? \0 @ \0 177 \0 200 \0
0136640 \a \0 377 377 \0 004 \0 001 \0 001 020 001 Q 001 024 \0
0136660 017 001 026 001 030 017 372 360 \0 @ \0 377 374 377 366 377
0136700 353 H \0 l \0 \b \0 020 \0 376 \0 177 377 177 340 177
0136720 \0 377 275 017 \0 017 017 360 360 ` H 0 \0 q Y !
0136740 \t j < B 023 245 245 376 034 ? \0 377 300 001 * 001
0136760 @ 200 \0 377 340 \0 277 377 371 377 360 377 375 \t p ]
0137000 8 D h 024 374 \0 376 376 " \0 203 \0 360 377
0137020 200 370 \0 340 \0 300 \0 001 377 003 377 \a 377 017 377 037
0137040 377 ? 377 002 \0 \0 377 361 001 V 001 W 001 8 \f
0137060 \0 001 0 030 023 001 200 001 201 001 202 001 203 001 204 001
0137100 205 001 206 001 207 001 210 001 212 001 022 001 023 001 002 376
0137120 001 \0 251 255 377 360 001 S 001 T 377 357 377 344 377 373
0137140 \0 \n 377 301 \0 037 016 \0 \0 ~ 377 ~ \0 030 \0 \r
0137160 003 370 203 371 377 340 373 377 \0 \t \0 \v \0 \f \0 016
0137200 \0 0 001 376 377 177 201 377 377 277 377 314 005 W \0 A
0137220 001 230 001 231 001 242 376 r 376 X \0 022 \0 024 \0 335
0137240 002 377 001 001 \0 001 004 001 \0 021 \0 023 \0 025 \0 026
0137260 \0 027 \0 031 \0 003 003 275 001 336 376 P \0 300 \f 001
0137300 b \0 c \0 \0 \b d \0 e \0 n \0 g \0 i \0
0137320 m \0 f \0 \0 \f k \0 k 001 k 002 k 003 k 004
0137340 k 005 k 006 \0 020 k \a k \b k \t k \n k \v
0137360 k \f k \r \0 k 016 k 017 377 363 376 024 376 025
0137400 376 026 017 374 \0 @ 004 377 005 377 006 377 001 ? 001 ~
0137420 376 } \0 \0 \0 200 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137440 \0 \0 \0 \0 \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137460 \0 \0 \0 \0 \0 377 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137500 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137520 \0 \0 \0 \0 376 001 \0 367 } \0 \0 \0 \0 \0 \0 \0
0137540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0137560 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 @ \b 304 001 B
0137600 230 237 \0 350 \t 200 \n 350 030 204 002 j 211 200 005 h
0137620 030 224 \f \0 X 200 016 001 330 300 \r \0 270 300 \r k
0137640 \b 200 022 h 030 204 \v \b 224 \f 030 037 214 006 B
0137660 236 213 \0 300 8 224 017 006 8 214 \b @ 036 205 \0 @
0137700 030 207 253 h 030 200 021 k 211 200 026 300 8 224 025 \0
0137720 Z 200 020 \b 224 027 h 030 204 024 \0 \b 204 0 \0
0137740 017 224 0 \0 \b 204 @ s \n 300 037 030 037 214 036 020
0137760 030 204 P 001 330 210 Y p 030 204 P \b / 201 273 \b
0140000 030 205 367 r 210 300 z r 210 300 { E ? 214 340 u
0140020 O 214 342 E ? 214 350 u O 214 353 E ? 215 207 u
0140040 O 215 211 \0 017 201 257 \0 x 304 030 005 017 214 " s
0140060 \b 301 : \0 \b 205 Z 020 \b 304 032 \0 \b 306 T U
0140100 ? N 215 005 017 202 223 004 212 362 213 020 030 205 l 003
0140120 270 201 { 031 037 214 " \b 030 376 001 \0 201 l 205 006
0140140 E \b 210 177 E \b 211 ` \0 017 200 200 001 357 200 ]
0140160 \v 272 201 N \v 272 201 k @ \b \ O j 211 200 _
0140200 016 8 215 241 8 036 205 240 \0 0 305 \0 @ \b 306 360
0140220 \0 7 205 \0 \0 211 206 233 \0 017 200 216 234 257 201 366
0140240 8 J 205 374 004 017 201 { 350 030 205 264 \0 017 221 257
0140260 350 030 205 265 003 211 366 022 c 270 201 272 @ 035 220
0140300 ( 177 D 033 200 8 X k 210 8 X k 220 8 X k
0140320 230 8 X k 240 8 X k 250 8 X k 260 8 X k
0140340 270 8 X k 036 017 \ Z B 236 200 j 211 200 g
0140360 \0 X 214 h \b 312 200 d 270 O D > h 030 204 034
0140400 022 230 200 ^ 020 030 220 ^ 020 \n 304 j \v 337 200 b
0140420 350 030 204 e 350 \b 300 f 350 036 244 217 h 030 T \
0140440 r 210 300 { 003 317 200 227 ( H 204 p \0 \b 204
0140460 r 210 @ v r 210 @ w s \b 300 213 s \b 300 214
0140500 P 8 215 < Z 270 215 < 240 _ E j 270 _ D 033
0140520 270 o D 033 \b 8 215 274 r 230 214 x p 030 376 001
0140540 \0 I F 214 x \0 370 300 y \0 Z 261 0 p 232 201
0140560 0 p 232 221 0 \0 017 D 212 030 / D 212 p \b 305
0140600 @ \0 017 D 202 005 8 210 201 @ \b D 202 003 9 200
0140620 203 352 230 214 204 u \b 200 205 p 030 204 206 \0 Z 200
0140640 207 8 030 204 210 \0 x 224 211 352 211 204 | 8 \b 200
0140660 ~ p 032 205 ` p 032 225 ` 350 231 205 p 005 8 210
0140700 220 \0 017 210 b @ \b D 215 p 032 205 p \0 x 225
0140720 P 031 ? 200 226 003 8 200 225 \0 : 004 232 \0 8 D
0140740 230 002 217 254 225 003 x 200 227 s \n 200 240 350 035 204
0140760 234 350 035 024 234 352 210 217 \0 352 210 214 023 s \n 200
0141000 242 \0 037 210 b p 030 205 001 p 030 207 x p 030 207
0141020 x p 030 205 001 350 235 200 247 350 230 200 247 204 8 260
0141040 254 210 8 214 246 t 210 200 252 t 210 200 262 350 \n 305
0141060 \a p 030 T 255 002 217 274 250 350 \b 307 p ( _ 214
0141100 273 \0 / 210 b 350 035 200 247 350 030 200 247 p 030 T
0141120 255 350 \n 305 \a p 030 204 266 p 030 204 270 j 212 200
0141140 003 @ \b 376 001 \0 035 k 214 223 @ \b 214 223 j 212
0141160 200 003 \0 O 214 273 215 8 200 274 350 030 204 275 \0 x
0141200 004 276 205 8 214 300 \b 017 210 b 354 210 200 302 354 \b
0141220 200 302 \0 037 214 303 t 210 320 304 240 z 224 264 t 212
0141240 200 324 350 035 204 312 003 271 204 320 006 332 200 315 001 330
0141260 200 224 353 211 204 313 200 8 004 314 030 017 214 310 350 036
0141300 204 316 353 \b 200 225 \b 037 210 b \0 \b 204 321 003 X
0141320 200 225 j 212 200 003 c 272 200 333 p 030 204 325 200 8
0141340 214 326 j 211 200 327 h 030 204 330 214 270 200 331 \0 \b
0141360 324 332 \0 X 214 322 350 030 204 334 350 \b \ 335 200 8
0141400 200 306 E ? 214 8 \b / 210 b S 271 204 l S 271
0141420 204 m [ 271 204 l [ 271 204 m p 032 201 0 p 032
0141440 221 0 u O 214 8 E ? 214 9 S 271 204 n S 271
0141460 204 o u O 214 9 [ 271 204 n s \b 210 356 031 /
0141500 201 220 p 230 200 360 \b ? 210 b 003 : 300 361 360 030
0141520