.TITLE PALSYM ;THE PERMANENT SYMBOL TABLE (PST) ; ; VERSION LEVEL 1 ; PATCH LEVEL A ; ; COPYRIGHT 1971, DIGITAL EQUIPMENT CORP. ; MAYNARD, MASSACHUSETTS ; ;THE PST IS A SEPERATE OBJECT MODULE WHICH ;IS LOADED TO RESIDE IMMEDIATELY BELOW THE ;ASSEMBLER IN CORE MEMORY. ONCE ASSEMBLED, IT ;IS FIXED IN SIZE; HOWEVER, IT MAY BE ;EDITED, ASSEMBLED, AND LINKED TO SUIT THE ;SPECIFIC NEEDS OF CUSTOMERS. ;THE PST IS BOUNDED BY THE INTERNAL GLOBAL ;SYMBOLS SYMTBB AND SYMTBT, .4dz; 9@= @|@@.@t!@t!@!@"W@>.,v@-`@49%@79@79@@.<9@<9@@>9@>9@J9@.uL`;@vL8"@{L}@iYy@/d@@.pp@|~,a,a4l4dzA*,a qn)~Foձ%>oѱo*Pa,doo*aoޯp!oׯ}No֯xo֯*a\o%>o.oi}o;6o,*b;1o} d`Yz=*(b  z www*Lbw;ww s0s*pbr .{(J{h{h{h I,    $ `J,$  `œ  b\Pr H# WHERE 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 ;MOD40 PACKED NOTATION) HIGH IN CORE AND ;THE LARGEST SYMBOL (IN MOD40 PACKED NOTATION) ;LOW IN CORE. ;MOD40 CHARACTER REPRESENTATION ;A THRU Z : 1 THRU 26 RESPECTIVELY ; $ : 27 ; . : 28 ;0 THRU 9 : 30 THRU 39 RESPECTIVELY ;MOD40 PACKED NOTATION ;1ST PACKED TRIA K@*@(zR}hzd}h , q)~ձ%ѱ& *|~K-`"pp,$,9>9"<9@,lKn,n+n$^.<979@79 r@ [q`"Y*bOX S!AP@@:*bs: 42}\!` y*b%@   !*c ;0*$c@@P@ @r*Hc@@t@ov@oG*lc@e@ 0! P! @! *cv@ @ @ @Y *c@ @ @J D c` @  .Ԫp@(,Ԫh D = 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 ;EN49%&-`6,ޯp!ׯ}֯x֯& ,v"W!"t!,%i};.t!-`|@&= z,;1} d`Yz ; 9,  z www, w;ww s0ss,Dr r@ [q`"Y),hOX S!AP@*gBa 4dBacf* h 6 &*.h  h`wgg*RhEU*g5 E]*vhw*eLPQARDMBIN*hTU,EEGx>*hHx\M3*hM8f*ixM&W4d**i&W4d&W S*Ni&W,&f f &  6  _,$  6 %.,Hwv    a6 ,l6,w R w BeA eB ,A  w ,eA eB A w ,eA eB A B w eA eB ,A  w eA eB A  w TRIES) 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 PAGE,LINES,LIST,NLIST,GEES  .GLOBL TITLE, WORD ; ;FLAGS:  ASMDIR=10 ;BIT 3 BEING ON IN THE FLAG   ;BYTE INDICATES THAT THIS PST @:A,s: 42}\!` ,%@   !E, ;,@@P@ @,@@t@ov@o,@@e@ 0! P! @! ,dv@ @ @ @Y ,@ @ @J D V` @ s N&Wz%p:F*ri** PAGE XXXXX MM-iDD-YY HH:MM:SS:XX *i P*ic,aj*k+*i~pFpqqvvLjvohvpvssTzn}q(p.jc:zrcrV~v&vDvvwBjyz d.popr~(~Vj~c~h~djsTscdc>(jjpr,hp   ktk, eA eB A w e@ eA @  ,Dw e@ eA @ w ee@ W,h B A @  B A @ +%%,B    C B ,A @  6 ve\ ,  w      pz, em   em 6i M6 MC   ;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 'MOVB' ; ;INSTRUCTION CLASS: ;BITS 4-7 OF THE FLAG BYTE DESIGNATE THE ;TYPE OF INSTRUCTION TO PROVIDE DISPATCH ;INFORMATION TO PAL-11R. SCLAS0=0  ;kk*le bw7 .>l7 p7 7 7 7 7 H7 7 J,l0*fl!l& !y*gff *l% tg& f  %-P*lFgf% hDa*lbw ׭b*lLbwbw7 \7*m77i7o77m7W7fy*>m&P @bwE*bm. :(xhOPERATE GROUP SCLAS1=20  ;UNARY GROUP SCLAS2=40  ;BINARY GROUP SCLAS3=60  ;RTS SCLAS4=100  ;BRANCH GROUP SCLAS5=120  ;JSR SCLAS6=140  ;TRAP GROUP ; ; ; .EVEN SYMTBT: .WORD 0  ;1ST REGISTER BELOW PST. ; .WORD 131247  ; .WORD .WORD 070440 .WORD WORD .WORD ASMDIR ; .WORD 131051  ; .TITLE .WORD 077345 .WORD TITLE .WORD ASMDIR .WORD 130725  ;.REF .WORD 022600 .WORD GLOBL .WORD ASMDIR ; .WORD 130721  ; .RAD50 .WORD 0ĕ vQ$BB`@ K^*m wHʥ e<N222*m   e *m"tw w2:*m&jh֋bw7*nk-U8 *:n׭4A/  *^nV׭ ɵ*nɵ-Dt*nwVe *3<*n ".&D! DD17226 .WORD RAD50 .WORD ASMDIR ; .WORD 130601  ;.PAGE .WORD 026210 .WORD PAGE .WORD ASMDIR ; .WORD 130474  ;.NLIST .WORD 035514 .WORD NLIST .WORD ASMDIR ; .WORD 130351  ;.LINES .WORD 054133 .WORD LINES .WORD ASMDIR ; .WORD 130351  ; .LIMIT .WORD 051274 .WORD LIMIT .WORD ASMDIR ; .WORD 130351  ;.LIST .WORD 001414 .WORD LIST .WORD ASMDIR ; .WORD 130156  ; .IFZ .WORD 121200 .WORD IFZ .WORDbw ?*n-o-o b>*owy Lwbw*6obwbwbwbw*Zobwe<!jh*~opQ$Q$Q$Q$Q$bwbQ$bw\b*owXbw8bw4bw4bw$*o *7 " @7^*ow:(5   p7&*pH*͟ׯn*2p` ?i .c=(c@8h@8h,& & &f&f& & & A& ,$& $m"$! ASMDIR ; .WORD 130156  ; .IFNZ .WORD 055620 .WORD IFNZ .WORD ASMDIR ; .WORD 130156  ; .IFNDF .WORD 054046 .WORD IFNDF .WORD ASMDIR ; .WORD 130156  ; .IFLE .WORD 045710 .WORD IFLE .WORD ASMDIR ; .WORD 130156  ; .IFL .WORD 045400 .WORD IFL .WORD ASMDIR ; .WORD 130156  ; .IFGE .WORD 026210 .WORD IFGE .WORD ASMDIR ; .WORD 130156  ; .IFG .W".qQ[@ zؚ@ z@.@8@@8@E@8@Ep@c@8@.c]@r@@@`;@L.ݩ(@@+@8@+]@6&@.7%@7@8@7p@:@Ԫ@M.Ԫp@#i =*Vph i @ *zp@fEwB *p K6&&*p$&` hh7 `m >*p 7 ffqfJ, qf3 f&iw  y*0q7j 7 7 7 70 .Tq$y  t  #>%$y)*|q%y’ K$y*h*q-& y 7 .$    DE v!$$,Hw+--  'DE ,l00L    9[ l, 0 8 ZaB A @ v!$,N    9# ,  mw: 23   ,w" e. +- h,  N vv    w(),DEDN " v!$DEj,h+- v!$DE%ORD 025700 .WORD IFG .WORD ASMDIR ; .WORD 130156  ; .IFDF .WORD 014760 .WORD IFDF .WORD ASMDIR ; .WORD 130044  ; .GLOBL .WORD 057034 .WORD GLOBL .WORD ASMDIR ; .WORD 130035 ;.GEES .WORD 000333 .WORD GEES .WORD ASMDIR ; .WORD 127736  ; .EVEN .WORD 020560 .WORD EVEN .WORD ASMDIR ; .WORD 127727  ; .EOT .WORD 076400 .WORD EOT .WORD ASMDIR ; &@Q@p@@8@*@8@.-}@ON@Oh@Oi@O(i@.S2@S4@S4@U(@@.@@8@{@{@@j@'.̫@`@Ϋ@@Ϋ@y@@ @v.@8@je;@( qQ[hS(( 7 qQ[}2ON@Q@jS2S2B*':y7h*qE   +&ib*qi ɋ 5   i/* r0i iɋD T *0rwc Uĝ E7P*Tr* `^T   ݉^*xrå  R w:w8׽d*r@׽\&ii  B`E *r  eeW!i`&*rfv  *&L*sw  7( 0,090 ` av!$ A, ` "w   4 ,4f& ( " mB ,A @ mA @ m@ c  e ,   e=-9,@B6 C B ,dA @ #"B A @ C6v H,"$e΋t,V w  J &f =) .WORD 127726  ; .ENDC .WORD 014570 .WORD ENDC .WORD ASMDIR ; .WORD 127726  ; .END .WORD 014400 .WORD END .WORD ASMDIR ; .WORD 127645  ;.DEF .WORD 022600 .WORD GLOBL .WORD ASMDIR ; .WORD 127613  ; .CSECT .WORD 017714 .WORD CSECT .WORD ASMDIR ; .WORD 127551  ; .BYTE .WORD 076710 .WORD BYTE .WORD ASMDIR ; .WORD 127473  ; .ASECT .WORD 017714 .WORD ASECT .WORD ASMDIR ; .WORD 127473  ; .ASCII *"*-} 7%S ","H(1H1,20X,15HBEGIN EXECUTION,j@j HF/).@j  O(i S@jX"0.O(i S@j "Oi06f .@jS2  S2-} t052S+*,sB! w|  7|7 *Ps*^ 7 *tsr7 8 E - 1- *s7J7^ 70F*s!ׂ &i 7(i & ע*s. W._ 0*twwu2i<  M*(t@0w2ODGW!*LtW µ % ]*ptz ts,7b0. ,,8 2&f  eB A @ e(A @ e@ e B A @    - .WORD 012061 .WORD ASCII .WORD ASMDIR ; ; ; .WORD 107761  ;WAIT .WORD 076400 .WORD 000001 .WORD SCLAS0 ; .WORD 100014  ;TST .WORD 0 .WORD 005700 .WORD SCLAS1+BYTFLG ; .WORD 077721  ;TRAP .WORD 062000 .WORD 104400 .WORD SCLAS6 ; .WORD 075131  ;SWAB .WORD 006200 .WORD 000300 .WORD SCLAS1 ; .WORD 075012  ;SUB .WORD 0 .WORD 160000 .WORD S.2 0 S27@87%@j! (1H0,5X,5HTEST ,I2)H " ^.@j" Oi S@jP.:{  U(@j . Ԫp O(i S@j .S2 S2 -}S2j/*t 2. *t&W"µ@6µwµ*twµi ͵&5*uy# 7P-*$u׭3 /074*Hu7 7%V*lu$oaVJHD*u2@jF{ݩ( ""{Fw_ *x _U*/#@}*y% ()"'+-!&; ,:=87s$yp *8y8 ̋נ0נ9 å.Հ'*\y7& EEEE  `*y` e ` E&EUs*yp̵w4V/,8 נ0*yנ98 å$ å.נ`*yAנZ נaנz EG.z *7&&iißzi*8z#0 E""""""" """DDD@DADDB -@B C4dz4d]4dz 4dKR4dBa6 ?jLp^K**Oc*VZ*^b$Dn&"a ͋,L w:B8 ` 5 &  E >w   f5eU@  [*   & * G &( 8L'4e Q$ BBB"   U@ U e  "U%Gef. U U Bb 0 * B.&0 M &0 & I 031064  ;HALT .WORD 076400 .WORD 0 .WORD SCLAS0 ; .WORD 020534  ;EMT .WORD 0 .WORD 104000 .WORD SCLAS6 ; .WORD 014713  ;DEC .WORD 0 .WORD 005300 .WORD SCLAS1+BYTFLG ; .WORD 012445  ;COM .WORD 0 .WORD 005100 .WORD SCLAS1+BYTFLG ; .WORD 012412  ;CNZ .WORD 0 .WORD 000254 .WORD SCLAS0 ; .WORD 012330  ;CMP .WORD 0 .WORD 020000 .WORD SCLAS2+BYTFLG ; .WORD 012272  ;CLZ .WORD 0 .WORD 00024J &dw*\z0U%f -Օ  p8*ztfe"w,D  hH*z D! h`eB*zLC *$tie*zCE $ *{ ˕ e˕ w*4{x ˕ Fh  b*X{ hNidhW ՋM u*|{ e ͕'h-PT.*{Ji"i˥0ӕ Kӕ* v W!,v*(&fd,&     R ,, eC B A eB A eA e@ e%  R,<ev!6 ͕- 6  ,`v!% Օ1 -Օ.-** e0     L"2ݩ(Ep  @8Oh. "`. @j " Oi S@j<4.4{  ݩ(pΫ@y#"JTNw e7 N2TN ONS4N{d.ݩ(Ep  @8pN{.@8M4 .WORD SCLAS0 ; .WORD 012266  ;CLV .WORD 0 .WORD 000242 .WORD SCLAS0 ; .WORD 012262  ;CLR .WORD 0 .WORD 005000 .WORD SCLAS1+BYTFLG ; .WORD 012256  ;CLN .WORD 0 .WORD 000250 .WORD SCLAS0 ; .WORD 012243  ;CLC .WORD 0 .WORD 000241 .WORD SCLAS0 ; .WORD 011473  ;CCC .WORD 0 .WORD 000257 .WORD SCLAS0 ; .WORD 010003  ;BVS .WORD 0 .WORDN ,7 &*{D!C   Kw i .*{w i<w iw iC! * |  }} }xe e& 5*0| c| |e%m|H*T|  1e:7*1!e07*x| |0Z C  C`B `*|&6}"Dԝԝ*|010203040506070809101112.*|131415161718192021222324252627282930@*}31707172737475767778798081828384PN E@8 @8|NC.  N @8@83(:2 ( S:@j 9̫@`40.@j4 Oi 0@jS2J0N2S2 -}S20S227@87Q 102400 .WORD SCLAS4 ; .WORD 007763  ;BVC .WORD 0 .WORD 102000 .WORD SCLAS4 ; .WORD 007520  ;BR .WORD 0 .WORD 000400 .WORD SCLAS4 ; .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 07R8586*,}87888990|ih77 H*P}L^eJ72`&tif*t} n ".@΋*}4΋/%*<W k"%&:w.*}%khvjhh,E*}%N@, ` *~ &e&k3`u*(~&ŝawek U|*L~`@IBw&b0,p~JRPbՀHD`kS; SUBROUTINE SUBX1 (INDEX2,VAR) .TITLE SUBX1 ; FORTRAN V001A .CSECT .GLOBL SUBX1 SUBX1: JSR %4,$POLSH .GLOBL $POLSH,$NAM,$SEQ $NAM,0,0,075012,115330 ; COMMON INDEX1,X(5) ; DIMENSION VAR(1) $SEQ,000003 .GLOBL $ADJ $ADJ,$A0003,000004,177777,177777,177777 ; DATA IPASS /0/ .CSECT .$$$$. INDEX1=.+000000 X=.+000004 .=.+000030 .CSECT  .GLOBL T% @jS2S22-} S2 SS27@8 (26X,I1).7%@j  @j0 r.Oi0@j S2S2P 0.-} S20S27@8!"|27%@j " Oi S@jkU3300 .WORD 101400 .WORD SCLAS4 ; .WORD 007157  ;BLO .WORD 0 .WORD 103400 .WORD SCLAS4 ; .WORD 007145  ;BLE .WORD 0 .WORD 003400 .WORD SCLAS4 ; .WORD 006774  ;BIT .WORD 0 .WORD 030000 .WORD SCLAS2+BYTFLG ; .WORD 006773  ;BIS .WORD 0 .WORD 050000 .WORD SCLAS2+BYTFLG ; .WORD 006753  ;BIC .WORD 0 .WORD 040000 .WORD SCLAS2+BYTFLG ; .WORD 0r*~hhrikkk \*~Fk5%*~P KKceba|*7b ɒ Ve&4lYW$TR $TR,$F0001 IPASS =. . =IPASS .WORD 000000 0 . =IPASS+000004 .CSECT $F0001: ; IPASS = IPASS + 1 $SEQ,000005 $P0006 $P0007 .GLOBL $ADI $ADI .GLOBL $POP2 $POP2,IPASS ; VAR(1) = 10. $SEQ,000006 $P0010 $P0007 .GLOBL $SBS1 $SBS1,$A0003 .GLOBL $PUT3 $PUT3 ; IF (VAR(1).EQ.X(5)) RETURN $SEQ,000007 $P0007 $SBS1X*"@8w E.{  Ϋ@@8 zؚO<7 (. S ON( S%N(#V.(@j V Oi S@j\$d0%x2dOi 0 @jS2S2n0.-} S20S27@8&"rY06711  ;BHIS .WORD 073300 .WORD 103000 .WORD SCLAS4 ; .WORD 006711  ;BHI .WORD 0 .WORD 101000 .WORD SCLAS4 ; .WORD 006654  ;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 ; .WZ; SUBROUTINE SUBX2 (VAR) .TITLE SUBX2 ; FORTRAN V001A .CSECT .GLOBL SUBX2 SUBX2: JSR %4,$POLSH .GLOBL $POLSH,$NAM,$SEQ $NAM,0,0,075012,115400 ; VAR = 10. $SEQ,000002 $P0003 .GLOBL $POPP3 $POPP3,000002 .CSECT  ; RETURN $SEQ,000003 .GLOBL $RET $RET ; END $SEQ,000004 $RET $P0002: MOV[,$A0003 .GLOBL $GET3 $GET3 $P0011 $SBS1,$A0005 $GET3 .GLOBL $CMR $CMR .GLOBL $EQ $EQ .GLOBL $TRTST $TRTST $F0002 .GLOBL $RET $RET $F0002: ; 5 WRITE (5,100) IPASS,INDEX1,INDEX2,(X(I),I=1,5) .5: $SEQ,000010 .GLOBL $PSH $PSH,$I0004 $PSH,$100 .GLOBL $OUTFI $OUTFI,0,0 $PSH,IPASS $PSH,INDEX1 .GLOBL $PSHP $PSHP,000002 $PSH,000003 .GLOBL $IOI $IOI $P0007 $POP2,I $F0003: $P0012 $SBS1,$A0005 .GLOBL $P\.7%@j " Oir@j'"|(vH."Oi | @jvOi)*D2@j Oi @jOi+,P.@j  Oi@j[-2Oi@j Oi@jT./"y.Oi  @j]ORD 006373  ;BCC .WORD 0 .WORD 103000 .WORD SCLAS4 ; .WORD 004512  ;ASR .WORD 0 .WORD 006200 .WORD SCLAS1+BYTFLG ; .WORD 004504  ;ASL .WORD 0 .WORD 006300 .WORD SCLAS1+BYTFLG ; .WORD 003344  ;ADD .WORD 0 .WORD 060000 .WORD SCLAS2 ; .WORD 003343  ;ADC .WORD 0 .WORD 005500 .WORD SCLAS1+BYTFLG ; ; ; SYMTBB=.-2   ;HIGHEST ADDRESS OF PST. .END 000002(%5),%0 BR $F0001-4 $P0003: MOV #$R0000+4,%0 BR $F0001 $R0000: 041040 000000 ADD #4,%0 $F0001: MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ .END _SHR1 $PSHR1 $PSH,000001 .GLOBL $IOR $IOR .GLOBL $ENDDO $ENDDO,$I0001,I,$I0004,$F0003 .GLOBL $IOF $IOF ; 100 FORMAT (26X,8HPASS NO.,I2,10X,8HINDEX1 =,I2,5X,8HINDEX2 ; 110HX BLOCK = ,5(3X,F4.1)) .100: $SEQ,000011 $TR,$F0004 $100: .ASCII ^(26X,8HPASS NO.,I2,10X,8HINDEX1 =,I2,5X,^ .ASCII ^8HINDEX2 =,I2,10X,10HX BLOCK = ,5(3X,F4.1)^ .ASCII ^)^ .EVEN $F0004: ; RETURN $SE`"@802Oi S@j S2S2r.-} S2 SS2r|42S2|S2  S2S2 .S2 S2 S2   2S2S2 7@87%c.(|(b2 2 128 1 1 129 3 3 130 5 5 131 4 4 132 2 2 133 cQ,000012 $RET ; END $SEQ,000013 $RET $P0002: MOV @000002(%5),-(%6) JMP @(%4)+ $A0003: 0 054004 000001 $P0004: MOV INDEX1,-(%6) JMP @(%4)+ $A0005: X 054004 000005 $P0006: MOV IPASS,-(%6) JMP @(%4)+ $P0007: MOV #000001,-(%6) JMP @(%4)+ $I0001: 000001 $P0010: MOV #$R0000+4,%0 BR $F0005 $R0000: 041040 000000 $P0011: MOV #000005,-(%6) JMP @(%4)+ $I0004: 000005 $P0012: MOV I,-d.(|  (@(r(.( r (PP(r>. ( r`(|(r.(|  (ryr(|r(r.(| r (r,T1(26X,8HPASS NO.,I4,5X,12"T@j eE` \L 2` U(@j L{ ݩPV` ).rV{ `  U(@j_]Lr2L{  ݩPrr{( ` ^L2` U(@j L{ݩP& z` .rz{ `  U(@j: _ `D` 134 135 (%6) JMP @(%4)+ I: 0,0 $F0005: MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ .GLOBL $WRITE,$DCO,$ICO .END hJ*HINDEX VALUES,9I5)2F3.@jFOi S @j$"." @8 {Ϋ@ w 7 4"{. zON@j"B5.@8Oi @jOi0620@j S2 S2-} 0i.  @jD{` '. aV` 2U(@j  V{` U(> br` Q2@j r r{` U('N cz` 2@j r z{` U(^ d e .@j  @jrn D` fVK.D{`  U( @jj*@~u" 7 Qt|g. ON@jt|R2@j  OPi@j Sw  7 2 *@~ ON@j>TU$w 2 OPi @j$*@~ (  &7 V<w 2   &ON@j<HkM-U)Xt$-UZ$r+Xv$-Uh,X8"h$x$l$w V)7 3yNX$--H$yO.Xp-$yP$w V)p-~--7 3$yQ.:pXp-y$R$w V)p---7 3y$SrX .rX`arXy$,.rXTj`gyTy$U--vX X.yV-% X.yW.-~X XI%-yX--U'fX(%yY.-zX"YX6%<%X%yZ..zXF%"YXP%X%yPR%[-U)LXr-UZl2S2 0 S27@87%@j7J.S2 S2 J-}2.{ S4 S27p+@8d(26X,11HY(2,2,3) = ,F4.1)&7%@j  ddd9:2@j O(i @jrv;X2O(imV~ ` g.{` U( @jr r` h2r{`  U( @jr z` iD.z{`  U( @jD < jk2{< U @j@jS2 |D< R.|S2 -}D{<  D` M.n@NXb7 W.NX bON@jS2T 6.S2 -}S2S2EdXpw X.7@87% @jpxXGxb7 YZ.*2bON @j@j.@8[n2Oi@j nOi@j\n|]vDob%(dXy\-U|*LXr%r-U(dXy~%]-Ur+LXr/U%(dXy^-Uh,LX%r/U(dXy%_X@&y`/-U(%dXya/-U(dX%ybx-r/U(dXr%yc-r/U(dX=%ydX@&yej-r|%-U(dXyf/-I &U(dXyg-rO&/U(dXyh-r*&/U(dXyi^.-:&U'fXyjykrX:J& .rX.`a-U'\&DXp@j ԪpO(i <(2 @j  Ԫrj = 02O(i @j  Oi0@j>O.S2 S2 -}S20?".0S2 7@8 7%@j"B@<"2OiB@j <"E@8<NqS4S2 7@8 D{`  V` r2S4V{ `  S4r{ ` z` 2` S4z { ` S4S2 lm.7p7% @j@j Jnd~no.Jnd ~ @j@j@ja pqr| . @j@jS2|r.n @8 Oi|@jvnH ^n.n{H  U @jne> .E@8   > _c.@j  E@8 B `v .  @jv{ >nl .ݩPrn { l U(av srXTj-U(@j&DX-U(DX/Ux&(DX/U(DXrX&`j`gylymX&-.. %ynyoy&pX` yqyrrX .4&rXf`a`gys&&w . /*/7 1yt/-6&~XqX4/yu$/D&-~XqX>/y &v8//u*YX'./ 'B/8/ppuX4/y 'w./L/'`j`gyyXl'(7H TIME =,F10.4,8H SEb'CONDS///):l'tq.<NE@8  *@8 jl".S2j S2 l-}" .Oi SS2  S2  (.S2 S2 7p( BA<F. SB 7% @j<F. Zj.E@8  Z u, s> .S2-}7%@j> <> w 7 t(6.x  ON@j(zT u.@8:O(i  @jb 2w.2@8: O(i @jn v `. Ep   4~ $2v.@jv { ݩPr l bv2{l  U( @jv{, l 2ݩPr  {l U( cv.@jv { ݩPr. l d.{l  U( @jK< enl o. @j  n{wyzX'y{y|rXC~' .rX`arX,.rX'Tj`gy}y~y'X&y|`/P?('PPPP=P'PF"(X (P@)X)P  2)8)X P)V)` ))`  |**` r+x+`- h,n,`?*^-wtx-q-j*--c-\-y*-U\\\xS2j,".S2-}"Oi S< 2S2S2  S2 S2J(B<27p ( SB<7%uZ(BTB.(B T @j,j(26X,5HY1 = ,F8.1,5X,5HY2 = ,F8.1,| H,5X,5HY3 = ,F8.1)C(26X,5HY1 = yԪp 쨀p O(i@j wx#2 vp O(i@jS2F | -2|S2  -}S2S2u, y (7H TIME =,F10.4,8H SE*7p7% @j  CONDS///)   z {|v2@j   @j@jS2S |zl U(kL fl #2@j  {l U(@j\ gl 2r  {l U(@jl hl 2r  {l U(@j| i jn<2  @jrn{ l kl d.l U(@j {l  l{*-\\\\m*- \  \ \\\*.d\d\\\-*6.\\%\&&&&7*Z.\%\\ \ \*~.=\=\.a.\*.\\\*.\ \ .>.9HD=*.\\\\C*//"\\8/U*2/|@j,,D8.1,5X,5HY2 = ,D8.1,5X,5HY3 = ,D8._1)D:.@j S2 :S26&.S2 S S27pS24. SS2 7@8 7%@jE(2F5.0)&F2@j : O(i S}2|S2 -}S2S2K }~.7@87% @j@j@jg  P2  @j`; S Se*& PP6PP= PH PF6  H ` D` X l P9 l x x X P  ~ X&  ~.U(@j  r{F l m .2l U(@j r{ l n@nH .l U(@j @n{H  op w Nh.U@j @j HN Xb7 q_2Xb ON @jS2S2 nH s2B/L/ HV/pCV/&&&&\&?7 fdyZsyX8@yb $?X>@yD@J@zXY >?XD?zyD?y\@ XX@yR@ XV?j@yyd@U8@XXh?d@J@~XU8@XXzXWv?,YX?X@ym?d@J@~XU8@XX X?t@y d@J@~XU>@?XX X~@y d@U~?8@XXd@J@~XU8@i?fXy d@U>@XX[?d@J@~XU>@fXy? n@d@U8@fXy x@}@jTG 0H2 Oi 0 @jS2S200.-} S20S27@8BI|.7%@j S2 S2|Pk.-} S2 SS2 S ^.S27p S2 SS2Tju. \ `   `Z   `l `~`,fwntqjf n ,c\" &"/,U\\\V,<\\\-} n{H S4S2 nl M27@8n { l S4{l l l .l S4 { l S4" l >2{l S4 S27p7%0 r6 w Xb7 S2@j6  xXbON@jqF stt&.@j  t@j?d@U>@fXyd@\@?zX"YX@X@@yd@J@~X Xj@yZ@XX?yXP@X@N?*,@yzyyzyPPf\\)*P@\\\\t@\&@7 dy*@~yX8Ay@PAU8ALX>AU*X-@@yPAU8ALX*X@ybA X^AyDAXA@U8ALX>AXAPA~XJ@lUv*Xya@JAXAU8ALX>AXAlSS2 7@8 7%@j!vJ(26X,3(F4.1,5X),I2)K @j̫@`L\XH.@j`; S S S VSP S S,\\"@\ ",*\\\\",N\\&&\\,` \  \ \\\I,d\d\\\,\\%\&&&&,\%\\ \ \J,=\=\a\$c,\\\L,8\ \ T>^9HD6T"^,\\\\\,X uvwx2@j @j@j@jl yp w NXb7 v.p  HNXbON@j z.S2 S2 -}7%W { w N7 .@j  o'` NONS4 |8.vpO(i  @jS2#  mAUAw ,^A7 \BXA:pDsv*Xyf AXVA^ApA@y zyF*2Ay zy`@@@\.*VA\\\e&&u zA&&\`&A7 dy&yXDy}&AX DyXDy2AbE XpEAyDtEzXYX\AAD|E~X XpEyAE:pXLEyE:pAXZEy|E XEyB EUDXBBw /B7 N>X:X0B(Bw +N\\*,r\\\0,\\\\,\\\  $, B  " $  \  \ &&&&\"\\Q&c, HpC~  4&&&&\2S2  -}S2S2, } (7H TIME =,F10.4,8H SE*7p7% @j  CONDS///)   ~ :2@j  @j@jS2; 2S2 -}S2S2J .7@87% @j@j@jg"* Z,BLEe7 4>XXLEyBB EU DXVBPBw /TB7 >X:XlBdBw +hBZEe7 >XXZEyq~B XEEBy |E XBEy EUDLXFEBDsEUD`XyBEU DLXTEDsEBU D`XyXEBEByrXzErXCaB`a|E XEEUDBDXEU DDXrXBfjXEEB`gy)CX2C(15H X(I), Y(I) FIT/(2D18.7))2CyjE|EvX XEy $SBS1,$A0012 $PUT3 ; A(4) = -1.03452E-9 $SEQ,000033 $P0052 .GLOBL $NGR $NGR $P0053 $SBS1,$A0012 $PUT3 ; A(5) = 4.54686E-12 $SEQ,000034 $P0054 $P0037 $SBS1,$A0012 $PUT3 ; A(6) = 0. $SEQ,000035 $P0055 $P0056 $SBS1,$A0012 $PUT3 ; DO 19 I=1,6 $SEQ,000036 $P0040 $POP2,I $F0015: ; 19 B(I) = A(I) .19: $SEQ,000037 $P0041 $SBS1,$A0012 .GLOBL $GET3 $GET3 .GLOBL $RD $RD $P0041 $SBS1,$A0013 . P6P.Z  @j`;6D P= PT PF T l l X x P! x   X P  f X  D `   `@   `S`fBCXDdCX DfCX"RCjCXDnC^Cw TE&DnCE7 y|E XEyCTEEUDLXUFECE|E~XlDsEUCD`XyXEEECCy|E XEyE CUDLXFEUEUCD`XyEU DLXCTEUEU D`Xy#CXEECyzyy*Dzy``f\`&D*FETE0bE)\*jE\\\EM 0055 705 CONTINUE 0056 710 CONTINUE 0057 740 RETURN 0058 END GLOBL $PUT4 $PUT4 $ENDDO,$I0003,I,$I0023,$F0015 ; CALL DRMDAT (B, IPG, 100, 24, 1) ;C $SEQ,000040 .GLOBL DRMDAT .+2 JSR %5,DRMDAT BR .+000014 +B +IPG +$I0027 +$I0030 +$I0003 JSR %4,$POLSH ; 33 CONTINUE .33: $SEQ,000041 ; READ(5,1) ILTW,IRTW,NPROG $SEQ,000042 $PSH,$I0001 $PSH,$1 $INFI,0,0 $PSH,ILTW $PSH,IRTW $PSH,NPROG $PSH,000003 $IOI $IOF ; IPG = 7 ;C $SEQ,000043 $P0066 $POP2,IPG ; IF (ILTW.L`x,fqnnkdf n ,] V.  &. ,$O\PP\ S S`,H\\\\,l\\\ \ 0 \ \8 6E *7,42*E\\E&&& E&\d&E7 dy NdfyXHy&EXHyXHy&EXH yXH y0FN XN)FyN:pNNUH.F`XXNNFyN@F XNyN XNyXPFNNN~XUHLX`FNUHLXUNNnFUH`XXNNNFx~FXNNDFy rXN/FrXF`aN XNN F XNNNUHDX; SUBROUTINE LSQPOL( X, Y, RESID, N, A, B, M) ;C ;C LEAST SQUARE POLYNOMIAL FIT ;C .TITLE LSQPOL ; FORTRAN V001A .CSECT .GLOBL LSQPOL LSQPOL: JSR %4,$POLSH .GLOBL $POLSH,$NAM,$SEQ $NAM,0,0,047011,063144 ; DIMENSION RESID(30) $SEQ,000002 .GLOBL $ADJ $ADJ,$A0004,000006,177777,177777,177777 ; DOUBLET.1) GO TO 1001 $SEQ,000044 $P0063 $P0040 .GLOBL $CMI $CMI .GLOBL $LT $LT .GLOBL $TRTST $TRTST $F0016 $TR,.1001 $F0016: ; IF (ILTW.GT.37) GO TO 1001 $SEQ,000045 $P0063 $P0067 $CMI .GLOBL $GT $GT .GLOBL $TRTST $TRTST $F0017 $TR,.1001 $F0017: ; IF (IRTW.LT.0) GO TO 1001 $SEQ,000046 $P0064 $P0032 $CMI $LT .GLOBL $TRTST $TRTST $F0020 $TR,.1001 $F0020: ; IF (IRTW.GT.30) GO TO 1001%\&&&&\r1. ,\i-yd\] ,\d\d\\V,$\\\%\%.H\\=\=j*tj(t,n%\\HDL  ,,\\pCt$&&\JFrXfjXNNFXFNNF`gy XF*F(14H LSQPOL C(I,J)/(6D18.7))y N XFNy N XNy N G:pNNUH`XyGN XNyNNU*GHLXNNUHLX8GNNUHLXUvFGNNUH`XXNKTGN GXNNGXNhGNFyN XNyjzGN:pNUH`XyGN XNyNUH9GLXNNUHLXNGGUHLXUvNGUH`XX PRECISION X(30), Y(30), A(6,6), B(6), C(30,6), D ;C $SEQ,000003 .GLOBL $ADJ $ADJ,$A0002,000002,177777,177777,177777 $SEQ,000003 .GLOBL $ADJ $ADJ,$A0003,000004,177777,177777,177777 $SEQ,000003 .GLOBL $ADJ $ADJ,$A0006,000012,177777,177777,177777 $SEQ,000003 .GLOBL $ADJ $ADJ,$A0007,000014,177777,177777,177777 ; 10 DO 20 I=1,N .10: $SEQ,000004 $P0014 .GLO ;C ;C IDAT = 3000 ;C ILOC = IDAT + (ILTW-1)*61 + 1 $SEQ,000047 $P0064 $P0070 $CMI $GT .GLOBL $TRTST $TRTST $F0021 $TR,.1001 $F0021: ; ILOC = 1 $SEQ,000050 $P0040 $POP2,ILOC ; CALL DRMDAT(ICOM,IPG,ILOC,61,2) ;C $SEQ,000051 .GLOBL DRMDAT .+2 JSR %5,DRMDAT BR .+000014 +ICOM +IPG +ILOC +$I0042 +$I0006 JSR %4,$POLSH ; IF (IRTW.EQ.0) GO TO 600 ;C ;C ***** TASK 4 ***** ;C ;C TASK 4 - DELENNGGXNNxGyrXNGrXH`aN XNNwG XNNNUHDXGrXfjXNNGX$ HNNG`gyX8H*H(14H LSQPOL A(I,J)/(6D18.7))yXH@HVHXXHXHZHPHw 'THN7 yrXNrX$lHH`aN XNNUG~HHDXrXfjXN|*HNzH`gyXH(12H LSQPOL B(I)/6D1*H8.7)yzyyzy``Xf&H\`f\H$PSHR4 $POP4,XMAX ; YMAX = DMAX1(YMAX, DABS(Y(I))) $SEQ,000012 $P0016 $SBS1,$A0003 .GLOBL $SVE $SVE,$F0005 .GLOBL DABS .+2 JSR %5,DABS BR .+000004 $F0005: 0 JSR %4,$POLSH $PSHR4 $SVSP,$F0006 .GLOBL DMAX1 .+2 JSR %5,DMAX1 BR .+000006 +YMAX $F0006: 0 ADD #000010,%6 JSR %4,$POLSH $PSHR4 $POP4,YMAX ; 148 CONTINUE ;C ; ;C SCALE ; ;C ; .148: $SEQ,000013 .GLOBL TE ROD CALIBRATION DATA POINT ;C $SEQ,000052 $P0064 $P0032 $CMI .GLOBL $EQ $EQ .GLOBL $TRTST $TRTST $F0022 $TR,.600 $F0022: ; 300 CONTINUE .300: $SEQ,000053 ; ZBAD = FLOAT(IZ(IRTW))/ZSCALE $SEQ,000054 $P0064 $SBS1,$A0001 .GLOBL $SVE $SVE,$F0023 .GLOBL FLOAT .+2 JSR %5,FLOAT BR .+000004 $F0023: 0 JSR %4,$POLSH .GLOBL $PSHR3 $PSHR3 $RD $P0020 .GLOBL $DVD $DVD .GLOBL $DR $DR .GLOBL $POP3 $P; SUBROUTINE NSORTZ(M,L,N) ;C ;C REORDERS FIXED POINT ARRAY TO BE MONOTONICALLY INC ;C .TITLE NSORTZ ; FORTRAN V001A .CSECT .GLOBL NSORTZ NSORTZ: JSR %4,$POLSH .GLOBL $POLSH,$NAM,$SEQ $NAM,0,0,055207,071672 ; DIMENSION M(30),L(30) ; ;C $SEQ,000002 .GLOB@*NN)\\Ni*N@\\\N N \&&&&\&N7 t dy|Q:yX.SyOXXTDTU.SXO;OOw "7 x>XvPp}OP(P(PyT X4OyPDT XQ`TTU.S`Xy* TQ XTTy+`TNTU.SRLXTNTU.SLXSRUv`TNTU.S`XRX&TTTQy,`TU.RLO;<\6\8\*T2\T.@\\ **T\\DT\*NT\\\&OBL $RET $RET ; END ; $SEQ,000032 $RET $A0002: 0 060010 000036 $A0003: 0 060010 000036 $P0004: MOV @000006(%5),-(%6) JMP @(%4)+ $A0005: 0 060010 000006 $A0006: A 120010 000006 000006 A: . = .+000440 $P0007: MOV #XMAX+10,%0 BR $F0016 XMAX: 0,0,0,0 $P0010: MOV #YMAX+10,%0 BR $F0016 YMAX: 0,0,0,0 $P0011: MOV #000005,-(%6) JMP @(%4)+ $I0000: 000005 $P0012: MOV M,-(%6) JMP @(%4)+ M: 0,0 $P0013: MOV #000006,-(%TS ; DO 605 K=I,NPTS $SEQ,000075 $P0041 $POP2,K $F0030: ; IZ(K) = IZ(K+1) $SEQ,000076 $P0100 $P0040 .GLOBL $ADI $ADI $SBS1,$A0001 $GET2 $P0100 $SBS1,$A0001 $PUT2 ; IRHO(K) = IRHO(K+1) $SEQ,000077 $P0100 $P0040 $ADI $SBS1,$A0002 $GET2 $P0100 $SBS1,$A0002 $PUT2 ; 605 CONTINUE .605: $SEQ,000100 $ENDDO,$I0003,K,NPTS,$F0030 ; 610 CONTINUE ;C ;C SORT ON INCREASING IZ ;C .610: $SEQ,000101 $ENDDO,$I0003,I, $P0005 $SBI $POP2,I ; GO TO 50 $SEQ,000020 $TR,.50 ; 100 CONTINUE .100: $SEQ,000021 .GLOBL $ENDDP $ENDDP,$I0000,K,000006,$F0002 ; RETURN $SEQ,000022 $RET ; END $SEQ,000023 $RET $A0002: 0 050004 000036 $A0003: 0 050004 000036 $P0004: MOV @0&&&rT\&tT7 dy<yXUyATrU XnUTyUhUvXrU~X XTUyUXTTyoThUUUXXzUU\UTfXyXTy zUTU\UXXhUUUfXTy XxUnUTy zy,Uy zyP2f\f\f\f \*U &UP# 6U@..v@@ݩP@Ԫ@@Q@.ON@Of@Oi@S4@Wh@(.@}@ @8@{@@j@(*@~htw e@ eA @  *(Ww e@ eA @ w ee@ "*LW B A @  B A @ +%%*pWB    C B m*WA @  6 ve\ *W  w !      p*W em   em X6i M6 M*X\\ \Ca 4XCa :X\Z>Xf&\&\LX&&&&\&\ $SEQ,000003 .GLOBL $ADJ $ADJ,$A0002,000002,177777,177777,177777 $SEQ,000003 .GLOBL $ADJ $ADJ,$A0004,000006,177777,177777,177777 ; EQUIVALENCE (IROW,JROW), (ICOLUM,JCOLUM), (AMAX, T, SWA ;C ;C INITIALIZATION ;C ; 10 DETERM=1.0 .10: $SEQ,000005 $P0020 .GLOBL $R ; 620 CONTINUE .620: $SEQ,000107 $ENDDO,$I0003,I,NPTS,$F0031 ; CALL FIT (X, Y, NPTS, B) ;C ;C WRITE COEFFICIENTS ON DRUM ;C ;C ICOE = 5260 $SEQ,000110 .GLOBL FIT .+2 JSR %5,FIT BR .+000012 +X +Y +NPTS +B JSR %4,$POLSH ; ILOC = 100 ;C ILOC = ICOE + (ILTW-1)*12 + 1 $SEQ,000111 $P0061 $POP2,ILOC ; CALL DRMDAT (B, IPG, ILOC, 24, 1) ;C ;C COMPUTE DIFFERENTIAL AND INTEGRAL WORTH FOR ALL POINTS ;C $SEQ,000112 .GLOBL(7 *@~f2ON@Q@j쨀>"@j 2{  ݩPԪOf 022,.@j { ݩPOf@;.@j  Oi@j{T|.{`X\\ nX \ rX&\ vXe\ zX\L ~X\P*X  w ! `\ `\ X\&XAaP AaH \$X  \\7 X\8X@a\ X\3*X@E@8@v@@c.@ ݩP@@Ԫ@@Q@.ON@Oi@OPi@S4@UP@(.Wh@@}@@8@{@.@j@Ϋ DRMDAT .+2 JSR %5,DRMDAT BR .+000014 +B +IPG +ILOC +$I0030 +$I0003 JSR %4,$POLSH ; DO 628 I=1,6 $SEQ,000113 $P0040 $POP2,I $F0034: ; 628 A(I) = B(I) .628: $SEQ,000114 $P0041 $SBS1,$A0013 .GLOBL $GET4 $GET4 $DR $P0041 $SBS1,$A0012 $PUT3 $ENDDO,$I0003,I,$I0023,$F0034 ; WRITE (6, 992) (A(I), I = 1, 6) $SEQ,000115 $PSH,$I0023 $PSH,$992 $OUTFI,0,0 $P0040 $POP2,I $F0035: $P0041 $SBS1,$A0012 $PSHR1  6  *pY v  -& a   d*Y  e0f`e0#  *Y  %  V  "*Yӕ* v 'd  Z@Q*ZE D&6 **ZE& & f& & )m!*NZЕ 6 A N v '*rZ*ӕ0˕.w *Z'  C B A  .20: $SEQ,000007 $P0023 $P0021 .GLOBL $SBS1 $SBS1,$A0006 .GLOBL $PUT2 $PUT2 .GLOBL $ENDDP $ENDDP,$I0000,J,000004,$F0004 ; 30 DO 550 I=1,N ;C ;C SEARCH FOR PIVOT ELEMENT ;C .30: $SEQ,000010 $P0022 $POP2,I $F0005: ; 40 AMAX=0.0 @@Ϋ@@Ϋd@Ϋ@y@& @(&h|(7 &&L2ON@Q@j쨀>&"@j,( ,8H.쨀>,@j쨀>8"@j@Oi HH2.@j2  E@8 $PSH,000001 $IOR $ENDDO,$I0003,I,$I0023,$F0035 $IOF ; 992 FORMAT (5H A(I)/(3E18.7)) .992: $SEQ,000116 $TR,$F0036 $992: .ASCII ^(5H A(I)/(3E18.7))^ .EVEN $F0036: ; DO 630 I=1,NPTS $SEQ,000117 $P0040 $POP2,I $F0037: ; CALL WORTH (B, X(I), YDIF(I), YINT(I)) $SEQ,000120 $P0041 $SBS1,$A0014 .GLOBL $SVE $SVE,$F0040 $P0041 $SBS1,$A0016 .GLOBL $SVE $SVE,$F0041 $P0041 $SBS1,$A0017 .GLOBL $SVE $SVE,$F0042 .GLOBL WORTH *Z  W - *ZP e   4  *[  6 L I-E6*&[ 6 mm Y*J[ m *n[ Օ0Օ.v!Օ0 *[v    7 *[  " xv*[m   ӕ-*[ӕ ˕0 e:3e 8 500 1100 2500 3600 4500 5000 7500 8400 19 31 60 77 84 85 51 25 11 5 11 0 47 0 Vb2.b2 @8 Oi@jZdl2 OPi l@jZvz2OPiz@j Oi@jW &w .{ & Ϋ@*v7 w .. ON S4Ϋ@y ؚle7 l.+2 JSR %5,WORTH BR .+000012 +B $F0040: 0 $F0041: 0 $F0042: 0 JSR %4,$POLSH ; 630 CONTINUE .630: $SEQ,000121 $ENDDO,$I0003,I,NPTS,$F0037 ; TOT = 0. $SEQ,000122 $P0055 $RD .GLOBL $POP4 $POP4,TOT ; CALL WORTH (B, TOT, YDIFZ, YINTZ) $SEQ,000123 .GLOBL WORTH .+2 JSR %5,WORTH BR .+000012 +B +TOT +YDIFZ +YINTZ JSR %4,$POLSH ; TOT = 200. $SEQ,000124 $P0104 $RD $POP4,TOT ; CALL WORTH (B, TOT, YDIFT, Y*"\%V f& h dD C B *F\A eC B A @ eB A @ eA @ e@ *j\ 6&f * & mC B *\A mB A mA c  efk*\ C B A @   *\eӕ* v W!,v*(&f*\&     R *] eC B A eB A eA e@ e% F*B] ev!6 ͕- 6 U*f] v!% Օ1 -Օ..Zs쨀>@E@8@@.@ݩ@ݩ@@@Q@1.ON@Oi@U@}@@8@.{@@j@@ @(~Zsh.lONS4OPil@j= ,w .{ , Ϋ@*v7 w z. ON S4Ϋ@y ؚUze7 z.zONS4OPiz@j!  F. @jOi^ &f.@j  {&ݩINTT) ;C ;C EDIT ALL POINTS FOR THIS ROD (INCLUDING CALCULATED INTE ;C $SEQ,000125 .GLOBL WORTH .+2 JSR %5,WORTH BR .+000012 +B +TOT +YDIFT +YINTT JSR %4,$POLSH ; CALL ACCUM (KTIME, K1, K2) $SEQ,000126 .GLOBL ACCUM .+2 JSR %5,ACCUM BR .+000010 +KTIME +K1 +K2 JSR %4,$POLSH ; WRITE(6,105) ILTW $SEQ,000127 $PSH,$I0023 $PSH,$105 $OUTFI,0,0 $PSH,ILTW $PSH,000001 $IOI $IOF ; CALL CLOCK (K1, K2) *]- e0     !]e*]79fm6& *] BE v '+!-  *]BE •00 0 w*^  v    @^V 6 v G*Z^& & &f&f& & & A& *~^& $m"$    DE v!$q*^w+--  'DE X*^00L    (7 Zs4S2ON@Q@j쨀>4"@j" :@F2쨀>:@j@FE@8R:@t" @}@O@XTN2@jX Oi T@jNOiuRf`42f@j @j`{4ݩd`F4Pf"&.v{ & UP@j.,t.{ , ݩPtvW>,.{,UP @jFL. @j@8Oi^&,.@j Ϋ@ &Ϋ@,>n8~w $SEQ,000130 .GLOBL CLOCK .+2 JSR %5,CLOCK BR .+000006 +K1 +K2 JSR %4,$POLSH ; 660 CONTINUE ;C .660: $SEQ,000131 ; NLOOP = NPTS + 2 $SEQ,000132 $P0027 $P0042 $ADI $POP2,NLOOP ; DO 680 J=1,NLOOP $SEQ,000133 $P0040 $POP2,J $F0043: ; I = J-1 $SEQ,000134 $P0106 $P0040 $SBI $POP2,I ; LIST(1) = I $SEQ,000135 $P0041 $P0040 $SBS1,$A0004 $PUT2 ; IF (J.EQ.1) GO TO 663 $SEQ,000136 $P0106 $P0040 9Q *^ 0 $ FaB A @ v!$*_N    /# g*2_  cw& 23   '*V_w e. vb*z_v    w(EDN "*_ v!$DE+- v!$*_DE 0090 `*_ av!$  ` "w R* `  4 4f& ( "R*.` mB A @ mA @ m@ 2`F@8 { 4ݩE@8r|.ݩ |  @j~`F42`F @8 {4ݩOip `F:.p@j ` F@8{:z `b.ݩOiz @j`{4`F4(.4ݩ` F @8{42Ϋd  Ϋ@8~ Ndf7$F7 . FON@jOit8.@j t {8ݩPof~2Ԫf  @8Whv8*.{8 UP @j1.  @j $CMI $EQ .GLOBL $TRTST $TRTST $F0044 $TR,.663 $F0044: ; IF (J.EQ.NLOOP) GO TO 665 $SEQ,000137 $P0106 $P0105 $CMI $EQ .GLOBL $TRTST $TRTST $F0045 $TR,.665 $F0045: ; 661 FLIST(1) = X(I) .661: $SEQ,000140 $P0041 $SBS1,$A0014 $GET4 $DR $P0040 $SBS1,$A0006 $PUT3 ; FLIST(2) = Y(I) $SEQ,000141 $P0041 $SBS1,$A0015 $GET4 $DR $P0042 $SBS1,$A0006 $PUT3 ; FLIST(3) = YDIF(I) $SEQ,000142 $c/*R`  e   e:*v`=-9B&*`6 C B A @ #"B A @ *`C6v "$eZ*`΋V w  JJ*a &f 8 2&f A**a eB A @ eA @ e@ e B A @ }Na    *Za& a& *h *h& & & & *~a& & && &f&f$ & q a&  `:.U@j ` {:ݩ`F:;2`F@8 { :U@j j`4 t}.j` { 4U@jt`:`X.`{: U @j`X.E@8   `Ff2@j` FOi&f2@j { &ݩPfԪ&V2{& UP @j{ ,t,e.,ݩPt Ԫ {, 2UP@j  @j',``f\`F"}@j }&FP0041 $SBS1,$A0016 $GET4 $DR $P0051 $SBS1,$A0006 $PUT3 ; FLIST(4) = YINT(I) $SEQ,000143 $P0041 $SBS1,$A0017 $GET4 $DR $P0053 $SBS1,$A0006 $PUT3 ; GO TO 670 $SEQ,000144 $TR,.670 ; 663 FLIST(1) = 0.0 .663: $SEQ,000145 $P0055 $P0040 $SBS1,$A0006 $PUT3 ; FLIST(2) = 0.0 $SEQ,000146 $P0055 $P0042 $SBS1,$A0006 $PUT3 ; FLIST(3) = YDIFZ $SEQ,000147 $P0023 $DR $P0051 $SBS1,$A0006 $PUT3 ; FL%\m*a "w65$"u" ( ww*a 5 5  "A"  -#*b 0%    ` $*(b @`u"  5A ,*Lb) /TD%' w,ww`5*pbwwxw, ) A (*b/'Aށ% @b *b`wwwwwwwww?*bww4wHw *c w  @8Oif@jTLTJd.T @jLTJe,(PPf\\_&@j} @j},L\\\\p\@ f,ft0)\t,\\\  ,\\&&&  &\IST(4) = YINTZ $SEQ,000150 $P0025 $DR $P0053 $SBS1,$A0006 $PUT3 ; GO TO 670 $SEQ,000151 $TR,.670 ; 665 FLIST(1) = TOT .665: $SEQ,000152 $P0022 $DR $P0040 $SBS1,$A0006 $PUT3 ; FLIST(2) = 0.0 $SEQ,000153 $P0055 $P0042 $SBS1,$A0006 $PUT3 ; FLIST(3) = YDIFT $SEQ,000154 $P0024 $DR $P0051 $SBS1,$A0006 $PUT3 ; FLIST(4) = YINTT $SEQ,000155 $P0026 $DR $P0053 $SBS1,$A0006 $PUT3 ; LIST(1) = 0wr wp*$cu wJ wX  *Hc5m5-5t4-*lcw5 5 w w   *ctm4-w :w w[*cA"B`4-w "*c P u" w w5-)*ct5  wd w* drA" ɥ' 4 wR " z*DdP' " 1u"4s*hd tw w .|Q:*v@@8@쨀>@3.v@@ݩ@ݩP@Ԫ@E.@Q@@ON@Of@Oi@.OPi@S4@U@UP@@.}@9@@8@{@{@.@j@Ϋ  V*d% wu"u h*du $wu"u 2*dw%  u" w*du  u"  "*e 5-t5 wH *@ew<5-t5  5*de$" uu" w $ *e wV5 %*e m"*em"5 f w u. Ndf|Q:@@쨀>@.@ݩP@Ԫ@@Q@ON@.Oi@UP@@}@@8@[.{@{@@j@Ϋ@@Ϋd@( Ndfh2@8R  @jj {8N)D 28ݩPOPi N @jD9j 8**.j { 8 UP@j*^+jX8R.Oi^@j jX{8  X8;.ݩP X { 8ݩPjX82Ԫj X {8@@@@@8@ (~|Q:h(7 |Q:82ON@Q@j쨀>8"@j  FO.쨀>F@jOfE 8: :BtBB BJdJJ JVP t*e u %.  fuw$g4gZ`^(ZZ^0f ZZ^ZZ^RYt*>f]yyLY] w&fc4-j*bfw$ ff " *f  5 @&  ` v*fN   "   5 W*f4    C *fw  5 5 5 w0f*g `P  w E*:g (7 Ndf2ON@Q@j쨀>"@jk( .쨀>@j쨀>"@j(@  z.쨀>@j쨀>"@js`Oi h:h.@j  {xUP&0^,j.0^ @jj{8F F.FݩP  { FݩPFjF.Ԫj { FUPiR-0p0.@j 0 p0d@.*@.@ @j*Oi@@jv/@*:^'.@VVV*&2 .@j* Oi &@j2 'hR0&`b.{RU  0&`Zx*@ D2@j* Oi @@jDN *&2OPiN@j *Oi&@j R*2 { R ݩ*@8@8A@`` ^gM*`gEce %e% D 4 4 4 w*g wdw  G*ge(\ w %*g 6 w  ( 8e(*g\ "e(\ Phw  **h&   wx~ x *Nh   \  ewN *rh w> "1r p w*hEM ".{  UPY6.  J. @jOi@jt\2  {UP@jl.Oi  @j{~l.ݩP* @8 :@8Oi^0X*pX.@jX * {pݩXQbpt.b{p ݩ @8@8 1X*p. @jX*{p3>2Xb2ݩOi> @jXb{GpF3*2pݩOi F @j*OiT4N *T2@ @j*OiT@j NR*C2N{ R ݩ*@8@8 2,w N7 22, @j*vNON N8T.S4 N { 8Ϋ@*w 7 82*vONS4G 22 >reӕ y*h -- %*h`r f w *iel Cʥ ʥ  ʥ (*&i `B Ӄҕ  "r*Ji  -@-<   *ni4 2 L 5  *i  2+2  <*i1  נ0"i    w(i "W= U  { ݩP).{ݩP Ԫ t.{UP  tZ. Z@jΫ@zw I2Ϋd  Ϋ@|Q:"7 2 ON@j}@j},`8.T@j N {8ݩPoN5N8.OPiN@j N{8N8W2ݩPN { 8UP@j6N8.N  {8UP@jB70T80.0 T@j0&@t9:.@t @j2 22 @j Oi>@jNF N.NOi F @j N{:*8N.8ݩPOPi N @j80T0&J.0T  @j0&N R*2@j  { Rݩ*@8.^ R . {R U @j w)*j "    V;<\6\8\V VV,2\ .@\\  ,4\\N\9 N,X\\\&&&&^ |\nxxL.@8@8x  x@jL%~*^.Of @j*Oi^X82@j X {8ݩPOPiN X86.N@j  X{8ݩPjX8.X{ 8 UP@jW X80J.ptk& v4m%*k% X4m  wk0*k W XW VlO*kllff *kr  e  Ble j* l   %e *Dl"   *hl  *ll  *l  ܂  X{ 8 UP0^F.^ @j{FݩP@N FB2OPiN@j {FݩP(F .{F UP @j F:* .{FUP @j:*Xp :b.{pU @j :bpl$l 7 x eX} A *l &      E*m & & & @  9^*@@ .ݩ@@Q@ON@Oi@U@.}@ @8@{@@j@@.@(<hS(d(7 < $SEQ,000002 .GLOBL $ADJ $ADJ,$A0002,000002,177777,177777,177777 ; COMMON ISTORE(1000), ICEL(1) ;C ;C ;C ;C ; DO 500 II=1,IWORDS $SEQ,000004 $P0014 .GLOBL $POP2 $POP2,II $F0001: .CSECT .$$$$. ISTORE=.+000000 ICEL=.+007640 .=.+007644 .CSECT ; I=ILOC + II -1 $SEQ,000005 $P0004 $P0013 .GLOBL $ADI $ADI $P0014 .GLOBL $SBI $SBI $POP2,I ; GO TO (1,2),NDO $SEQ,000006 $P0006 .GLOBL $TRX $TRX,000002 .1 .2 $SEQ,000024 $P0016 $SBS1,$A0006 $GET2 $P0022 .GLOBL $ADI $ADI $P0016 $SBS1,$A0006 $PUT2 ; 130 IF (IROW-ICOLUM) 140, 260, 140 .130: $SEQ,000025 $P0014 $P0016 $SBI .GLOBL $TSI $TSI .140 .260 .140 ; 140 DETERM=-DETERM .140: $SEQ,000026 $P0005 .GLOBL $NGD $NGD $POPP4,000010 ; 150 DO 200 L=1,N .150: $SEQ,000027 $o @  >*o   :*oe    @o  *p4p1 1 1 $p1 1 1  :p6 6 \"Lp    \$hpDD A @ w  "p&3\w  \*p&f y f &*p&dQ& Z 2ON@Q@j쨀>"@j Oi S 6(('2@j  @8@8Oir8 Hd?. @j  Hd@jJ.{  ݩ{Zx  ; 1 ISTORE(I)= IZ(II) .1: $SEQ,000007 $P0013 .GLOBL $SBS1 $SBS1,$A0002 .GLOBL $GET2 $GET2 $P0015 $SBS1,$A0011 .GLOBL $PUT2 $PUT2 ; GO TO 500 $SEQ,000010 .GLOBL $TR $TR,.500 ; 2 IZ(II) = ISTORE(I) .2: $SEQ,000011 $P0015 $SBS1,$A0011 $GET2 $P0013 $SBS1,$A0002 $PUT2 ; 500 CONTINUE .500: $SEQ,000012 .GLOBL $ENDDP $ENDDP,$I0000,II,000010,$F0001 ; RETURN $SEQ,000013 .GLOBL $RET $RET ; END $SEQ,00001P0022 $POP2,L $F0011: ; 160 SWAP=A(IROW,L) .160: $SEQ,000030 $P0014 $P0030 $SBS2,$A0002 $GET4 $POP4,SWAP ; 170 A(IROW,L)=A(ICOLUM,L) .170: $SEQ,000031 $P0016 $P0030 $SBS2,$A0002 $GET4 $P0014 $P0030 $SBS2,$A0002 .GLOBL $PUT4 $PUT4 ; 200 A(ICOLUM,L)=SWAP .200: $SEQ,000032 $P0013 $P0016 $P0030 $SBS2,$A0002 $PUT4 $ENDDP,$v *p`BQ   H*q `@ $)e@  `@ *2qm@ $)e@ `ei@ i A @ 6*VqA @ %  *zqA @ 6v %\%%   q w   *q&  f 6 c E$qv  6N\qC@ NrB  M*rv v N \w r  8r.U@j  x@jj2{ݩ  {Ux ( $2@j  (@j}H. P2f\f\f\f \Z@j}( P 'P0,PP\\\ S S 4 $RET $A0002: 0 050004 000062 $P0003: MOV @000004(%5),-(%6) JMP @(%4)+ $P0004: MOV @000006(%5),-(%6) JMP @(%4)+ $P0005: MOV @000010(%5),-(%6) JMP @(%4)+ $P0006: MOV @000012(%5),-(%6) JMP @(%4)+ $A0007: ITBL 050004 000003 ITBL: . = .+000014 $A0010: ITEMP 050004 000010 ITEMP: . = .+000040 $A0011: ISTORE 050004 001750 $A0012: ICEL 050004 000001 $P0013: MOV II,-(%6) JMP @(%4)+ II: 0,0 $P0014: MOV #000001,-(%6) JMP I0000,L,000004,$F0011 ; 220 SWAP = B(IROW) .220: $SEQ,000033 $P0014 $SBS1,$A0004 $GET4 $POP4,SWAP ; 230 B(IROW) = B(ICOLUM) .230: $SEQ,000034 $P0016 $SBS1,$A0004 $GET4 $P0014 $SBS1,$A0004 $PUT4 ; 250 B(ICOLUM) = SWAP .250: $SEQ,000035 $P0013 $P0016 $SBS1,$A0004 $PUT4 ; 260 INDEX(I,1)=IROW .260: U*   9*r    M% AD e X*rU% %a v D*se%v  6  D v 6 8s%\*Ds&f    & N & W*hs  *s8v    @(%4)+ $I0000: 000001 $P0015: MOV I,-(%6) JMP @(%4)+ I: 0,0 .END $SEQ,000036 $P0014 $P0024 $P0022 $SBS2,$A0007 $PUT2 ; 270 INDEX(I,2)=ICOLUM .270: $SEQ,000037 $P0016 $P0024 $P0031 $SBS2,$A0007 $PUT2 ; 310 PIVOT(I)=A(ICOLUM,ICOLUM) .310: $SEQ,000040 $P0016 $P0016 $SBS2,$A0002 $GET4 $P0024 $SBS1,$A0010 $PUT4 ; 320 DETERM=DETERM*PIVOT(I) ;C ;C DIVI6   *s  66 6 *s6 6 v   *s  - w %?    *t ~6  n6 *@t ^6  N e%C*dtv 6 6 6  D v v v *t6e\  B A @ *t-  - --*t   |t  { 8ݩP:{| X8.ݩPv  X{80^j% .UP0 ^j@j mF:2{FݩP : {ݩP F.v { F UP@j&*p'j .*Oi p @jj @8R(j y0067 $ENDDP,$I0000,K,000004,$F0016 ; 710 CONTINUE .710: $SEQ,000070 $ENDDP,$I0000,I,000004,$F0015 ; 740 RETURN .740: $SEQ,000071 .GLOBL $RET $RET ; END $SEQ,000072 $RET $A0002: 0 114004 000006 000006 $P0003: MOV @000004(%5),-(%6) JMP @(%4)+ $A0004: 0 054004 000006 $P0005: MOV 000010(%5),%0 BR $DE PIVOT ROW BY PIVOT ELEMENT ;C .320: $SEQ,000041 $P0005 $P0024 $SBS1,$A0010 $GET4 .GLOBL $MLD $MLD $POPP4,000010 ; 330 A(ICOLUM,ICOLUM)=1.0 .330: $SEQ,000042 $P0020 $RD $P0016 $P0016 $SBS2,$A0002 $PUT4 ; 340 DO 350 L=1,N .340: $SEQ,000043 $P0022 $POP2,L $F0012: ; 350 A(ICOLUM,L)=A(ICOLUM*u   B - $u e \*.u B - - Y Ru-   e \*lue&f  v g@ v  *u 6 6  S@ *u  !`*u  %*u_&!mk* vmA W0  >D   B D d*Dv 6 %\w F2@8R  @jj {8N)D 28ݩPOPi N @jD9j 8**.j { 8 UP@j*^+jX8R.Oi^@j jX{8  X8;.ݩP X { 8ݩPjX82Ԫj X {F0017-4 $A0006: IPIVOT 050004 000006 IPIVOT: . = .+000030 $A0007: INDEX 110004 000006 000002 INDEX: . = .+000060 $A0010: PIVOT 054004 000006 ADD #10,%0 $F0017: MOV -(%0),-(%6) MOV -(%0),-(%6) MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ PIVOT: . = .+000060 $P0011: MOV #AMAX+10,%0 BR $F0020 $P0012: MOV #T+10,%0 BR $F0020 $P0013: MOV #SWAP+10,%0 BR $F0020 $P0014: MOV IROW,-(%6) JMP @(%4)+ $P0015: MOV JROW,-(%6) JMP,L)/PIVOT(I) .350: $SEQ,000044 $P0016 $P0030 $SBS2,$A0002 $GET4 $P0024 $SBS1,$A0010 $GET4 .GLOBL $DVD $DVD $P0016 $P0030 $SBS2,$A0002 $PUT4 $ENDDP,$I0000,L,000004,$F0012 ; 370 B(ICOLUM) = B(ICOLUM)/PIVOT(I) ;C ;C REDUCE NON-PIVOT ROWS ;C .370: $SEQ,000 ^*hv   0_ @*veW0 A  vрw   3*ve&f& v v v !v !*vv v v 66 6 6 6 * w   wFN x*0w  *Tw PDa  *xw   8% 9*w  D%B e %*w&8UP&0^,j.0^ @jj{8F F.FݩP  { FݩPFjF.Ԫj { FUPiR-0p0.@j 0 p0d@.*@.@ @j*Oi@@jv/@*:^' @(%4)+ $P0016: MOV ICOLUM,-(%6) JMP @(%4)+ $P0017: MOV JCOLUM,-(%6) JMP @(%4)+ $P0020: MOV #$R0000+4,%0 BR $F0021 $R0000: 040200 000000 $P0021: MOV J,-(%6) JMP @(%4)+ J: 0,0 $P0022: MOV #000001,-(%6) JMP @(%4)+ $I0000: 000001 $P0023: MOV #000000,-(%6) JMP @(%4)+ $I0002: 000000 $P0024: MOV I,-(%6) JMP @(%4)+ I: 0,0 $P0025: MOV #$R0001+4,%0 BR $F0021 $R0001: 000000 000000 $P0026: MOV K,-(%6) JMP @(%4)+ K: 0,0 $P0030: MOV 045 $P0016 $SBS1,$A0004 $GET4 $P0024 $SBS1,$A0010 $GET4 $DVD $P0016 $SBS1,$A0004 $PUT4 ; 380 DO 550 L1=1,N .380: $SEQ,000046 $P0022 $POP2,L1 $F0013: ; 390 IF(L1-ICOLUM) 400, 550, 400 .390: $SEQ,000047 $P0032 $P0016 $SBI .GLOBL $TSI $TSI .400 .550 .400 ; 400 T=A(L1,ICOLUM) .400: $SEQ,000050 $P0032 $P0016 $_ d_S $>*w_S    @m B ,*xA @ m A @ m@ m0    *,x "w j         *Px  C B A 6 ve*tx\ w $ *x  C B A @  A @  @ 0i*x,&L$ $ S*x$ P dS*y $S0 B A @ A*(y .@* @8 :@8Oi^0X*pX.@jX * {pݩXQbpt.b{p ݩ @8@8 1X*p. @jX*{p3>2Xb2ݩOi> @jXb{GpF3*2pݩOi F @j*OiTL,-(%6) JMP @(%4)+ L: 0,0 $P0031: MOV #000002,-(%6) JMP @(%4)+ $I0017: 000002 $P0032: MOV L1,-(%6) JMP @(%4)+ L1: 0,0 $F0020: MOV -(%0),-(%6) MOV -(%0),-(%6) $F0021: MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ .END SBS2,$A0002 $GET4 $POP4,T ; 420 A(L1,ICOLUM)=0.0 .420: $SEQ,000051 $P0025 $RD $P0032 $P0016 $SBS2,$A0002 $PUT4 ; 430 DO 450 L=1,N .430: $SEQ,000052 $P0022 $POP2,L $F0014: ; 450 A(L1,L)=A(L1,L)-A(ICOLUM,L)*T .450: $SEQ,000053 $P0032 $P0030 $SBS2,$A0002 $GET4 $P0016 $P0030 $SBS2,$A0002 $GET4 $P0012 $MLD $SBD $P0032 $P003   Ly @*dy7  %\7  yw  y7\T y w L y w L*y&@&f&f|  *y `̠%%*y|   `&*zV}~A5 **2zAaA0W ,W%.&@'*Vz zz eR 4N8.T@j N {8ݩPoN5N8.OPiN@j N{8N8W2ݩPN { 8UP@j6N8.N  {8UP@jB70T80.0 T@j0&@t9:.@!He(\ w % pl,l 6 w ( 8e(l`;,\ "e(\ Pw  Ap.v:OuD`@@7@,&  w x > 7""7Q,$   ew"0 $SBS2,$A0002 $PUT4 $ENDDP,$I0000,L,000004,$F0014 ; 500 B(L1) = B(L1)-B(ICOLUM)*T .500: $SEQ,000054 $P0032 $SBS1,$A0004 $GET4 $P0016 $SBS1,$A0004 $GET4 $P0012 $MLD $SBD $P0032 $SBS1,$A0004 $PUT4 ; 550 CONTINUE ;C ;C INTERCHANGE COLUMNS ;C #*zz     *z`&wr2 E@ fc*z8{fe fffef5a*z ` fE5e@@* {re@$f-*.{#f&|f e3*R{"f" RTFO  *v{$  w 4-wy{V*{&e&&f&  ~ #*{TAѕ  NAME$t @j}@j}(8f\`@.XPGXppx`x`e&&&&\0,VAV>V;<\6\8\V VV,2\ .@\\  ,4\\N\9 N,X\\\&&&&^% 7w (p!7"",H w "1r wP7"" D`,lEM "reӕ #7"", -- %+,`r w $7""N,el Cʥ ʥ  ʥ , `B Ӄҕ  "r',   -@-<   T& .550: $SEQ,000055 $ENDDP,$I0000,L1,000004,$F0013 $ENDDP,$I0000,I,000004,$F0005 ; 600 DO 710 I=1,N .600: $SEQ,000056 $P0022 $POP2,I $F0015: ; 610 L=N+1-I .610: $SEQ,000057 $P0003 $P0022 $ADI $P0024 $SBI $POP2,L ; 620 IF (INDEX(L,1)-INDEX(L,2)) 630, 710, 630 .620: $SEQ,000060 $P0030 $P0022 $SBS2,$A0007 $GET2 $P0030 $P00'i*{SEQ B~ffe*|"&&f"fe"*,| w022rp*P|e@   t| x|V}~|*| z z z z| z z$ z|0 &c*|2 rr2 r rr ]*}rr &e"e˥"8}0 |\),D4 2 5  je;,h  2+2  ,1  נ0Z$  wje;je;7"".:=6p@-@]@,& & &  & 1]6p$-,$& & & & & && &f&f*31 $SBS2,$A0007 $GET2 $SBI .GLOBL $TSI $TSI .630 .710 .630 ; 630 JROW=INDEX(L,1) .630: $SEQ,000061 $P0030 $P0022 $SBS2,$A0007 $GET2 $POP2,JROW ; 640 JCOLUM=INDEX(L,2) .640: $SEQ,000062 $P0030 $P0031 $SBS2,$A0007 $GET2 $POP2,JCOLUM ; 650 DO 705 K=1,N .650: $SEQ,000063 $P0022 $POP2,K $F0016: ; 660 SWAP=A(+ & " *T}l~j}}}}} ~*~J~'O<8*x}'P<*}'Q<*}f'R<O*}M'S<*~E'T<*,~'U<*P~'V<""t~'?T$~- & ,H  %\.bp@7-!@(t, "!  W=f&&,$  w "pj,Hw 5 x7-!lR .:7@)@("7h.K,JROW) .660: $SEQ,000064 $P0026 $P0015 $SBS2,$A0002 $GET4 $POP4,SWAP ; 670 A(K,JROW)=A(K,JCOLUM) .670: $SEQ,000065 $P0026 $P0017 $SBS2,$A0002 $GET4 $P0026 $P0015 $SBS2,$A0002 $PUT4 ; 700 A(K,JCOLUM)=SWAP .700: $SEQ,000066 $P0013 $P0026 $P0017 $SBS2,$A0002 $PUT4 ; 705 CONTINUE .705JO1* "W= U w$7@)y.6OuD`@@7@,& m G  X 7$7w|,$ b c%  "r k(p!,H N "|eSD`,l`r2: $SEQ,000067 $ENDDP,$I0000,K,000004,$F0016 ; 710 CONTINUE .710: $SEQ,000070 $ENDDP,$I0000,I,000004,$F0015 ; 740 RETURN .740: $SEQ,000071 .GLOBL $RET $RET ; END $SEQ,000072 $RET $A0002: 0 120010 000006 000006 $P0003: MOV @000004(%5),-(%6) JMP @(%4)+ $A0004: 0 060010 000006 $P0005: MOV 000010(%5),%03$P0030 $P0031 $SBS2,$A0007 $GET2 $SBI .GLOBL $TSI $TSI .630 .710 .630 ; 630 JROW=INDEX(L,1) .630: $SEQ,000061 $P0030 $P0022 $SBS2,$A0007 $GET2 $POP2,JROW ; 640 JCOLUM=INDEX(L,2) .640: $SEQ,000062 $P0030 $P0031 $SBS2,$A0007 $GET2 $POP2,JCOLUM ; 650 DO 705 K=1,N .650: $SEQ,000063 $P0022 $POP2,K $F0016: 5 1e5X,   "rx,r42   "je;,5  w e X7"" .:=6Ps@-@]@6,&  & & & 5]6Ps -H,$& & & && &6 BR $F0017-4 $A0006: IPIVOT 050004 000006 IPIVOT: . = .+000030 $A0007: INDEX 110004 000006 000002 INDEX: . = .+000060 $A0010: PIVOT 060010 000006 ADD #10,%0 $F0017: MOV -(%0),-(%6) MOV -(%0),-(%6) MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ PIVOT: . = .+000060 $P0011: MOV #AMAX+10,%0 BR $F0020 $P0012: MOV #T+10,%0 BR $F0020 $P0013: MOV #SWAP+10,%0 BR $F0020 $P0014: MOV IROW,-(%6) JMP @(%4)+ $P0015: MOV JROW,-(%7 ; 660 SWAP=A(K,JROW) .660: $SEQ,000064 $P0026 $P0015 $SBS2,$A0002 $GET4 $POP4,SWAP ; 670 A(K,JROW)=A(K,JCOLUM) .670: $SEQ,000065 $P0026 $P0017 $SBS2,$A0002 $GET4 $P0026 $P0015 $SBS2,$A0002 $PUT4 ; 700 A(K,JCOLUM)=SWAP .700: $SEQ,000066 $P0013 $P0026 $P0017 $SBS2,$A0002 $PUT4 ; 705 CONTINUE 9f&f & $H %\.bp@7-!@(h, "B  {,$&f  "k(H  w wp"7-!.:7@)@(27 qh:6) JMP @(%4)+ $P0016: MOV ICOLUM,-(%6) JMP @(%4)+ $P0017: MOV JCOLUM,-(%6) JMP @(%4)+ $P0020: MOV #$R0000+4,%0 BR $F0021 $R0000: 040200 000000 $P0021: MOV J,-(%6) JMP @(%4)+ J: 0,0 $P0022: MOV #000001,-(%6) JMP @(%4)+ $I0000: 000001 $P0023: MOV #000000,-(%6) JMP @(%4)+ $I0002: 000000 $P0024: MOV I,-(%6) JMP @(%4)+ I: 0,0 $P0025: MOV #$R0001+4,%0 BR $F0021 $R0001: 000000 000000 $P0026: MOV K,-(%6) JMP @(%4)+ K: 0,0 $P00; .705: $SEQ,000067 $ENDDP,$I0000,K,000004,$F0016 ; 710 CONTINUE .710: $SEQ,000070 $ENDDP,$I0000,I,000004,$F0015 ; 740 RETURN .740: $SEQ,000071 .GLOBL $RET $RET ; END $SEQ,000072 $RET $A0002: 0 114004 000006 000006 $P0003: MOV @000004(%5),-(%6) JMP @(%4)+ $A0004: 0 054004 000006 $P0005: MOV=, "    a$$ =w-7@).:OuD`@@7@,& { Z  7 7$7w|,$ o r nuuu5(p!,H&$e#b ff  -X,l rrrr30: MOV L,-(%6) JMP @(%4)+ L: 0,0 $P0031: MOV #000002,-(%6) JMP @(%4)+ $I0017: 000002 $P0032: MOV L1,-(%6) JMP @(%4)+ L1: 0,0 $F0020: MOV -(%0),-(%6) MOV -(%0),-(%6) $F0021: MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ .END ? 000010(%5),%0 BR $F0017-4 $A0006: IPIVOT 050004 000006 IPIVOT: . = .+000030 $A0007: INDEX 110004 000006 000002 INDEX: . = .+000060 $A0010: PIVOT 054004 000006 ADD #10,%0 $F0017: MOV -(%0),-(%6) MOV -(%0),-(%6) MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ PIVOT: . = .+000060 $P0011: MOV #AMAX+10,%0 BR $F0020 $P0012: MOV #T+10,%0 BR $F0020 $P0013: MOV #SWAP+10,%0 BR $F0020 $P0014: MOV IROW,-(%6) JMP @(%4)+ $P0015:A, =C`44 ,Bl B` " 4 ,rrrr   je;,  ew  :7""  .z80Ԫ@8@(j7@h,&  k,$ U%aC MOV JROW,-(%6) JMP @(%4)+ $P0016: MOV ICOLUM,-(%6) JMP @(%4)+ $P0017: MOV JCOLUM,-(%6) JMP @(%4)+ $P0020: MOV #$R0000+4,%0 BR $F0021 $R0000: 040200 000000 $P0021: MOV J,-(%6) JMP @(%4)+ J: 0,0 $P0022: MOV #000001,-(%6) JMP @(%4)+ $I0000: 000001 $P0023: MOV #000000,-(%6) JMP @(%4)+ $I0002: 000000 $P0024: MOV I,-(%6) JMP @(%4)+ I: 0,0 $P0025: MOV #$R0001+4,%0 BR $F0021 $R0001: 000000 000000 $P0026: MOV K,-(%6) JMP @(%4)EEce %e% D,H aU% Z.4%E,l a .%e ,   F\  , at A @ A @ A A A ,A E4% Q%  ), %  t&*  *, \*& v4m%7Ԫ@8 Ԫ@8 *,D% X4m  w h0+ K: 0,0 $P0030: MOV L,-(%6) JMP @(%4)+ L: 0,0 $P0031: MOV #000002,-(%6) JMP @(%4)+ $I0017: 000002 $P0032: MOV L1,-(%6) JMP @(%4)+ L1: 0,0 $F0020: MOV -(%0),-(%6) MOV -(%0),-(%6) $F0021: MOV -(%0),-(%6) MOV -(%0),-(%6) JMP @(%4)+ .END IZ.#hD`@p@`;@\, Gw E \% ,$ f* 7 $&-,Hr 1 0*D`7w (p!$,l $   i , %M ]w ) "$",w 7  e*p`; & 5.tO*D`@p@`;@U, W  r 7"D`d&$\ Pw w  p`;n.OQp@`;@@,  e\ 1b,$1 1 \w  w p$p5H w `;.E`O\-X@("(p!h, W XW V  U,$ff \ ,H  e  Be -X,l   %e ,"   #,  ,  % ,  ܂   .%&Oe@(Yh& 7  e A I eeB.@Ip@(@DhB!ew \%p.yh`;@(̫@`h&"w ]`;.IqO( IqKhA@A^.LϚ(NhCCE.0(&?hC*e*>a**q.{zy}@쨀p@vp@,fD  &&&&&$,$&  /&&&&&&7 L=*HT^f\& @\*vpTԪp ^ 쨀pfp,j v7 ~E  "zy},Ԫp~   \.0( eXhAQ$@A.6}6#@쨀p@vp@*,fE@-  @ eR,$ffe f&& @f&+#,,H& @7 "j\  O&pj쨀pvp\l  \ \i.xb쨀p@vp@6@,D& &&@7 (D& &쨀p(,$& 6  A7 zz*vpz 6"p$&zHzz.6p  zzԪplV*Ԫp쨀p Ԫp 쨀p`.Ԫp쨀pԪpm 쨀p Ԫp:,jl e\ \m l,S\ e& @7 0P쨀p $P,e\f&  "\ \@]%X4>c&:!.O\@iZ@v@,fD& &&&&h!,$@7 DfD& &&q&& 6   D,H h!A7 ^*v iZ"$& ll.iZ  ԪEzm*Ԫ Ԫ  f.ԪԪ  Ԫm\.Ԫ Ԫ W, eu"ԪԪ 2,\ \S\ e,& & & @7 @t e\ot,z f&&&&&   zi,(|\ \-ÍJ7,kt4yNq |n,L(:5;oS%]-1!p@!h.O\+@#@6x@y,& 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  \.g=vp@p@Ԫp@, &  . & @,$  $<  7 l]&ԪpT,HJ 7 Nh J Ԫp"hx,l % 6 @ ,7 %\%w   vp  p \.gOu/+@#@p@#,&ff& %'   ,$ " f&7 6@ N* /+,Ԫp@$#,H%v\w ],&pl   \?.gd@+@p@ ,6 6    ,$&fU%f& +-  ,H !# (# f&7 @x+,&,lp ev"Ԫp d,(\w   \wpt.g=v@p@Ԫ@W, &      E,$ & & & @  9^),H7 f Ԫ f,l7 r*, e Ԫ,6 6 6 @&,7 &    %\ew v  \p.g=p@Ԫ@8@(,&&f  7 ,$Z* 7 H<  Ԫ@8*Ԫ@8<?,H\ \   \eS l  \w \ \p.REp@@(x,& f6& f N&,$&@&&7 @8  Ep8,H  @A ff7 \&~ln \ n~.SXv@8@Ԫ@8@(" *ffff7  \ v@8Ԫ@8.:X@(8ZhL"D&&7  \Hg.99Ϛ쨀p@@(,,D&&& @& 7 $"쨀p$&$~$ \q.a'ρ:@(o'` hf7  \ : .iZ@v@Ԫ@,CeDe&&&&ff,$ff 7 : \@*viZԪ:.uXp@(.uh,@&&@&&7 p8$   \k. ρ@v@p@,fEA7:B  e@ & & f,$& & ff& & f7 P@ v@],Hffff*l w      \p.ρv@zy}@쨀p@T,fEffE f&7 p$ "v,$쨀p&$,$, %Df&&&czy},,Hf&e7 <XD vpXZ,l eew %Tp  \#.zyρ쨀p@vp@p@,fEA#& e@ & f& f& f7 ,$8, ffvp쨀p ,"H w    \'p.iϚE@(` ؚh,& f Ne&&&&@e,$&&&&7 *6   GE6 H% \.Wvp@6@Ԫp@,@A&&ff 7 $vp&6S$* \Ԫpp*.Ϛ:@(2Ih, D@@#   Ċ7 "":$"$  \.a O\쨀p@vp@Ԫp@,& & & & & D&&D&&,$ @%7 t@  (vp@Z,HIA e e@",l e& & & & & D&&g,e #@  , @6 7 vp,6 6 #?%-0 @ |,׳f&& @׳@f&* 7 j0f&f&7 n.Ԫp p jpvp0Bt2*ԪptԪp 쨀p ԪpQL.쨀pԪp쨀p Ԫp 쨀p$,Vb   \.Ԫp쨀p쨀p  쨀pb,zf& \ e\>S ;:L]L?ƪ@ \.<O\@v@Ԫ@,,f& & & & & & & & & D&&&q,$&D&&&&% C,H@%:7 Z IAwvZ+,l!h e #e$@,!h ef& & & & & E,& & & & D&&&&e X,#@-    #, ! h g, @6 6 6 7 8v8@,D6 6 6 6 #?G-0 ,hA-<-j8@ k, ,TeB׳,f&& & & @TeB׳@,f&7 L.ԪLv3(f&f&7 ^*Ԫ^Ԫ "ԪT.Ԫ Ԫ W".ԪԪ  Ԫm,.Ԫ Ԫ W,6>  >,Z\ f&&&& ,~& \ e\5>愾ƈ  , >Fl.&ź+ k>''+$Iri$L?̨̔몿@ \.#X쨀p@vp@p@o,D / C(  f & &$@&&&&7 Z*Ԫp: B*vpp Ԫp 쨀pLz$*vp쨀p쨀p vp z,V @w  %&쨀pԪp  p,ze\\;@\ \N @ ,  =@f&ysE,[\pCf&f&\% e  \c.h@i@v@,fD 1 C*  F#,$e&&&&\);@7 Fj7$Ԫ&jH"0j*i",  0jdT@6jjD.i@,  6jj,b@w    MԪp;,6Af&, l>f&"yB7 F|.F Ԫ Ԫ|)(X ffff7 *X v 6,  agԪX,   \e\ \,D\&&&&\,h\\ \ *\@3eޘ@7Q@׋@êg{H.h+@#@6x@,fEU%f f& f&`&6x,+",M,$E & & f&7 D"#, Ԫ"DH \./0쨀p@vp@p@,& Dr)&&^  f,$ 5@5@7 dH*p쨀p vp T~|.Ԫp~  Ԫp쨀pb.Ԫp쨀pԪp 쨀p Ԫp:l..쨀p:  Ԫp쨀p,xf&\  \]Ԫp,& \\r1@\L,[?\ \ew  I"p?U?*@ڪA.0@v@p@,& fDezr,$&&&&@  e3,H5@e3l5@7 *  v~*ԪԪ  Ԫhb.Ԫ Ԫ WX.ԪԪ  Ԫm=.,  Ԫ,((mw H&(Ԫ( p ,f&&&&& \ T,\& \3,\zr1@\ r(7,8[?\ \-?v9?,\uοMc?kA`5?I2f?(*@B A/M.0/+@a \@v@,f@_&$&7e G  a \R,$f&E f& %&v,/+ , H.{(J{h{h,    $ `J,$  `œ  b\Pt H#.=d{(A=h&&"5 \.&( Xh%%\.rV(`-Xh,&f&    `@ `;,$ B        @  H v6d.ρ(je;h,J "2e J,$    @ ,He  n*l  @  .Iq(h,^ ,2eb ^,$ @  ,H   ,le    @  .$(:D`hC,41 1 1  4$1 1 1  .X(hh6 6 \r.r(ZpHh,W%'BC @ bb@ be &,$K @    CCHK  .=(h@8h$    \x./xO\(/xWhA@AD@ D 9.xOp@(xKh&DD A @ w  p.RO(RhD@@# Ċ.QO(QhD@@# Ċ.Ԫ=p@(Ԫ@8h$&\w \p.ԪOup@(Ԫph,&f y f & ,$&dQ& Z v ,H`BQ   U,l `@ $)e@  `@ ,m@ $)e@ `ei@ i A @ D,A @ %  ,A @ 6v %\%%    w  p~.Ԫp@(4Ԫh ,&f f &  6  _,$  6 %.,Hwv    a6 ,l6,w R w BeA eB ,A  w ,eA eB A w ,eA eB A B w eA eB ,A  w eA eB A  w , eA eB A  w e@ eA @  ,Dw e@ eA @ w ee@ W,h B A @  B A @ +%%,B    C B ,A @  6 ve\ ,  w      pz, em  eeem*  6i M6 M.Ԫ쨀p@Ԫp@p@=C M&h7(O*:.?T' o""<V', ,&7 f  <Ԫp%,$7 N47 4GԪp쨀p4,HL7 feN&ԪpLԪpp f}le\ \{.?;O\p@(A;-h$@  w  '<U',<T'E,_<S'M,<R'fl,m<Q'H,<P'$,vV6  *`<O'vV6,he6(Tp.8Vp@(8@Qh @@ w p.j8{p@(j8vh@ w Sp.,X:@(,h.( "&  0H$˥e"e& rr$, rr r 2 rr2 ,_hw7d(с=;.&p7e"@7@p@eO`.Xz6 6 wu:.:X(B:h^,&  f 6 c a&$v  6N\.O\(-hc&CD@ D h.*{W& 0 Bh} #(@XzЁ #.vv vm$$]v vvv&c  ,3:(@v@`;"".&p7e(*vhC@ .\$(\@hB  .rXp@((rh,v v N \w  p $"@7@p@eO`.    @e,r220w ,"ef"f&&"l,oj QeffB EQSH,?Q7MENA  ѕAT$,5 .iX@( ihw.vOup@(vphE,&f  & N & " g,$  v   ,H  %P  =,l w 6 6 >   ~  &f&&e&,u(@j@Q.V Xz$w4- w  ,6  FORT "f",#tJe f&f#,Df$@erh,@@e5Ef ` D,Q!p|,    M% AD e ,U% %a v D,e%v  6  D v 6 ~%\-.v=p@(v@8hJ$ `$&\w \p.vp@(vh@ 5fefff ef ,zf  @E2 rw&`,3     ,w77e  ,>@&.%W, W0AAa,7e 5Al,`;Xz t&` H,%%̠` %,&f    & N & Wv,$  ,H8v  6   ,l  66 6 @,6 6 v   ,  - w %?    Npt, ~6  n6 _, ^6  N e%, v 6 6 6  D v v v [$,p  f&f&@&,@#t@p@eSu.pdw h@8c(@p=.pdw ,h@8(),D6e\  B A @ Q,h-  - --P,   .  }.v쨀p@vp@p@,   @  ,$ 2  w \& p$H 7 ~5.Ԫp~@p=.pdw h@8+(@p=k.pdw dh]c(@pb.pdw hZ2<|282666(7<7 |w' 7( F 33   6 : d4xd4 e d4؄ +   Å  &f00 0 7 &^4   ~3 3 ~3W # 33333333344444"4+424A4G4N4T4Z4^4SUBROUTINEFUNCTIONBLOCKDATAEXTERNALDEFINEFILETYPEDIMENSIONCOMMONEQUIVALENCEDATAIMPLICITENDLOGICAL*1LOGICALINTEGER*2INTEGERDOUBLEPRECISIONDOUBLECOMPLEXREAL*8REAL*4REAL33|4L347F3<ɋ ,00 $0 0 < ^ɥ/ Rɥ/ ы6$2$27 F7 D7 B "ѥ/*22 7,7,7, e  e -J $2  7&2 J?<554U  (, 7- ^ ¥,¥/*ɋ  7f-bb+,-22    w 6 w 6 & fAB &m` w 6 a | &    D  za w 6e v =.+ .CSECT .=.+.$$$$.&f P  *e   m mD D D EE 2&f m\&f& 4 6 m<  @ T` @A @ 4` r "       f @a  b @2 & $   ‹¥, <l& ¥(&  & N ¥,& < ¥,¥)7e  =< &e7 " <   B B B E ``> +\ B<9 DmC D11 aw ;@  @2 7  .0 7 7 l9 6B D lDl7!7 e  J"& eLlL 9v &DB9 J"@ ?w 0;@ 7 4.2: ,Bm^< J @w ; w , D7.tm : f BmU2 E22   7;x (w :t;l w N+Xm "6 w*D7!8(mp5@"U@^ ~w u; pw +CZ j  Fb. =w ;FF ; pw ;m xF r w \p@64t7 |w' 7( F 33   6 : d4xd4 e d4؄ +   Å  &f00 0 7 &^4   ~3 3 ~3W # 33333333344444"4+424A4G4N4T4Z4^4SUBROUTINEFUNCTIONBLOCKDATAEXTERNALDEFINEFILETYPEDIMENSIONCOMMONEQUIVALENCEDATAIMPLICITENDLOGICAL*1LOGICALINTEGER*2INTEGERDOUBLEPRECISIONDOUBLECOMPLEXREAL*8REAL*4REAL33?j@|4@z>L36@8F3P?ɋ ,00 $0 0N e 6 6  F % E5 W( e e    E 2  e6 6 6  ! g { b `  eW,W)X    E?E2Q < 6 @6 4 A X  E & )& E    xen Ze& r >5 5 &E ww .GLOBL $ADJ  l6 v6ve  0   22 EE82Q \+ E8 E3QU ɋ ɋ W, e&  4m$" C C C E$ v3  7E E E Eve wa-  EE sQ e@w f RXl h8 jven] v 6F @B,¥/ Rɋ `ɥ, 8 J F \8 27 .CSECT $TR: c&f7 7 D7 D < v ,, v  ,  , / / ed ɥ//7 nv P  m27 &h<Ĝ E%22  :  z hww e<@U@ :  @ KFn : 4  R L5 =. . =. = b 5  f &+ j aC 7`gh L*B 7 <V; F  $mn V; +  P | . =  m*G7 ɥ(PɥOGɥZGɥ-=ɥ+ nD Bɥ*#%A ;7 7ɥ(*ɥ-ɥOɥZɥ+ " ZT 27    bi7 $jEE 0w6 k z%%z< 0    %%Ü2  E && & = 2E  e  .&, . .WORD & # > @ @ @ @a &  2 @ @ @ @ @a  05w(f! x@ >%; pѥ,6&& N' %%"ѥ)e44e E8U(  W( PC31 W- 6CD31 W,W)ɋM fI 6? j=? ^ hV <  `W( Z D  FW, @ *ᅗ  ,J? Dׅ ԅ   W)  z   .GLOBL $DEFIL ,U,F?I?  w |? >wf݂??FILEYB7 P y j70e ݃ fU  E8 PE 0 -~ ꗠ( 7 :Ue-( ꗠ,)  Eww>wh:gPg7 hjif*k&P f^'w: k. Qɕ ?H*k^7 L77 7 7 7*g\2 7"w w vr~2g\ & w\w@g\7 77 + & w"g\ wg\7 "g\7 & w 3 hf2ih7 hff$i8f7 zw*B!e7370 E ! ! ! ! www7 w ww7 "-&&7 7 - 7 f/5& w B  E u  e "$""PA"TA  ĭ7"37h^h^h f@iffh^i^h^h^w,kh@i^khNi Nki\izkh$i4dkh2i4d PAL11R V004B  # wwwPwwwwNwb77 Uw 7 7 Õj. j7& wiD wwwPwwwwNwb77 Uw 7 7 Õj. j7& wiD i dHX 27 \7 t0D %?f 5 7 77 zHw$ 7  5 F 77b Xw  0w ,@j\ jwd @ 0 iD"w4 ti   JHw  @2 r, 2lh@idvjf `F  HH.,i i@Xʵ ZC!$@A(CH׭)NFi i̕`XZ zEHNFN~F   HN&@ACBEH׭V)NF`wwbwvwwwwlw   _wwbwvwwwwlw   _|:7@=rp ?!b5 ?TJg$tjͭ\ͭthgf^ͭ^"FNvjh ^H;h ͭ7!iwͭ$ \id7"^we  h$iZewghhw END &VT7}e D!_Bͽm%(c w],w; & Ji`wwwi7&f"e  ͵ R͵%͵ɕ= C͵͵@G**D`$ D!!e $͵@G*e*pw(wiE e8 *fQ$H  R qf   w&R (ga^Q ze     = qVg  ,g7urle& wVP wP O7 & ERRORS ww*wlww*wlwpwwxwwi@(p >m ßå U iʐ ï}ïy @ vheli<zw O +L. & J,& " JH*% sP<  P? m c;w Fßxנ0נ9å$ å.å  נAנZ נaנz  *E  8iDim7B h   ? (7 7   0  :77 7 T7 |w7 $7 f&P7.r:4@ w`B@f: @ε%,yw wɵeEHA%z/vn>r eV@@ww@ihi tixdPddddddfd g̕:ww@ihi tixdPddddddfd g̕: #(׭ZO׭RK'H   tlY P )&˕  S,* ˕7 7 NSvw& #%h )OLh2i|,w l  jV7wV hw