I REDUNDANT CONTINUATION MARK; IT IS IGNORED I CONTINUATION MARK NOT IN RANGE 1 TO 9; IT IS IGNORED I ILLEGAL STMT. NUMBER, NON-NUMERIC CHAR. IN COLS. 1-5 W ILLEGAL TYPE OR IMPLICIT STATEMENT, INTEGER IS ASSUMED. W NON-DECLARATIVE STATEMENT IN BLOCK DATA. F SYMBOL TABLE FULL W STATEMENT TOO LONG, REMAINDER DISCARDED W TYPE COMPLEX NOT ALLOWED IN MIXED MODE   +\I<:( <* . .7("f&  2* $77 D!f!V* !f!2) IN FORMAT FORT002002 SYNTAX ERROR IN FORMAT FORT002003 REFERENCE OUTSIDE OF RECORD BOUNDARIES FORT003000 SUBSCRIPT LESS THAN OR EQUAL TO ZERO FORT003001 EXPONENT OVERFLOW IN ADDITION OF DOUBLE TO DO F MAXIMUM FUNCTION DEPTH (20) EXCEEDED. F MISMATCHED PARENTHESIS. F NON-ARRAY REFERENCE TO ARRAY ITEM. F CANNOT ASSIGN TO A CONSTANT F CANNOT ASSIGN TO A FUNCTION W ILLEGAL CHAR. TERMINATING A STMT. OR POSS. BAD OPERATOR F SUBSCRIPT ON NON-ARRAY VARIABLE W NAME MUST BE 1-6 ALPHANUMERICS, THE FIRST ALPHABETIC !5`y@#K" #*'    ! w,'Օ^e@ Օ ĕ  K"7 '*' 7 x@#C?% )נ I,(נ0נ9נ  Ԑ7 l%#*B(נ נ  F#F#!%,f(%#6Dנ 8נ %#*(CwW #=w F#* 0(נ$*( 6נ`3%#%# ` j*( wѐ#eC å1å,(9 %# V$R v"UUUTE0Q e "$2w >.... &e(E @T  $D "U UE 555    Eǯ & t&f B&e `) `) X E Em4  .5 E 5  W(5 Uf 5E fE`mw!$ E ~1ww7U UBLE FORT003002 EXPONENT OVERFLOW IN ADDITION OF DOUBLE TO REAL FORT003003 DOUBLE PRECISION DIVISION BY ZERO FORT003004 EXPONENT OVERFLOW IN DOUBLE PRECISION DIVISION FORT003005 INTEGER DIVISION BY ZERO FORT003006 EXPONENT OVERFLOW IN REAL DIVISION FORT003007 COMPLEX DIVISION BY ZERO FORT003008 REAL DIVISION BY ZERO FORT003009 EXPONENT OVERFLOW IN COMPLEX MULTIPLICATION F ILLEGAL SUBSCRIPT IN AN ARRAY ASSIGNMENT F ILLEGAL OPERAND OR POSSIBLE ADJACENT OPERATORS. F TOO MANY SUBSCRIPTS OR NO CLOSING PAREN FOR SUBSCRIPT. W NO FUNCTION ARGUMENTS PRESENT, FUNCTION IGNORED. F UNRECOGNIZABLE PARAMETER IN FUNCTION CALL. F FUNCTION CALL MISSING A ")". F ILLEGAL ROUTINE NAME. W MISSING END STATEMENT, END IS ASSUMED. %%w`#*)7 Pfvppl 4*B)fn) Z  )5*f) ) -  ) )p#!#!)!*)0000 )˕/DDe ,)d &f-"""*)* "-! r* *s  !" % !*0* ",@ @ >B*T* ?& #!" w2ff&ff&& 7 fNmD  E%  % F .TRUE..FALSE.333& & &f&f& & & A& & $m"$    DE v!$w+--  'DE 00L    9Q  0 $ FaB A @ v!$N    /#   cw& 23   w e. vv    w(EDN " v!$DE+- v!$DE  FORT003010 EXPONENT OVERFLOW IN DOUBLE PRECISION MULT. FORT003011 EXPONENT OVERFLOW DURING NEGATION FORT003012 EXPONENT OVERFLOW IN REAL MULTIPLICATION FORT003013 INTEGER OVERFLOW ON ADDITION FORT003014 PRODUCT OUTSIDE OF RANGE ON INTEGER MULT. FORT003015 INTEGER BASE = 0, INTEGER EXPONENT <= 0 FORT003016 DOUBLE BASE = 0, INTEGER EXPONENT <= 0 FORT003017 DOUBLE BASE = 0, DOUBLE EXPONENT <> 0  W IMPROPERLY NESTED DO STATEMENT W DO LIST OVERFLOW, NO MORE THAN 10 NESTED DO'S ARE ALLOWED. W ILLEGAL SYNTAX IN COMMON/EQUIVALENCE W TABLE OVERFLOW IN COMMON/EQUIVALENCE W DUMMY VARIABLE OR ADJUSTABLE ARRAY USED IN COMMON W VARIABLE ALREADY IN COMMON, CANNOT BE RE-DEFINED. F ILLEGAL DO STATEMENT SYNTAX F DO CONTROL VARIABLE NOT SIMPLE INTEGER VARIABLE. ,x*Z "  "D 6:**#!fՋ D *w * **7w *ww * 2' (*-8!&f ! !c*+ע0ӕ !'>+ 7 v8+#!B+B+\I*.`+?@EX+HHHH j+ w*+ 6 0   CaCa.+` 7! | 0090 ` av!$  ` "w   4 4f& ( " mB A @ mA @ m@ c  e   e=-9B6 C B A @ #"B A @ C6v "$e΋V w  J &f 8 2&f  eB A @ eA @ e@ e B A @    &fW!%UE!+x5!wB09AZ!ĕ FORT003018 DOUBLE BASE < 0, DOUBLE EXPONENT <> 0 FORT003019 REAL BASE = 0, REAL EXPONENT <> 0 FORT003020 REAL BASE < 0, REAL EXPONENT <> 0 FORT003021 REAL BASE = 0, INTEGER EXPONENT <= 0 FORT003022 REAL OUTSIDE RANGE ON REAL TO INTEGER CONVERTION FORT003023 EXPONENT OVERFLOW ON DOUBLE TO REAL CONVERSION FORT004000 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT004001 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSI F DO PARAMETER NOT SIMPLE INTEGER VARIABLE OR CONSTANT W BAD STEP VALUE IN DO, IT IS ASSUMED TO BE 1. W ILLEGAL CONSTANT IN PAUSE/STOP W ILLEGAL OR MISSING STATEMENT LABEL NUMBER F ILLEGAL SYNTAX IN GOTO/ASSIGN STATEMENT W ILLEGAL PARAMETER IN STATEMENT FUNCTION LIST F ROUTINE NAME CANNOT BE A NUMERIC CONSTANT W "SUBROUTINE" OR "FUNCTION" NOT FIRST STMT. OF RO*,  T&50*2,EEV!3`&$*V, :&*z,w:6 &6v "e ""M*,a ~ v6  B ߁WO*,. W'5 e:w"e*,v  Nv 0 E ,* -E%%  h*.-e:w" 60&$R-\XVR  *p-W:ĕ,ĕ 'f wf w'7 $w 27 .GLOBL7 7777777777777777+-***/.OR..AND..NOT..LT..GT..EQ..NE..LE..GE.     U n    C å å$ נA   e`  B¥  ɥ ɋ D &f DW R  &&f>9  Ëנe ee e ѐ   GNED FORT004002 DEXP CALLED WITH EXPONENT GREATER THAN 87. FORT004003 DLOG ARGUMENT LESS THAN OR EQUAL TO ZERO FORT004004 DSQRT ARGUMENT LESS THAN ZERO FORT004005 EXP CALLED WITH EXPONENT GREATER THAN 87. FORT004006 SYSTEM ERROR NO DIAGNOSTIC ASSIGNED FORT004007 IABS ABS(X) GERATER THAN 2**15 - 1 FORT004008 IDIM RESULT OUTSIDE OF RANGE -2**15-1 TO 2**15-1 FORT004009 ISIGN RESULT GREATER THAN 2**15 - 1 !UTINE W ILLEGAL PARAMETER IN SUBROUTINE OR FUNCTION LIST W TOO MANY PARAMETERS IN ROUTINE LIST W ILLEGAL ARGUMENT LIST IN EXTERNAL. W TOO MANY LEFT PARENTHESES IN FORMAT W MISSING COMMA OR ) IN COMMON/EQUIVALENCE. W MISSING ( IN COMMON/EQUIVALENCE W DUMMY ARGUMENT OR ADJUSTABLE ARRAY USED IN EQUIVALENCE W INCONSISTENT EQUIVALENCE "(U55%E*-  "  .-"EEE!",-  wT3.. 63( &v (v$e *.. d $I "UUw t*R.0v$e V * $I H*v.": 4U0 "e *." *  0?De$ы*.W', 0TN 5ԕ,.. #@(&fe B em<&ff&e Z  e&f $2 eW0W7E0W0 W9WAWFE7 &%̋ 7w .w %8 `: `n pw :: $SEQ,7ma:f& ɋɥ,ɥ= ɥ(ɥ)        .TITLE .CSECT .GLOBL : JSR %4,$POLSH .GLOBL $POLSH,$NAM $NAM,0,0, .GLOBL $SEQ ~w : <$ FORT004010 ALOG ARGUMENT LESS THAN OR EQUAL TO ZERO FORT004011 SQRT ARGUMENT LESS THAN ZERO FORT004012 SNGL EXPONENT OVERFLOW ON ROUND FORT004013 RANDU/RAN WRONG NUMBER OF ARGUMENTS FORT004014 PDUMP WRONG NUMBER OF ARGUMENTS FORT004015 CSQRT UNDERFLOW FORT005000 SYSTEM ERROR NO DIAGNOSTIC ASSIGNED FORT005001 EXPONENT UNDERFLOW ON ADDITION DOUB% F TWO OR MORE COMMON ITEMS ARE EQUIVALENCED F I/O UNIT IS NOT SIMPLE INTEGER VARIABLE OR CONSTANT. F ARRAY OR FUNCTION NAME NOT ALLOWED AS UNIT IN I/O STMT. F ILLEGAL SYNTAX IN I/O STATEMENT. F MISSING ARGUMENT IN FIND. F ILLEGAL RECORD DESIGNATOR IN RANDOM ACCESS READ/WRITE. F MISSING RIGHT PARENTHESIS IN I/O CALL W ILLEGAL FORM OF END= AND/OR ERR= &u 7BU w"* /*W'ы x*./$ы~DeT N*R/  6 6 6 B6 L*v/6 6Da jWHS*/c w(W.a S- & */v$e  $I */"UUUE0Q *0 w$2(**0 e "e2e(we,N0,' p! 6: * Lw b:  ` w P:e w b, <w *; ɥ0  N D %ɋ3*7 7 A<6& !!!@!! !  VF @r!r? ?\? :#!!׭ ,#. ѕ?ѕ ѕ ѕ @#w:#!& fd!/W 7 H!/ H@W 7 (!/   >W  (LE TO DOUBLE FORT005002 EXPONENT UNDERFLOW ON ADDITION DOUBLE TO REAL FORT005003 EXPONENT UNDERFLOW ON DOUBLE PRECISION DIVISION FORT005004 DEXP CALLED WITH EXPONENT LESS THAN -88.7 FORT005005 EXP CALLED WITH EXPONENT LESS THAN -88.7 FORT005006 EXPONENT UNDERFLOW ON DOUBLE MULTIPLICATION FORT005007 EXPONENT UNDERFLOW ON REAL MULTIPLICATION FORT005008 EXPONENT UNDERFLOW ON DOUBLE PRECISION DIVISION FORT005009 SYSTEM ERROR NO DIAGNOSTIC ASSIGN) W ILLEGAL FORM FOR LIST ITEM IN I/O STATEMENT. F ILLEGAL SYNTAX OF REWIND, BACKSPACE OR ENDFILE F NON-INTEGER PARAMETER IN REWIND, BACKSPACE, OR ENDFILE W ILLEGAL H CONSTANT IN FORMAT W HOLLERITH CONSTANT COUNT TOO BIG. W SYNTAX ERROR IN IMPLICIT STATEMENT W HOLLERITH CONSTANT IMPROPERLY TERMINATED BY END OF LINE. W .NOT. MAY BE USED AS A UNARY OPERATOR ONLY*wJ6 0wf7'*t0 6넃 rT  6 ,*06Da6WEWDv *0:T W+tW-q6 6*0Da& - EE *1** &e(e(v$*(1e -DE V$R v-*L1"UUUTE0Q *p1e "$2w >.{*1... &e(E @(*1T  +-AS --LI0䠁-  j-dON-\SU P-LSU-DON{v!!!$"!  !>L2"!7 >  J  <4!> @"!7  "L>""7 7 ""%  & w8860 w, 0 *7 <7 7 7 7  'Е &''Е '%w7 >7 Bw7 @2"!w7 <@"!w " F P7 JED FORT006000 CONVERSION ERROR FORT006001 SYSTEM ERROR NO DIAGNOSTIC ASSIGNED - W EXPONENT MAY NOT BE LOGICAL*1, LOGICAL*2 OR COMPLEX W INTEGER**REAL OR INTEGER**COMPLEX NOT ALLOWED. W COMPLEX**REAL OR COMPLEX**DOUBLE NOT ALLOWED F IMPROPER LABEL SYNTAX IN IF STATEMENT W ANYTHING **COMPLEX NOT ALLOWED F MISSING COMMA IN READ OR PRINT F INCORRECT SYNTAX IN DEFINE FILE STATEMENT F COMPLEX ARITHMETIC NOT YET SUPPORTED. .$D "U 7*1UE 55*25    Eǯ:*$2 & t&f B*H2&e `) `) X E <*l2 Em4  .I*25 E 5  W(5*2 Uf 5E^*2 fE`mw!$ E*2 ~1w@* 3w7U / P!!47 .• !•SZ? J ?J? w!!!"x?  ?f1 f#!# 0000 ERRORS 4d N(^  7'w$ ? w??FILEf     `A  w 0& e l~A d 5@w +  `E m@ C  F@ @ @ EC h 2&  &' F5  ` w E ` 5w YEX ,  r  y 7E H 0 &O>(NI(vLDh\qhr(,0z@Q@s@&>N\(Xshy hPK@K.Nu(Kh6Rh( OfhOQi@<6O=(OhhOih$>Dh1 F ARRAY IS TOO LARGE. F ILLEGAL ROUTINE NAME F ILLEGAL DO SPECIFICATION IN I/O STATEMENT F ILLEGAL LIST IN IMPLIED DO F ILLEGAL FORMAT SPECIFICATION IN I/O STATEMENT W SYNTAX ERROR IN EXPRESSION OF ASF W MISSING "," OR ")" IN ASF. W MISPLACED "=" IN ASF. 2w2ff*D3&ff&& 7 fNmD *h3 E%  *3% F .TRUd3E..FALSE.3333R*3& & &f&f& & & A& *3& $m"$    DE v!$0*4w+--  'DE *2400L    9Q *V4 0 $ FaB A @ v!$D*z4N    /# 3w E 7 ~g-|7 v &P Dw T1E  NL< ~5  w &BEw KE  5 ~Ee x v . $ "   J  w>{ 25&5" :E   &'EE : .wew Z# t  l ^bE 5 w E bE  w tECF w E w # ~ CF w  oE4( OfhOfhORi@NOh(O(ih OPihOQihORihOxih.˫h(Ϋ@yhNݩс(ݩ؁h ݩh ݩ(hݩPhݩxhNUс( U؁hUhU(hUPhUxhNh(dhOfhOfhOfhOfh5 F PREVIOUS ALLOCATION OF ASF NAME. F SUBSCRIPTS OUT OF BOUNDS IN DATA OR EQUIVALENCE. F ILLEGAL EXTENSION OF COMMON ORIGIN BY EQUIVALENCE. F OPENING "/" MISSING FROM DATA GROUP. W UNEQUAL NUMBER OF VARIABLES AND CONSTANTS. W DATA NOT ALLOWED IN COMMON EXCEPT IN "BLOCKDATA". F SUBSCRIPTS ON UNDIMENSIONED ELEMENT IN DATA. F ADJUSTABLE ARRAY NOT ALLOWED IN DATA6&*4  cw& 23   *4w e. v!*4v    w(EDN "* 5 v!$DE+- v!$B*.5DE 0090 `*R5 av!$  ` "w *v5  4 4f& ( "*5 mB A @ mA @ m@ c*5  e   e*5=-9B7 rw D ͮw lDE 0w TDE  *w @Ew : E 6 w (E * 2wt `D7aVA&& 7 w E@F dw {Ew {E " F <7 7 w {Ew {Ew KEe B 7a& & *7 $w nEF L 7 w j@E w 6E&&J w "Dw D Jw Dw D J w Dw E JJ .GLOBL $READ $WRITE $DC$IC$LCI O .END MAIN. .GLOBL $EXIT H.S6(S2hI6=( @8hp@.E=(E@8h.=(@8h6Ϛ($hp@6 (h@h6O( hp@E. F PRESETTING NAMED COMMON ALLOWED ONLY IN "BLOCKDATA". F ILLEGAL FORM FOR CONSTANT IN DATA. F ILLEGAL REPEAT COUNT. W MISMATCHED DATA TYPES. W DATA MUST FOLLOW ALL OTHER DECLARATIVES. I NO PATH TO THIS STATEMENT W VARIABLE MAY NOT HAVE BEEN REDEFINED AFTER USE IN "ASSIGN" F*66 C B A @ #"B A @ **6C6v "$e*N6΋V w  J*r6 &f 8 2&f *6 eB A @ eA @ e@ e B A @ <6    ,6&fW!%UE!+xM65!w*6B09AZ,"7!ĕ:ĕ,ĕ (H7'f wfG $EXIT : MOV MOV -(%0),-(%6) JMP @(%4)+ .EVEN +10,%0 BR +4,%0 BR MOV -(%0),-(%6) (%5)-4,%0 ADD #10,%0 ADD #4,%0 . = .+: 0 : 0,0 : 0,0,0,0 .GLOBL $OTSV -߄%&f&f  %e W ##G"  D ! ҕ^e@ " *" n" W0Օ 7774 e0Aڃ E  w!h `7a`G  h.Ё( h].Hh(S4h.Ϋ (Ϋ@h*.Ϋh(Ϋdh.Ϋ$(Ϋ@h.bMN *8&&f>9  u*9Ëנe ee e ѐ *(9 @(&fe*L9 B em<&.p9ff&e Z  *9e&f $*92 eW0W7)*9E0W0 W9WAW.:FE7 &%̋ 7d ,:w .w %8 OD .GLOBL $BCKSP $BCKSP B+T*.n+;QJK=LJ<BfLOC<+   ~ z v rw 6 0   CaCa` 7! |  T&5EEV!3`&$ :&w:6 &6v "e ""a ~ v6  B ߁W. W'5 e:w"ev  Nv 0 E E%% P(h@.h(,h.=(@8hx.*=(*@8h.=(@8hYV$(hݩhhhhhwF( hh*hhcR`: `,F:n pw :: $SEQ,r*l:7ma:f& ɋɥ,ɥ*:= ɥ(ɥ)     U:  W*: .TITLE .CSECT .GLOBL : JSR %4,*:$POLSH .GLOBL $POLSH,$NAM $NAM,0 ;,0, .GLOBL $SEQ C ; ~w : < "6;p! 6: * LR;w b:  ` w P0"j;:e w b, <;w *;eS e:w" 60&\XVR  W(U55%E  "  "EEE!"  wT3 63( &v (v$e  d $I "UUw 0v$e V * $I H": 4U0 "e " *  0?De$ыW', 0TN 5ԕ u 7BU w"*WT.O( h..P( hM.*O(* h.EO( E hF)ρ(ݩhOhh S4hUh6Bh(OfhOfh F0(h@8hU .TITLE $DVB07 .GLOBL $DEVTB .CSECT ; ; $DEVTB V007A ; ; COPYRIGHT 1971, DIGITAL EQUIPMENT CORPORATION, MAYNARD,MASS ; ;THESE ARE THE FORTRAN DEVICE TABLE ENTRIES ;WITH THE DEVICE TABLE HEADER AND ENTRY VECTOR ; .WORD DEVERR  ;ADDR OF ENTRY FOR ERR MSG FILE $DEVTB: .WORD 8.  ;NUMBER OF ENTRIES IN ENTRY VECTOR .WORD 6.  ;DEVICE NUM OF ERROR LOGGING DEVICE ; ;THE DEVICE TABLE ENTRY VECTOR ; .WORD DEV1  ;ADDR OF DEVICE 1 ENTRY .WORD DEV2  ;ADDR OF DEVICE 2 EV.; ɥ0  N D ;%ɋ3b;*7 7 A<*;6& !!!@!!*< !  VFg4< @r!r?  L<?\? :#2*f<!!׭ ,#. ѕ?m*<ѕ ѕ ѕ @#w:#!*<& fd!/+*]h6+b(+]h]hFcb(c]h ]h"]h۩]h.=(>@8h6+=(YNTRY .WORD DEV3  ;ADDR OF DEVICE 3 ENTRY .WORD DEV4  ;ADDR OF DEVICE 4 ENTRY .WORD DEV5  ;ADDR OF DEVICE 5 ENTRY .WORD DEV6  ;ADDR OF DEVICE 6 ENTRY .WORD DEV7  ;ADDR OF DEVICE 7 ENTRY .WORD DEV8  ;ADDR OF DEVICE 8 ENTRY ; ; ; ;ENTRY 1 OF DEVICE TABLE ; DEV1: .WORD 0  ;LINK BLOCK PTR .RAD50 /DF /  ;PHYSICAL DEVICE NAME DEFAULT .BYTE 0  ;HOW OPEN SWITCH .BYTE 0  ;UNIT NUM DEFAULT .RAD50 /FOR/  ;DEFAULT FILE NAME .RAD50 /001/ .RAD5Z,<W 7 (!/   *=>W  -ASC(@= --LI,b=0䠁-  j-dON-\SU*= P-LSU-DON{M$=v!!!$"}"=!  !>L2" =!7 >  J  &><4!> @"" >!7  "L><>""7 7 "[(v$e -DE V$R v"UUUTE0Q e "$2w >.... &e(E @T  $D "U UE 555    Eǯ & t&f B&e `) `) X E Em4  .5 E 5  W(5 Uf 5E fE`mw!$ E ~1\+@8h@8h6c=(c@8h@8hqn#h(Gh@(p!@7w@7@@`;@p@D`@6(hje;hP^.=(66&h-}h-~@7 '@7'@6P(@]@Qb(<]h@8@]@]0 /DAT/  ;DEFAULT EXTENSION .BYTE 233  ;NO AUTO DEL, GROUP & OTHERS READ/RUN ONLY .BYTE 0  ;DEVICE STATUS SWITCH .BYTE 0  ;MODE OF I/O - FUNCN WORD (RANDOM) .BYTE 0  ;STATUS OF I/O .WORD 0  ;RECORD COUNT - BLOCK NUM (RANDOM) .WORD 0  ;BUFF ADDR (RANDOM) .WORD 0  ;BUF LEN (RANDOM) .WORD 0  ;ASSOCIATED VAR ADDR (FROM DEFINE FILE) .WORD 0  ;NUM RECORDS IN FILE (FROM DEFINE FILE) .WORD 0  ;RECORD LENGTH (FROM DEFINE FILE) .WORD 0  ;USER ID C^$T>"%  & w8r>860 w, 0> *7 <7 7  >7 7 (> 'Е &''Е '%>w7 >7 Bw7 @2"$>!w7 <@"!$?w " F P7 J*.? P!!47 .• !$*R?•SZ? J ?J? wU$v?!!!"x?  ?)?f1 f#!# _ww7U wff&ff&& 7 fNmD  E%  % F .TRUE..FALSE.333& & &f&f& & & A& & $m"$    DE v!$w+--  'DE 00L    9Q  0 $ FaB A @ v!$N    /#   cw& 23   w e. vv    w(EDN " v!$DE`@8@]@@8@7-!@+]@+@8@۩]@]@p@]@c]@c@8@~Ru(6P(h-~hje;@@(p!@7w@7""@7@@@D`@.(hf==(@6@8h-h~h]@-@7@7 '@7'@6p@K>b(t]h7-!@aODE .WORD 0  ;ERROR VAR ADDR (FROM SETFIL) ; ; ; ;ENTRY 2 OF DEVICE TABLE ; DEV2: .WORD 0 .RAD50 /DF / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /002/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ; ;ENTRY 3 OF DEVICE TABLE ; DEV3: .WORD 0 .RAD50 /DF / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /003/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ; ;ENTRY 4 OF DEVICE TABLE ; DEV4: .WORD 0 .RAD50 /PR / .BYTE 0,0 .RAD50b0000 ERRORS {?4d N(^*?  7'w$ ? ?w??FILE*?f     `A  w *@0& e l~A d"B@ 5@w +  ^@ `E m@ C  *x@ F@ @ @ EC h 2& *@  &' F5G*@  ` w E `,@ 5w YEX ,  c+- v!$DE 0090 ` av!$  ` "w   4 4f& ( " mB A @ mA @ m@ c  e   e=-9B6 C B A @ #"B A @ C6v "$e΋V w  J &f 8 2&f  eB A @ eA @ e@ e B A @    &fW!%UE!+x5!wB09dp@,6=("7h7@)@v6Pu(6ph-hje;@@(p!@7w@7""@7@@D`@f:=(86qh-h]@-@7 q@7 '@7'@6Ps@/>b(h]h7-!@p@+6:(27 qh7@)@[e /FOR/ .RAD50 /004/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ;ENTRY 5 OF DEVICE TABLE ; ; DEV5: .WORD 0 .RAD50 /LP / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /005/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ;ENTRY 6 OF DEVICE TABLE (LOGGING DEVICE NOTE PHYS DEV NAME) ; ; DEV6: .WORD 0 .RAD50 /KB / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /006/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ;ENTRY 7 OF Df( Ar  y 7E H (,Aw E 7 ~g-|7 v Z*NA &P Dw T1E  (rANL< ~5  w &!(ABEw KE  5 ~"AEe x v .A . $ "   JR*A  w>{ 2*B5&5" :E*BB   &'EE*fB :gAZ!ĕ:ĕ,ĕ 'f wf w'7 $w 27 .GLOBL7 7777777777777777+-***/.OR..AND..NOT..LT..GT..EQ..NE..LE..GE.     U n    C å å$ נA   e`  B¥  ɥ ɋ D &f DW R  &&f>9  Ëנe eh~Pu("6Psh-hje;@@-X@(p!@7w@7""@7@@D`@^7R*(7""hN7%h7@)h87@7 q@`;@p@6i a(7hp@6i`(7 qhp@[67(<7'h7 'h&iEVICE TABLE ; ; DEV7: .WORD 0 .RAD50 /DF / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /007/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ; ;ENTRY 8 OF DEVICE TABLE ; ; DEV8: .WORD 0 .RAD50 /DF / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /008/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ;SPECIAL ENTRY FOR ERROR PROCESSORS MSG FILE ; .WORD 0  ;LINK BLOCK ERR RTN ADDR DEVERR: .WORD 0  ;LINK PTR .RAD50 /ERR/  ;LOG DATA SET j .wew Z# Bt  l ^V"BbE 5 w Ek*B bE  w tECF w 7(BE w # ~ CF  Cw  *CoE rw D$BC ͮw lDE 0&`Cw TDE  *w @Ew :C E 6 w (E *,C 2wt `D7aVA&& 7 w ]CE@F dw ke e ѐ  @(&fe B em<&ff&e Z  e&f $2 eW0W7E0W0 W9WAWFE7 &%̋ 7w .w %8 `: `n pw :: $SEQ,7ma:f& ɋɥ,ɥ= ɥ(ɥ)        .TITLE .CSECT .GLOBL : JSR %4,$POLSH .GLOBL $POLSH,$NAM $NAM,0,0, .GLlv0(j7@h7 h7h"7h7-!h7@8h 7>h7Kh 7phԪ@8@<^(Bht:h7@@`;@p@D`@FfO(Ne&h@`;@p@5NV(,@Qh}hj@Q@p@"6R(he@mNAME .BYTE 1  ;PHYSICAL DS NAME FOLLOWS .BYTE 0  ;UNIT NUM .RAD50 / /  ;PHYSICAL DEVICE NAME    ;DEFAULT TO SYSTEM DEVICE .WORD 0  ;FILE BLOCK ERROR RETURN ADDR .BYTE 4  ;HOW TO OPEN (OPENI) .BYTE 0  ;ERROR RTN CODE .RAD50 /FOR/  ;FILE NAME .RAD50 /RUN/ .RAD50 /DGN/ .BYTE 1  ;USER ID CODE .BYTE 1 .BYTE 322,0  ;ALLOW ONLY INPUT ACCESS .WORD 4  ;FUNCTION WORD (READ) .WORD 0  ;BLOCK NUM .WORD 0  ;BLOCK ADDR .WORD n{E(Cw {E " F &fh%% % 7 :&= 0B  < 4I0B= <W #I (=2=:=C=K=U=Y=b=h=s=w====pC6@I(@Dhp@#6̫b(̫@`h`;@.O( IqKh.HК(Nh.B0(&?h^Ko(sh,@p@vp@쨀p@zy}@v@^9P0  ;BLOCK LENGTH ; ; .END r MOV -m*>E(%0),-(%6) JMP @(%4)+ .EVEN *bE+10,%0 BR +4,%0 BR MOV -(%0),*E-(%6) (%5)-4,%0 ADD #10,%0 AL*EDD #4,%0 . = .+: 0 : 0,0 : 0,E0,0,0 .GLOBL $OTSV *E-߄%&f&f * F %e *.FW ##G" ,RF D ! ҕ^e@ "6*xF *" n" s==========SUBROUTINEFUNCTIONBLOCKDATAEXTERNALDEFINEFILETYPEDIMENSIONCOMMONEQUIVALENCEDATAIMPLICITENDLOGICAL*1LOGICALBYTEINTEGER*2INTEGERDOUBLEPRECISIONDOUBLECOMPLEXREAL*8REAL*4REAL2=:=W  n%% <% $7 x7w p ɥ(跊 N%x5E`U@EǡB f? w݀o  > & F   w ?& =  5ɥ,$ɥ)! E  U0 t(vhON@Ԫp@,@vp@쨀p@zy}@f.0( Xhn6(6}2hp@S4@ON@Ԫp@,@vp@쨀p@#@&ND0(L+h,@v@a \@/+@~=h(Hdhp@S4@Of@ON@Ԫp@Ԫ@,@6x@. :e&@ON@(*p:h,wwww 7 ON e&,$( (v,FW0Օ 7774 *Fe0Aڃ *F E  w!h `7a* G`G*G  $ w @ m2 2  F w @7^_ $TR: JSR %4,$POLSH $POPR .+2 RTS %5 : N e 6 6  D %j dE5 W( e 4e    E &'  e6 6 6  ! g { b `  eW,W)X    x#@+@vKP\(GvhWhp@Ԫp@,@vp@쨀p@6x@#@+@fP\(+h6xhp@ON@Ԫp@6@vp@쨀p@insQ\(pvhWh.@Of@ON@Ԫ@v@iZ@@&NR=(WqhON@Ԫp@p@vp@yfX*<f7 .*$7> l R*H ߟn U@l$_ ,*l lx f7e=~Tvv:M*H.M w *$e w 7  7l*HE@L LNf<ߋL- *lS ʋ_ \Y  z$H&f5 VH, ,*"HW H ZH BHE8[*FHP *v ؚ-\@N*jH&?dd++0WWv*HGv ss<p< (( ( ( H( ( ( *HI(I.%BI   0&HJ 0 VP D *H ~  I .GLOBL $RWIND $RW*"IIND .GLOBL $BCKSP $BCKSP .GLFIOBL $ENDFL $ENDFL {E?E2Q <  B FB : A X  E & )& 6E   , es e& r 5 5 E w .GLOBL $ADJ F l06 v6ve  6 5  m: 2&' EE82Q \+ E8 E3QU ɋ ɋ W, e&  4|^RPu(rWPshON@Ԫp@,@p@#@/+@nD(Wh$WhW qhON@Ԫ@,@p@+@d@ND=(WhhON@Ԫ@p@v@CFI=(W9hON@Ԫ@8@p@^Ѫњ(tIؚhQX\h}* Qt nIN d f*^ ߋL wLJU@Lu*$_  Lx  *& ߕ N    "v,H& 5p 7 b,&e& Ap&@,Lp N*fteȋ W IWJ,rWW QW Jf mae~ \I D!F!ط2*vIh@Of@ON@Ԫ,7 67pȋ#$^ ,|t ȋ Ћ!@ ѕ,ѕ x p 0 (q, H pD7 ,0356:'"90SUVYݬ_0,V?Z-KMNPѠ!$\ҦABDGH.<(+ɠ,|356_'\90SUVY("Z-KMNx"PѠ:$۾+ABDGH?. &J& iV(*uhp@ON@Nso( shON@p@v@@NɫЁ(^zy}hON@p@vp@쨀p@FmP\(\ ؚhX\hON@E@^(.Whp@Of@ON@Ԫp@6@vpF PARAMETER "BLANKS" IS DEFINED, C.C. 73-80 ; & TRAILING SPACES BEFORE THESE WILL BE DISCARDED, ; WITH 'CR-LF' FOLLOWING LAST VALID DATA, PROVIDED ; THAT CARD FILE IS PRECEDED BY CTL CARD WITH ; 12-11-0-7-8-9 PUNCHED IN C.C. 1. IN THIS CASE ; HOWEVER, IF THE USER BUFFER IS WORD 1, BITS 15-4 ;  C.C.2 > WORD 1, BITS 3-0; WORD 2, BITS 15-8 ;  C.C.3 > WORD 2, BITS 7-0; WORD 3, BITS 15-12 ;  C.C.4 > WORD 3, BITS 11-0 ; ; THE PACKED FORM WILL BE TRANSFERRED TO THE USER ; BUFFER UNTIL THIS IS FILLED, ANY DATA THEN REMAINING ; IN THE INTERNAL BWHERE THE ;FORMER IS THE HIGHEST ADDRESS OF THE ;PST AND THE LATTER IS THE ADDRESS OF ;THE 1ST WORD BELOW THE PST. ;THE PST IS ORDERED (TO PERMIT BINARY ;SEARCHING) WITH THE SMALLEST SYMBOL (IN ;.RAD50 PACKED NOTATION) HIGH IN CORE AND ;THE LARGEST SYMBOL (IN .RAD50 PACKED NOTATION) ;LOW IN CORE. ;.RAD50 CHARACTER REPRESENTATION ;A THRU Z : 1 THRU 26 RESPECTIVELY ; $ : 27 ; . : 28 ;0 THRU 9 : 30 THRU 39 RESPECTIVELY ;.RAD50 PACKED NOTATION ;1ST PACKED &5wf杗ݷ R@ >%; Nѥ,6uj&& (' %%"ѥ)He441e E8U(  ݁ W( ,C3& W- CD3& W,W)ɋM dO 杖J @J 4 8Vlܢ ;  ^W(  셗  DW,  ߅  *J Յ ҅   W) v ۗ   .GLOBL $DEFIL ,U,JJYڌvxh(dh@Of@ON@Ԫ@,@p@v@i@@n0(/+h/0hp@ON@Ԫp@:@p@vp@쨀p@vl0(+h0h@Of@ON@Ԫ@,@p@v@@F{(`{h{h{h p@SUFFER BEING RETAINED UNTIL THE ; NEXT READ REQUEST. ; ; TREATMENT OF ASCII READING WILL STILL FOLLOW PATTERN ; DESCRIBED IN THE PREVIOUS PARAGRAPH WITHOUT EXCEPTION. ; ; THE ONLY CONTROL CARD WHICH WILL HAVE ANY EFFECT ; IN BINARY READING WILL BE THAT INDICATING E.O.F. (IN ; THIS CASE 12-11-0-1 PUNCHING MUST APPEAR IN AT LEAST ; C.C. 1 THRU 8). ; ; N.B. WHEN ASSEMBLED FOR USAGE IN BOTH MODES, AN 'OPEN' ; CALL WILL NOT CAUSE READING OF A CARD TO ALLOW THIS ; TO BE TRANSLATED AS REQUITRIAD = CHAR1*40*40+CHAR2*40+CHAR3 ;2ND PACKED TRIAD = CHAR4*40*40+CHAR5*40+CHAR6 ; ;EACH ENTRY IS 4 WORDS WITH THE LOWEST WORD ;CONTAINING THE 1ST PACKED TRIAD, THE NEXT ;LOWEST CONTAINING THE 2ND PACKED TRIAD, THE ;NEXT LOWEST CONTAINING THE VALUE (WHICH FOR ;ASSEMBLER DIRECTIVES IS AN EXTERNAL GLOBAL ;TO BE LINKED TO THE APPROPRIATE PROCESSOR IN ;PAL-11R) AND THE HIGHEST WORD CONTAINING ;THE FLAGS IN THE LOW BYTE AND THE CONTROL ;SECTION ID (WHICH IS ALWAYS 0 FOR PST 7 y n7e  fU E8 PE % -RR~N 헠( 7 F :"Ue.-*(" 엠,)  EUU7 U7يƩ 9678 v엠,) d  EUw ~\L , | 6엠,  : .GLOBL   ɥ/ ɥ/ ыN8'8'7 7 7 Z ѥ/ F' 7,b7,\7,Ve He B-.A(A=h/.( XhL6O(w&he@(6(S\("(p!h-X@j6D{(DD`hDwh6(hh6(`pHhp@>RED BY THE READ MODE ; SPECIFIED BY THE USER. ; ; C) DRIVER CAN ALSO BE USED FOR 80-COLUMN MARK ; SENSE READER. FOR 40 -COLUMN READER, ECONOMIES ; IN BUFFER SIZE CAN BE OBTAINED BY DEFINITION ; AT ASSEMLBY OF PARAMETER "MARKS". THIS WILL ; ALSO PREVENT AUTOMATIC REMOVAL OF COLS 33-40 ; IN 'BLANKS-SUPPRESS' MODE OF USAGE. ;  XXXXXXXXXXXXXXXXXXXXXXXXX ;  X   X ;  X  NOTE  X ;  X   X ;  XXXXXXXXXXXXXXXXXXXXXXXXX ; ; PARAMETER DEFINITIONS CA;ENTRIES) IN THE HIGH BYTE. ; ;INTERNAL GLOBAL SYMBOLS:  .GLOBL SYMTBB, SYMTBT ; ;EXTERNAL GLOBAL SYMBOLS:  .GLOBL ASCII, ASECT, BYTE, CSECT, END  .GLOBL ENDC, EOT, EVEN, GLOBL, IFDF  .GLOBL IFG, IFGE, IFL, IFLE, IFNDF  .GLOBL IFNZ, IFZ, LIMIT, RAD50  .GLOBL TITLE, WORD ; ;IF THE SYMBOL "ELVN45" IS DEFINED, ;THE RESULTING OBJECT MODULE WILL ;CONTAIN THE INSTRUCTION MNEMONICS ;FOR THE PDP-11/45 COMPUTER ;  .IFDF ELVN45  .GLOBL FLT2, FLT4>>\  8' &e M 7$&e7 @.' C<95554U  ,, 77  ¥,¥/*ɋ  7-ٌ+,-F'    w ܕN P w ܌N ܇& fAB &m Hw ܈N a  &    D  za w D܌Ne $ <܇=.+ .CSECT .=.+.$$$$.&f P  *e   m mD D D E6P\(Zphp@>=(h@8hph (.P\(/xWh6O(xKhp@.ѪP\(Rh.ɪК(QhFԪ(ԪhN BE MADE DURING PASS 1 ; OF THE ASSEMBLY ONLY IF REQD AS DESCRIBED IN ; PAL-11R MANUAL, SECTION 9-2, E.G. ; ;  #CR,LP:,/PA:2 ; ;  XXXXXXXXXXXXXXXXXXXXXXXX ; .TITLE CR .GLOBL CR ; R0=%0 R1=%1 R2=%2 R3=%3 R4=%4 R5=%5 SP=%6 PC=%7 ;INTERFACE TABLE: CR: .WORD 0   ;CURRENT DDB OR 0 IF IDLE .IFNDF BINARY .BYTE 224,0  ;FACILITIES: ASCII INPUT,OPEN INC. .ENDA , TRUNC, ROUND  .ENDC ; ;FLAGS:  ASMDIR=10 ;BIT 3 BEING ON IN THE FLAG   ;BYTE INDICATES THAT THIS PST   ;ENTRY IS AN ASSEMBLER DIRECTIVE.  BYTFLG=1 ;BIT 0 BEING ON IN THE FLAG   ;BYTE INDICATES THAT THIS PST   ;ENTRY IS BYTE ENABLED. THIS   ;ALLOWS ONE ENTRY TO SATISIFY   ;SEARCHES FOR WORD AND BYTE   ;INSTRUCTIONS. E.G. THE ENTRY   ;'MOV', BECAUSE BIT 0 IS ON,   ;WILL SATISFY SEARCHES FOR   ;'MOV' OR 'MOVBE &'&f m&f& <4 6 md  @ T` @A @ 4` r "       f @a   T' & $   ~‹¥, <l"&e7 4 N¥((  & V 8¥,!& D ¥,¥)7e< = <+7 3 &e7 ) d <5   B B B E ``7 T > p@Ԫp@쨀p@a6Ԫ=(pԪ@8hp@Vv(vhp@Ԫp@p@vp@쨀p@6ԪSu(Ԫphp@;6Ԫ(Ԫhp@76;0(A;-hp@6,V(8@Qhp@.IFDF BINARY .BYTE 234,0  ;ALLOW BINARY IF REQD. .ENDC .IFNDF MARKS .BYTE 3  ;STD BUFFER SIZE = 96 BYTES .ENDC .IFDF MARKS .BYTE 2  ;(64 IF 40-COL MARK SENSE) .ENDC .BYTE CR.INT-CR,300 ;INT'RUPT SVCE AT PRL 6 .BYTE CR.OPN-CR ;OFFSET TO OPEN .BYTE CR.TFR-CR ;OFFSET TO TRANSFER .BYTE 0,0,0  ;(NO CLOSE OR SPEC. FUNC.) CR.NAM: .RAD50 'CR' ;OPEN PROCESSOR: CR.ONR: JSR PC,CR.NRY CP.OPN: BIT #400,@#CR.CSR ;CARDS IN HOPP' ; ;INSTRUCTION CLASS: ;BITS 4-7 OF THE FLAG BYTE DESIGNATE THE ;TYPE OF INSTRUCTION TO PROVIDE DISPATCH ;INFORMATION TO PAL-11R. SCLAS0=0  ;OPERATE GROUP SCLAS1=20  ;UNARY (DESTINATION) (SOURCE) GROUP SCLAS2=40  ;BINARY GROUP SCLAS3=60  ;RTS SCLAS4=100  ;BRANCH GROUP SCLAS5=120  ;REGISTER-DESTINATION GROUP SCLAS6=140  ;TRAP GROUP .IFDF ELVN45 SCLAS7=160  ;SOURCE-REGISTER GROUP SCLAS8=200  ;REGISTER-OFFSET GROUP SCLAS9=220  ;SHIFT COUNT-REG. GROUP SCLS10=240  ;NU++X >8(Q Dm|C D11ևaw ;@  T' 7  N0 7 7 Q 6B D @Dl7!7Հ e  J"& eLlL Qr FDBR 2J"@ ?w ;@ 8 ؇7 0*JR ,BmZԗ< FԷ @w l; w `, 8؇ԷD7*ԇtm R  BmU2 EF'   \72St Hw 6)P(j8vhp@6:(@,h:h .s0(-hL.aP(*vh.bO(\@ht6r(*rhp@a6vSu(vphp@ER? BNE CR.ONR  ;IF NOT TELL USER TO READY .IFNDF ONLY26&ONLY29 .IFNDF DEFALT  ;FOR DUAL-PUNCH DRIVER ... CLR (PC)+  ;... SET CONV. TABLE OFFSET .ENDC   ;... FOR DEFAULT PUNCH .IFDF DEFALT  ;... AS APPROPRIATE MOV #104,(PC)+ .ENDC CR.TOS: .WORD 0 .ENDC .IFDF BLANKS  ;IF BLANK-SUPPRESS VERSION ... CLRB CR.ZSW  ;... FORCE SUPPRESS OFF .ENDC .IFNDF BINARY TST (SP)+  ;IGNORE INTERIM RETURN BR CR.DXT  ;... & TAKE COMPLETION .ENDC MBER GROUP SCLS11=260  ;FLT. PT. SOURCE-DBL. REG. GROUP SCLS12=300  ;DBL. REG.-DEST. GROUP SCLS13=320  ;PRIORITY GROUP SCLS14=340  ;SOURCE-DOUBLE REG. GROUP .ENDC ; ; ; .EVEN SYMTBT: .WORD 0  ;1ST REGISTER BELOW PST. ; .WORD 131247  ; .WORD .WORD 070440 .WORD WORD .WORD ASMDIR ; .IFDF ELVN45 .RAD50 /.TR/  ;.TRUNC .RAD50 /UNC/ .WORD TRUNC .WORD ASMDIR ; .ENDC .WORD 131051  ; .TITLE .WORD 077345 .WORD TITLE .WORD ASMDI׌Sh bw +T * N N w*D7!4(ml5@"U@Z w b׍S w v+CV D׃ Bb. =6T ^MVE  F T pw 0Tm ` F w ;TwZCm5@U@ CmB  և. =.+ $TR =. &eAf& e& p&A m C \!ee R$ j'  < T'"&@ w 1T& p6v=(Vv@8hp@6v(vhp@.EPu(.Eph.E(>Eh`.ꨐ{(h*6с(N}h6hW>(Bhh .IFDF BINARY  ;FOR BINARY VERSION ... CLRB CR.TFR  ;... FORCE NO OPEN READ BR CR.ODN CR.OXT: INCB CR.TFR  ;... BY MAKING COME HERE BR CR.ODN  ;... BEFORE EXIT .ENDC ;SUBSIDIARY ROUTINES: ; A) RESTART AFTER ERROR: CR.AGN: .IFDF BINARY  ;IN BILARY VERSION ... TSTB CR.ISW  ;... CHECK IF BINARY READ BEQ CR.TFR  ;IF NOT CAN JUST START OVER BR CR.ERD  ;ELSE LEAVE USER BUFFER ALONE ; B) INITIALISE INTERNAL BUFFER POINTERS: CR.ISP: MOV PC,-(SP) ;GET R ; .IFDF ELVN45 .RAD50 /.RO/  ;.ROUND .RAD50 /UND/ .WORD ROUND .WORD ASMDIR ; .ENDC .WORD 130721  ; .RAD50 .WORD 017226 .WORD RAD50 .WORD ASMDIR ; .WORD 130351  ; .LIMIT .WORD 051274 .WORD LIMIT .WORD ASMDIR ; .WORD 130156  ; .IFZ .WORD 121200 .WORD IFZ .WORD ASMDIR ; .WORD 130156  ; .IFNZ .WORD 055620 .WORD IFNZ .WORD ASMDIR ; .RAD50 /.IF/  ; .IFNE .RAD50 /NE/ .WOB+X*.~+<+T<A+RI8WGTT(UEWWML M++M   h d ` \ X T P Lwn 6 0   CaCa` 7! |  T&5EEV!3`&$ :&w:6 &6v "e ""a ~ v6  B ߁W. W'5 e:w"ev  Nv p@>쨏(Xh h쨀p@>Ru(`쨀phphp@>(Zihhp@).O(,h].nЁ(jiZh6OO(ONhOh>PRuBUFFER START ADD #CR.BUF-.,@SP MOV @SP,(PC)+ CR.IBS: .WORD 0 ADD #CR.BSZ,@SP ;NOW GET END MOV @SP,(PC)+ ;STORE AS CONTROL CR.IBE: .WORD 0 MOV (SP)+,(PC)+ ;... & AS INIT. PTR CR.IBP: .WORD 0 INCB @PC  ;MUSTN'T COME HERE AGAIN! .ENDC ;TRANSFER SET-UP PROCESSOR: CR.TFR: .IFDF BINARY  ;FOR BINARY VERSION ... BR .+4  ;... SWITCH TABLE FORCES ... BR CR.OXT  ;... CORRECT INIT. BR CR.ISP .ENDC MOV CR,R0  ;GET DDB ADDRRD IFNZ .WORD ASMDIR ; .WORD 130156  ; .IFNDF .WORD 054046 .WORD IFNDF .WORD ASMDIR ; .RAD50 /.IF/  ; .IFLT .RAD50 /LT/ .WORD IFL .WORD ASMDIR ; .WORD 130156  ; .IFLE .WORD 045710 .WORD IFLE .WORD ASMDIR ; .WORD 130156  ; .IFL .WORD 045400 .WORD IFL .WORD ASMDIR ; .RAD50 /.IF/  ; .IFGT .RAD50 /GT/  .WORD IFG .WORD ASMDIR ; .WORD 130156  ; .IFGE .WORD 026210 .WORD IFGE .WORD ASMDIR ;  0 E E%%  e:w" 60&\XVR  W(U55%E  "  "EEE!"  wT3 63( &v (v$e  d $I "UUw 0v$e V * $I H": 4U0 "e " *  0?De$ыW', 0TN 5ԕ u 7B(Ofh OfhOfhNHUu( S4hS4hS4hS4hS4h*6Ru(4w""hp@6o(@jhj@6l(]hp@ >i(+]h]hp@KNd(cESS ADD #6,R0  ;... & MOVE TO BUFFER STORE MOV (R0)+,-(SP) ;GET BUFFER POINTER MOV @SP,-(SP) ;... & BUILD BUFF END SUB @R0,@SP SUB (R0)+,@SP MOV (SP)+,(PC)+ ;SAVE RESULT ... CR.UBE: .WORD 0 .IFDF BINARY  ;IN BINARY VERSION ... MOVB @R0,R0  ;... CHECK MODE BICB #376,R0 MOVB R0,CR.ISW ;IF ASCII CLEAR SWITCH BEQ CR.RDC  ;IF BINARY WANTED ... MOV (SP)+,R0 ;... SET PTRS & SWITCH MOV CR.IBP,R1 CLR R2  ;SET INTERRUPT FLAG CR.BIN: CMP R1.WORD 130156  ; .IFG .WORD 025700 .WORD IFG .WORD ASMDIR ; .RAD50 /.IF/  ; .IFEQ .RAD50 /EQ/ .WORD IFZ .WORD ASMDIR ; .WORD 130156  ; .IFDF .WORD 014760 .WORD IFDF .WORD ASMDIR ; .WORD 130044  ; .GLOBL .WORD 057034 .WORD GLOBL .WORD ASMDIR ; .IFDF ELVN45 .RAD50 /.FL/  ;.FLT4 .RAD50 /T4/ .WORD FLT4 .WORD ASMDIR ; .RAD50 /.FL/  ;.FLT2 .RAD50 /T2/ .WORD FLT2 .WORD ASMDIR ; .ENDC .WORD 12U w"*W'ы $ы~DeT N  6 6 6 B6 L6 6Da jWHc w(W.a S- & v$e  $I "UUUE0Q  w$2( e "e2e(w,wJ6 0wf7 6넃 rT  6 ,6Da6WEWDv :T W+tW-q6 6Da]h]h]h۩]hp@>i((+@8h@8hp@6l((@8hp@>d((c@8h@8hp@yu($phphvhz@-X@7w@7@Xz@`;@#t@p@e@.V(`-Xh,CR.IBE ;INTERNAL BUFF EMPTY? BNE CR.BLP CR.ERD8 MOV CR.IBS,CR.IBP ;IF SO RESET INTERNAL PTR MOV R0,-(SP) ;SAVE USER BUFF PTR ... CR.RDC: .ENDC MOV @SP,(PC)+ CR.UBP: .WORD 0 CLR @(SP)+  ;ZERO UNDERWAY FLAG MOV #101,@#CR.CSR ;ENABLE INT & GO FOR CD READ RTS PC  ;RETURN USER FOR NOW .IFDF BINARY  ;WITH BINARY DATA ... CR.BLP: SWAB @R1  ;... COMPLETE CONVERSION MOV (R1)+,(R0)+ ;... & GIVE TO USER CMP R0,CR.UBE ;USER BUFFER 7736  ; .EVEN .WORD 020560 .WORD EVEN .WORD ASMDIR ; .WORD 127727  ; .EOT .WORD 076400 .WORD EOT .WORD ASMDIR ; .WORD 127726  ; .ENDC .WORD 014570 .WORD ENDC .WORD ASMDIR ; .WORD 127726  ; .END .WORD 014400 .WORD END .WORD ASMDIR ; .WORD 127613  ; .CSECT .WORD 017714 .WORD CSECT .WORD ASMDIR ; .WORD 127551  ; .BYTE .WORD 076710 .WORD BYTE .WORD ASMDIR ; .WORD 127473 & - EE ** &e(e(v$e -DE V$R v"UUUTE0Q e "$2w >.... &e(E @T  $D "U UE 555    Eǯ & t&f B&e `) `) X E Em4  .5 E 5  W(5 Uf 5E fE`mw!$>(hj@Q@f,R(#th Xzh Qh,0zhjh7@p@e@>(:phv@`;@>ҁ( #}h`;hXz@df,R(#th Xzh Qh,0zhjh7@p@e@FULL? BNE CR.BIN  ;IF NOT GET NEXT WORD MOV R1,CR.IBP ;OTHERWISE SAVE INT PTR TST R2  ;COME HERE ON INTERRUPT? BNE CR.ODN  ;IF SO MODE SW. SET MOV @SP,-(SP) ;ELSE MUST SIMULATE .,. MOV -(R2),2(SP) ;... STORE PC & PS SUB #16,SP  ;... & DUMMY SAVE REGS. CR.ODN: TST (SP)+  ;IGNORE RETURN PC BR CR.DXT  ;... & TAKE COMPLETION EXIT .ENDC ;INTERRUPT SERVICE ROUTINES: ; A) CHECK FOR ERROR & COLLECT INPUT: CR.INT: MOV R0,-(SP) ;S ; .ASECT .WORD 017714 .WORD ASECT .WORD ASMDIR ; .WORD 127473  ; .ASCII .WORD 012061 .WORD ASCII .WORD ASMDIR ; ; ; .IFDF ELVN45 .RAD50 /XOR/  ;XOR .WORD 0 .WORD 074000 .WORD SCLAS5 ; .ENDC .WORD 107761  ;WAIT .WORD 076400 .WORD 000001 .WORD SCLAS0 ; .IFDF ELVN45 .RAD50 /TST/  ;TSTF .RAD50 /F/ .WORD 170500 .WORD SCLAS1 ; .RAD50 /TST/  ;TSTD .RAD50 /D/ .WORD 170500 .WORD SCLAS1 ; . E ~1ww7U wzff&ff&& 7 fNmD  E%  % F .TRUE..FALSE.333& & &f&f& & & A& & $m"$    DE v!$w+--  'DE 00L    9Q  0 $ FaB A @ v!$N    /#   cw& 23   w e. vv   6;ҁ(`7wh#t@.vU(6eh.*P*(7h&O>(.Is@Q@,0z@ .7 &fA 9P QAVE USER R0 MOV CR.UBP,R0 ;GET USER BUFF PTR ... MOV @#CR.CSR,-(SP) ;... & READER STATUS ASL (SP)+  ;CHECK FOR SPECIAL CASES BCS CR.ERR  ;GO RETRY IF ERROR BMI CR.DUN  ;CLEAN UP IF DONE MOV R1,-(SP) ;NOW SAVE USER R1 .IFDF BINARY  ;IN BINARY VERSION ... CR.ISW: BR .+4  ;... USE APPROPRIATE CONVERSION BR CR.ASC ; B) BINARY CONVERT & STORE: MOV CR.IBP,R1 ;GET INT BUFF PTR MOV @#CR.DB1,-(SP) ;... & INPUT MOV @SP,-(SP) ;... 2 COPIES FOR LATER ENDC .WORD 100014  ;TST .WORD 0 .WORD 005700 .WORD SCLAS1+BYTFLG ; .WORD 077721  ;TRAP .WORD 062000 .WORD 104400 .WORD SCLAS6 ; .IFDF ELVN45 .RAD50 /SXT/  ;SXT .WORD 0 .WORD 006700 .WORD SCLAS1 ; .ENDC .WORD 075131  ;SWAB .WORD 006200 .WORD 000300 .WORD SCLAS1 ; .IFDF ELVN45 .RAD50 /SUB/  ;SUBF .RAD50 /F/ .WORD 173000 .WORD SCLS11 ; .RAD50 /SUB/  ;SUBD .RAD50 /D/  w(EDN " v!$DE+- v!$DE 0090 ` av!$  ` "w   4 4f& ( " mB A @ mA @ m@ c  e   e=-9B6 C B A @ #"B A @ C6v "$e΋V w  J &f 8 2&f  eB A @ eA @ e@ e B A @    &fW!%UE!+x5!(,&. ./ )-r p7`E $3,J ` 8 %s,n.:@ABCDEff J  B  ,200 ... ADD #340,R1  ;... TO RANGE >140 TSTB @R0  ;IF FIRST C.C. ... BNE CR.CVT CMP R1,#301  ;... LOOK FOR E.O.F. BEQ CR.EOF .IFDF BLANKS  ;FOR BLANK SUPPRESS ... CMPB R1,#337  ;... LOOK FOR SUPPRESS ON BEQ CR.ZON .ENDC .IFNDF ONLY26&ONLY29 ;FOR DUAL PUNCH DRIVER ... CMP R1,#227  ;... CHECK IF 02ORD SCLS12 ; .RAD50 /STD/  ;STD .WORD 0 .WORD 174000 .WORD SCLS12 ; .RAD50 /STC/  ;STCFL .RAD50 /FL/ .WORD 175400 .WORD SCLS12 ; .RAD50 /STC/  ;STCFI .RAD50 /FI/ .WORD 175400 .WORD SCLS12 ; .RAD50 /STC/  ;STCFD .RAD50 /FD/ .WORD 176000 .WORD SCLS12 ; .RAD50 /STC/  ;STCDL .RAD50 /DL/ .WORD 175400 .WORD SCLS12 ; .RAD50 /STC/  ;STCDI .RAD50 /DI/ .WORD 175400 .WORD SCLS12 ; .RAD50 /STC/  >9  Ëנe ee e ѐ  @(&fe B em<&ff&e Z  e&f $2 eW0W7E0W0 W9WAWFE7 &%̋ 7w .w %8 `: `n pw :: $SEQ,7ma:f& ɋɥ,ɥ= ɥ(ɥ)        .TITLE .CSECT .GLOBL : JSR %4,$P Z7=,h N@ Dl3!,5 D!1Dt)e,55-~i,wx! aF %!F,ZCB @ E 6 ,( `e& " gK @t.Nu(Kh9 CTL BEQ CR.029 CMP R1,#270  ;... OR 026 CTL BEQ CR.026 .ENDC CR.CVT: MOV R1,-(SP) ;CONVERT CARD CODE ... SUB #40,R1  ;FOR EACH 40 IN CODE ... BMI CR.STO  ;... ADD 21 & STRIP 40 SUB #17,@SP  ;... TO GET TABLE INDEX BR CR.CVT+2 CR.STO: .IFNDF ONLY26&ONLY29 ADD CR.TOS,@SP ;PICK APPROP. TABLE .ENDC ADD PC,@SP  ;COMPUTE ADDR OF BYTE REQD ADD #CR.TBL-.,@SP MOVB @(SP)+,(R0)+ ;... & STORE IN BUFFER CMP R0,CR.UBE ;BUFFER FULL? BEQ CR.E;STCDF .RAD50 /DF/ .WORD 176000 .WORD SCLS12 ; .RAD50 /STB/  ;STB0 .RAD50 /0/ .WORD 170006 .WORD SCLAS0 ; .RAD50 /STA/  ;STA0 .RAD50 /0/ .WORD 170005 .WORD SCLAS0 ; .RAD50 /SPL/  ;SPL .WORD 0 .WORD 000230 .WORD SCLS13 ; .RAD50 /SOB/  ;SOB .WORD 0 .WORD 077000 .WORD SCLAS8 ; .ENDC .WORD 073642  ;SEZ .WORD 0 .WORD 000264 .WORD SCLAS0 ; .WORD 073636  ;SEV .WORD 0 .WORD 000262 .WORDOLSH .GLOBL $POLSH,$NAM $NAM,0,0, .GLOBL $SEQ ~w : < p! 6: * Lw b:  ` w P:e w b, <w *; ɥ0  N D %ɋ3 w' |  -% f#B<  \+# хn |x\+h`!w 2 Aa@a,O!ZAaP !w &N`֋,:5@0ĝ ) E, a trl n , jf a a B݀Uf,D & & &0XT CR.BXT: BISB @PC,@R0  ;IF NOT SET UNDERWAY FLAG CR.CXT: MOV R0,CR.UBP ;SAVE NEW POINTER MOV (SP)+,R1 ;RESTORE USER REGS. CR.IXT: MOV (SP)+,R0 RTI   ;... & EXIT ; D) CARD COMPLETED: CR.DUN: CLRB @#CR.CSR ;STOP INTERRUPTS TSTB @R0  ;IF NO PROCESSING YET ... BEQ CR.RPT  ;... CONTINUE MOV (SP)+,R0 ;OTHERWISE RESTORE USER R0 MOV @#CR.RSV,-(SP) ;... & NOW SAVE ALL JSR R5,@(SP)+ MOV CR.UBP,R0 ;SET USER BUFF PTR .IFDF BIN SCLAS0 ; .IFDF ELVN45 .RAD50 /SET/  ;SETL .RAD50 /L/ .WORD 170012 .WORD SCLAS0 ; .RAD50 /SET/  ;SETI .RAD50 /I/ .WORD 170002 .WORD SCLAS0 ; .RAD50 /SET/  ;SETF .RAD50 /F/ .WORD 170001 .WORD SCLAS0 ; .RAD50 /SET/  ;SETD .RAD50 /D/ .WORD 170011 .WORD SCLAS0 ; .ENDC .WORD 073626  ;SEN .WORD 0 .WORD 000270 .WORD SCLAS0 ; .WORD 073613  ;SEC .WORD 0 .WORD 000261 .WORD SCLAS0 ; .WORD 07$-&f跊 7W  W)    *wF- 6( *X&X5@ n |&>E P q7 bO$4s  n 4&oU/%3 eu#CEEBPBeᷣ P%BCCBEE P f @  0Q PRT!fd> 1 # 6 < w  0Q Pw:wBE@C%FK   (  wD w07 ,7 ,h w f e.RhOQi@( OfhCaw OQi'.O=(OhhOih \.DhORi@( OfhARY  ;FOR BINARY VERSION ... TSTB CR.ISW  ;... CHECK IF BINARY READ BNE CR.BDN  ;IF SO ACTION ACCRODINGLY .ENDC MOV CR.UBE,R1 ;FOR ASCII, SET END PTR .IFDF BLANKS  ;... & PERHAPS CHECK SUPPRESS CR.ZSW: BR .+4  ;SWITCH ON? BR CR.ADN  ;IF NOT NO SUPPRESSION .IFNDF MARKS TSTB @R0  ;TEST IF END OF FILE BMI CR.DXT  ;SKIP NEXT CALCULATION IF EOF CMP R0,R1  ;IF BUFFER FULL OMIT NEXT BEQ .+6 SUB #8.,R0  ;OTHERWISE LOSE CC 73-80 .ENDC CMP3473  ;SCC .WORD 0 .WORD 000277 .WORD SCLAS0 ; .WORD 073423  ;SBC .WORD 0 .WORD 005600 .WORD SCLAS1+BYTFLG ; .IFDF ELVN45 .RAD50 /RTT/  ;RTT .WORD 0 .WORD 000006 .WORD SCLAS0 ; .ENDC .WORD 071663  ;RTS .WORD 0 .WORD 000200 .WORD SCLAS3 ; .WORD 071651  ;RTI .WORD 0 .WORD 000002 .WORD SCLAS0 ; .WORD 071352  ;ROR .WORD 0 .WORD 006000 .WORD SCLAS1+BYTFLG ; .WORD 07&&f& E 淊 )"  h)"   z N)" Ujp 7\7:&787 & wEpU  ,H&f ,& (  #Ff   5$ `,)6‹% 1 EP P\   ` ! * &U4. &  & 6H `5\5VCaw ORi&.Oh(O(ih OPih\.˫h(Ϋ@yh \.ݩс(ݩ؁h ݩh B -(R0),#240 ;THEN TRAILING SPACES BEQ .-4 TSTB (R0)+  ;ADJUST PTR WHEN DONE CR.ADN: .ENDC CLRB -(R1)  ;CLEAR REST OF BUFFER CMP R1,R0 BHI .-4 MOVB #215,(R1)+ ;MOVE IN CARRIAGE RETURN MOVB #012,(R1)+ ;MOVE IN LINE FEED CR.DXT: MOV CR,R0  ;GET DDB ADDRESS JMP @14(R0)  ;TAKE COMPLETION EXIT .IFDF BINARY CR.BDN: MOV CR.IBS,R1 ;FOR BINARY, INIT INT PTR MOVB @R0,R2  ;EXIT IF EOF SEEN BMI CR.DXT  ;ALSO SETS INTERRUPT FLAG JSR PC,CR.BIN ;E1344  ;ROL .WORD 0 .WORD 006100 .WORD SCLAS1+BYTFLG ; .WORD 070533  ;RESET .WORD 021140 .WORD 000005 .WORD SCLAS0 ; .WORD 054750  ;NOP .WORD 0 .WORD 000240 .WORD SCLAS0 ; .IFDF ELVN45 .RAD50 /NEG/  ;NEGF .RAD50 /F/ .WORD 170700 .WORD SCLAS1 ; .RAD50 /NEG/  ;NEGD .RAD50 /D/ .WORD 170700 .WORD SCLAS1 ; .ENDC .WORD 054117  ;NEG .WORD 0 .WORD 005400 .WORD SCLAS1+BYTFLG ; .IFDF ELVN45 .RAE f  r 2E 21  @y{E $   '5#E ݟ $ ^  A 0 CF 8 P "CE B B  ĕ ĕ$ B Ĝ B |&&&& t BIIRDC75h5f5d& 77^ &ĕ$ E E E  ' C EĜ B B &&&& &  Mw  B &&&& &&&&\~.Uс( U؁hUh0\.h(dhOfhz&Ca\\(.S6(S2hI &\YLSE GO MOVE DATA TO USER MOV @#CR.SXT,R5 ;IF COME BACK, MORE READ REQD. JMP 4(R5)  ;SO TAKE SYSTEM EXIT .ENDC ;SPECIAL CASE PROCESSING: ; A) ERROR ROUTINE: CR.ERR: CLRB @#CR.CSR ;STOP INTERRUPTS JSR PC,CR.NRY ;INFORM OPERATOR CR.RPT: JSR PC,CR.AGN ;IF RETURN TRY AGAIN BR CR.IXT  ;... & EXIT FOR NOW ; B) END OF FILE CARD SEEN: CR.EOF: MOV CR,R1  ;GET DDB ADDRESS .IFNDF BINARY  ;FOR SIMPLE VERSION ... MOV 10(R1),16(R1) ;... NO D50 /MUL/  ;MULF .RAD50 /F/ .WORD 171000 .WORD SCLS11 ; .RAD50 /MUL/  ;MULD .RAD50 /D/ .WORD 171000 .WORD SCLS11 ; .RAD50 /MUL/  ;MUL .WORD 0 .WORD 070000 .WORD SCLAS7 ; .RAD50 /MTP/  ;MTPI .RAD50 /I/ .WORD 006600 .WORD SCLAS1 ; .RAD50 /MTP/  ;MTPD .RAD50 /D/ .WORD 106600 .WORD SCLAS1 ; .ENDC .WORD 051656  ;MOV .WORD 0 .WORD 010000 .WORD SCLAS2+BYTFLG ; .IFDF ELVN45 .RAD50 /MOD/  ;EwKK E T B `&& n X E !( EC4`%xC ݢ * d  CF 6w( $SVSP[8D Ee0 7&+7&#  @E  rA  2 5E ` rwnE @e0 J&& X Bwd $SBSf&@7@ d5@w \E Zw N\E w @kEE e 2 xw E 7Zwt@E%@5 w +  CEF .=p@( @8hgew \  p.E=(E@8h \.=(@8h \!.Ϛp@DATA READ ON EOF .ENDC .IFDF BINARY  ;MAYBE SOME IF BINARY ... ADD #16,R1  ;SO MOVE TO UNUSED COUNT STORE MOV R0,@R1  ;... & COMPUTE VALUE REQD SUB CR.UBE,@R1 ASR @R1  ;... AS WORDS! .ENDC COM @R0  ;SET FLAG CR.EXT: BISB #2,@#CR.CSR ;ALLOW REST OF CARD THRU BR CR.CXT ; C) CONTROL CARD SEEN: .IFNDF ONLY26&ONLY29 ;FOR DUAL PUNCH DRIVER ... CR.026: MOV #104,CR.TOS ;... SET TABLE OFFSET ... BR CR.EXT  ;... & IGNORE REST OF CTL CARD CR.029: CLMODF .RAD50 /F/ .WORD 171400 .WORD SCLS11 ; .RAD50 /MOD/  ;MODD .RAD50 /D/ .WORD 171400 .WORD SCLS11 ; .RAD50 /MFP/  ;MFPI .RAD50 /I/ .WORD 006500 .WORD SCLAS1 ; .RAD50 /MFP/  ;MFPD .RAD50 /D/ .WORD 106500 .WORD SCLAS1 ; .RAD50 /MAR/  ;MARK .RAD50 /K/ .WORD 006400 .WORD SCLS10 ; .RAD50 /LDU/  ;LDUB .RAD50 /B/ .WORD 170003 .WORD SCLAS0 ; .RAD50 /LDS/  ;LDSC .RAD50 /C/ .WORD 170004 .Ww tEÝ % 3 %w xE >w Ew E-GE .e0 6&& D ~ . vwN   .+2 JSR %5, BR .+: 0 ADD #,%6 JSR %4,$POLSH .GLOBL $GET $PSHR $SVA $SVP $SVE $CMORANNTADSBMLDVPWNGLTGTEQNELEGEwR & W) W= EW!P G J  G : lF R j ZH< J# eb+\+ \+77 ߃  $F:   ^ l7 Vf V9 L~G ~Ge($h ,  w  `\ `\p. (h@h)\\j.Op@( h  \w \p.R CR.TOS BR CR.EXT .ENDC .IFDF BLANKS  ;IN SUPPRESS VERSION CR.ZON: MOVB #1,CR.ZSW ;...SET SUPPRESS ON BR CR.EXT  ;AGAIN IGNORE REST OF CARD .ENDC ;READER NOT READY SUBROUTINE: CR.NRY: MOV CR.NAM,-(SP) ;IDENTIFY DEVICE MOV #402,-(SP) ;GIVE ONT READY CODE IOT   ;... & CALL EDP RTS PC  ;TRY AGAIN IF COME BACK ; ;MISCELLANEOUS DEFINITIONS: CR.CSR=177160 CR.DB1=177162 CR.DB2=177164 CR.SXT=42 CR.RSV=44 CRORD SCLAS0 ; .RAD50 /LDF/  ;LDFPS .RAD50 /PS/ .WORD 170100 .WORD SCLAS1 ; .RAD50 /LDF/  ;LDF .WORD 0 .WORD 172400 .WORD SCLS11 ; .RAD50 /LDE/  ;LDEXP .RAD50 /XP/ .WORD 176400 .WORD SCLS14 ; .RAD50 /LDD/  ;LDD .WORD 0 .WORD 172400 .WORD SCLS11 ; .RAD50 /LDC/  ;LDCLF .RAD50 /LF/ .WORD 177000 .WORD SCLS14 ; .RAD50 /LDC/  ;LDCLD .RAD50 /LD/ .WORD 177000 .WORD SCLS14 ; .RAD50 /LDC/  ;LDCI      . :  fe W, fe S  ! U 8  .GLOBL $TSI .GLOBL $TSR .GLOBL $TSD XGfGtG .GLOBL $TRTST  t $ "   (& @& f > W  ɋ &5 5U& w47 fB=n &  W  ɋW)H  E Fh(AaP AaH \!.Ё( h]  \\T.Hh(S4h.TBL: ;PARITY ASCII CONVERSION TABLE FOR 029 PUNCH .IFNDF ONLY26 .BYTE 240  ;SPACE .BYTE 261  ;1 .BYTE 262  ;;2 .BYTE 63  ;3 .BYTE 264  ;4 .BYTE 65  ;5 .BYTE 66  ;6 .BYTE 267  ;7 .BYTE 270  ;8 .BYTE 240  ;EMPTY .BYTE 72  ;: .BYTE 243  ;# .BYTE 300  ;@ .BYTE 47  ;' .BYTE 275  ;= .BYTE 42  ;" .BYTE 71  ;9 ; .BYTE 60  ;0 .BYTE 257  ;/ .BYTE 123  ;S .BYTE 324  ;T .BYTE 125  ;U .BYTE 126  ;VF .RAD50 /IF/ .WORD 177000 .WORD SCLS14 ; .RAD50 /LDC/  ;LDCID .RAD50 /ID/ .WORD 177000 .WORD SCLS14 ; .RAD50 /LDC/  ;LDCFD .RAD50 /FD/ .WORD 177400 .WORD SCLS11 ; .RAD50 /LDC/  ;LDCDF .RAD50 /DF/ .WORD 177400 .WORD SCLS11 ; .ENDC .WORD 040612  ;JSR .WORD 0 .WORD 004000 .WORD SCLAS5 ; .WORD 040230  ;JMP .WORD 0 .WORD 000100 .WORD SCLAS1 ; .WORD 035254  ;IOT .WORD 0 .WORD 000004 . =(     ܷw7 &  7 zxI Ee0 &r&j  T  L $PUT $POP7 2I  5ĕP e0 &&&& h5 ^ $POP& ~ ! &0 f&&   [v۷ r@ 6 T =L " ,D D B ?6W=: B @ = W,8 5 3 0 ɋW,%   6"ɋ@a&\.Ϋ (Ϋ@h* \a.Ϋh(Ϋdh@a\.Ϋ$(Ϋ@h \h.b(h .BYTE 327  ;W .BYTE 330  ;X .BYTE 131  ;Y .BYTE 240  ;EMPTY .BYTE 335  ;] .BYTE 254  ;, .BYTE 245  ;% .BYTE 137  ;_ .BYTE 276  ;> .BYTE 77  ;? .BYTE 132  ;Z ; .BYTE 55  ;- .BYTE 312  ;J .BYTE 113  ;K .BYTE 314  ;L .BYTE 115  ;M .BYTE 116  ;N .BYTE 317  ;O .BYTE 120  ;P .BYTE 321  ;Q .BYTE 240  ;EMPTY .BYTE 41  ;! .BYTE 44  ;$ .BYTE 252  ;* .BYTE 251  ;) WORD SCLAS0 ; .WORD 035163  ;INC .WORD 0 .WORD 005200 .WORD SCLAS1+BYTFLG ; .WORD 031064  ;HALT .WORD 076400 .WORD 0 .WORD SCLAS0 ; .WORD 020534  ;EMT .WORD 0 .WORD 104000 .WORD SCLAS6 ; .IFDF ELVN45 .RAD50 /DIV/  ;DIVF .RAD50 /F/ .WORD 174400 .WORD SCLS11 ; .RAD50 /DIV/  ;DIVD .RAD50 /D/ .WORD 174400 .WORD SCLS11 ; .RAD50 /DIV/  ;DIV .WORD 0 .WORD 071000 .WORD S1f{% )./BC= 0 & BEP n  Lf 6CF J ^&!& eTTTTTTT $POP2Da5ÜE(%& l  &&& !& e$$ !&  (L :,, , ,ĕO *ĕP 7&7& & `   H  <  0 CF $5 5       $ENDD   v D@R w&yw&q  > )w "~R A  wR +w . " l 闠) U\.=(@8hY N \<.$(hݩh"& \\.( hhE 261  ;1 .BYTE 262  ;2 .BYTE 63  ;3 .BYTE 264  ;4 .BYTE 65  ;5 .BYTE 66  ;6 .BYTE 267  ;7 .BYTE 270  ;8 .BYTE 240  ;EMPTY .BYTE 137  ;_ .BYTE 275  ;= .BYTE 300  ;@ .BYTE 336  ;^ .BYTE 47  ;' .BYTE 134  ;\ .BYTE 71  ;9 ; .BYTE 60  ;0 .BYTE 257  ;/ .BYTE 123  ;S .BYTE 324  ;T .BYTE 125  ;U .BYTE 126  ;V .BYTE 327  ;W .BYTE 330  ;X .BYTE 131  ;Y .BYTE 240  ;EMPTY .BYTE 273  ;;FLG ; .WORD 012272  ;CLZ .WORD 0 .WORD 000244 .WORD SCLAS0 ; .WORD 012266  ;CLV .WORD 0 .WORD 000242 .WORD SCLAS0 ; .IFDF ELVN45 .RAD50 /CLR/  ;CLRF .RAD50 /F/ .WORD 170400 .WORD SCLAS1 ; .RAD50 /CLR/  ;CLRD .RAD50 /D/ .WORD 170400 .WORD SCLAS1 ; .ENDC .WORD 012262  ;CLR .WORD 0 .WORD 005000 .WORD SCLAS1+BYTFLG ; .WORD 012256  ;CLN .WORD 0 .WORD 000250 .WORD SCLAS0 ; .WORD 012243 w 0 ,R w .  x闠)G w 0 @ . R ׭ݷץ 8 & 7  -( w ) '9Cנ נ= z  7 \ , ) 7 H 0R l | Cנ נ(   w ڄRA շ~զwZ f& 6藠( , )  ^w  f   痠= pշ j&ӝ` rą7 VN  T7 86\&\$.O( h.N6\.P( hMN6\.*O(* h6\l .BYTE 254  ;, .BYTE 50  ;( .BYTE 42  ;" .BYTE 243  ;# .BYTE 245  ;% .BYTE 132  ;Z ; .BYTE 55  ;- .BYTE 312  ;J .BYTE 113  ;K .BYTE 314  ;L .BYTE 115  ;M .BYTE 116  ;N .BYTE 317  ;O .BYTE 120  ;P .BYTE 321  ;Q .BYTE 240  ;EMPTY .BYTE 72  ;: .BYTE 44  ;$ .BYTE 252  ;* .BYTE 333  ;[ .BYTE 276  ;> .BYTE 246  ;& .BYTE 322  ;R ; .BYTE 53  ;+ .BYTE 101  ;A .B ;CLC .WORD 0 .WORD 000241 .WORD SCLAS0 ; .IFDF ELVN45 .RAD50 /CFC/  ;CFCC .RAD50 /C/ .WORD 170000 .WORD SCLAS0 ; .ENDC .WORD 011473  ;CCC .WORD 0 .WORD 000257 .WORD SCLAS0 ; .WORD 010003  ;BVS .WORD 0 .WORD 102400 .WORD SCLAS4 ; .WORD 007763  ;BVC .WORD 0 .WORD 102000 .WORD SCLAS4 ; .WORD 007520  ;BR .WORD 0 .WORD 000400 .WORD SCLAS4 ; .RAD50 /BPT/  ;BPT 0, &7Է 7 շԗ=[ z痠)wZwL Է Է ,Է*R    nR 儜R 淼&&|  H @ه*&  w@*R 5P <.4& dE b ؇ j *BLIRDCXA"R&R*REND=ERR= $PSH $PSHR1 0 LRSRZR`RgRoRvR $FIND $INRI $INI $INFI $OUTRI $OUTI $OUTFI0,0 $PSH, $IO $IOF a vTT N=F5  tF .EO( E hE\P.)ρ(ݩhOhh l&\\&\\.Bh(OfhOfh Ca\\h.0p@(YTE 102  ;B .BYTE 303  ;C .BYTE 104  ;D .BYTE 305  ;E .BYTE 306  ;F .BYTE 107  ;G .BYTE 110  ;H .BYTE 240  ;EMPTY .BYTE 77  ;? .BYTE 56  ;. .BYTE 251  ;) .BYTE 335  ;] .BYTE 74  ;< .BYTE 41  ;! .BYTE 311  ;I .ENDC ;INTERNAL BUFFER FOR BINARY STORAGE: .IFDF BINARY CR.BUF: .IFNDF MARKS CR.BSZ=120. .ENDC .IFDF MARKS CR.BSZ=60. .ENDC .=.+CR.BSZ .ENDC .END .WORD 0 .WORD 000003 .WORD SCLAS0 ; .WORD 007414  ;BPL .WORD 0 .WORD 100000 .WORD SCLAS4 ; .WORD 007265  ;BNE .WORD 0 .WORD 001000 .WORD SCLAS4 ; .WORD 007221  ;BMI .WORD 0 .WORD 100400 .WORD SCLAS4 ; .WORD 007164  ;BLT .WORD 0 .WORD 002400 .WORD SCLAS4 ; .WORD 007157  ;BLOS .WORD 073300 .WORD 101400 .WORD SCLAS4 ; .WORD 007157  ;BLO .WORD 0 .WORD 103400 .WORD SCLAS4 w $w פ% N( w YTpTB --y "=    7&   t    ;w BcTw ]h, @` B N *;"$FT  V .+b(+]h]h,vl w  ' 7  .^ &w \w wXw w 2. fw  w 7 wtwhb.w k  %{ E e wh k {  .d D - =w TD = w Hd - 2.6 w @/ w 8 w 0w 8 7 w .*7 w "7 7  - XH - T.Bw7  ww (b ww .hw A B`06654  ;BGT .WORD 0 .WORD 003000 .WORD SCLAS4 ; .WORD 006635  ;BGE .WORD 0 .WORD 002000 .WORD SCLAS4 ; .WORD 006531  ;BEQ .WORD 0 .WORD 001400 .WORD SCLAS4 ; .WORD 006413  ;BCS .WORD 0 .WORD 103400 .WORD SCLAS4 ; .WORD 006373  ;BCC .WORD 0 .WORD 103000 .WORD SCLAS4 ; .WORD 004512  ;ASR .WORD 0 .WORD 006200 .WORD SCLAS1+BYTFLG ; .WORD 004504  ;ASL .WORD 0 .WORwU v  ww ɋ l%  <  \ D f <ѥT 2ѥO 4 ZӢ ɋ,l  %  V  ,ӕ* v 'd i@.cb(c]h ]h"#,E D&6 ,$E& & f& & )m|,HЕ 6  %. w| 7wrxwh.u E 74~wh^ E ` 4. t4P 4Iw ,-; 44a.% w  =w $7v.&  4=w e0w ,w %  4.L@w ke=.rw @w fwww=w . w  rw 8Ae0w ,w FD 006300 .WORD SCLAS1+BYTFLG ; .IFDF ELVN45 .RAD50 /ASH/  ;ASHC .RAD50 /C/ .WORD 073000 .WORD SCLAS9 ; .RAD50 /ASH/  ;ASH .WORD 0 .WORD 072000 .WORD SCLAS9 ; .RAD50 /ADD/  ;ADDF .RAD50 /F/ .WORD 172000 .WORD SCLS11 ; .RAD50 /ADD/  ;ADDD .RAD50 /D/ .WORD 172000 .WORD SCLS11 ; .ENDC .WORD 003344  ;ADD .WORD 0 .WORD 060000 .WORD SCLAS2 ; .WORD 003343  ;ADC .WORD 0 .WORD 005500 .WORD STOP .ASCII ^^ .BYTE 0 .EVEN B+H*.T+T+V  72 H    E ! ! ! ! w w w  7 2w wx w"! f@"ff7 7 T   h    w7 j 7 h ÕB  1  :& wz7 6 r7   J  7 7  p  %    5   7 7 7x   A N v ,l*ӕ0˕.w ,'  C B A W,  W - 1,P e   4  ,  6 L I-E62,  6 mm ,D m F,h Օ0Օ.v!Օ0 ,v    7 ,.|VPTw D- <@7.4: (6 4,*w i 4.  ?w "7 w 777 .0   w %0 %7E ` D.V 1O  W ֆ m7H O "| y(8R4.  (8R4NJ,dl. N J,dl .CLAS1+BYTFLG ; .IFDF ELVN45 .RAD50 /ABS/  ;ABSF .RAD50 /F/ .WORD 170600 .WORD SCLAS1 ; .RAD50 /ABS/  ;ABSD .RAD50 /D/ .WORD 170600 .WORD SCLAS1 ; .ENDC ; ; SYMTBB=.-2   ;HIGHEST ADDRESS OF PST. .END y Z  jw 7L  l @  ~ w p   w  v@H  8   7wv @  \ } 7   w@  @2 r, 2h t D /!      4 $n7 r7@ dʵ    C!W@  *7*`/ @A(C J /"/"/!  " xv,m   ӕ-:,ӕ ˕0 e:3ec,%V f& h dD C B [,@A eC B A @ eB A @ eA @ e@ ;,d 6&f * & mC B ,A mB A mA c  ef, C B A @   L,eӕ* v W!,v*(&f,&     R \ h7cJW*\  (.D @ 7<76%.* ."w %=w (w . w w ww  .B 7mw .hw %/w \P.  j~~|  L eD| (D.  !RB !R=L !6RR!!   t׭ )  H.,n7 r7̕`  [T*( E  |  n      N-<( `&f"&ef" BLOCK LENGTH  XXXXXX 00000 (000000) @ACBE @׭)   d [@7; ! ?!5 ?7͋  :H7!w͋ F-t < 0 6!m, eC B A eB A eA e@ e% ,< ev!6 ͕- 6 ,` v!% Օ1 -Օ.-,- e0     | .=(>@8h, @`& 6 CŀנT נ"$Fנ @ N V v .+=(+@8h@8 .4D4 V | !4Dh4 V D V| D"h&V..% w *  @w @.& % % w  ww .L D  &.rC@AEPA&fw w /w .w Hw   ` y.E ` V F x. w8w 7-U&"E! . w b "Ww"""" " 7e R |D!_Bͽi$ ] wW(w9 &! ~ w wwt77 @ f"e  ͵ R͵%͵ɕ= C͵͵@G**D`  D! !e ͵@G e&fw wN7E e8 $fQ$H  >;    ßå U >7ʐ ïoïk  >  h,79fm6& ,$ BE v '+!-  ,HBE •00 0 ,l  v   "V 6 v P.c=(c@8h@8h,& & &f&f& & & A& ,$&  7DE& ".0  pVw V׭<V`.VU .|7w @ŝŝ.wvt wjt!D  "D|.w w JB C w @e>%ĕtB C ,.D72 VVw Bw .eDVV.` w A"7e>7 wO 14 P   8P *    r %     p  F?  9 ZIw&=ßנ0נ9å$ å.å  נA נZEH DFB h7 N 7 9:47.  !  "" d? (7 7  v 0  j$m"$    DE v!$$,Hw+--  'DE  ,l00L    9Q v, 0 $ FaB A @ v!$9,N    /# ,  cw& 23   ,w e. v, v    w(EDN "t,D v!$DE+- v!$7,hDE 0090 `;w ĝDw w  D.:"f&f ' ".`4DhD bDh$D.pt7p7ttw r ptptt3.t5ppgpbtV t ppp tC. <hD !%&Th D-. &e N @ e0w &  e:f7 7 z7 7 P&H7^X ""n wjh$f ` Z ε& %- wfw ɵ{E A'p/xpR  ~   @@ d7"7z7 67lx,666p6:66 N ̕.# #   . *y˕! c S, , av!$  ` "w ,  4 4f& ( ", mB A @ mA @ m@ c,  e   e,=-9B,@6 C B A @ #"B A @ ,dC6v "$e ,΋V w  J, &f 8 2&f , eB A @ eA @ e@ e. 4 t7 4$t.D vprE w v prm.j   w ׭r  $rY. ^w Uw wr n . j  7,4XR4-P DQ44[. w@ 78 %(! . %??M N ; M &N   9˕7 `7 ZNSNw `N7 |wVLPQARDMBINTU P-h8 h0;  ) 2 ɵ Xɵ-we    e.(hje;h,& f ,2 f|,$e   B,H   @ $,l  e  *  @  ..=]@6P(@7'@i.H *;/\ $G _<^,OWEBP@>SRC-FI!XASPMn CFRBQ | b | h .<w Rw45h N . w 7w045( " $7u    D S͟$ׯ` ? v7N7 ~-! @ @fEwn K m 7 v 7wp  D77 7 "7 7 7. | P twC  : \  %C%D’ KC f&- D 7  D7   7L7 ,& &   $&]6P(-~"7'$ & &w7 '.bc@8@c]@]@?, "w5$"u" ( w0w,$N 5 5  "A"  -,H 0%    ` =,l @`u" # ɋ 8  707 @7ɋ vt 6 wc |Uĝp E7l     =å   ww׽@׽ 677  B`E   eeW!7 &fv  6w ,w"F  J7D7 &fZT 7 7 H E - 1- 77 70!ׂ  *d7 7>7 & ע  $ 5. q  @ w yk (&Rz.  Rz%\,)/T'(ADEFGILOHPX"  \ , w 0w wpu , wz wX   5m,05-5t4-w5 ~,T5 w* w   tm,x4-'W m "T B  ~wJ@w l  > A  @ w LWW µ  . ('7 "    u   xWµ@.µwµwµ f  7Ud.\׭v6 N20c`7] 7 7NF8)1(oa     ĝ47e (w w wA,"B`4-w " P, u" Zw w5-t[,5  2w wrA," ɥ' 4 wR " P,,' " 1u"4 w,P: w   % M,twu"u u , wu"u w%/,  u" Rwu + P>7 5= B׭' 77 X7 VwEՇעעע & עע Š Հ   7  wh &77 "7$7f77 7 70w[ WZe.e6e e(e(   ̞  7\ -  55 |  D-  ! ,,  u"  " 5-2,t5 wH w<5-o,(t5  5$" h,Luu" w w8p$7-!,p5  &. "e u T &, w u P uo, %.  2 uw 2/ &[U;U@ @ x CCpCCCv*b !@JJB=C;;&  5@/ c$@$ 7  S   AwL C 7w -U#@% ()"'+-!&; ,:= 7@lCi   ̋נ0נ9 å.Հ& EEEE  ` e ` EЭ&EUp̵wV'$ N נ0 נ9 6 å$0c] ] ]۩]+]2]] c@8 @8@8', w&fc4-&@8+@8@8 @8,@w( ff "  ,d 5 @&  ` v~,N   "   5 M,4    C 6,w 5 5 5 w}p3 å.נAנZE 7 &&7(7ßl<7#0 E  ,w.U%f wD   7 D! 7`eC ?-8 5 f 67eCE  : J-H Z ˕ e L˕ > ˕ B. x"-0W ՋM u e ͕'! L 77 e7 ^ <67 T "4΋=΋74, `P  w ?, `` .RuD`@@@/,&  w v @ 7""7Q0$  ew  w&7w (p!7""*7"",L  "0r w "D`"7""n7%*W 8-/ |w8% 8!7!! % @ L b &e 83 hŝzawte8 U L@ w $ rՀ  28!!P@7888 d 485P KKcebba7!b ɒD @>e q:)~t-$^,ޯp!:֯"0+i}2;1l2s0S8,preӕ  ,  $ %`,r w eu7""^,l Cʥ ʥ  ʥ  `O0B Ӄҕ  "r *b,( $    4m,L 2 &   je;!,p  נ+2  !AP@@P@` <נ1"" נ0 w7"".(hME *.==6p@7'@7 '@i.& & &   _&]6p$-(7'"& &  w~7 '@.bp@7-!@(t, "!  W=f&&0$  w wH"p*7-!,L 5 R ; p.=7@)@("7h* "W= U wD$7@)y.6PuD`@@7@.& m G  V& 7$7w((p!,& b c%  "r i&D`,J N "|eS`3,nr 1e5,   "rbH,r42   5 je;,  w e 7"".:=6Ps@7'@7 '@,&   &]6Ps -$7'$ & w7 '.bp@7-!@(hgL, "B  {,$&f  "k(H  w wp"7-!.:7@)@(27 qh, "    a$$ =w-7@).PuPD`@@7@.& { Z  5& 7$7w((p!,& o r nuuu,J&$e#b ff -X.n rrrr Z(, =C`44 Bl, B` " 4 r,Trrr  je;*  ew  *7"".7R*p@`;@7 q@L,Ece% D 4 4 4  ^,$ww  7 7 q,He(\ w %   px*l4  w w X p$`;V.i ap@(7h] w dp.i`p@(7 qh w dp.7(<7'h7 'h&j\,& & & & & && &f&f6  $ %\.0Ԫ@8@(j7@h,&  k,$ U%aEce %e% D,H aU% Z.4%E,l a .%e ,   F\  , a`t A @ A @ A A A ,A E4% Q-  , %  t&*  *, \*& v4m%7Ԫ@8 Ԫ@8 *,D% X4m  w h0Z.D`@p@`;@, W  r 7"Dd`d&$\ Pw w  p`;n.fOp@`;@@,  e\ 1b,$1 1 \w  w p$p5H w `;.Vp@Q@j@h&7 %\7.Q QjQ Q5  w p|.Re@(h" 7  eA  eeD.@Ip@(@DhlB!ew \%p.̫b`;@(̫@`h"&"w `;.O( IqKhA@A^.HК(NhpCCE.B0(&?hC*e*>**q.Kov@zy}@쨀p@,fEffE f&7 p$ "v,$쨀p&$,$, %Df&&t&czy},,Hf&e7 <XD vpXZ,l eew %Tp  \#.9Pzy}@쨀p@vp@b,fD  &&&&&$,$&  /&&&&&&7 &ONy,HT^f\& @\x2vpTԪp ^ 쨀pf&zy},l v7 ~E  ",ONԪp~  [.0( XhAQ$@A.6#@쨀p@vp@C,fE@l  @ *e |.$'  t#A@ffe(#,J f&& @f&& @7 02,ON p"$쨀p&vpU$npA@7 2pONS4S4S4Ԫp 7 .ON쨀pS4lH.S4vp쨀p 쨀p vpC,p6 @\4C;pԪpp*C\/ C\    \.D0/+@a \@v@a,f@_&$&7e G  a \R,$f&E f& %&v,/+ , H.=h+@#@6x@h,fEU%f f& f&`&6x,+",M$$E & & 7 -.#,ONS4Ԫ@DIOfDC.KP\+@#@6x@,& fEf f& [&6x,"+&,=,$f&) EU% f&& @f#,,H&7 Zlv\* vp Z쨀plpvA,l  \65  , 7 Z  \ Ԫp ԪpO,e7 0  \ OԪpԪp$ %  6  \.P\쨀p@vp@6@,D& &&@7 (D& &ON쨀p(*$& 6  A7 z.ONvpz 6"p$#Fzzz2z6 p zzԪpV2Ԫp쨀p Ԫp 쨀pԪpk,bl e\ *쨀pԪp쨀p Ԫp lD,\S\ e& @7 $ON&쨀p,Pe\f& P& \@]%X4>c&:!.sQ\@iZ@v@,fD& &&&&h!,$@7 DfD& &&&& 6 ON  D~*H h!A7 .ONv iZ"$j2iZ  Ԫzi2OfԪ  Ԫd.ԪԪ  ԪmZ.Ԫ Ԫ W, e*ԪԪ Of ,\ \\S\ e <.& & & @7 t e\p"ONt(p, f&&&&& ~\-Í  ~R,,J7,kt4yNq(:5;oS%]-1@!h.R=vp@p@Ԫp@, &  . & @,$  $<  7 $ON&Ԫp,HJ 7 hZJON Ԫp"h,l % 6 @ *7 %\%w "ON vp  pe.RPu/+@#@p@6,&ff& %'   *$ " f&7 @2 /+,ONԪp@$#<.F %v\w ],(pl  .Dd@+@p@ ,6 6    ,$&fU%f& +-  ,H !# (# f&7 +,&ON,lp ev"Ԫp d,$\w  pt.D=v@p@Ԫ@j, &      E,$ & & & @  9^),H7 f ONԪ f6,l7 &ONy, e Ԫ06 6 6 @7 *ONu,    %\ew dv$p\ .I=p@Ԫ@8@ON@.&&f  7 (ONw,&* 7 <  7&Ԫ@8*ONԪ@8<,J\ \   \eSn  \w \p.ѪњEp@ON@@X,& f6& f N&,$&@&&7 8  :ONEp8;,H  @A ff7 f$ON&ln  n~.תv@8@Ԫ@8@ON@e(ffff7 "ONv@8Ԫ@8u.6ЁON@@(D&&7 ON.К쨀p@ON@@,D&&& @& 7 $" ON"쨀p$&$ $.Ё:@ON@Of@uf7 " ON :Of .miZ@v@Ԫ@,CeDe&&&&ff$ff 7 .ONviZԪ8<Of<K.iVON@p@(*,@&&@&&7 ONp$  .so@v@p@,fEA7:B  e@ & & f,$& & ff& & f7 @ "ONv@,Hffff&l w     p.ɫЁ쨀p@vp@p@.fEA#& e@ & f& f& f7 (ONw,&, ffvp쨀p,J w    p.mP\E@ON@(\V,& f Ne&&&&@e,$&&&&7 6   qONE6H%.vp@6@Ԫp@r,@A&&ff 7 "ON$vp&6$,"ԪppOf ,m.P\:@ON@Of@, D@@#   Ċ7 $i" ON":$Of&$$ .P\쨀p@vp@Ԫp@W,& & & & & D&&D&&,$ @%7 @  ONvp@,HIA e e@",l e& & & & & D&&g,e #@  , @6 7 ONvpZ,6 6 #?%-0 @ |0׳f&& @׳@f&7 `*ONu$h0).Ԫpph p vp0$0f&f&7 ri2ONԪprԪp쨀pԪpL.쨀pԪp쨀p Ԫp 쨀p$V2Ԫp쨀p쨀p  쨀pOf,bd   \f&d, \ e\>:L]L?ƪ @.tP\@v@Ԫ@c,f& & & & & & & & & D&&&q,$&D&&&&% C,H@%:7 Z IAONvZ,l!h e #e$@,!h ef& & & & & E,& & & & D&&&&e X,#@-    #, ! h g, @6 6 6 7 8/ONv8,D6 6 6 6 #?G-0 ,hA-<-j8@ k, ,TeB׳,f&& & & @TeB׳@f&7 H'2ONԪHv,f&f&7 &ONZ|2ԪOfZ Ԫ ԪY.Ԫ Ԫ W$.ԪԪ  Ԫm..Ԫ Ԫ W.8~B \C*~ Of B(+,^ f&&&&& \    ,e\5>愾 >Fl.&ź+, k>''+$IriL?̨̔몿@`.h쨀p@vp@p@9,D / C(  f & $$@&&&&7 .ONԪp:$@.vpp  Ԫp쨀pLz"2vp쨀p쨀p vp z쨀pU,X @w  eԪpp,|\\;@\ \N @ [,  =@f&ysE,[\pCf&f&\% e # .xh@i@v@X,fD 2 C+  F$,$e&&&&\);@7 d"ON$Ԫ&d%H*d2i,  *diGV:0ddZ.:, 0 ddԪS,d@w    IOfp~,6Af& ,l>f&"yB7 @ " ON"$@&ԪovRN.Ԫv  RH, ffff7 e*v ONԪ ,  a  ,$\e\ \\&&,H&&\\,l\ \@3eޘ@7EQ@׋@êg{H.0쨀p@vp@p@,& Dr)&&\  h,$ 5@5@7 &ONyH2p쨀p vp Ԫp4V~z.~  Ԫp쨀pԪpd.쨀pԪp쨀p Ԫp 쨀p$nn2: Ԫp 쨀pԪp,|f&\  \& ~ /,\\r1@\,[?\ ew  ?U?wp*@ڪA.l0@v@p@C ,& fDezr,$&&&&A  e3,H5@e3l5@7 .ON  v|.ԪOf  Ԫb.ԪԪ  ԪmX.Ԫ Ԫ WM&h7(P**.G&s' x""<V',<U',<T'E,_<S'M,<R'fl,m<Q'I.Ԫ , Ԫ ""mw D}."Ԫ "p ,f&&&&& \q  L,\& \b,\zr1@\ r(,,7[?\ -?v,P9?uοMc?kA`5?I2f?(*@'t A/.H,<P'$,vV6  *`<O'vV6,he6(Uv.c "&  H #t0˥ "& rr$, rr r 2 rr2 , {p@(`{h,    4 `0$ $ `œ  b\ w *pL\ @` ".A(A=h/&&"5 \.( XhL5hw7`(@#tҁ;.p7e"L@7@p@eR,.XzW& 0 #h} #(@Xzҁ.vv *H %%\.Oe@(w&h,f&f&Cv AsL q D`{e,$ k gA &v,HW0 W9WAWZR  ,l ѥ. ee&,`& " e .t )f& ":, >&v(v vvv.4..':(@v@`;.p7e"L@7@p@eR,.  @e !t t t , W/ W' tt"&.(S\-X@("(p!h2 W [W Y *,*ff   -X,Ne  G   %e2r "  %5,r220w "n,]ef"f&&"effJ,_j(Q$)B EQSMENA$.7Q   ѕAT &f&,[(@j@Q.d6v H @        B $,;`@ ` Q *,e   R,  $,    i"    .D{(DD`hDwh$,> %51 >($ 1 1 1 1 1  G  &f&,h-X`(V.-,w  Xz(Y4- Zw  .  FORT "f",#t eU%f&f#f$,@er, @   %  j,-X .(hhe6 6 \r.p@(`pHh,W%'BC @ bb@ be &,$K @    CD HK w  ap.P\p@(Zph]@`Ef fef F,' % f`& @f ef",f!F YE2 rw,e&`    ,  e ,w7(A @&,#W* W..7eAAa 3Al,`;Xz ,W%$BC @ bb@ be -,$K @    dH w   p.=(h@8h$    \x.P\(/xWh&` H,%%̠` $,p  f&f&@&,@#t@p@eyu.pdw mh@8c(@p(d.pdw A@AD@ D 9.Op@(xKh&DD A @ w  p.ѪP\(RhD@@# Ċ.ɪК(Qh$h@8(@p(l.pdw h@8+(@p(i.pdw h]c(@pd.pdw D@@# Ċ.Ԫ쨀p@Ԫp@p@=,&7 f  <Ԫp%.$7 N47 4E"Ԫp쨀p4(Ԫp,JL7 feLԪppfne\ \ .Ԫ h]+(@pi.pdw th](@pl.WjF\7h@j(@jo.1a $!=p@(pԪ@8h4, -  (  &C BZ,$   B` Ë  ,H  \   \ w O&p l\.v쨀p@vp@p@,   @  ,$ 2  p 5!C D ͥ&f,h""w4(@pRu.6\&f]h4Sh4S (UuH.\\hfO hfO(RuP. w \& p$H 7 ~5.Ԫp~Ԫp쨀pԪpEd`2Ԫpp  ԪpԪp,r\)T*쨀pvp  vp7,\\,\\, \\  e\  \\  vhOhNO(OO.\\&f B    H* @    e %  $, %!D f&,hZij(Ёn. ^e f_ $.ԪSup@(Ԫph,&f f & G   ,$ v  76   ,H p  d deA @ A @ ,l%  A @ u0 6v %\%    w *pb,   `@ `  ` `  5]h,(O.p j w  H\    B C $,% Cf A N   ,PhiZ(@p.p9  w  @D$  @ 0    ,(.Ԫp@(Ԫh,&f f &  6  `,$  6 v k,H%w     6 ,l   @,    ,e B A @  B A @ +%%s,B    C B W,A @  6 vp$>w \% v C A    ,P  0@ mm,P   D @ e %,e%D   %.,%%( @    l,`   H,Uvh 6 6   $,v N|v    & &e,$hp,e\ ,   w     mB pz,DA @ E mA @ E m@ E m E  4,h    m@ E m E G    .;0p@(A;-h$@  w  'p.,Vp@(8@Qhb`(@pRu.\ \&NHH&p$&H7  &$,>p&;27 6  ee, hX(@p.@ @  ,   @ A B ,0 @  0 @@ w p.)Pp@(j8vhH@ w Sp.:(@,h:h !,6 6 &  f 6A $$ v  6N@ A  @ A B     ,Opp     w  w \,ev 6D A B C  ,_        05h,<m@ m@ A m@ A B m   D,u B N @ A B e ,% eB %N  & ,6"%D   %7 , @  @ A  @ A B    ,.  4\ .s0(-hL&CD@ D h.aP(*vhC@ .bO(\@htB  Da, vl,>w    6 H, 6 6 6 v v v  N$,!v v v   & f&e,hB(@p.\&fHk  @     $,>%C  D,8.rp@(*rh,v v N \%%w O"p$& & \.vSup@(vph3,&f  & N & * _,$  v   ,H  C 6  %,l% h6h}N(с._A @ @A*h({.\ e   -$" - - B  ,`hE>(E.c\ e $<   w 6 6 9 pl, %   Dv   U,0e%6  6  E v vK, ·ͅ%\ @   "    .v=p@(Vv@8h, #    &  Y,$ B  BB`   #H\ \w \p -B   ,hpE.(PuE.    ${  -,H- -  -@ A B h,\ \e6 v v v D  D,Y6 6 6  v%e  ,|N  6^   6n , 6~     p.vp@(vh-,&f    & N & Wv,$  ,Hv  36   ,l  66 6 @,6 6 "&v "  Y,  5 w %6 6 6 ipt,6 ?