$ od -c -N 50000 [_CD8_]<alto>OEDIT.SYMS!2 0000000 002 006 \n 227 \0 020 006 T \n 5 \n 222 \0 \0 \0 \0 0000020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0000040 006 D \r A s c i i T o E b c d i c 0000060 016 A n n o u n c e N e w T r i \0 0000100 \a A d d I t e m \b A s s i g n D 0000120 P \0 \t A s s i g n S t r \b A l l 0000140 o c a t e \0 006 A r e t r y \0 016 A 0000160 c t O n D i s k P a g e s \0 016 A 0000200 s s i g n D i s k P a g e \0 \v A 0000220 l t o V e r s i o n 004 a d d r \0 0000240 \n B f s B a s e . B R \0 \v B f s 0000260 C l o s e . B R \f B f s C r e a 0000300 t e . B R \0 \v B f s D D M g r . 0000320 B R \n B f s I n i t . B R \0 \v B 0000340 f s W r i t e . B R 005 B i t c h 0000360 \a B F S I n i t \b B F S C l o s 0000400 e \0 \f B F S V i r t u a l D A \0 0000420 \t B F S R e a l D A \b B F S N o 0000440 n E x \0 026 B f s I n i t i a l i 0000460 z e C b S t o r a g e \0 020 B f s 0000500 D o D i s k C o m m a n d \0 022 B 0000520 f s M a k e F p F r o m L a b e 0000540 l \0 \b B f s G e t C b \0 \r B F S 0000560 A c t O n P a g e s 024 B f s D e 0000600 f a u l t C l e a n u p R t n \0 0000620 026 B F S W r i t e D i s k D e s 0000640 c r i p t o r \0 \r B F S C r e a 0000660 t e F i l e 016 B F S D e l e t e 0000700 P a g e s \0 022 B F S R e l e a s 0000720 e D i s k P a g e \0 016 B F S C r 0000740 e a t e D D M g r \0 017 B F S D e 0000760 s t r o y D D M g r \n B F S C l 0001000 o s e D D \0 \t B F S L o c k D D 0001020 \v B F S U n l o c k D D \r B F S 0001040 R e a d D D P a g e \n B F S F l 0001060 u s h D D \0 021 B F S T r a n s f 0001100 e r D D P a g e \f B F S I n i t 0001120 E r r o r \0 \n B F S T r y D i s 0001140 k \0 \r B F S W r i t e P a g e s 0001160 021 B F S A s s i g n D i s k P a 0001200 g e 017 C l o s e s O u t s t r e 0001220 a m 023 C r e a t e D i s p l a y 0001240 S t r e a m 006 C l o s e s \0 \b C 0001260 a l l S w a t \0 \b C o n t a i n 0001300 s \0 \b C o R e t u r n \0 \a C l o 0001320 s e D D \r C h e c k F r e e P a 0001340 g e \v C h e c k C o n s t s \a D 0001360 i s p l a y \f D i s p l a y V a 0001400 l u e \0 \t D o u b l e A d d \f D 0001420 o u b l e R S h i f t \0 \t D o u 0001440 b l e U s c \f D o u b l e L S h 0001460 i f t \0 017 D o W i z a r d C o m 0001500 m a n d 016 D o u b l e S u b t r 0001520 a c t \0 \f D i s k R a m I m a g 0001540 e \0 \v D e f a u l t A r g s 003 D 0001560 e l 022 D e f a u l t B f s E r r 0001600 o r R t n \0 \r D o D i s k C o m 0001620 m a n d \f D e s t r o y D D M g 0001640 r \0 004 D v e c \0 017 D e l e t e D 0001660 i s k P a g e s \n D o R e c o v 0001700 e r y \0 022 D e f a u l t T F S E 0001720 r r o r R t n \0 \a D a t a F i x 0001740 022 D e t e r m i n e D i s k M o 0001760 d e l \0 004 d a t a \0 \b d a t a F 0002000 l a g \0 \n d i s p S t r e a m \0 0002020 \v d r i b b l e F l a g \v d r i 0002040 b b l e F i l e 003 d s p \a d i D 0002060 i s k 1 \b d i s k Z o n e \0 \r E 0002100 b c d i c T o A s c i i 006 E n d 0002120 o f s \0 \t E v a l P a r a m \n F 0002140 i l e L e n g t h \0 \t F i x e d 0002160 L e f t \b F i n d A d d r \0 006 F 0002200 i n i s h \0 004 F r e e \0 \a F l u 0002220 s h D D 005 f i l e s 005 f L e n s 0002240 \t f i r s t N a m e \a f p C o m 0002260 C m \n f r e e P a g e F p \0 \v f 0002300 r e e P a g e F i d 005 G P . B R 0002320 \a G e t K e y s \b G e t F i x e 0002340 d \0 004 G e t s \0 \a G e t D a t a 0002360 \b G e t D a t u m \0 \b G e t O c 0002400 t a l \0 016 G e t H e x a d e c i 0002420 m a l \0 \n G e t D e c i m a l \0 0002440 \n G e t C o m C h a r \0 \t G e t 0002460 N u m b e r \n G e t N e w N a m 0002500 e \0 \t G o t o F r a m e \t G e t 0002520 D i s k C b \f G e t C u r r e n 0002540 t F a \0 \f I n t e r D i s k . B 0002560 R \0 016 I n i t i a l i z e Z o n 0002600 e \0 021 I n t e r D i s k O p e n 0002620 F i l e \a I n i t D P 1 020 I n i 0002640 t T r i d e n t D r i v e \0 021 I 0002660 n t e r p r e t T e m p l a t e 0002700 004 I d l e \0 021 I n i t i a l i z 0002720 e D i s k C B Z 004 J R a m \0 004 k 0002740 e y s \0 \n L o a d R a m . B R \0 0002760 005 L J u s t 005 L J L o w 006 L J H 0003000 i g h \0 \a L o a d R a m \t L O p 0003020 e n F i l e 006 L o c k D D \0 \a l 0003040 a s t V a l 020 l v U s e r F i n 0003060 i s h P r o c \0 021 l v S w a t C 0003100 o n t e x t P r o c 002 l 6 \0 002 l 0003120 7 \0 \t M o v e B l o c k \a M y F 0003140 r a m e 005 m o d e s \n m i n u s 0003160 O n e D P \0 \b N e g a t e D P \0 0003200 \v N o R e s u l t V e c 004 N o o 0003220 p \0 \t O E d i t . R U N \b O E d 0003240 i t . X C \0 \n O E d i t . S Y M 0003260 S \0 \b O E d i t . B S \0 \b O E d 0003300 i t . B R \0 \v O E d i t C o m . 0003320 B R 005 O e d i t 020 O v e r w r i 0003340 t e L o a d R a m \0 \b O p e n F 0003360 i l e \0 006 O p e n D D \0 \t O s V 0003400 e r s i o n \t o u t s t r e a m 0003420 005 o n e D P \a o n e B i t s \f P 0003440 o s i t i o n F i l e \0 \r P u t 0003460 s O u t s t r e a m \v P u t b a 0003500 c k K e y s \v P u t T e m p l a 0003520 t e 004 P u t s \0 016 P a r s e D r 0003540 i v e S p e c \0 \n P a c k S t r 0003560 i n g \0 006 P u t N u m \0 \f P o s 0003600 i t i o n P a g e \0 016 p u t b a 0003620 c k I n F o r c e \0 \v p u t b a 0003640 c k C h a r 017 R e s e t s O u t 0003660 s t r e a m \t R e a d P a r a m 0003700 006 R e s e t s \0 \t R e a d B l o 0003720 c k 020 R e a d A n d D o C o m m 0003740 a n d \0 017 R e m o v e D r i v e 0003760 S p e c 017 R e a d P a r a m S t 0004000 r e a m \n R e a d S t r i n g \0 0004020 005 R e t r y \r R e t P a c k e d 0004040 N a m e \n R e a l D i s k D A \0 0004060 \b R e t u r n T o \0 \n R e a d D 0004100 D P a g e \0 \f R e a d C a l e n 0004120 d a r \0 017 R e l e a s e D i s k 0004140 P a g e \n R e t u r n F r o m \0 0004160 020 R a m C o n f i g u r a t i o 0004200 n \0 \a R R a m V e c 006 S Y S . B 0004220 K \0 006 S e t S t d \0 \b S h o w C 0004240 h a r \0 \a S h o w H e x \n S h o 0004260 w E B C D I C \0 \a S e t U p D P 0004300 016 S e t U p I n t e r D i s k \0 0004320 016 S e t u p R e a d P a r a m \0 0004340 021 S h o w D i s p l a y S t r e 0004360 a m \n S e t F i l e P o s \0 \n S 0004400 e t E n d C o d e \0 006 S y s E r 0004420 r \0 \b S e t B l o c k \0 \f S e t 0004440 P a r t i t i o n \0 \r S e t W o 0004460 r k i n g D i r \a S t a r t I O 0004500 006 S e t B L V \0 \b s t a n d a r 0004520 d \0 \b s a v e d U F P \0 \b s a v 0004540 e d S C P \0 \a s y s D i s k \t s 0004560 t r i n g V e c 005 s w V e c \v T 0004600 e m p l a t e . B R \n T f s B a 0004620 s e . B R \0 \a T f s A . B R \v T 0004640 f s W r i t e . B R \f T F S C r 0004660 e a t e . B R \0 \v T f s C l o s 0004700 e . B R \v T f s D D M g r . B R 0004720 \n T f s S w a t . B R \0 \n T f s 0004740 I n i t . B R \0 \v T r i C o n M 0004760 c . B R 022 T r u n c a t e D i s 0005000 k S t r e a m \0 \a T F S I n i t 0005020 022 T F S S w a t C o n t e x t P 0005040 r o c \0 \b T F S C l o s e \0 \r T 0005060 F S S i l e n t B o o t 017 T F S 0005100 L e a v e D i s p l a y 017 T F S 0005120 S a v e d D i s p l a y \a T F S 0005140 L o c k \b T F S D e b u g \0 \f T 0005160 F S V i r t u a l D A \0 026 T F S 0005200 I n i t i a l i z e C b S t o r 0005220 a g e \0 020 T F S D o D i s k C o 0005240 m m a n d \0 \b T F S G e t C b \0 0005260 \f T F S W a i t Q u i e t \0 \b T 0005300 F S N o n E x \0 \r T F S A c t O 0005320 n P a g e s 024 T F S D e f a u l 0005340 t C l e a n u p R t n \0 \f T F S 0005360 I n c r e m e n t \0 \v T F S M o 0005400 d S h i f t \t T F S R e a l D A 0005420 \f T F S M o d S h i f t A \0 \r T 0005440 F S W r i t e P a g e s 021 T F S 0005460 A s s i g n D i s k P a g e \r T 0005500 F S C r e a t e F i l e 016 T F S 0005520 D e l e t e P a g e s \0 022 T F S 0005540 R e l e a s e D i s k P a g e \0 0005560 026 T F S W r i t e D i s k D e s 0005600 c r i p t o r \0 016 T F S C r e a 0005620 t e D D M g r \0 017 T F S D e s t 0005640 r o y D D M g r \n T F S C l o s 0005660 e D D \0 \t T F S L o c k D D \v T 0005700 F S U n l o c k D D \r T F S R e 0005720 a d D D P a g e \n T F S F l u s 0005740 h D D \0 016 T r a n s f e r D D P 0005760 a g e \0 \n T F S T r y D i s k \0 0006000 \a T r y D i s k \f T F S D i s k 0006020 M o d e l \0 \n T F S S e t D i s 0006040 k \0 \a t r y n e x t \b t r i D i 0006060 s k s \0 \t U t i l D P . B R 003 U 0006100 s c \b U n l o c k D D \0 \r V i r 0006120 t u a l D i s k D A \t W r i t e 0006140 F i l e 002 W s \0 003 W s s 002 W l \0 0006160 016 W r i t e D i s k P a g e s \0 0006200 006 W r e t r y \0 \a W R a m V e c 0006220 \t w r i t e F l a g 004 Z e r o \0 0006240 006 z e r o D P \0 \0 370 003 " \b 001 002 \0 0006260 \0 \0 002 : \b 001 002 001 \0 \0 002 = \f 001 002 002 0006300 \0 \0 \0 = \b 001 002 003 \0 \0 001 352 \b 001 002 004 0006320 \0 \0 002 @ \f 001 002 005 \0 \0 002 377 \b 001 002 006 0006340 \0 \0 006 8 \b 001 002 \a \0 \0 001 355 \b 001 002 \b 0006360 \0 \0 003 s \b 001 002 \t \0 \0 001 362 \f 001 002 \n 0006400 \0 \0 001 370 \f 001 002 \v \0 \0 001 376 \f 001 002 \f 0006420 \0 \0 003 265 \f 001 002 \r \0 \0 003 275 \f 001 002 016 0006440 \0 \0 004 224 \b 001 002 017 \0 \a 003 Y 024 001 002 020 0006460 003 201 001 g 020 001 002 021 006 E 001 k 020 001 002 022 0006500 \a Q 004 9 024 001 002 023 \a q 006 035 020 001 002 024 0006520 \a 203 003 177 020 001 002 025 \b 6 001 1 024 001 002 026 0006540 \b ` 003 206 024 001 002 027 \b o 003 303 024 001 002 030 0006560 \b | 002 350 024 001 002 031 \b 205 002 353 024 001 002 032 0006600 \b 264 002 356 024 001 002 033 \b 350 004 = 024 001 002 034 0006620 \t 035 004 B 024 001 002 035 \t Q 004 F 024 001 002 036 0006640 \t 177 002 017 020 001 002 037 \t 215 \0 001 020 001 002 0006660 \n q 002 X 020 001 002 ! \n 220 003 215 020 001 002 " 0006700 \n 241 \0 \b 024 001 002 # \n 312 004 L 020 003 002 $ 0006720 024 J 002 251 020 027 002 % \0 016 004 P 020 004 002 & 0006740 025 241 004 X 020 005 002 ' 030 221 006 " 020 027 002 ( 0006760 \0 004 003 313 020 005 002 ) 030 316 003 031 020 027 002 * 0007000 \0 { 002 261 020 004 002 + 025 306 003 223 020 006 002 , 0007020 034 211 002 004 \b 027 002 - \0 002 \0 020 020 005 002 . 0007040 034 9 003 \ 020 004 002 / 025 276 003 e 020 027 002 0 0007060 \0 . 002 037 020 027 002 1 \0 J 002 \ 020 027 002 2 0007100 \0 \t 003 320 020 027 002 3 \0 N 003 324 020 027 002 4 0007120 \0 ? 002 % 020 027 002 5 \0 \v 001 9 020 027 002 6 0007140 \0 023 004 ` 020 027 002 7 \0 027 002 E \b 027 002 8 0007160 200 \a 002 026 020 027 002 9 \0 Q 003 231 020 027 002 : 0007200 \0 M 002 a 020 027 002 ; \0 L 001 r 020 027 002 < 0007220 \0 177 003 x \b 003 002 = \0 \0 001 w 020 003 002 > 0007240 025 017 \0 024 020 003 002 ? 024 k 006 @ \b 003 002 @ 0007260 \0 \0 003 331 020 002 002 A \v & 006 $ 020 027 002 B 0007300 \0 003 001 C 020 027 002 C \0 K 001 ~ 020 003 002 D 0007320 025 y 001 203 020 003 002 E 024 233 004 i 020 027 002 F 0007340 \0 I 004 352 020 027 002 G \0 @ 002 337 \b 027 002 H 0007360 \0 % 001 G 020 027 002 I 200 032 002 d 024 002 002 J 0007400 \r 4 002 h 024 002 002 K 016 031 002 m 024 002 002 L 0007420 016 365 002 r 024 002 002 M 017 : 002 z 024 002 002 N 0007440 017 341 002 * 024 002 002 O 020 < 001 212 024 002 002 P 0007460 020 213 003 % \b 003 002 Q \0 \0 003 + 020 003 002 R 0007500 024 x 006 001 034 002 002 S 023 231 001 222 020 003 002 T 0007520 024 213 006 017 020 027 002 U \0 ~ 004 231 \f 004 002 V 0007540 \0 \0 004 236 \f 004 002 W \0 \0 006 005 \f 004 002 X 0007560 \0 \0 002 006 \f 004 002 Y \0 \0 002 \n \f 004 002 Z 0007600 \0 \0 002 272 024 004 002 [ 026 225 002 276 024 004 002 \ 0007620 026 265 \0 e 024 004 002 ] 027 / 003 234 024 004 002 ^ 0007640 027 r 003 342 024 004 002 _ 027 365 001 L 024 004 002 ` 0007660 030 034 \0 031 024 004 002 a 030 : 002 / 024 004 002 b 0007700 030 ] \0 036 020 027 002 c \0 020 004 o 020 027 002 d 0007720 \0 \f 002 362 020 025 002 e : 7 004 243 \b 027 002 f 0007740 \0 c \0 h 020 \v 002 g % _ 003 003 \b 027 002 h 0007760 200 027 004 364 020 024 002 i 6 305 001 232 030 026 002 j 0010000 < . 003 \f \b 027 002 k 200 034 004 370 030 023 002 l 0010020 6 272 006 & 020 027 002 m \0 005 005 002 020 021 002 n 0010040 5 p \0 l 020 \b 002 o " F 005 \a 030 016 002 p 0010060 1 K 003 352 \b 005 002 q \0 \0 004 247 \f 005 002 r 0010100 \0 \0 004 254 \f 005 002 s \0 \0 002 032 020 005 002 t 0010120 031 201 003 362 020 005 002 u 033 L 002 200 024 005 002 v 0010140 034 034 003 244 024 005 002 w 034 I 001 241 020 027 002 x 0010160 \0 z 003 370 034 005 002 y 031 306 002 366 034 005 002 z 0010200 031 316 002 206 034 005 002 { 032 ( 003 373 034 005 002 | 0010220 032 304 003 0 034 005 002 } 032 321 002 213 034 005 002 ~ 0010240 033 . 001 247 034 005 002 177 033 313 003 025 034 005 002 200 0010260 034 S 003 027 034 005 002 201 034 ] 002 307 024 006 002 202 0010300 034 260 003 252 020 006 002 203 035 274 002 221 020 027 002 204 0010320 \0 210 001 Q 020 027 002 205 \0 212 003 036 020 027 002 206 0010340 \0 204 004 u 020 027 002 207 200 030 \0 q 020 \a 002 210 0010360 036 T \0 x 020 \a 002 211 036 ~ \0 } 020 \a 002 212 0010400 036 275 001 251 020 \a 002 213 036 307 \0 202 020 \a 002 214 0010420 036 322 \0 216 020 \a 002 215 037 . \0 227 020 \a 002 216 0010440 \n \0 241 020 \a 002 217 034 \0 246 020 \a 002 220 0010460 ! $ \0 255 024 \a 002 221 " 035 006 = 020 027 002 222 0010500 \0 | 003 6 020 027 002 223 \0 S 004 002 020 027 002 224 0010520 \0 x 002 320 020 027 002 225 \0 o 006 026 020 027 002 226 0010540 \0 w 002 323 020 027 002 227 \0 274 001 263 020 027 002 230 0010560 \0 275 002 226 020 027 002 231 \0 276 004 \b 020 027 002 232 0010600 \0 213 \0 # 034 \a 002 233 ! g \0 270 020 \b 002 234 0010620 " j 001 V 020 027 002 235 \0 242 001 272 020 027 002 236 0010640 \0 243 002 3 020 027 002 237 \0 021 002 373 020 027 002 240 0010660 \0 236 004 \r 020 027 002 241 \0 237 006 021 020 027 002 242 0010700 \0 240 002 6 020 027 002 243 \0 241 \0 304 020 \t 002 244 0010720 " 235 \0 313 020 \t 002 245 # x \0 323 020 \t 002 246 0010740 $ 027 001 301 020 027 002 247 \0 y 001 304 020 027 002 250 0010760 \0 v 004 023 020 027 002 251 \0 230 \0 ' 020 027 002 252 0011000 \0 q 006 ( 020 027 002 253 \0 r 002 I 020 027 002 254 0011020 \0 202 004 y 020 027 002 255 \0 } 004 032 020 027 002 256 0011040 \0 t 003 { 020 027 002 257 \0 200 \0 335 020 \n 002 260 0011060 $ h \0 345 020 \n 002 261 $ 226 \0 355 020 \n 002 262 0011100 $ 246 \0 363 020 \n 002 263 $ 265 \0 370 020 \n 002 264 0011120 $ 311 \0 376 020 \n 002 265 $ 340 001 005 020 \n 002 266 0011140 % 006 001 \v 024 \n 002 267 % 034 001 024 024 \v 002 270 0011160 ( / 001 033 020 \v 002 271 ( 8 004 ~ 024 \v 002 272 0011200 ( 243 001 ! 020 \f 002 273 ( 270 001 ( 020 \f 002 274 0011220 * N 004 205 020 027 002 275 \0 + 003 256 020 027 002 276 0011240 \0 A 002 233 020 027 002 277 \0 D 003 j 020 027 002 300 0011260 \0 235 004 " 020 027 002 301 \0 216 001 Z 024 \f 002 302 0011300 * ) \0 / 020 027 002 303 \0 s 006 0 034 \f 002 304 0011320 ) 246 002 O 020 027 002 305 \0 201 005 016 \b \r 002 306 0011340 \0 \0 005 026 \b \r 002 307 377 377 005 036 \b \r 002 310 0011360 \0 \0 005 " \b \r 002 311 \0 \0 005 ' 020 \r 002 312 0011400 + 030 005 . 020 \r 002 313 + Z 005 : 020 \r 002 314 0011420 + 266 005 C 020 \r 002 315 , 236 001 314 020 \r 002 316 0011440 . 024 005 H 020 \r 002 317 . 244 001 322 020 \r 002 320 0011460 / \f 005 O 020 \r 002 321 / 027 001 334 020 \r 002 322 0011500 / 005 T 020 \r 002 323 / 337 005 [ 024 \r 002 324 0011520 0 331 005 f 030 016 002 325 1 002 004 214 020 027 002 326 0011540 \0 225 005 m 030 016 002 327 1 \n \0 # 034 \r 002 330 0011560 0 005 s 030 016 002 331 1 ' 005 x 030 016 002 332 0011600 1 021 005 177 020 017 002 333 1 S 001 Z 024 017 002 334 0011620 2 305 005 206 020 017 002 335 2 355 006 0 034 017 002 336 0011640 2 @ 005 217 020 020 002 337 3 253 005 226 020 020 002 340 0011660 4 ~ 005 236 020 020 002 341 5 027 005 250 020 021 002 342 0011700 5 224 005 264 020 022 002 343 5 312 005 274 020 022 002 344 0011720 5 370 005 304 020 022 002 345 6 \b 005 312 020 022 002 346 0011740 6 027 005 317 020 022 002 347 6 + 005 325 020 022 002 350 0011760 6 B 005 334 020 022 002 351 6 h 005 342 024 022 002 352 0012000 6 ~ 005 352 020 024 002 353 8 223 005 360 024 024 002 354 0012020 8 276 005 364 020 024 002 355 9 031 001 340 024 024 002 356 0012040 9 ! 005 373 020 024 002 357 9 261 003 n \b 027 002 360 0012060 200 023 \0 7 \b 027 002 361 200 & 004 220 020 025 002 362 0012100 : 231 004 ( 020 025 002 363 : 316 001 a 024 025 002 364 0012120 ; Q 006 4 024 025 002 365 ; 251 004 1 024 025 002 366 0012140 ; 342 002 334 024 025 002 367 < 036 \0 027 003 N \0 001 0012160 003 200 \a 245 003 S \0 001 \v % \t $ 006 \n \0 001 0012200 024 I 001 W 002 242 \0 001 025 240 002 360 002 U \0 001 0012220 030 220 003 370 004 257 \0 001 034 210 001 313 \0 @ \0 001 0012240 036 S 003 362 \0 F \0 001 " E \0 W \0 L \0 001 0012260 " 234 001 313 \0 S \0 001 $ g \0 367 \0 Y \0 001 0012300 % ^ 003 Y \0 _ \0 001 ( 267 002 ` 004 265 \0 001 0012320 + 027 005 353 004 273 \0 001 1 002 \0 P 004 277 \0 001 0012340 1 R 002 X 004 305 \0 001 3 252 001 305 004 314 \0 001 0012360 5 o \0 Z 004 322 \0 001 5 311 \0 361 004 330 \0 001 0012400 6 272 \0 \n 004 336 \0 001 6 304 003 r 002 342 \0 001 0012420 : 6 001 367 004 344 \0 001 < - \t 001 004 5 \0 001 0012440 \0 \0 \0 \0 \0 001 003 9 \0 \0 003 200 E . 0012456