__ 8?KD1,INSTNC(IX),0,3)___CALL BINS(K2,INSTNC(IX),4,7)___CALL BINS(K3 ,INSTNC(IX),8,15)___CALL BINS(K4,INSTNC(IX),16,23)___CALL BINS(KCN,INS TNC(IX),24,35)___GO TO 286__C_SEQUENTIAL BLOCK.__383_WRITE(5,3383)__33 83_FORMAT(/1X,'STATE='/)___IS=INSTNC(IX)___CALL SENDIN(IS,2,.TRUE.)___ INSTNC(IX)=IS___GO TO 286__384_KCL=NBOUT(0,2,INSTNC(K+2))__385_L=KCL__ _WRITE(5,3384)__3384_FORMAT(/1X,'CLOCK='/)___CALL SENDIN(L,1,.TRUE.)__ _IF(L.GT.3)GO TO 385___IF(L.EQ.0)GO TO 385___CALL BINS(L,INSTNC(K+2),3 4,35)___GO TO 999__C_DUMP.__90_IF(PAGE.GT.9)GO TO 91___ENCODE(5,190,SA VN)PAGE__190_FORMAT('PAGE',I1)___GO TO 92__91_ENCODE(5,191,SAVN)PAGE__ 191_FORMAT__@8?('PAG',I2)__92_SAVN(2)=0___CALL SAVPIC(SAVN)___GO TO 99 9__C_DROP DEVICE ROUTINE.__100_WRITE(5,1100)__1100_FORMAT(1X,'DEVICE=' /)___IP=0___CALL SENDIN(IP,1,.TRUE.)___IF((IP.LT.1).OR.(IP.GT.3))GO TO 999__C_DROP DEVICE IP.___K=1__102_IF(K.GE.INPREK)GO TO 999___IND=INST NC(K)___NIN=MASTER(IND+2)___NOUT=MASTER(IND+3)___IX=K+5___DO 101 L=1,N OUT___IL=NBOUT(29,2,INSTNC(IX+L))___IF(IL.NE.IP)GO TO 101___CALL BINS( 0,INSTNC(IX+L),5,6)__101_CONTINUE___K=K+NIN+NOUT+7___GO TO 102__C_TRAP .__110_CALL ACTION(IRAY)___IS=IRAY(2)___IUSER=DISPFL(IS)___NAM1=NOSH(I 1)___IF(IUSER.EQ.11)GO TO 4410___IF(IUSER.LE.KLS)GO TO 998___IF(NAM1.E Q.0)GO TO 110__C_BLO__09?STIME__1973_FORMAT(1X,'GIVE DURATION OF SIMUL ATION IN NANO SECONDS___1 USING 6 DIGITS.'/1X,'TIME NOW IS',I8,' NS.'/ )___WRITE(5,1975)___READ(5,1976)IDEV1,IDEV2,IDEV3__1975_FORMAT(1X,'ENA BLE OR DISABLE DEVICES BY TYPING 1 OR 0 '___1 'RESPECTIVELY'/___1 ,1X, 'ORDER OF DEVICES IS LPT,DSK,DISP'/)__1976_FORMAT(3I1)__1974_FORMAT(I6 )__C_CALL ATKILL___CALL BASLIK___IBEG=ICPUT(NKDUM)__2_SIMIX=1__C_START SIMULATION...__1_IF(SIMIX.GE.INPREK)GO TO 6000___IX=INSTNC(SIMIX)___N IN=MASTER(IX+2)___TYPE=MASTER(IX+1)___NOUT=MASTER(IX+3)___NS=MASTER(IX +4)___ISIM=MASTER(IX)___NT=NIN___NO=NOUT__C_SIMULATE...___GO TO(10,11) ,TYPE__C_IN FUTURE OTHER TYPES__P9? WILL BE ICLUDED.....__C___C_SEQUEN TIAL BLOCK..__10_NX=2**NIN___CALL SIMSQN(NS,NX,MASTER(IX+5))___GO TO 1 00__C_OTHER TYPES..__11_CALL SIMCOM(MASTER(IX+5))__C____GO TO 100__C__ _C___100_SIMIX=SIMIX+7+NT+NO___GO TO 1__6000_CALL SHIFT___ITIMEX=ITIME X+1___ITIME=ITIME+1___IF(ITIMEX.GT.ISTIME)GO TO 987___IF(ITIME.LT.100) GO TO 2__50_ITIME=0__C_CALL ATTEST(IRAY)__5000_IF(IRAY(1).LE.0)GO TO 2 __C_CALL ACTION (IRAY)___IS=IRAY(2)___IUSER=DISPFL(IS)___IF(IUSER.EQ.1 )GO TO 987__C_CALL ATKILL___GO TO 2__987_IEND=ICPUT(NKDUM)___END FILE 3___END FILE 24___END FILE 25___IUSER=1___I=(IEND-IBEG)/1000___WRITE(5 ,1980)I__1980_FORMAT(1X,'EXEC. TIME IN S___8?,4,INSTNC(IX))___KDEL=NBO UT(20,8,INSTNC(IX))___KLRP=NBOUT(12,8,INSTNC(IX))___K2=KRP-KD1___K3=KD EL-KRP___K4=KLRP-KDEL___WRITE(5,2381)__2381_FORMAT(/1X,'FIRST DELAY='/ )___CALL SENDIN(KD1,1,.TRUE.)___WRITE(5,2382)__2382_FORMAT(/1X,'DURATI ON OF RP PULSE='/)___CALL SENDIN(K2,1,.TRUE.)___IF(K2.GT.6)K2=6___WRIT E(5,2383)__2383_FORMAT(/1X,'DELAY VALUE='/)___CALL SENDIN(K3,3,.TRUE.) ___IF(K3.GT.400)K3=400___WRITE(5,2384)__2384_FORMAT(/1X,'DURATION OF L RP PULSE='/)___CALL SENDIN(K4,1,.TRUE.)___WRITE(5,2385)__2385_FORMAT(/ 1X,'COUNTER VALUE='/)___CALL SENDIN(KCN,3,.TRUE.)___IF(KCN.GT.900)KCN= 900___K2=KD1+K2___K3=K2+K3___K4=K3+K4___CALL BINS(__`8?CK.___IND=1__11 3_IF(IND.GT.INPREK)GO TO 999___KM=INSTNC(IND)___NIN=MASTER(KM+2)___NOU T=MASTER(KM+3)___IF(INSTNC(IND+1).EQ.IUSER)GO TO 112___IND=IND+NIN+NOU T+7___GO TO 113__112_NAME=MASTER(KM)___WRITE(5,580)NAME,IND__111_WRITE (5,1111)__1111_FORMAT(/1X,'T,U,L,F ?'/)___READ(5,1110)IT__1110_FORMAT( A1)___IF(IT.EQ.'T')GO TO 210___IF(IT.EQ.'U')GO TO 310___IF(IT.EQ.'L')G O TO 410___IF(IT.EQ.'F')GO TO 510___GO TO 111__C_TRAP MODE.__210_WRITE (5,1210)__1210_FORMAT(/1X,'MODE= A,S,C ?'/)___READ(5,1110)IT___IF((IT. NE.'A').AND.(IT.NE.'S').AND.(IT.NE.'C'))GO TO 210___WRITE(5,12110)__12 110_FORMAT(/1X,'MASK='/)___J=0___CALL ROCTD(J,IVAL)___IF(IVA__(9?000)_ __COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/DISP/DISPFL(5000),ISEG(200),I RAY(4)___COMMON/OUTXXX/LPT0(20),DSKB(20),D340(20),LP1,DS1,D31___COMMON /EBAT/NIN,NOUT,KCLOCK___COMMON/FORSIM/SIMIX,ITIMEX,ISIM___COMMON/DEVIC E/IDEV1,IDEV2,IDEV3___COMMON/PRFARK/IPOS,IVALUE___COMMON/SIZE02/NT,NO_ __INTEGER DISPFL,DSKB,D340,DS1,D31,SIMIX,TYPE___ISTIME=0___IPOS=1__123 _WRITE(5,1971)___READ(5,1972)IVALUE__1971_FORMAT(1X,'TYPE 0 FOR SUPRES SED OUTPUT,1 FOR COMPLETE:'/___11X,'(OR 2 TO ABORT SIMULATION.)'/)__19 72_FORMAT(I1)___IF(IVALUE.GT.1)GO TO 987___IG=ISTIME*10___WRITE(5,1973 )IG___READ(5,1974)IS___IF(IS.LT.0)GO TO 987___ISTIME=IS/10+I__p9?ECOND S IS:',I4/)___PAUSE 'READY FOR ANOTHER RUN'___GO TO 123___END_____SUBR OUTINE SIMCOM(ITAB)___DIMENSION ITAB(1),INPT1(5),INPT2(5),IOUTPT(5)___ COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/LOGIC/MASTER(1000),INSTNC(2000)__ _COMMON/FORSIM/IK,ITIMEX,ISIM___COMMON/SIZE02/NT,NO___KX=IK+3___KL=NT+ 1__C_SIMULATE.___DO 1 I=2,KL___IND=IK___INX=I___CALL GETTER(K,NAME,IND ,L1,INX)___NIN=NT___NOUT=NO___IF(K.EQ.0)GO TO 2000___INPT1(I-1)=NBOUT( 1,1,INSTNC(IND+INX+5))__1_CONTINUE___CALL BINARY(INSTNC(KX),NT,INPT2,0 )___NCH=0___DO 2 I=1,NT___IF(INPT1(I).EQ.INPT2(I))GO TO 2___NCH=NCH+1_ _2_CONTINUE___IF(NCH.EQ.0)GO TO 99___IF(NCH.EQ.1)GO TO 3__C_TOO MANY I __88?RMAT(/1X,'READ COUNT='/)___CALL SENDIN(IRCNT,3,.TRUE.)___WRITE(5, 1383)__1383_FORMAT(/1X,'WRITE TIME='/)___CALL SENDIN(IWDLY,3,.TRUE.)__ _WRITE(5,1384)__1384_FORMAT(/1X,'READ TIME='/)___CALL SENDIN(IRDLY,3,. TRUE.)___WRITE(5,1385)__1385_FORMAT(/1X,'MEMORY ADDRESS='/)___CALL SEN DIN(IADR,3,.TRUE.)___CALL BINS(IWCNT,INSTNC(IX),0,6)___CALL BINS(IRCNT ,INSTNC(IX),7,13)___CALL BINS(IWDLY,INSTNC(IX),14,20)___CALL BINS(IRDL Y,INSTNC(IX),21,27)___CALL BINS(IADR,INSTNC(IX),28,35)___GO TO 999__C_ COUNTER BLOCK.__381_INSTNC(IX)=IVAL___GO TO 286__C_MEMORY CONTROL ELEM ENT.__382_KCN=NBOUT(0,12,INSTNC(IX))___KD1=NBOUT(32,4,INSTNC(IX))___KR P=NBOUT(28___8?L.EQ.0)GO TO 999___IDAT=0___IF(IT.EQ.'A')GO TO 2110___I F(IT.EQ.'S')GO TO 2210___IF(IT.EQ.'C')GO TO 2310___GO TO 210__C_ALL MO DE.__2110_MODE=1__2211_DO 2111 L=1,NOUT___IT=NBOUT((NOUT-L),1,IVAL)___ IF(IT.EQ.0)GO TO 2111___WRITE(5,2112)L__2112_FORMAT(1X,I2,'. OUTPUT='/ )___IT=0___CALL SENDIN(IT,1,.TRUE.)___I1=4+(L-1)*2___CALL BINS(IT,IDAT ,I1,(I1+1))__2111_CONTINUE___GO TO 2311__C_SOME MODE.__2210_MODE=2___G O TO 2211__C_CHANGE MODE.__2310_MODE=3__2311_K=1__2314_IF(ITRAP(K).EQ. 0)GO TO 2510___IT=NBOUT(0,18,ITRAP(K))___IF(IT.NE.IND)GO TO 2312___IT= NBOUT(32,4,ITRAP(K+1))___IF(IT.NE.MODE)GO TO 2312__2510_CALL BINS(IVAL ,ITRAP(K),0,17)___CA__H9?NPR___COMMON/BLOCK/BLKNO(100,2),BLPREK,CLCKTR ,INTERM,IOUTTR___INTEGER BLKNO,BLPREK,CLCKTR___BLPREK=1___INPREK=1___L NPR=1___RETURN___END______COMMON/LOGIC/MASTER(1000),INSTNC(2000)___COM MON/CIZGI/MATLIN(2300)___COMMON/VAL/MAPREK,INPREK___I=1___MAPREK=1___I NPREK=1___NAME1=5HDATA1___NAME2=5HDATA2___NAME3=5HDATA3___NAME4=5HDATA 4___CALL OFILE(20,NAME1)___CALL OFILE(21,NAME2)___CALL OFILE(22,NAME3) ___CALL OFILE(23,NAME4)___WRITE(20,1)I___WRITE(21,1)I___WRITE(22,1)I,I ,I___WRITE(23,1)I__1_FORMAT(6O12)___END FILE 20___END FILE 21___END FI LE 22___END FILE 23___STOP___END____SUBROUTINE SIMULT(IUSER,IS)___COMM ON/LOGIC/MASTER(1000),INSTNC(2___.8TIME.LT.10)GO TO 2__50_ITIME=0___IF (IATN.NE.'Y')GO TO 2___CALL ATTEST(N)___IF(N.GT.0)GO TO 5000___GO TO 2 __5000_CALL ATTONE(IRAY)___IF(IRAY(1).LE.0)GO TO 22___IS=IRAY(2)___IUS ER=DISPFL(IS)___IF(IUSER.EQ.1)GO TO 987___GO TO 22__987_IEND=ICPUT(NKD UM)___CALL ENABLE(2)___ISTIME=ISTIME-1___IG=ISTIME*10___WRITE(5,1981)I G___WRITE(24,1981)IG__1981_FORMAT(/1X,'SIMULATION STOPPED AT TIME=',I6 ,' NANO-SECONDS.'/)___IUSER=1___IS=ISEG(1)___X=(IEND-IBEG)/1000.0___WR ITE(5,1980)X___WRITE(24,1980)X__1980_FORMAT(1X,'EXECUTION TIME:',6X,F7 .2,' SECONDS.'/)__988_RETURN___END__________________X8?AL)___IF(J.EQ.' ')GO TO 285___IF(J.EQ.'*')GO TO 286___IF(J.EQ.'-')GO TO 180___IF(J.EQ .'#')GO TO 999___IF(J.NE.'/')GO TO 185__C_CHANGE DATA.___I2=35-I1___I1 =I2-7___CALL BINS(IVAL,MASTER(IWORD),I1,I2)__285_IADR=IADR+1___IF(IADR .GT.KMAX)IADR=1___J=IDTOCT(IADR-1)___GO TO 184__C_CHOOSE.__280_GO TO ( 383,999,999,286,999,286,999,381,286,999,999___1,999,999,999,999),TYPE_ _C_MEMORY.__380_IWCNT=NBOUT(29,7,INSTNC(IX))___IRCNT=NBOUT(22,7,INSTNC (IX))___IWDLY=NBOUT(15,7,INSTNC(IX))___IRDLY=NBOUT(8,7,INSTNC(IX))___I ADR=NBOUT(0,8,INSTNC(IX))___WRITE(5,1381)__1381_FORMAT(/1X,'WRITE COUN T='/)___CALL SENDIN(IWCNT,3,.TRUE.)___WRITE(5,1382)__1382_FO__ 8?LL BI NS(IND,ITRAP(K),18,35)___CALL BINS(MODE,ITRAP(K+1),0,3)___CALL BINS(ID AT,ITRAP(K+1),4,35)___GO TO 999__2312_K=K+2___IF(K.GT.31)GO TO 2313___ GO TO 2314__2313_WRITE(5,2315)__2315_FORMAT(/1X,'TRAP LIST IS FULL UP? ?'/)___GO TO 999__C_UNTRAP.__310_K=1__311_IF(ITRAP(K).EQ.0)GO TO 4310_ __IT=NBOUT(0,18,ITRAP(K))___IF(IT.EQ.IND)GO TO 4320___IF(K.GE.31)GO TO 4310__4311_K=K+2___GO TO 311__4320_MODE=NBOUT(32,4,ITRAP(K+1))___IT=M ODE___WRITE(5,4321)__4321_FORMAT(1X,'MODE='/)___CALL SENDIN(IT,1,.TRUE .)___IF(IT.NE.MODE)GO TO 4311___ITRAP(K)=0___ITRAP(K+1)=0___L=K+2__432 2_IF(L.GT.31)GO TO 999___IF(ITRAP(L).EQ.0)GO TO 4431___L=L+2___GO TO 4 __h9?_K=K+5+(2**NIN)*NS___KI=K___GO TO 3__4_L=2___RETURN___END____SUBR OUTINE CONSUB(NAME,ISX,I1,I2,I3,IND)___COMMON/LOGIC/MASTER(1000),INSTN C(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/EBAT/NIN,NOUT,KCL___I =1__1_IF(I.GE.INPREK)GO TO 100___K=INSTNC(I)___NIN=MASTER(K+2)___NOUT= MASTER(K+3)___IF(INSTNC(I+1).EQ.NAME)GO TO 2___I=I+7+NOUT+NIN___GO TO 1__C_BLOCK FOUND.__2_KCL=NBOUT(0,2,INSTNC(I+2))___IF(KCL.NE.0)KCL=1___ IND=I___I1=1___I2=0___I3=0___IF(ISX.EQ.KCL)RETURN___I1=0___I=NIN+KCL__ _IF(ISX.LE.I)GO TO 3___I3=ISX-I___RETURN__3_I2=ISX-KCL___RETURN__100_P AUSE 'ERROR 4'___RETURN___END_______SUBROUTINE RESET__COMMON/VAL/MAPRE K,INPREK,L__p.?IPUT(IPT),IPT=1,NOUT)__405_FORMAT(1X,'OUTPUTS ARE'/1X,1 8(A2,2X)//)__9010_K=K+2___GO TO 9500__C_ALL TRAP.__9020_LTRP=1___GO TO 9002__C_CHANGE MODE.__7000_DO 7001 L=1,NOUT___IT=NBOUT((NOUT-L),1,IVA L)___IF(IT.EQ.0)GO TO 7001___IT=NBOUT(0,2,INSTNC(IX+L))___IF(IT.EQ.0)G O TO 7001___IF(IT.EQ.3)GO TO 7001__C_CHANGE TRAP.___LTRP=1___GO TO 900 2__7001_CONTINUE___GO TO 9010__C_TRAPS CHECKED.__9030_IF(LTRP.EQ.0)GO TO 55555___LTRP=0___WRITE(5,9031)__9031_FORMAT(/1X,'CONTINUE ?'/)___RE AD(5,9032)IT__9032_FORMAT(A1)___IF(IT.NE.'N')GO TO 55555___ISTIME=ISTI ME+2___GO TO 987__55555_ISTIME=ISTIME+1___ITIME=ITIME+1___IF(ISTIME.GT .IM)GO TO 987___IF(I__x8?84___1,999,999,999,999),TYPE__480_KCL=NBOUT(0 ,2,INSTNC(K+2))___KT=KCL___WRITE(5,3384)___CALL SENDIN(KT,1,.TRUE.)___ IF((KT.EQ.KCL).OR.(KT.EQ.0))GO TO 999___CALL BINS(KT,INSTNC(K+2),34,35 )___GO TO 999__C_MEMORY BLOCK.__C_ASK FOR MEMORY ADDRESS.__180_WRITE(5 ,181)__181_FORMAT(/1X,'MEMORY ADDRESS=?'/)___KMAX=MASTER(IK+4)___J=0__ _CALL ROCTD(J,IADR)___IADR=IADR+1___IF(IADR.GT.KMAX)IADR=1__184_IBYTE= MOD(IADR,4)___IF(IBYTE.EQ.0)IBYTE=4___I1=(4-IBYTE)*8___IWORD=(IADR-IBY TE)/4+IK+6__185_IVAL=NBOUT(I1,8,MASTER(IWORD))___J=IDTOCT(IVAL)___LA=I DTOCT(IADR-1)___WRITE(5,86)LA,J__86_FORMAT(1X,'ADDRESS=',I6,3X,'VALUE= ',I6/)___J=1___CALL ROCTD(J,IV__@8?322__4431_ITRAP(K)=ITRAP(L-2)___ITR AP(K+1)=ITRAP(L-1)___ITRAP(L)=0___ITRAP(L+1)=0___GO TO 999__C_LIST TRA PS.__410_K=1__415_IF(ITRAP(K).EQ.0)GO TO 999___IND=NBOUT(0,18,ITRAP(K) )___IVAL=NBOUT(18,18,ITRAP(K))___MODE=NBOUT(32,4,ITRAP(K+1))___IDAT=NB OUT(0,32,ITRAP(K+1))___IT=INSTNC(IND)___NAME=MASTER(IT)___NOUT=MASTER( IT+3)___WRITE(5,580)NAME,IND___J=IDTOCT(IVAL)___WRITE(5,411)MODE,J__41 1_FORMAT(1X,'MODE=',I2,3X,'MASK=',I6)___IF(MODE.EQ.3)GO TO 8410___DO 4 12 L=1,NOUT___IT=NBOUT((NOUT-L),1,IVAL)___IF(IT.EQ.0)GO TO 412___IT=NB OUT((32-(2*L)),2,IDAT)___WRITE(5,414)L,IT__414_FORMAT(1X,I2,'. OUTPUT. VALUE IS=',I2)__412_CONTINUE__8410_K=K+___9?_DO 30 I=1,NIN___N=K+6+NO UT+I___CALL OPEN(N,I1,I2,I3,I4,I5)___WRITE(3,4)I__30_CALL YAZ(I1,I2,I3 ,I4,I5)__31_K=K+7+NIN+NOUT___IF(K.LT.INPREK)GO TO 10__100_ENDFILE 3___ STOP__2_FORMAT(1X,///,10X,'BLOCK NAME IS:',A5,'(',I3,')',/___11X,34('* ')/)__3_FORMAT(1X,/,5X,'ITS CLOCK INPUT IS:')__4_FORMAT(1X,/,5X,'IT''S ',I2,'. INPUT IS:')___END_____SUBROUTINE LOOK(NAME,TYPE,L,K)___COMMON /VAL/MAPREK,INPREK,LNPR___COMMON/LOGIC/MASTER(1000),INSTNC(2000)___COM MON/EBAT/NIN,NOUT,KCLOCK___INTEGER TYPE___L=1___KI=1___K=1__3_IF(KI.GT .MAPREK)RETURN___TYPE=MASTER(K+1)___NIN=MASTER(K+2)___NOUT=MASTER(K+3) ___NS=MASTER(K+4)___IF(MASTER(K).EQ.NAME)GO TO 4_____.?(IT1.EQ.IT2)KT= 1___IF(KT.NE.1)GO TO 8001___LP=1___IF(MODE.EQ.2)GO TO 9000___GO TO 800 0__8001_IF(MODE.EQ.1)GO TO 9010__8000_CONTINUE___IF(LP.EQ.0)GO TO 9010 ___GO TO 9020__C_SOME TRAP.__9000_LTRP=1__9002_NAME=MASTER(KM)___IT=(I STIME+1)*10___WRITE(5,9001)NAME,IND,IT___WRITE(24,9001)NAME,IND,IT__90 01_FORMAT(/1X,A5,'(',I4,')',' TRAPPED AT TIME=',I6/)___IXP=IND+5___DO 400 IPT=1,NOUT___IV=NBOUT(0,2,INSTNC(IXP+IPT))___IV=IV+1___GO TO (401 ,402,403,404),IV__401_IPUT(IPT)='LO'___GO TO 400__402_IPUT(IPT)='HL'__ _GO TO 400__403_IPUT(IPT)='LH'___GO TO 400__404_IPUT(IPT)='HI'__400_CO NTINUE___WRITE(5,405)(IPUT(IPT),IPT=1,NOUT)___WRITE(24,405)(___8?')'/) ___IX=K+5___IF(TYPE.EQ.6)GO TO 180___IF(TYPE.EQ.11)GO TO 180__C_NON-ME MORY BLOCK.___IVAL=0___DO 84 L=1,NOUT___IVAL=IVAL*2+NBOUT(1,1,INSTNC(I X+L))__84_CONTINUE___J=IDTOCT(IVAL)___WRITE(5,85)J__85_FORMAT(/1X,'VAL UE=',1X,I6/)___J=1___CALL ROCTD(J,IVAL)___IF(J.EQ.' ')GO TO 280__C_CHA NGE DATA.___J=NOUT___DO 87 L=1,NOUT___ND=IX+L___ID=NBOUT((J-L),1,IVAL) ___IS=NBOUT(25,11,INSTNC(ND))___IF(ID.NE.0)ID="777777777777___INSTNC(N D)=ID___CALL BINS(IS,INSTNC(ND),0,10)__87_CONTINUE___GO TO 280__286_WR ITE(5,88)__88_FORMAT(/1X,'DATA?'/)___READ(5,89)ID__89_FORMAT(A1)___IF( ID.NE.'Y')GO TO 999___GO TO (384,999,999,480,999,380,999,480,382,999,3 ___8*2___IF(K.LE.31)GO TO 415___GO TO 999__C_FREE ALL TRAPS.__510_WRIT E(5,511)__511_FORMAT(/1X,'FREE TRAPS?.. ARE YOU SURE?'/)___READ(5,11 10)IT___IF(IT.NE.'Y')GO TO 999___DO 512 L=1,32__512_ITRAP(L)=0___GO TO 999__4310_WRITE(5,6310)__6310_FORMAT(1X,'NOT IN THE TRAP LIST'/)___GO TO 999__4410_WRITE(5,14410)__14410_FORMAT(/1X,'L , F ?'/)___READ(5,11 10)IT___IF(IT.EQ.'L')GO TO 410___IF(IT.EQ.'F')GO TO 510___GO TO 999___ END___________________(9?H+,26X,'FREE BUT LINE ',I2,' IS ATTACHED TO I T',/)__5_FORMAT(1H+,26X,'FREE...',/)___END____COMMON/LOGIC/MASTER(1000 ),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK___CALL IFILE(20,'DATA1')___C ALL IFILE(21,'DATA2')___CALL IFILE(22,'DATA3')___READ(22,1)MAPREK,INPR EK___READ(21,1)(INSTNC(I),I=1,INPREK)___READ(20,1)(MASTER(I),I=1,MAPRE K)__1_FORMAT(6O12)___K=1__10_L=INSTNC(K)___NAME=MASTER(L)___NIN=MASTER (L+2)___NOUT=MASTER(L+3)___KCL=NBOUT(0,2,INSTNC(K+2))___IF(K.GE.INPREK )GO TO 100___IF(INSTNC(K+1).EQ.0)GO TO 31___WRITE(3,2)NAME,K___IF(KCL. EQ.0)GO TO 20___N=K+6+NOUT___CALL OPEN(N,I1,I2,I3,I4,I5)___WRITE(3,3)_ __CALL YAZ(I1,I2,I3,I4,I5)__20__0,?_CALL MACSIM___GO TO 100__C_ARITHME TIC AND LOGICAL UNIT.__19_CALL SIMALU___GO TO 100__100_SIMIX=SIMIX+7+N T+NO___GO TO 1__6000_CALL SHIFT__C_CHECK FOR TRAP.___IF(IDVTRP.EQ.0)GO TO 55555__C_TRAP ENABLED.___LTRP=0___K=1__9500_IF(K.GT.31)GO TO 9030_ __IF(ITRAP(K).EQ.0)GO TO 9030___IND=NBOUT(0,18,ITRAP(K))___IVAL=NBOUT( 18,18,ITRAP(K))___MODE=NBOUT(32,4,ITRAP(K+1))___IDAT=NBOUT(0,32,ITRAP( K+1))___IX=IND+5___KM=INSTNC(IND)___NOUT=MASTER(KM+3)___IF(MODE.EQ.3)G O TO 7000__C_ALL OR SOME MODES.___LP=0___DO 8000 L=1,NOUT___IT=NBOUT(( NOUT-L),1,IVAL)___IF(IT.EQ.0)GO TO 8000___IT1=NBOUT(0,2,INSTNC(IX+L))_ __IT2=NBOUT((32-2*L),2,IDAT)___KT=0___IF__88?)___CALL OFILE(23,IOP3)__ _CALL OFILE(24,IOP4)___WRITE(5,51)___GO TO 999__51_FORMAT(1X,'FILES CL OSED.'/)__C_TEST.__C__C__C__C_SIMULATE.__60_ISIVAL=4___RETURN__777_CAL L CHINTS(ISEG(6),0,7)___GO TO 999__C_TYPE OUT MODE.__80_CALL ACTION(IR AY)___IS=IRAY(2)___IUSER=DISPFL(IS)___IF(IUSER.LE.KLS)GO TO 998___NAM1 =NOSH(I1)___IF(NAM1.GT.0)GO TO 81__C_LINE HIT.___GO TO 80__C_FIND BLOC K.__81_K=1__82_IF(K.GE.INPREK)GO TO 999___IK=INSTNC(K)___NIN=MASTER(IK +2)___NOUT=MASTER(IK+3)___IF(INSTNC(K+1).EQ.IUSER)GO TO 83___K=K+NIN+N OUT+7___GO TO 82__C_BLOCK FOUND.__83_NAM1=MASTER(IK)___TYPE=MASTER(IK+ 1)___WRITE(5,580)NAM1,K__580_FORMAT(/1X,A5,'(',I4,__0.?_CALL MACSIM___ GO TO 100__C_ARITHMETIC AND LOGICAL UNIT.__19_CALL SIMALU___GO TO 100_ _100_SIMIX=SIMIX+7+NT+NO___GO TO 1__6000_CALL SHIFT__C_CHECK FOR TRAP. ___IF(IDVTRP.EQ.0)GO TO 55555__C_TRAP ENABLED.___LTRP=0___K=1__9500_IF (K.GT.31)GO TO 9030___IF(ITRAP(K).EQ.0)GO TO 9030___IND=NBOUT(0,18,ITR AP(K))___IVAL=NBOUT(18,18,ITRAP(K))___MODE=NBOUT(32,4,ITRAP(K+1))___ID AT=NBOUT(0,32,ITRAP(K+1))___IX=IND+5___KM=INSTNC(IND)___NOUT=MASTER(KM +3)___IF(MODE.EQ.3)GO TO 7000__C_ALL OR SOME MODES.___LP=0___DO 8000 L =1,NOUT___IT=NBOUT((NOUT-L),1,IVAL)___IF(IT.EQ.0)GO TO 8000___IT1=NBOU T(0,2,INSTNC(IX+L))___IT2=NBOUT((32-2*L),2,IDAT)___KT=0___IF___)&(',I4 ,')'/___11X,'TIME=',I8,' NS.'/)___GO TO 12__C_SYNCHRONOUS BUT CLOCK NO T PRESENT.__400_IF(NCH.EQ.0)GO TO 401___GO TO 12__401_IF(ITIMEX.GT.26) GO TO 12___GO TO 12__C_ASYNCHRONOUS MACHINE.__500_IF(NCH.LE.1)GO TO 12 ___IKHG=ITIMEX*10___IF(IWAR.EQ.'Y')WRITE(24,5001)ISIM,I1,IKHG__5001_FO RMAT(1X,'MORE THAN ONE INPUT ACTIVE..'2X,A5,'(',___1I4,')',2X,'TIME=', I6,'NS.'/)___GO TO 12___END________________,&(',I4,')'/___11X,'TIME=', I8,' NS.'/)___GO TO 12__C_SYNCHRONOUS BUT CLOCK NOT PRESENT.__400_IF(N CH.EQ.0)GO TO 401___GO TO 12__401_IF(ITIMEX.GT.26)GO TO 12___GO TO 12_ _C_ASYNCHRONOUS MACHINE.__500_IF(NCH.LE.1)GO TO 12___IKHG=ITIMEX*10___ IF(IWAR.EQ.'Y')WRITE(24,5001)ISIM,I1,IKHG__5001_FORMAT(1X,'MORE THAN O NE INPUT ACTIVE..'2X,A5,'(',___1I4,')',2X,'TIME=',I6,'NS.'/)___GO TO 1 2___END_______________X8?AME___IF(K.LT.1)GO TO 998__C_OUTPUT TERMINAL OPENED.___WRITE(5,31)TRNO,NAME,IND___IX=IND+5+TRNO___I1=NBOUT(29,2,INS TNC(IX))___I2=I1___CALL SENDHS(0)___CALL SENDCS('DEVICE=',7)___CALL SE NDIN(I1,1,.TRUE.)___IF((I1.LT.0).OR.(I1.GT.3))I1=I2___IF(I1.NE.I2)IXXX S=-1___CALL BINS(I1,INSTNC(IX),5,6)___GO TO 999__C_CLOSE.__50_CALL DAT OUT__54_WRITE(5,52)__52_FORMAT(1X,'OUTPUT FILES ?'/)___READ(5,53)KP__5 3_FORMAT(A1)___IF(KP.EQ.'N')GO TO 999___IF(KP.NE.'Y')GO TO 54___END FI LE 21___END FILE 22___END FILE 23___END FILE 24___CALL RUFFLE(IOP1)___ CALL RUFFLE(IOP2)___CALL RUFFLE(IOP3)___CALL RUFFLE(IOP4)___CALL OFILE (21,IOP1)___CALL OFILE(22,IOP2__`.?O=NOUT___KCLOCK=NBOUT(0,2,INSTNC(SI MIX+2))___IBAK=NBOUT(31,5,INSTNC(SIMIX+2))___IF(IBAK.NE.0)GO TO 100__C _SIMULATE...___GO TO(10,11,12,13,14,14,14,14,14,15,16,17,100,18,19),TY PE__C___C_SEQUENTIAL BLOCK..__10_NX=2**NIN___CALL SIMSQN(NS,NX,MASTER( IX+6))___GO TO 100__C_COMBINATIONAL BLOCK.__11_CALL SIMCOM(MASTER(IX+6 ))__C____GO TO 100__C_LIB001 BLOCK.__C___12_CALL SIM001___GO TO 100__C _LIB002 BLOCK.__13_CALL SIMREG___GO TO 100__C_LIB005 BLOCK.__14_CALL S IM5X(TYPE)___GO TO 100__C_HIGHWAY BLOCK.__15_CALL HGHWAY___GO TO 100__ C_ROM BLOCK.__16_CALL SIMROM___GO TO 100__C_MULTIPLEXER BLOCK.__17_CAL L SIMLPX___GO TO 100__C_MACRO BLOCK.__18__h)?_12_CALL BGDEC(NT,INPT1,I Z)___IZ=IZ+1___IX=I1+5___IS=INSTNC(IX)___IF(IS.LT.1)IS=1___IN=ITAB(IS, IZ)/100__999_IO=ITAB(IS,IZ)-IN*100___IF(IN.LT.1)IN=IS___IF(IBIN.EQ.KCL OCK)INSTNC(IX)=IN___CALL BINARY(IO,NO,OUTPT,0)___DO 15 I=1,NO___IX=IX+ 1___ND=NBOUT(31,5,INSTNC(IX))___IM=34-ND___CALL BINS(OUTPT(I),INSTNC(I X),IM,IM)__15_CONTINUE___CALL BINARY(INSTNC(KX),NT,INPT1,1)___RETURN__ 2000_WRITE(24,2001)L1,ISIM,IND__2001_FORMAT(1X,I2,'. INPUT OF ',A5,'(' ,I4,') IS FREE...'/)___L1=INX___GO TO IGO__17_IKHG=ITIMEX*10___IF(IWAR .EQ.'Y')WRITE(24,5002)ISIM,I1,IKHG__5002_FORMAT(1X,'AN INPUT IS CHANGI NG WITH CLOCK TRANSITION'/___11X,'BLOCK IS: ',A5,'__p,?_12_CALL BGDEC( NT,INPT1,IZ)___IZ=IZ+1___IX=I1+5___IS=INSTNC(IX)___IF(IS.LT.1)IS=1___I N=ITAB(IS,IZ)/100__999_IO=ITAB(IS,IZ)-IN*100___IF(IN.LT.1)IN=IS___IF(I BIN.EQ.KCLOCK)INSTNC(IX)=IN___CALL BINARY(IO,NO,OUTPT,0)___DO 15 I=1,N O___IX=IX+1___ND=NBOUT(31,5,INSTNC(IX))___IM=34-ND___CALL BINS(OUTPT(I ),INSTNC(IX),IM,IM)__15_CONTINUE___CALL BINARY(INSTNC(KX),NT,INPT1,1)_ __RETURN__2000_WRITE(24,2001)L1,ISIM,IND__2001_FORMAT(1X,I2,'. INPUT O F ',A5,'(',I4,') IS FREE...'/)___L1=INX___GO TO IGO__17_IKHG=ITIMEX*10 ___IF(IWAR.EQ.'Y')WRITE(24,5002)ISIM,I1,IKHG__5002_FORMAT(1X,'AN INPUT IS CHANGING WITH CLOCK TRANSITION'/___11X,'BLOCK IS: ',A5,'__x8?CALL SENDCS('READ=',5)___I4=I2___CALL SENDIN(I4,2,.TRUE.)___IF(I4.LT.1)I4=I 2___CALL BINS(I3,INSTNC(IX),14,20)___CALL BINS(I4,INSTNC(IX),21,27)___ GO TO 999__36_CALL SENDHS(0)___NS=MASTER(K+4)___KX=IND+5___IS=INSTNC(K X)__37_CALL SENDCS('STATE=',6)___CALL SENDIN(IS,2,.TRUE.)___IF((IS.LT. 1).OR.(IS.GT.NS))GO TO 37___INSTNC(KX)=IS___GO TO 999__35_WRITE(5,33)_ _31_FORMAT(1X,I2,'. OUTPUT OF ',A5,'(',I4,')'/)__33_FORMAT(1X,'NO OUTP UT INDICATED???'/)___GO TO 999__C_OUTPUT.__C_BITS 5&6 OF OUTPUT WORD G IVE DESTINATION DEVICE.__C_READ A TERMINAL OR ALINE.__40_INX=-KLS___CA LL GETTER(K,NAME,IND,TRNO,INX)___IF(K.EQ.0)GO TO 35___IS=IND___IUSER=N ___.?___READ(5,1978)IVSPKE___IF(ITRAP(1).EQ.0)GO TO 1979___WRITE(5,197 7)__1977_FORMAT(/1X,'TRAP ?'/)___READ(5,1978)IT__1978_FORMAT(A1)___IF( IT.EQ.'Y')IDVTRP=1___WRITE(5,3398)__3398_FORMAT(/1X,'WARNING MESSAGES ON INPUTS?'/)___READ(5,1978)IWAR___WRITE(5,2001)__2001_FORMAT(/1X,'ATT ENTION?'/)___READ(5,1978)IATN__1979_IF(IXXXS.EQ.-1)CALL BASLIK___IXXXS =0___IF((LP1.EQ.0).AND.(DS1.EQ.0).AND.(D31.EQ.0))IXXXS=-1___IBEG=ICPUT (NKDUM)__22_CALL ENABLE(2)__2_SIMIX=1__C_START SIMULATION...__1_IF(SIM IX.GE.INPREK)GO TO 6000___IX=INSTNC(SIMIX)___NIN=MASTER(IX+2)___TYPE=M ASTER(IX+1)___NOUT=MASTER(IX+3)___NS=MASTER(IX+4)___ISIM=MASTER(IX)___ NT=NIN___N___)?=2,KL___INX=I___IND=I1___CALL GETTER(K,NAME,IND,L1,INX) ___NIN=NT___NOUT=NO___ASSIGN 25 TO IGO___IF(K.EQ.0)GO TO 2000___IF(K.E Q.2)GO TO 25___KM=IND+5+INX___IKC=NBOUT(0,2,INSTNC(KM))___IF(IKC.EQ.0) GO TO 100___IF(IKC.EQ.3)GO TO 9__C_TRANSITION ON INPUT.. END VALUE ASS UMED..___LN=1___IKC=NBOUT(1,1,IKC)___GO TO 100__25_INPT1(I-1)=L1___GO TO 10__9_IKC=1__100_INPT1(I-1)=IKC__10_CONTINUE___CALL BINARY(INSTNC(K X),NT,INPT2,0)___NCH=0___DO 11 I=1,NT___IF(INPT1(I).EQ.INPT2(I))GO TO 11___NCH=NCH+1__11_CONTINUE___IF(KT.EQ.0)GO TO 500__C_SYNCHRONOUS MACH INE.__C_CHECK CLOCK.___IF(KCLOCK.NE.IBIN)GO TO 400__C_CLOCK PRESENT___ IF(LN.EQ.1)GO TO 17____,?=2,KL___INX=I___IND=I1___CALL GETTER(K,NAME,I ND,L1,INX)___NIN=NT___NOUT=NO___ASSIGN 25 TO IGO___IF(K.EQ.0)GO TO 200 0___IF(K.EQ.2)GO TO 25___KM=IND+5+INX___IKC=NBOUT(0,2,INSTNC(KM))___IF (IKC.EQ.0)GO TO 100___IF(IKC.EQ.3)GO TO 9__C_TRANSITION ON INPUT.. END VALUE ASSUMED..___LN=1___IKC=NBOUT(1,1,IKC)___GO TO 100__25_INPT1(I-1 )=L1___GO TO 10__9_IKC=1__100_INPT1(I-1)=IKC__10_CONTINUE___CALL BINAR Y(INSTNC(KX),NT,INPT2,0)___NCH=0___DO 11 I=1,NT___IF(INPT1(I).EQ.INPT2 (I))GO TO 11___NCH=NCH+1__11_CONTINUE___IF(KT.EQ.0)GO TO 500__C_SYNCHR ONOUS MACHINE.__C_CHECK CLOCK.___IF(KCLOCK.NE.IBIN)GO TO 400__C_CLOCK PRESENT___IF(LN.EQ.1)GO TO 17____8?=',6)___IN=I1___CALL SENDIN(I1,2,.T RUE.)___IF((I1.LT.0).OR.(I1.GT.23))I1=IN___CALL SENDCS('LOGIC?',6)___I M=I2___CALL SENDIN(I2,2,.TRUE.)___IF((I2.LT.0).OR.(I2.GT.1))I2=IM___IO =NBOUT(29,2,INSTNC(IX))___INSTNC(IX)=0___IF(I2.EQ.0)GO TO 32___I2="777 777777777__32_INSTNC(IX)=I2___CALL BINS(I1,INSTNC(IX),0,4)___CALL BINS (IO,INSTNC(IX),5,6)___CALL BINS(IC,INSTNC(IX),7,10)___K=INSTNC(IND)___ TYPE=MASTER(K+1)___IF(TYPE.EQ.1)GO TO 36___IF(TYPE.NE.6)GO TO 999___IX =IX-TRNO___I1=NBOUT(15,7,INSTNC(IX))___I2=NBOUT(8,7,INSTNC(IX))___CALL SENDHS(0)___CALL SENDCS('WRITE=',6)___I3=I1___CALL SENDIN(I3,2,.TRUE. )___IF(I3.LT.1)I3=I1___CALL SENDHS(0)_____ .?972_FORMAT(A1)___IF(IVALU E.EQ.'R')IVALUE=1___IF(IVALUE.EQ.'C')IVALUE=2___IF(IVALUE.EQ.'F')IVALU E=3___IF(IVALUE.EQ.'S')IVALUE=4___GO TO (988,300,301,301),IVALUE__301_ IF(IVALUE.EQ.3)IVALUE=1___IF(IVALUE.EQ.4)IVALUE=0___IG=ISTIME*10___WRI TE(5,1973)IG___WRITE(24,1973)___READ(5,1974)IM___IF(IM.LT.0)ISTIME=0__ _IM=IABS(IM)___IM=IM/10+ISTIME__1973_FORMAT(1X,'TIME=',I6,2X,'NANO-SEC ',/___11X,'DURATION (NANO-SEC IN 6 DIGITS)=?'/)___WRITE(5,1975)___READ (5,1976)IDEV1,IDEV2,IDEV3__1975_FORMAT(1X,'DEV1,2,3 ("1" OR "0"):'/)__ 1976_FORMAT(3I1)__1974_FORMAT(I6)__300_IDVTRP=0___IVSPKE=0___WRITE(5,3 3333)__33333_FORMAT(1X,'CHECK FOR FAST PULSES ?'/)__()?_SUBROUTINE SIM SQN(NS,NX,ITAB)___COMMON/WARN/IWAR___COMMON/LOGIC/MASTER(1750),INSTNC( 2000)___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/FORSIM/I1,ITIMEX,ISIM___I NTEGER INPT1(5),INPT2(5),OUTPT(5)___COMMON/SIZE02/NT,NO___DIMENSION IT AB(NS,NX)__C_CHECK CLOCK REQUIREMENTS.___IBIN=0___KCLOCK=NBOUT(0,2,INS TNC(I1+2))___KT=0___IF(KCLOCK.EQ.0)GO TO 20__C_CLOCK REQUIRED.___KT=1_ __INX=1___IND=I1___CALL GETTER(K,NAME,IND,L1,INX)___NIN=NT___NOUT=NO__ _ASSIGN 2010 TO IGO___IF(K.EQ.0)GO TO 2000___IF(K.NE.2)GO TO 19__2010_ IBIN=L1___GO TO 20__C_OKEY, WHAT IS IT?.__19_IBIN=NBOUT(0,2,INSTNC(IND +5+INX))__C_SIMULATE.__20_KX=I1+3___KL=NT+1___LN=0___DO 10 I__8*?_SUBR OUTINE BASLIK___COMMON/LOGIC/MASTER(1750),INSTNC(2000)___COMMON/VAL/MA PREK,INPREK,LNPR___COMMON/OUTXXX/LPT0(20),DSKB(20),D340(20),LP1,DS1,D3 1___COMMON/EBAT/NIN,NOUT,KCLOCK___DIMENSION NAMES(45),INS(45),NOS(45)_ __COMMON/DEVICE/IDEV1,IDEV2,IDEV3___INTEGER DSKB,D340,DS1,D31,IFOR1(7) ,IFOR2(7)___LP1=0___DS1=0___D31=0___INDX=1__100_IF(INDX.GE.INPREK)GO T O 1000___KX=INSTNC(INDX)___NIN=MASTER(KX+2)___NOUT=MASTER(KX+3)___NAME =MASTER(KX)___IX=INDX+5___DO 1 I=1,NOUT___IX=IX+1___NDEV=NBOUT(29,2,IN STNC(IX))+1___GO TO(1,11,12,13),NDEV__C_LPT0:__11_IF(IDEV1.EQ.0)GO TO 1___LP1=LP1+1___IF(LP1.GT.15)GO TO 2000___CALL BINS(LP1,INSTNC(IX),7,1 __88?YSE INTERRUPT.__998_CALL CHINTS(ISEG(IOLD),0,7)___IF(IUSER.GT.KLS )GO TO 999__C_ONLY LIGHT BUTTON HITS ARE ACCEPTED.___IOLD=IUSER___CALL CHINTS(IS,1,7)__C_CHOOSE CORRECT ROUTINE.___GO TO(10,20,30,40,50,60,7 0,80,90,100,110),IUSER__10_ISTOP=-1___GO TO 999__C_RESET.__20_CALL RES ET___GO TO 999__C_EXAMINE.__C_READ A TERMINAL OR A LINE.__30_INX=-KLS_ __CALL GETTER(K,NAME,IND,TRNO,INX)___IF(K.EQ.0)GO TO 35___IS=IND___IUS ER=NAME___IF(K.LT.1)GO TO 998__C_OUTPUT TERMINAL OPENED.___WRITE(5,31) TRNO,NAME,IND___IX=IND+5+TRNO___IC=NBOUT(25,4,INSTNC(IX))___I1=NBOUT(3 1,5,INSTNC(IX))___I2=NBOUT(0,2,INSTNC(IX))___CALL SENDHS(0)___CALL SEN DCS('DELAY__0,?_SUBROUTINE SIMSQN(NS,NX,ITAB)___COMMON/WARN/IWAR___COM MON/LOGIC/MASTER(1750),INSTNC(2000)___COMMON/EBAT/NIN,NOUT,KCLOCK___CO MMON/FORSIM/I1,ITIMEX,ISIM___INTEGER INPT1(5),INPT2(5),OUTPT(5)___COMM ON/SIZE02/NT,NO___DIMENSION ITAB(NS,NX)__C_CHECK CLOCK REQUIREMENTS.__ _IBIN=0___KCLOCK=NBOUT(0,2,INSTNC(I1+2))___KT=0___IF(KCLOCK.EQ.0)GO TO 20__C_CLOCK REQUIRED.___KT=1___INX=1___IND=I1___CALL GETTER(K,NAME,IN D,L1,INX)___NIN=NT___NOUT=NO___ASSIGN 2010 TO IGO___IF(K.EQ.0)GO TO 20 00___IF(K.NE.2)GO TO 19__2010_IBIN=L1___GO TO 20__C_OKEY, WHAT IS IT?. __19_IBIN=NBOUT(0,2,INSTNC(IND+5+INX))__C_SIMULATE.__20_KX=I1+3___KL=N T+1___LN=0___DO 10 I__0-?_SUBROUTINE BASLIK___COMMON/LOGIC/MASTER(1750 ),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/OUTXXX/LPT0(20 ),DSKB(20),D340(20),LP1,DS1,D31___COMMON/EBAT/NIN,NOUT,KCLOCK___DIMENS ION NAMES(45),INS(45),NOS(45)___COMMON/DEVICE/IDEV1,IDEV2,IDEV3___INTE GER DSKB,D340,DS1,D31,IFOR1(7),IFOR2(7)___LP1=0___DS1=0___D31=0___INDX =1__100_IF(INDX.GE.INPREK)GO TO 1000___KX=INSTNC(INDX)___NIN=MASTER(KX +2)___NOUT=MASTER(KX+3)___NAME=MASTER(KX)___IX=INDX+5___DO 1 I=1,NOUT_ __IX=IX+1___NDEV=NBOUT(29,2,INSTNC(IX))+1___GO TO(1,11,12,13),NDEV__C_ LPT0:__11_IF(IDEV1.EQ.0)GO TO 1___LP1=LP1+1___IF(LP1.GT.15)GO TO 2000_ __CALL BINS(LP1,INSTNC(IX),7,1__@.?_SUBROUTINE SIMULT___COMMON/WARN/IW AR___COMMON/SPIKES/IVSPKE___COMMON/TIMESA/IM___COMMON/ISXULT/IUSER,IS, IXXXS___COMMON/LOGIC/MASTER(1750),INSTNC(2000)___COMMON/VAL/MAPREK,INP REK,LNPR___COMMON/DISP/DISPFL(3750),ISEG(20),IRAY(4)___COMMON/OUTXXX/L PT0(20),DSKB(20),D340(20),LP1,DS1,D31___COMMON/EBAT/NIN,NOUT,KCLOCK___ COMMON/FORSIM/SIMIX,ISTIME,ISIM___COMMON/DEVICE/IDEV1,IDEV2,IDEV3___CO MMON/PRFARK/IPOS,IVALUE___COMMON/SIZE02/NT,NO___COMMON/TRPLST/ITRAP(32 )___DIMENSION IPUT(18)___INTEGER DISPFL,DSKB,D340,DS1,D31,SIMIX,TYPE__ _ITIME=0___IPOS=1__123_WRITE(5,1971)___READ(5,1972)IVALUE__1971_FORMAT (1X,'RETURN,CONTINUE,FULL,SUPRESS?'/)__1__X8?A'___CALL OFILE(21,IOP1)_ __CALL OFILE(22,IOP2)___CALL OFILE(23,IOP3)___CALL OFILE(24,IOP4)__C_D RAW CIRCUIT ON THE 340 DISPLAY.___KLS=11___PAGE=0__C_"PAGE"__70_WRITE( 5,7)__7_FORMAT(1X,'PAGE:'/)___IPL=PAGE___CALL SENDIN(IPL,2,.TRUE.)___I F(IPL.LT.1)GO TO 999___IF(IPL.GT.31)GO TO 70___IF(IPL.EQ.PAGE)GO TO 99 9___PAGE=IPL___ISIVAL=2___RETURN__888_WRITE(5,1971)__1971_FORMAT(1X,'S YSTEM READY.'/)__C_PREPARE LIGHT BUTTONS FOR LIGHT PEN INTERRUPT.___IO LD=7__C_WAIT FOR INTERRUPT.___CALL ATKILL___CALL ENABLE(2)__999_CALL C HINTS(ISEG(IOLD),0,7)__C_LIGHT PEN READY.___CALL ACTION(IRAY)__C_INTER RUPT READ.___IS=IRAY(2)___IUSER=DISPFL(IS)__C_ANAL___0=_SUBROUTINE ROC TD(I1,I2)___DIMENSION I3(6)___IF(I1.EQ.0)GO TO 2___READ(5,10)I1,I3___G O TO 3__2_READ(5,11)I3__10_FORMAT(A1,6A1)__11_FORMAT(6A1)__3_I2=0___DO 15 I=1,6___IF(I3(I).EQ.'0')GO TO 20___IF(I3(I).EQ.'1')GO TO 21___IF(I 3(I).EQ.'2')GO TO 22___IF(I3(I).EQ.'3')GO TO 23___IF(I3(I).EQ.'4')GO T O 24___IF(I3(I).EQ.'5')GO TO 25___IF(I3(I).EQ.'6')GO TO 26___IF(I3(I). EQ.'7')GO TO 27___GO TO 30__20_I2=I2*8___GO TO 15__21_I2=I2*8+1___GO T O 15__22_I2=I2*8+2___GO TO 15__23_I2=I2*8+3___GO TO 15__24_I2=I2*8+4__ _GO TO 15__25_I2=I2*8+5___GO TO 15__26_I2=I2*8+6___GO TO 15__27_I2=I2* 8+7__15_CONTINUE__30_RETURN___END____________________@__INX=0___WRITE( 24,2000)L1,NAME,IND___NAME=ISIM___IND=SIMIX__2000_FORMAT(1X,'TRACED UP TO',I3,'. INPUT OF ',A5,'(',I5,') BUT'/)___L1=0___KL=2___CALL BINS(KL ,INSTNC(IN),34,35)___RETURN__90_IF(L1.LE.(NIN+KCL))GO TO 9___I5=L1-NIN -KCL___I4=L___GO TO 30___END_______________6;C_COUNTER BLOCK.__5_INSTN C(I+5)=0___GO TO 3__C_MEMORY CONTROL ELEMENT.__6_CALL BINS(0,INSTNC(I+ 5),24,35)___GO TO 3__C_HIGH-WAY COMPONENT.__17_INSTNC(I+5)=0___GO TO 3 __100_RETURN__C_SEQUENTIAL BLOCK.__1_IS=1___IX=MASTER(I1+6)-(MASTER(I1 +6)/100)*100__40_CALL BINARY(IX,NOUT,IZ,0)___I1=I+5___INSTNC(I1)=IS___ DO 10 L=1,NOUT___I1L=I1+L___ID=NBOUT(25,11,INSTNC(I1L))___INSTNC(I1L)= 0___IF(IZ(L).EQ.0)KX=0___IF(IZ(L).EQ.1)KX="777777777777___INSTNC(I1L)= KX___CALL BINS(ID,INSTNC(I1L),0,10)__10_CONTINUE__500_I=I+NIN+NOUT+7__ _GO TO 50__C_COMBINATIONAL BLOCK.__2_IX=MASTER(I1+6)___IS=1___GO TO 40 ___END________________x8?__INTEGER DISPFL,BLKNO,BLPREK,CLCKTR,TYPE,TRN O___COMMON/TRPLST/ITRAP(32)___COMMON/POINTX/BLPONT(200,2),BLPINT___INT EGER BLPONT,BLPINT___COMMON/SAVXXX/ SAVN(2)___INTEGER SAVN___COMMON/IS XULT/IUSER,IS,IXXXS___IF(ISIVAL.EQ.1)GO TO 666___IF(ISIVAL.EQ.4)GO TO 888___IF(ISIVAL.EQ.6)GO TO 777___PAUSE 'ILLEGAL CALL IN SIMSIM'__666_D O 333 I=1,2___IOP1(I)=0___IOP2(I)=0___IOP3(I)=0___IOP4(I)=0__333_CONTI NUE__C_SET UP THE DISPLAY & LIGHT BUTTONS..___CALL SENTER___CALL DEFPI C(DISPFL,3750)___IPREP=0___IXXXS=-1___ITIMEX=0__C_READ DATA STRUCTURE. ___CALL DATINP__1_FORMAT(6O12)___IOP1(1)='DE21A'___IOP2(1)='DE22A'___I OP3(1)='DE23A'___IOP4(1)='DE24___92__CALL ENDSUB(IY(L))___L=L+1___CALL DEFSUB(IY(L))___CALL HOLSTR('TYPE')___CALL ENDSUB(IY(L))___L=L+1___CA LL DEFSUB(IY(L))___CALL HOLSTR('DUMP')___CALL ENDSUB(IY(L))___L=L+1___ CALL DEFSUB(IY(L))___CALL HOLSTR('DROP')___CALL ENDSUB(IY(L))___L=L+1_ __CALL DEFSUB(IY(L))___CALL HOLSTR('TRAP')___CALL ENDSUB(IY(L))___IXX= 900___IYY=900___DO 2 I=1,K___ISEG(I)=NEWSEG(I)___CALL MOVETO(IXX,IYY,. FALSE.,0,7)___CALL CALSUB(IY(I))___CALL MSSLP(ISEG(I))__2_IYY=IYY-75__ _I=K+1___ISEG(I)=NEWSEG(I)___RETURN___END______________________@?.I1)G O TO 90__8_CONTINUE___RETURN__9_IN=IND+5+NOUT+L1___CALL OPEN(IN,I1,I2, I3,I4,I5)___IX=INSTNC(I4)___NAME=MASTER(IX)___LASTID=IND___LASTTR=L1__ _LASTOT=NOUT___IF(I3.EQ.0)GO TO 100___IF(I2.EQ.0)GO TO 100___IF(I1.EQ. 0)GO TO 30___IF((LASTID.EQ.I4).AND.(LASTTR.EQ.I5))GO TO 100__C_SEARCH CONTINUES FOR OUTPUT TERMINAL...___L1=I5___NOUT=MASTER(IX+3)___IND=I4_ __LSB=LSB+1___IF(LSB.LE.25)GO TO 9___GO TO 100__C_FOUND.__30_K=1___L1= I5___INX=I5___IND=I4___RETURN__C_FREE INPUT TERMINAL ENCOUNTERED...__1 00_IN=LASTID+5+LASTOT+LASTTR___KL=NBOUT(0,2,INSTNC(IN))___IF(KL.LT.2)G O TO 102___IND=LASTID___INX=LASTTR___L1=KL-2___K=2___RETURN__102_K=0__ ___6?_SUBROUTINE RESET___COMMON/LOGIC/MASTER(1750),INSTNC(2000)___COMM ON/VAL/MAPREK,INPREK,LNPR___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/FORSI M/SIMIX,ITIMEX,ISIM___COMMON/PRFARK/IPOS,IVALUE___INTEGER IZ(5),SIMIX_ __ITIMEX=0___IPOS=1___I=1__50_IF(I.GE.INPREK)RETURN___I1=INSTNC(I)___N IN=MASTER(I1+2)___NOUT=MASTER(I1+3)___IYPE=MASTER(I1+1)___GO TO (1,2,3 ,4,3,3,3,5,6,17,3,3,500,3,3),IYPE__C_SYS01 BLOCK.__C_ZERO ALL OUTPUTS. __3_I1=I+5___DO 15 L=1,NOUT___I1L=I1+L___ID=NBOUT(25,11,INSTNC(I1L))__ _INSTNC(I1L)=0___CALL BINS(ID,INSTNC(I1L),0,10)__15_CONTINUE___GO TO 5 00__C__C_REGISTER BLOCK.__C_ZERO ALL OUTPUTS__C_GO TO SYS01 SECTION__4 _GO TO 3_____W0N+3___IF(LNPR.GT.K)GO TO 8001___WRITE(5,8005)NAME__8005 _FORMAT(1X,I6,3X,'LINE NOT FOUND......'/)___GO TO IGOX__7000_IF(NBOUT( 5,1,MATLIN(K+2)).EQ.1)GO TO 1000___MATLIN(K)=0___CALL DELETE(ISEG(NAME ))___GO TO IGOX__5001_IF(ND.EQ.JIN)GO TO IGOX___NAME=ND___JIN=NAME___G O TO 8000__C_DATA TO BE CONNECTED TO TERMINAL.__50000_IND2=1___ISA=0__ _M6=I2___IST2=0___L2=1___IF(IT1.EQ.0)GO TO 50001__C_STARTS ON LINE.___ GO TO 21__C_STARTS ON BLOCK.__50001_IF(L1.EQ.0)GO TO 13___GO TO 1000__ _END___________________8?_SUBROUTINE SIMSIM___COMMON/SIMVAL/ISIVAL,IPR EP___COMMON/PENBUT/IY(11)___COMMON/RENDAT/I,KLS,NAM1,NAM2,I1,I2___COMM ON/SAYFA/PAGE,PAGCOR(300)___COMMON/FILNAM/V,V20(2),V21(2),V22(2),V23(2 ),V24(2),V25(2),V26(2)___INTEGER V,V20,V21,V22,V23,V24,V25,V26___COMMO N/IOPXXX/ IOP1(2),IOP2(2),IOP3(2),IOP4(2)___INTEGER PAGE,PAGCOR___COMM ON/FORSIM/SIMIX,ITIMEX,ISIM___INTEGER SIMIX___INTEGER IY___COMMON/LOGI C/MASTER(1750),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/C IZGI/MATLIN(2300)___COMMON/DISP/DISPFL(3750),ISEG(20),IRAY(4)___COMMON /BLOCK/BLKNO(200,2),BLPREK,CLCKTR,INTERM,IOUTTR___1,IHTRL,IHTRR,ICLTR_ __COMMON/EBAT/NIN,NOUT,KCLOCK___ 9?_SUBROUTINE SIMSUB___COMMON/RENDAT/ I,KLS,NAM1,NAM2,I1,I2___COMMON/PENBUT/IY(11)___INTEGER DISPFL___COMMON /DISP/DISPFL(3750),ISEG(20),IRAY(4)___K=11___L=1___CALL DEFSUB(IY(L))_ __CALL HOLSTR('STOP ')___CALL ENDSUB(IY(L))___L=L+1___CALL DEFSUB(IY(L ))___CALL HOLSTR('RESET')___CALL ENDSUB(IY(L))___L=L+1___CALL DEFSUB(I Y(L))___CALL HOLSTR('VALUE')___CALL ENDSUB(IY(L))___L=L+1___CALL DEFSU B(IY(L))___CALL HOLSTR('LIST ')___CALL ENDSUB(IY(L))___L=L+1___CALL DE FSUB(IY(L))___CALL HOLSTR('CLOSE')___CALL ENDSUB(IY(L))___L=L+1___CALL DEFSUB(IY(L))___CALL HOLSTR('BEGIN')___CALL ENDSUB(IY(L))___L=L+1___C ALL DEFSUB(IY(L))___CALL HOLSTR('PAGE')____:__SUBROUTINE BGDEC(NIN,I1, I2)___DIMENSION I1(5),I3(5)___L=2___I3(1)=I1(1)__30_IF(L.GT.NIN)GO TO 50___L1=L-1___IF(I1(L).EQ.0)GO TO 10___IF(I3(L1).EQ.1)I3(L)=0___IF(I3( L1).EQ.0)I3(L)=1___GO TO 20__10_I3(L)=I3(L1)__20_L=L+1___GO TO 30__50_ CALL BINARY(I2,NIN,I3,1)__99_RETURN___END_____________________8W?O IGO 1___GO TO 11021__C_LINE FREE.__31021_ASSIGN 500 TO IGO2___GO TO 33321_ _C_OUTPUT LINE TO INPUT TERMINAL.__2021_ASSIGN 500 TO IGO1___IIT=0___M 2=M3-1___GO TO 11021__C_INPUT LINE TO OUTPUT TERMINAL.__3021_ASSIGN 50 0 TO IGO2___IIT=0___M5=M6-1___IF(IF1.EQ.0)GO TO 33321___GO TO 1000__C_ BLOCK TO LINE.__C_INTERCHANGE VARIABLES AND GO TO -LINE TO BLOCK- SECT ION.__31_IX=IND1___IND1=IND2___IND2=IX___IX=M2___M2=M5___M5=IX___IX=M3 ___M3=M6___M6=IX___NAM1=NAM2___GO TO 21__C_ILLEGAL CONNECTION.__1000_N AM1=0___RETURN__500_NAM1=-1___RETURN____5000_CONTINUE__8000_K=1__8001_ IF(MATLIN(K).EQ.NAME)GO TO 7000___ICN=NBOUT(11,5,MATLIN(K+2))___K=K+IC __(@?NOUT=MASTER(IX+3)___IF(INSTNC(L+1).EQ.0)GO TO 3___IZ=L+5+NOUT___D O 1 L1=1,LIM___IN=IZ+L1___CALL OPEN(IN,I1,I2,I3,I4,I5)___IF(I3.EQ.IUSE R)GO TO 2___IF(I2.EQ.IUSER)GO TO 2__1_CONTINUE__3_L=L+7+NIN+NOUT___GO TO 4__C_MAIN LINE . &/+ SECOND LINE...!__2_IND=L___NAME=MASTER(IX)___G O TO 9__C_TERMINAL.__20_N=NOSH(I1)___L=1__6_IF(L.GE.INPREK)RETURN___IX =INSTNC(L)___NAME=MASTER(IX)___NIN=MASTER(IX+2)___KCL=NBOUT(0,2,INSTNC (L+2))___IF(KCL.NE.0)KCL=1___NOUT=MASTER(IX+3)___LIM=NIN+KCL+NOUT___IN D=L___IF(INSTNC(L+1).EQ.0)GO TO 5___IF(INSTNC(L+1).EQ.IUSER)GO TO 7__5 _L=L+7+NIN+NOUT___GO TO 6__C_BLOCK FOUND.__7_DO 8 L1=1,LIM___I=INSC(I) ___IF(I.EQ__(=?C THIS IS THE BINARY SUBROUTINE.__C IT PERFORMS CONVERSION FROM DECIMAL INTO BINARY__C AND VICE VERCA.__C IF "J" IS NOT EQUAL TO ZERO THE "I2" BIT BINARY__C NUMBER IN THE TOP "I2" WORDS OF "IX" IS__C CONVERTED TO DECIMAL IN "I1".__C OTHE RWISE ,THE CONVERSION IS DONE IN THE OTHER __C DIRECTION INTO THE TOP WORDS OF "IX" FROM "I1".__C__ SUBROUTINE BINARY(I1,I2,IX,J)__ DIMENSION IX(1)__ IF(J)1,2,1__ 1 I1=0__ DO 3 L=1,I2 __ 3 I1=I1+(2**(I2-L))*IX(L)__ RETURN__ 2 DO 4 L=1,I2__ 4 IX(L)=0__ L=I2__ I5=I1__ I3=I5__ 6 IF(I3.LE.1)GO T O 5__ I3=I3/2_____b<21 TO IGO1___I3=I2___GO TO 13107__3121_I3=I31 ___I2=MATLIN(L+1)__3199_CALL PLPONT(IK,J,I1,I2,I3,I4,I5)___ASSIGN 3120 TO IGO1__3200_CONTINUE__3201_IK=IK+7+NOUT+NIN___IF(IK.GE.INPREK)GO TO 3300___GO TO 13101__3300_L=1__3301_IC=NBOUT(11,5,MATLIN(L+2))___MATLI N(L)=MATLIN(L+1)___MATLIN(L+1)=0___L=L+3+IC___IF(L.GE.LNPR)GO TO 3302_ __GO TO 3301__3302_CALL DEPICT(DISPFL,1)___DO 5000 K=1,IBLPT__5000_BLP ONT(K,1)=BLPONT(K,2)___BLPINT=IBLPT___DO 6000 K=MAPREK,1000___MASTER(K )=0__6000_CONTINUE___DO 6001 K=INPREK,2000___INSTNC(K)=0__6001_CONTINU E___DO 6002 K=LNPR,2300___MATLIN(K)=0__6002_CONTINUE___RETURN___END___ ____________XW?TO(1021,2021,3021,1000),IL__C_INPUT LINE TO INPUT TERMI NAL.__1021_IF=IF1+3*IF2+1___ASSIGN 33321 TO IGO1___ASSIGN 500 TO IGO2_ __GO TO(9500,21021,21021,31021,1000,31021,___131021,21021,1000),IF__95 00_DO 9103 K1=1,N1___DO 9103 K2=1,N2___IF(IPUSH1(K1,1).NE.IPUSH2(K2,1) )GO TO 9103___IF(IPUSH1(K1,2).EQ.IPUSH2(K2,2))GO TO 1000__9103_CONTINU E__C_BOTH ARE FREE.__11021_IF(N2.EQ.1)GO TO 11121___CALL POINT(IM,IPUS H2,N2)__11121_CALL PLPONT(IND2,M5+1,IIT,NAM1,ISA,IND1,M2+1)___GO TO IG O1__33321_IF(N1.EQ.1)GO TO 11221___CALL POINT(IN,IPUSH1,N1)__11221_CAL L PLPONT(IND1,M2+1,IIT,ISA,NAM1,IND2,M5+1)___GO TO IGO2__C_BLOCK FREE. __21021_ASSIGN 500 T__`@?_SUBROUTINE GETTER(K,NAME,IND,L1,INX)___COMMO N/FORSIM/SIMIX,ITIMEX,ISIM___INTEGER SIMIX___COMMON/LOGIC/MASTER(1750) ,INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/EBAT/NIN,NOUT,K CLOCK___COMMON/DISP/DISPFL(3750),ISEG(20),IRAY(4)___INTEGER DISPFL___L SB=1___K=-1___L1=INX___LASTID=IND___LASTTR=INX___LASTOT=NOUT___IF(INX. GT.0)GO TO 9__C_READ INTERRUPT...___CALL ACTION(IRAY)___IS=IRAY(2)___I USER=DISPFL(IS)___IND=IS___NAME=IUSER__C_CHECK IT.___KT=IABS(INX)___IF (IUSER.LT.KT)RETURN___K=0__C_FIND TERMINAL.___I=INSC(IS)___IF(I.GT.0)G O TO 20__C_LINE HIT.___L=1__4_IF(L.GE.INPREK)RETURN___IX=INSTNC(L)___N IN=MASTER(IX+2)___LIM=NIN+1______A6_SUBROUTINE SIRESU___EXTERNAL DEFPI C,MARSEG,NEWSEG,DEPICT,SAVPIC,DTDUMP,DTOPEN___1,DMPADD,DEFILE,DTROPN,D TCLOS,RUFFLE,IDTOCT,MSSLP,MSSILP___2,CHINTS,REMOVE,STRIP,SHRINK,ISFIND ,NOSH,INSC,HOLSTR,STRING___3,CHARAD,SUBTEN,MOVETO,VLINE,ILINE,LINE,MAR COM,DEFSUB,ENDSUB___4,CALSUB,PENON,PENOFF,COMPAC,ATTONE,ACTION,ENABLE, DISABL___5,SLOTTO,GROTTO,DSTART,DISTOP,DSHRNK,TRKILL,RBKILL,BLSEND___6 ,BLREAD,ATTEST,ATREAD,CSHIFT,ATTPOP,ATKILL,SESAME,SENDIN___7,ALTROT,SE NDHS,SENDCS,LNGTHS,XCHARS,LEXIST,PDP7IN___8,IBREAD,IBSEND,SENTER,BINS, NBOUT___END_____________________pb?__IF(MULTI.EQ.1)CALL DOTLIN(IX1(M), IY1(M),IX1(M+1),IY1(M+1))__3106_CONTINUE___IF(IST2.EQ.0)GO TO 3109___C ALL MOVETO(-1,-1,.TRUE.,0,7)___CALL LINE(-1,-1,.TRUE.)___CALL LINE(1,- 1,.TRUE.)___CALL LINE(1,1,.TRUE.)___CALL LINE(-1,1,.TRUE.)___CALL MOVE TO(-1,-1,.TRUE.,0,4)___GO TO 13109__3109_IF(MULTI.EQ.1)CALL GATHER(INO UT2,MULSIZ,IROT2___1,IX1(ICOUNT+1),IY1(ICOUNT+1),4,1,ID1,ID2)__13109_I F(MATLIN(L).EQ.1023)GO TO IGO1___I=I+1___IS=NEWSEG(I)___CALL MSSLP(ISE G(I-1))___IF(ILNPGE.NE.PAGE)CALL REMOVE(ISFIND(I-1))___GO TO IGO1__312 0_I31=MATLIN(L+1)___IF(I3.EQ.1023)I31=I3___IF(I2.EQ.I3)GO TO 3121___I3 =I31___IF(I2.EQ.0)GO TO 3199___ASSIGN 31__xW?)___IN=IND1+6+NOUT+M2___C ALL OPEN(IN,P11,P12,P13,P14,P15)___N1=1___IPUSH1(1,1)=IND1___IPUSH1(1, 2)=M2+1___IF1=1___ASSIGN 221 TO IGOX___ND=NAM1___CALL CHECK(IND1,M2+1, IPUSH1,N1,IF1,ND)___IF(ND.NE.0)GO TO 5001___GO TO 221__C_OUTPUT LINE._ _121_IF1=1___L1=1__C_CHECK BLOCK.__221_L2=1___IF(M6.NE.0)GO TO 321__C_ INPUT TERMINAL.___L2=0___N2=1___IPUSH2(1,1)=IND2___IPUSH2(1,2)=M5+1___ IX=INSTNC(IND2)___NOUT=MASTER(IX+3)___IM=IND2+6+NOUT+M5___IF2=0___ASSI GN 421 TO IGOX___ND=0___CALL CHECK(IND2,M5+1,IPUSH2,N2,IF2,ND)___IF(ND .NE.0)GO TO 5001___GO TO 421__C_OUTPUT TERMINAL.__321_L2=1___IF2=1__C_ CHECK AND CONNECT.__421_IL=L1+2*L2+1___IIT=1___GO ___P1 CONNEC___IF(NA M1.NE.-1)GO TO 1010___NAM1=NAM___IF(I1.NE.-1)I1=I1+IAD1X___IF(I2.NE.-1 )I2=I2+IAD2X__100_CONTINUE__C_ALL DONE.___NAM1=-1__1000_LIN=0___RETURN __1020_WRITE(5,1021)__1021_FORMAT(/1X,'MULTI LINE NOT FOUND??'/)___GO TO 1000__C_ILLEGAL CONNECTION ATTEMPTED.__1010_WRITE(5,1011)__1011_FOR MAT(/1X,'SINGLE-TO-MULTI NOT ALLOWED FOR TWO INPUTS!!!'/)___GO TO 1000 __C_SIZES ARE UNEQUAL.__500_WRITE(5,501)__501_FORMAT(/1X'UNEQUAL SIZES ON TWO ENDS OF THE MULTI LINE.!!!'/)___GO TO 1000___END______________ ___I/K,CLCKTR___COMMON/TRPLST/ITRAP(32)___COMMON/POINTX/BLPONT(200,2), BLPINT___INTEGER BLPONT,BLPINT___COMMON/SAVXXX/SAVN(2)___INTEGER SAVN_ __COMMON/ISXULT/IUSER,IS,IXXXS___COMMON/SIMVAL/ISIVAL,IPREP___COMMON/O UTXXX/LPT0(20),DSKB(20),D340(20),LP1,DS1,D31___INTEGER DSKB,D340,DS1,D 31___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/SIZE02/NT,NO___COMMON/DEVICE /IDEV1,IDEV2,IDEV3___COMMON/PRFARK/IPOS,IVALUE___COMMON/MACSAV/ISP,ITP ,NAP,N1,N2,N3___COMMON/IRECUR/IRETAD,ICALAD___END_____________________ ___b?K))___IROT2=NBOUT(10,2,MATLIN(KK))___MULSIZ=NBOUT(5,5,MATLIN(KK)) ___IF(IST1.EQ.1)GO TO 30105___CALL GATHER(INOUT1,MULSIZ,IROT1,IX,IY,3, 1___1,ID1,ID2)___N=N-1___GO TO 3108__30105_N=N-1___CALL MOVETO(IX,IY,. FALSE.,0,4)___IF(IST1.EQ.0)GO TO 3108___CALL MOVETO(-1,-1,.TRUE.,0,7)_ __CALL LINE(-1,-1,.TRUE.)___CALL LINE(1,-1,.TRUE.)___CALL LINE(1,1,.TR UE.)___CALL LINE(-1,1,.TRUE.)___CALL MOVETO(-1,-1,.TRUE.,0,4)__3108_IX 1(1)=IX___IY1(1)=IY___ICOUNT=ICOUNT+1___DO 3106 M=1,ICOUNT___NX=N+M___ IX1(M+1)=NBOUT(26,20,MATLIN(NX))___IY1(M+1)=NBOUT(16,10,MATLIN(NX))___ IX=IX1(M+1)-IX1(M)___IY=IY1(M+1)-IY1(M)___IF(MULTI.NE.1)CALL LINE(IX,I Y,.TRUE.)____W?SH2,N2,IF2,ND)___IF(ND.NE.0)GO TO 5001___IF(IF2.EQ.1)GO TO 1000__9001_IF(N2.EQ.1)GO TO 112___CALL POINT(IM,IPUSH2,N2)__112_CA LL PLPONT(IND2,M5+1,0,ISA,ISA,IND1,M3)___GO TO 500__C_INPUT TERMINAL T O OUTPUT TERMINAL.__13_IF(P13.EQ.0)GO TO 113__C_CHECK.___N1=1___IPUSH1 (1,1)=IND1___IPUSH1(1,2)=M2+1___IF1=0___ASSIGN 9002 TO IGOX___ND=0___C ALL CHECK(IND1,M2+1,IPUSH1,N1,IF1,ND)___IF(ND.NE.0)GO TO 5001___IF(IF1 .EQ.1)GO TO 1000__9002_IF(N1.EQ.1)GO TO 113___CALL POINT(IN,IPUSH1,N1) __113_CALL PLPONT(IND1,M2+1,0,ISA,ISA,IND2,M6)___GO TO 500__C_LINE TO BLOCK.__21_IF(M3.NE.0)GO TO 121__C_INPUT LINE.___L1=0___IX=INSTNC(IND1 )___NOUT=MASTER(IX+3__ P?O TO 440__C_GO FURTHER.__460_IPUSH(1,1)=IND__ _IPUSH(1,2)=M2___CALL CHECK(IND,M2,IPUSH,N,IF,NI)___INOUT2=0___IF(IF.E Q.1)GO TO 461___INOUT2=0___IS=INSTNC(IND)___TYPE2=MASTER(IS+1)___GO TO 440__440_DOLIM=MULSIZ___IAD1X=1___IAD2X=1___IF(TYPE1.EQ.10)GO TO 50__ _IF(TYPE1.EQ.15)GO TO 50___GO TO 51__50_IF(INOUT1.EQ.0)IAD1X=0__51_IF( TYPE2.EQ.10)GO TO 52___IF(TYPE2.EQ.15)GO TO 52___GO TO 53__52_IF(INOUT 2.EQ.0)IAD2X=0__53_IF((IAD1X.EQ.0).AND.(INOUT2.EQ.0))GO TO 1010___IF(( IAD2X.EQ.0).AND.(INOUT1.EQ.0))GO TO 1010___IF((IAD1X.EQ.0).AND.(INOUT2 .EQ.1))DOLIM=1___IF((IAD2X.EQ.0).AND.(INOUT1.EQ.1))DOLIM=1__200_NAM=NA M1___DO 100 LIN=1,DOLIM___CALL__(I?_BLOCK DATA___COMMON/SPIKES/IVSPKE_ __COMMON/PENBUT/IY(11)___COMMON/RENDAT/I,KLS,NAM1,NAM2,I1,I2___COMMON/ SAYFA/PAGE,PAGCOR(300)___COMMON/TIMESA/IM___INTEGER PAGE,PAGCOR___COMM ON/FILNAM/V,V20(2),V21(2),V22(2),V23(2),V24(2),V25(2),V26(2)___INTEGER V,V20,V21,V22,V23,V24,V25,V26___COMMON/IOPXXX/IOP1(2),IOP2(2),IOP3(2) ,IOP4(2)___COMMON/FORSIM/SIMIX,ITIMEX,ISIM___INTEGER SIMIX___COMMON/LO GIC/MASTER(1750),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON /CIZGI/MATLIN(2300)___COMMON/DISP/DISPFL(3750),ISEG(20),IRAY(4)___INTE GER DISPFL___COMMON/BLOCK/BLKNO(200,2),BLPREK,CLCKTR,INTERM,IOUTTR___1 ,IHTRL,IHTRR,ICLTR___INTEGER BLKNO,BLPRE__0b?LKNO(L,2)__33200_CONTINUE __13107_L=1__3107_INC=NBOUT(11,5,MATLIN(L+2))+3___IF(MATLIN(L).EQ.I3)G O TO 3105__31071_L=L+INC___IF(L.LT.LNPR)GO TO 3107__3105_IF(MATLIN(L+1 ).NE.0)GO TO IGO1__C_GENERATE LINE.___MATLIN(L+1)=I___IF(MATLIN(L).EQ. 1023)GO TO IGO1___N=L+2___IST1=NBOUT(1,1,MATLIN(N))___IST2=NBOUT(0,1,M ATLIN(N))___IX=NBOUT(26,10,MATLIN(N))___IY=NBOUT(16,10,MATLIN(N))___IC OUNT=NBOUT(11,5,MATLIN(N))___ILNPGE=NBOUT(6,5,MATLIN(N))__C_IS IT A MU LTI LINE.___MULTI=NBOUT(5,1,MATLIN(N))___IF(MULTI.EQ.0)GO TO 30105__C_ IT IS A MULTI LINE.___KK=N+1___INOUT1=NBOUT(15,1,MATLIN(KK))___IROT1=N BOUT(13,2,MATLIN(KK))___INOUT2=NBOUT(12,1,MATLIN(K__8W?1000__9101_CONT INUE__12311_IF(N1.EQ.1)GO TO 32111___CALL POINT(IN,IPUSH1,N1)__32111_C ALL PLPONT(IND1,M2+1,1,ISA,ISA,IND2,M5+1)___GO TO IGO1__12111_IF(N2.EQ .1)GO TO 42111___CALL POINT(IM,IPUSH2,N2)__42111_CALL PLPONT(IND2,M5+1 ,1,ISA,ISA,IND1,M2+1)___GO TO IGO2__22111_GO TO 500__C_START POINT IS CONNECTED,END POINT IS FREE.__2211_ASSIGN 22111 TO IGO2___GO TO 12111_ _C_START POINT IS FREE,END POINT IS CONNECTED.__2311_ASSIGN 22111 TO I GO1___GO TO 12311__C_OUTPUT TERMINAL TO INPUT TERMINAL.__12_IF(P23.EQ. 0)GO TO 112__C_CHECK.___N2=1___IPUSH2(1,1)=IND2___IPUSH2(1,2)=M5+1___I F2=0___ASSIGN 9001 TO IGOX___ND=0___CALL CHECK(IND2,M5+1,IPU__@P? THE END POINTS OF THE MULTI-LINE.___IF(I1.NE.-1)GO TO 400__C_STARTS ON A L INE.___LIN=0___CALL EXTRLN(NAM1,M1,M2,M3,IND,IS)___IF(IS.EQ.1)GO TO 10 20___IF(M2.NE.0)GO TO 450__451_INOUT1=1___IS=INSTNC(IND)___TYPE1=MASTE R(IS+1)___GO TO 400__C_GO FURTHER.__450_IPUSH(1,1)=IND___IPUSH(1,2)=M2 ___CALL CHECK(IND,M2,IPUSH,N,IF,NI)___INOUT1=0___IF(IF.EQ.1)GO TO 451_ __INOUT2=0___IS=INSTNC(IND)___TYPE1=MASTER(IS+1)___GO TO 400__C_STARTS ON A BLOCK.__400_IF(I2.NE.-1)GO TO 440__C_END POINT ON A LINE.___LIN= 0___CALL EXTRLN(NAM2,M1,M2,M3,IND,IS)___IF(IS.EQ.1)GO TO 1020___IF(M2. NE.0)GO TO 460__461_INOUT2=1___IS=INSTNC(IND)___TYPE2=MASTER(IS+1)___G __@M?_SUBROUTINE DATINP___COMMON/FILNAM/V,V20(2),V21(2),V22(2),V23(2), V24(2),V25(2),V26(2)___INTEGER V,V20,V21,V22,V23,V24,V25,V26___COMMON/ TRPLST/ITRAP(32)___COMMON/SAYFA/PAGE,PAGCOR(300)___INTEGER PAGE,PAGCOR ___COMMON/CIZGI/MATLIN(2300)___COMMON/LOGIC/MASTER(1750),INSTNC(2000)_ __COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/POINTX/BLPONT(200,2),BLPINT__ _INTEGER BLPONT,BLPINT___DO 10 I=1,2___V20(I)=0___V21(I)=0___V22(I)=0_ __V23(I)=0___V24(I)=0___V25(I)=0___V26(I)=0__10_CONTINUE___WRITE(5,500 )__500_FORMAT(1X,'INPUT FILE:'/)___READ(5,501)V__501_FORMAT(A5)___V20( 1)=V___V21(1)=V20(1)___CALL RUFFLE(V21)___V22(1)=V21(1)___CALL RUFFLE( V22)___V23__Pb?IM=NIN+1___K=IK+5+NOUT___DO 3200 J=1,LIM___NLIN=K+J___C ALL OPEN(NLIN,I1,I2,I3,I4,I5)___IF(I3.EQ.0)GO TO 3200___IF(I4.EQ.0)GO TO 33200___DO 3102_L=1,BLPREK___IF(BLKNO(L,1).EQ.I4)GO TO 3103__3102_C ONTINUE___PAUSE 'ERROR 10'___WRITE(5,33333)(KKK,(BLKNO(KKK,KKJ),KKJ=1, 2),KKK=1,L)__33333_FORMAT(1X,'L=',I3,3X,'BLKNO(L,1)=',I5,3X,'BLKNO(L,2 )=',I5/)___WRITE(5,55555)L,I4__55555_FORMAT(1X,'L=',I5,5X,'I4=',I5/)__ _WRITE(5,55554)__55554_FORMAT(1X,'GIVE CORRECT VALUES IN 2I5 FORMAT'/) ___READ(5,55556)L,I4__55556_FORMAT(2I5)___BLKNO(L,1)=I4___BLKNO(L,2)=I 4___BLPREK=BLPREK+1___BLPINT=BLPINT+1___BLPONT(BLPINT,2)=I4___GO TO 33 200___L=1__3103_I4=B__XW?CK THEM.__11_IF1=0___N1=1___IPUSH1(1,1)=IND1_ __IPUSH1(1,2)=M2+1___IF(P13.EQ.0)GO TO 1011___ASSIGN 1011 TO IGOX___ND =0___CALL CHECK(IND1,M2+1,IPUSH1,N1,IF1,ND)___IF(ND.NE.0)GO TO 5001__1 011_IF2=0___N2=1___IPUSH2(1,1)=IND2___IPUSH2(1,2)=M5+1___IF(P23.EQ.0)G O TO 2011___ASSIGN 2011 TO IGOX___ND=0___CALL CHECK(IND2,M5+1,IPUSH2,N 2,IF2,ND)___IF(ND.NE.0)GO TO 5001__2011_IF=IF1+3*IF2+1___GO TO(2111,22 11,2211,2311,1000,2311,___12311,2211,1000),IF__C_BOTH ENDS ARE FREE.__ 2111_ASSIGN 12111 TO IGO1___ASSIGN 22111 TO IGO2___DO 9101 K1=1,N1___D O 9101 K2=1,N2___IF(IPUSH1(K1,1).NE.IPUSH2(K2,1))GO TO 9101___IF(IPUSH 1(K1,2).EQ.IPUSH2(K2,2))GO TO __`P?_SUBROUTINE MULCON___COMMON/XBLO/KB LO1,KBLO2,KBLO___COMMON/CISADA/INOUT1,NUM1,IROT1,LL1,LL2,MULBEG,TYPE1, ___1INOUT2,NUM2,IROT2,LJ1,LJ2,MOKBEG,TYPE2,___2IZ,IW,MULTI,IOLD___COMM ON/RENDAT/I,KLS,NAM1,NAM2,I1,I2___COMMON/VAL/MAPREK,INPREK,LNPR___COMM ON/LOGIC/MASTER(1750),INSTNC(2000)___COMMON/CIZGI/MATLIN(2300)___COMMO N/COKCIZ/MULSIZ,MOKSIZ___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/EXLNCT/L IN___INTEGER TYPE1,TYPE2,DOLIM___DIMENSION IPUSH(25,2)__C_CHECK IF SIZ ES FIT EACH OTHER.___IF(MULSIZ.NE.MOKSIZ)GO TO 500__C_YES. EQUAL SIZES .__C_CHECK VALUES.___IF((KBLO1.EQ.KBLO2).AND.(INOUT1.EQ.INOUT2))GO TO 1010__C_CONNEC LINES ONE BY ONE.__C_CHEC___]_.TRUE.)___CALL MOVETO(-1, -1,.TRUE.,0,4)___CALL PENOFF___CALL LINE(-10,20,.TRUE.)___CALL MOVETO( -1,-1,.FALSE.,0,7)___CALL PENON___CALL ENDSUB(ICLTR)___RETURN___END___ ____________pb?7000__7001_CONTINUE___PAUSE 'ERROR 25'___GO TO 7003__70 00_CONTINUE__7003_DO 4000 LP=1,BLPREK___IK=BLKNO(LP,1)___K=BLKNO(LP,2) ___IF(IK.NE.K)CALL BLINDX(IK,K)__4000_CONTINUE___ASSIGN 3101 TO IGO1__ _IK=1___L1=1___L2=1__3503_IF(L1.GE.LNPR)GO TO 3500___LIM=NBOUT(11,5,MA TLIN(L1+2))+3___IF(MATLIN(L1).EQ.0)GO TO 3501___MATLIN(L1+1)=0___IF(MA TLIN(L1).EQ.1023)MATLIN(L1+1)=1023___LX=L1-1___LY=L2-1___DO 3502 L=1,L IM__3502_MATLIN(LY+L)=MATLIN(LX+L)___L2=L2+LIM__3501_L1=L1+LIM___GO TO 3503__3500_LNPR=L2___MATLIN(L2)=0__3101_IK=1___IF(IK.GE.INPREK)GO TO 3302___ASSIGN 3120 TO IGO1__13101_NX=INSTNC(IK)___NIN=MASTER(NX+2)___N OUT=MASTER(NX+3)___L__xW?1,IS1)___NAME=NAM1___ASSIGN 1000 TO IGOX___IF (IS1.EQ.1)GO TO 5000___IT1=1__C_CHECK END POINT OF LINE.__20_IF(NAM2.E Q.-999)GO TO 50000___IF(I2.LT.1)GO TO 30__C_ENDS ON BLOCK.___CALL CONS UB(NAM2,I2,M4,M5,M6,IND2)___IT2=0___L2=1___IF(M6.NE.0)GO TO 40___IM=IN D2+6+NOUT+M5___CALL OPEN(IM,P21,P22,P23,P24,P25)___L2=0___GO TO 40__C_ ENDS ON LINE.__30_CALL EXTRLN(NAM2,M4,M5,M6,IND2,IS2)___NAME=NAM2___AS SIGN 1000 TO IGOX___IF(IS2.EQ.1)GO TO 5000___IT2=1__C_START CHECKING A ND CONNECTING.__40_IT=IT1+2*IT2+1___GO TO (1,21,31,1000),IT__C_FROM BL OCK TO BLOCK.__1_IL=L1+2*L2+1___GO TO (11,12,13,1000),IL__C_INPUT TERM INAL TO INPUT TERMINAL.__C_CHE___T5_SUBROUTINE CONSUB(NAME,ISX,I1,I2,I 3,IND)___COMMON/LOGIC/MASTER(1750),INSTNC(2000)___COMMON/VAL/MAPREK,IN PREK,LNPR___COMMON/EBAT/NIN,NOUT,KCL___I=1__1_IF(I.GE.INPREK)GO TO 100 ___K=INSTNC(I)___NIN=MASTER(K+2)___NOUT=MASTER(K+3)___IF(INSTNC(I+1).E Q.NAME)GO TO 2___I=I+7+NOUT+NIN___GO TO 1__C_BLOCK FOUND.__2_KCL=NBOUT (0,2,INSTNC(I+2))___IF(KCL.NE.0)KCL=1___IND=I___I1=1___I2=0___I3=0___I F(ISX.EQ.KCL)RETURN___I1=0___I=NIN+KCL___IF(ISX.LE.I)GO TO 3___I3=ISX- I___RETURN__3_I2=ISX-KCL___RETURN__100_PAUSE 'ERROR 4'___RETURN___END_ _______________________]? LINE(-1,-1,.TRUE.)___CALL LINE(1,-1,.TRUE.)_ __CALL LINE(1,1,.TRUE.)___CALL LINE(-1,1,.TRUE.)___CALL LINE(20,20,.FA LSE.)___CALL ENDSUB(IHTRL)___CALL DEFSUB(IHTRR)___CALL PENOFF___CALL M OVETO(-1,-1,.FALSE.,0,4)___CALL LINE(20,0,.TRUE.)___CALL PENON___CALL MOVETO(-1,-1,.FALSE.,0,7)___CALL MOVETO(-1,-1,.TRUE.,0,7)___CALL LINE( -1,-1,.TRUE.)___CALL LINE(1,-1,.TRUE.)___CALL LINE(1,1,.TRUE.)___CALL LINE(-1,1,.TRUE.)___CALL LINE(-20,20,.FALSE.)___CALL ENDSUB(IHTRR)___C ALL DEFSUB(ICLTR)___CALL LINE(10,-20,.FALSE.)___CALL MOVETO(-1,-1,.TRU E.,0,7)___CALL LINE(-1,-1,.TRUE.)___CALL LINE(1,-1,.TRUE.)___CALL LINE (1,1,.TRUE.)___CALL LINE(-1,1,___b?21)___CALL BINS(IY,INSTNC(N),22,31) __3003_IK=KNEXT___IF(IK.LT.INPREK)GO TO 3001___GO TO 3100__3010_ASSIGN 3011 TO IGO1___GO TO 3003__3011_KNEXT=IK+7+NIN+NOUT___IF(INSTNC(IK+1) .EQ.0)GO TO 3003___LS1=K-1___LS2=IK-1___LIM=NIN+NOUT+7___DO 3012_J=1,L IM__3012_INSTNC(LS1+J)=INSTNC(LS2+J)___ASSIGN 3002 TO IGO1___GO TO 300 4__C_PLACE NEW NAMES AND GENERATE LINES.__3100_INPREK=K___INSTNC(INPRE K)=0___DO 7000 LP=1,32,2___IF(ITRAP(LP).EQ.0)GO TO 7003___IND=NBOUT(0, 18,ITRAP(LP))___DO 7001 LT=1,BLPREK___IF(BLKNO(LT,1).NE.IND)GO TO 7001 ___IF(BLKNO(LT,1).NE.BLKNO(LT,2))GO TO 7002___GO TO 7000__7002_CALL BI NS(BLKNO(LT,2),ITRAP(LP),18,35)___GO TO ___W?_SUBROUTINE CONNEC___COMM ON/RENDAT/I,KLS,NAM1,NAM2,I1,I2___COMMON/EXLNCT/LIN___COMMON/LOGIC/MAS TER(1750),INSTNC(2000)___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/DISP/DIS PFL(3750),ISEG(20),IRAY(4)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/CI ZGI/MATLIN(2300)___INTEGER DISPFL,P11,P12,P13,P14,P15,P21,P22,P23,P24, P25___DIMENSION IPUSH1(25,2),IPUSH2(25,2)___JIN=1__C_CHECK START POINT OF LINE.___ISA=I___IF(I1.LT.1)GO TO 10__C_STARTS ON BLOCK.___CALL CON SUB(NAM1,I1,M1,M2,M3,IND1)___IT1=0___L1=1___IF(M3.NE.0)GO TO 20___IN=I ND1+6+NOUT+M2___CALL OPEN(IN,P11,P12,P13,P14,P15)___L1=0___GO TO 20__C _STARTS ON LINE.__10_CALL EXTRLN(NAM1,M1,M2,M3,IND___`_N___END________ ____________(]? MOVETO(-1,-1,.TRUE.,0,4)___CALL PENOFF___CALL LINE(0,- 20,.TRUE.)___CALL MOVETO(-1,-1,.FALSE.,0,7)___CALL PENON___CALL ENDSUB (IOUTTR)___CALL DEFSUB(CLCKTR)___CALL LINE(-10,-20,.FALSE.)___CALL MOV ETO(-1,-1,.TRUE.,0,7)___CALL LINE(-1,-1,.TRUE.)___CALL LINE(1,-1,.TRUE .)___CALL LINE(1,1,.TRUE.)___CALL LINE(-1,1,.TRUE.)___CALL MOVETO(-1,- 1,.TRUE.,0,4)___CALL PENOFF___CALL LINE(10,20,.TRUE.)___CALL MOVETO(-1 ,-1,.FALSE.,0,7)___CALL PENON___CALL ENDSUB(CLCKTR)___CALL DEFSUB(IHTR L)___CALL MOVETO(-1,-1,.FALSE.,0,4)___CALL PENOFF___CALL LINE(-20,0,.T RUE.)___CALL MOVETO(-1,-1,.FALSE.,0,7)___CALL PENON___CALL MOVETO(-1,- 1,.TRUE.,0,7)___CALL__0b?TYPE-2___GO TO (1,2,1,3,1,2,1,1,1,4,13021,1,5 ),IN__2_CALL REGIST(NAME,IX,IY,I3,TYPE)___IF(ISTAT.EQ.1)CALL STRIP(ISF IND(I-1))___GO TO 3021__3_CALL MEMMEM(NAME,IX,IY,I3)___IF(ISTAT.EQ.1)C ALL STRIP(ISFIND(I-1))___GO TO 3021__4_CALL MLPX(NAME,IX,IY,I3)___IF(I STAT.EQ.1)CALL STRIP(ISFIND(I-1))___GO TO 3021__5_CALL DISALU(NAME,IX, IY,I3)___IF(ISTAT.EQ.1)CALL STRIP(ISFIND(I-1))___GO TO 3021__13021_I=I +1___IS=NEWSEG(I)__3021_BLPREK=BLPREK+1___IBLPT=IBLPT+1___BLPONT(IBLPT ,2)=K___BLKNO(BLPREK,1)=IK___BLKNO(BLPREK,2)=K___INSTNC(K+1)=I-1___K=K +7+NIN+NOUT___IF(ISTAT.EQ.1)GO TO 3003___CALL BINS(PAGE,INSTNC(N),7,11 )___CALL BINS(IX,INSTNC(N),12,___[__SUBROUTINE BOX2(I,J)___CALL LINE(0 ,J,.TRUE.)___CALL LINE(I,0,.TRUE.)___CALL LINE(0,-J,.TRUE.)___CALL LIN E(-I,0,.TRUE.)___RETURN___END_______________________@`?RASE')___CALL E NDSUB(ERASE)___CALL DEFSUB(BRING)___CALL HOLSTR('BRING')___CALL ENDSUB (BRING)___CALL DEFSUB(MULBUT)___CALL HOLSTR('MULTI')___CALL ENDSUB(MUL BUT)___CALL DEFSUB(STOP)___CALL HOLSTR('CLOSE')___CALL ENDSUB(STOP)___ CALL DEFSUB(IPAGE)___CALL HOLSTR('PAGE')___CALL ENDSUB(IPAGE)___CALL D EFSUB(TRANS)___CALL HOLSTR('TRANS')___CALL ENDSUB(TRANS)___CALL DEFSUB (ROTATE)___CALL HOLSTR('ROTAT')___CALL ENDSUB(ROTATE)___CALL DEFSUB(DU MP)___CALL HOLSTR('DUMP')___CALL ENDSUB(DUMP)___CALL DEFSUB(MACDEF)___ CALL HOLSTR('MACRO')___CALL ENDSUB(MACDEF)___CALL DEFSUB(MACDIS)___CAL L HOLSTR('SHOW')___CALL ENDSUB(MACDIS)___CALL TERMIN___RETUR__H]?_SUBR OUTINE TERMIN___COMMON/BLOCK/BLKNO(200,2),BLPREK,CLCKTR,INTERM,IOUTTR_ __1,IHTRL,IHTRR,ICLTR___INTEGER BLKNO,BLPREK,CLCKTR___CALL DEFSUB(INTE RM)___CALL LINE(30,-20,.FALSE.)___CALL MOVETO(-1,-1,.TRUE.,0,7)___CALL LINE(-1,-1,.TRUE.)___CALL LINE(1,-1,.TRUE.)___CALL LINE(1,1,.TRUE.)__ _CALL LINE(-1,1,.TRUE.)___CALL MOVETO(-1,-1,.TRUE.,0,4)___CALL PENOFF_ __CALL LINE(0,20,.TRUE.)___CALL MOVETO(-1,-1,.FALSE.,0,7)___CALL PENON ___CALL ENDSUB(INTERM)___CALL DEFSUB(IOUTTR)___CALL LINE(30,20,.FALSE. )___CALL MOVETO(-1,-1,.TRUE.,0,7)___CALL LINE(-1,-1,.TRUE.)___CALL LIN E(1,-1,.TRUE.)___CALL LINE(1,1,.TRUE.)___CALL LINE(-1,1,.TRUE.)___CALL __Pb?I=KLS+1___CALL STRIP(ISEG(I))___ISEG(I)=NEWSEG(I)___ASSIGN 3002 T O IGO1__3001_NX=INSTNC(IK)___NAME=MASTER(NX)___NIN=MASTER(NX+2)___NOUT =MASTER(NX+3)___TYPE=MASTER(NX+1)___KNEXT=IK+7+NIN+NOUT___GO TO IGO1__ 3002_IF(INSTNC(IK+1).EQ.0)GO TO 3010__C_REGENERATE BLOCK.___IF(K.NE.IK )GO TO 3011__3004_N=K+2___CALL BLPGSR(IK,ISTAT)___IF(ISTAT.EQ.1)GO TO 13021___CALL BINS(PAGE,INSTNC(N),7,11)___IX=NBOUT(14,10,INSTNC(N))___I Y=NBOUT(4,10 ,INSTNC(N))___IF(ISTAT.EQ.0)CALL BLXY(1,IK,IX,IY,I1,I2,I3 )___KCLOCK=NBOUT(0,2,INSTNC(N))___IF(TYPE.GT.2)GO TO 3020__1_CALL BLOC KS(NAME,IX,IY,I3)___IF(ISTAT.EQ.1)CALL STRIP(ISFIND(I-1))___GO TO 3021 __3020_IN=___c_CALL LINE(MT,0,.FALSE.)___DO 10 L=1,3___CALL CALSUB(IHT RR)__10_CONTINUE___CALL LINE(-MT,-60,.FALSE.)___DO 15 L=1,3___CALL CAL SUB(INTERM)__15_CONTINUE___CALL LINE(-120,40,.FALSE.)___DO 20 L=1,NOUT ___CALL CALSUB(IOUTTR)__20_CONTINUE___CALL MSSLP(ISYS)___I=I+1___IS=NE WSEG(I)___RETURN___END____________________``?_SUBROUTINE SUBRES___COMM ON/BUTTON/FIX,MOVE,LINES,ERASE,BRING,___1MULBUT,STOP,IPAGE,TRANS,ROTAT E,DUMP___2,MACDEF,MACDIS___INTEGER TRANS___COMMON/KUTU/IBOX(18)___INTE GER FIX,ERASE,BRING,ROTATE,STOP,DUMP___COMMON/MEMORY/MEMBOX(8)___DO 1 I=1,18___CALL DEFSUB(IBOX(I))___CALL BOX2((I+1)*30,40)__1_CALL ENDSUB( IBOX(I))___DO 2 I=2,8___CALL DEFSUB(MEMBOX(I))___CALL BOX2((I+1)*30,(( I/2)+1)*20)__2_CALL ENDSUB(MEMBOX(I))___CALL DEFSUB(FIX)___CALL HOLSTR ('FIX')___CALL ENDSUB(FIX)___CALL DEFSUB(MOVE)___CALL HOLSTR('MOVE')__ _CALL ENDSUB(MOVE)___CALL DEFSUB(LINES)___CALL HOLSTR('LINE')___CALL E NDSUB(LINES)___CALL DEFSUB(ERASE)___CALL HOLSTR('E___a__SUBROUTINE BLI NDX(IK,K)___COMMON/SAYFA/PAGE,PAGCOR(300)___INTEGER PAGE,PAGCOR__C_FIN D BLOCK IK.___L=1__1_M=PAGCOR(L)___IF(M.EQ.0)RETURN___IF(M.NE.IK)GO TO 10__C_CHANGE IT TO K.___PAGCOR(L)=K__10_L=L+2___GO TO 1___END________ ____________pb?_SUBROUTINE REGENT___COMMON/RENDAT/I,KLS,NAM1,NAM2,I1,I 2___COMMON/SAYFA/PAGE,PAGCOR(300)___INTEGER PAGE,PAGCOR__C_REORGANIZE AND RE GENERATE.___COMMON/LOGIC/MASTER(1750),INSTNC(2000)___COMMON/EBA T/NIN,NOUT,KCLOCK___COMMON/BLOCK/BLKNO(200,2),BLPREK,CLCKTR,INTERM,IOU TTR___1,IHTRL,IHTRR,ICLTR___COMMON/KUTU/IBOX(18)___COMMON/CIZGI/MATLIN (2300)___COMMON/DOT/IX1(20),IY1(20),IX2(20),IY2(20),ICOUNT___COMMON/DI SP/DISPFL(3750),ISEG(20),IRAY(4)___COMMON/VAL/MAPREK,INPREK,LNPR___INT EGER BLKNO,BLPREK,CLCKTR,DISPFL,TYPE___COMMON/POINTX/BLPONT(200,2),BLP INT___INTEGER BLPONT,BLPINT___COMMON/TRPLST/ITRAP(32)___K=1___IK=K___B LPREK=0___IBLPT=0_____xc?_SUBROUTINE DISALU(NAME,IX,IY,IR)___COMMON/EB AT/NIN,NOUT,KCLOCK___COMMON/KUTU/IBOX(18)___COMMON/DISP/DISPFL(3750),I SEG(20),IRAY(4)___INTEGER DISPFL___COMMON/BLOCK/BLKNO(200,2),BLPREK,CL CKTR,INTERM,IOUTTR___1,IHTRL,IHTRR,ICLTR___INTEGER BLKNO,BLPREK,CLCKTR ___COMMON/RENDAT/I,KLS,NAM1,NAM2,I1,I2___K=3___IF(NOUT.GT.4)K=NOUT-1__ _ISYS=ISFIND(I)___CALL MARSEG(I)___CALL ALTROT(ISYS,I1,I2,IR)___CALL M OVETO(IX,IY,.FALSE.,0,7)___CALL PENOFF___CALL CALSUB(IBOX(K))___MT=(K- 2)*15+30___CALL LINE(MT,14,.FALSE.)___CALL LINE(-30,0,.FALSE.)___CALL STRING(NAME,5)___CALL LINE(-30,0,.FALSE.)___CALL LINE(-MT,-14,.FALSE.) ___CALL PENON___MT=(K+1)*30___{hb__D_#__F_)_ R_@_4_hh_QP_# _Fji_mJ___q AsZpG5A_Jb__D:*_tJ_h_#H(F_Q_ b_g*_@T__(_______________________?__I'___ e_<[ZE2Mi_gV_)9i__Z7E?B _aI___G>v=1[Vd;wS:~]_g&$__g'_\zO_&I9E&t_\E_$X` g&n=1g&n:6e__]_e>_I_g&n[_E__J5g&n<7LP__hLP__hLP__gLP__>LP__gLP__ LP__h LP__gLP__gLP__gLP__hLP__dLP__hLP___LP__CLP__hLP__hLP__gLP__2LP__iLP__g LP__h________=_ I4=I5-2*I3__ IX(L)=I4__ L=L-1__ I5 =I3__ GO TO 6__ 5 IX(L)=I3__ RETURN__ END___________ ____________P-?0)___NAMES(LP1)=NAME___INS(LP1)=INDX___NOS(LP1)=I___GO TO 1__C_DSKB:__12_IF(IDEV2.EQ.0)GO TO 1___DS1=DS1+1___IF(DS1.GT.15)GO TO 2000___CALL BINS(DS1,INSTNC(IX),7,10)___K=DS1+15___NAMES(K)=NAME___ INS(K)=INDX___NOS(K)=I___GO TO 1__C_D340:__13_IF(IDEV3.EQ.0)GO TO 1___ D31=D31+1___IF(D31.GT.15)GO TO 2000___K=D31+30___CALL BINS(D31,INSTNC( IX),7,10)___NAMES(K)=NAME___INS(K)=INDX___NOS(K)=I___GO TO 1__2000_CAL L BINS(0,INSTNC(IX),5,10)___WRITE(5,2001)NAME,INDX,NDEV__2001_FORMAT(/ 1X,'BLOCK= ',A5,'(',I4,') NOT ACCEPTED ON ___1DEVICE= ',I1/)__C_NEXT__ 1_CONTINUE___INDX=INDX+7+NIN+NOUT___GO TO 100__C_HEADING..__1000_ENCOD E(32,1002,IFOR1),LP1__X*?0)___NAMES(LP1)=NAME___INS(LP1)=INDX___NOS(LP 1)=I___GO TO 1__C_DSKB:__12_IF(IDEV2.EQ.0)GO TO 1___DS1=DS1+1___IF(DS1 .GT.15)GO TO 2000___CALL BINS(DS1,INSTNC(IX),7,10)___K=DS1+15___NAMES( K)=NAME___INS(K)=INDX___NOS(K)=I___GO TO 1__C_D340:__13_IF(IDEV3.EQ.0) GO TO 1___D31=D31+1___IF(D31.GT.15)GO TO 2000___K=D31+30___CALL BINS(D 31,INSTNC(IX),7,10)___NAMES(K)=NAME___INS(K)=INDX___NOS(K)=I___GO TO 1 __2000_CALL BINS(0,INSTNC(IX),5,10)___WRITE(5,2001)NAME,INDX,NDEV__200 1_FORMAT(/1X,'BLOCK= ',A5,'(',I4,') NOT ACCEPTED ON ___1DEVICE= ',I1/) __C_NEXT__1_CONTINUE___INDX=INDX+7+NIN+NOUT___GO TO 100__C_HEADING..__ 1000_ENCODE(32,1002,IFOR1),LP1__`M?(1)=V22(1)___CALL RUFFLE(V23)___V24 (1)=V23(1)___CALL RUFFLE(V24)___V25(1)=V24(1)___CALL RUFFLE(V25)___V26 (1)=V25(1)___CALL RUFFLE(V26)___CALL IFILE(20,V22)___READ(20,1)MAPREK, INPREK,LNPR___END FILE 20___CALL IFILE(20,V20)___READ(20,1)(MASTER(K), K=1,MAPREK)___END FILE 20___CALL IFILE(20,V21)___READ(20,1)(INSTNC(K), K=1,INPREK)___END FILE 20___CALL IFILE(20,V23)___READ(20,1)(MATLIN(K), K=1,LNPR)___END FILE 20___CALL IFILE(20,V24)___READ(20,1)(PAGCOR(K),K= 1,300)___END FILE 20___CALL IFILE(20,V25)___READ(20,1)BLPINT,((BLPONT( K,J),K=1,BLPINT),J=1,2)___END FILE 20___CALL IFILE(20,V26)___READ(20,1 )(ITRAP(K),K=1,32)___END FILE 20___RETUR__h9?L ACTION(IRAY)__C_INTERRU PT READ.___CALL DISABL(2)___IS=IRAY(2)___IUSER=DISPFL(IS)__C_ANALYSE I NTERRUPT.__998_IF(IUSER.GT.KLS)GO TO 999__C_ONLY LIGHT BUTTON HITS ARE ACCEPTED.___IOLD=IUSER___CALL CHINTS(IS,1,7)__C_CHOOSE CORRECT ROUTIN E.___GO TO(10,20,30,40,50,60),IUSER__10_ISTOP=-1___GO TO 999__C_RESET. __20_CALL RESET___GO TO 999__C_EXAMINE.__30_CALL ATKILL__C_READ A TERM INAL OR A LINE.___INX=-KLS___CALL GETTER(K,NAME,IND,TRNO,INX)___IF(K.E Q.0)GO TO 35___IS=IND___IUSER=NAME___IF(K.LT.1)GO TO 998__C_OUTPUT TER MINAL OPENED.___WRITE(5,31)TRNO,NAME,IND___IX=IND+5+TRNO___IC=NBOUT(25 ,4,INSTNC(IX))___I1=NBOUT(31,5,INSTNC(IX))___I2=NB__p-?___ENCODE(34,10 03,IFOR2),LP1___IF(LP1.EQ.0)GO TO 1010___WRITE(21,1001)(NAMES(L),L=1,L P1)___WRITE(21,IFOR1)(INS(L),L=1,LP1)___WRITE(21,IFOR2)(NOS(L),L=1,LP1 )__1010_ENCODE(32,1002,IFOR1),DS1___ENCODE(34,1003,IFOR2),DS1___IF(DS1 .EQ.0)GO TO 1020___WRITE(22,1001)(NAMES(L+15),L=1,DS1)___WRITE(22,IFOR 1)(INS(L+15),L=1,DS1)___WRITE(22,IFOR2)(NOS(L+15),L=1,DS1)__1020_ENCOD E(32,1002,IFOR1),D31___ENCODE(34,1003,IFOR2),D31___IF(D31.EQ.0)GO TO 1 030___WRITE(23,1001)(NAMES(L+30),L=1,D31)___WRITE(23,IFOR1)(INS(L+30), L=1,D31)___WRITE(23,IFOR2)(NOS(L+30),L=1,D31)__1030_DO 1031 I=1,20___L PT0(I)=5H ___DSKB(I)=5H __1031_D340(I)=5H ___RET__x*?___EN CODE(34,1003,IFOR2),LP1___IF(LP1.EQ.0)GO TO 1010___WRITE(21,1001)(NAME S(L),L=1,LP1)___WRITE(21,IFOR1)(INS(L),L=1,LP1)___WRITE(21,IFOR2)(NOS( L),L=1,LP1)__1010_ENCODE(32,1002,IFOR1),DS1___ENCODE(34,1003,IFOR2),DS 1___IF(DS1.EQ.0)GO TO 1020___WRITE(22,1001)(NAMES(L+15),L=1,DS1)___WRI TE(22,IFOR1)(INS(L+15),L=1,DS1)___WRITE(22,IFOR2)(NOS(L+15),L=1,DS1)__ 1020_ENCODE(32,1002,IFOR1),D31___ENCODE(34,1003,IFOR2),D31___IF(D31.EQ .0)GO TO 1030___WRITE(23,1001)(NAMES(L+30),L=1,D31)___WRITE(23,IFOR1)( INS(L+30),L=1,D31)___WRITE(23,IFOR2)(NOS(L+30),L=1,D31)__1030_DO 1031 I=1,20___LPT0(I)=5H ___DSKB(I)=5H __1031_D340(I)=5H ___RET ___M?N__1_FORMAT(6O12)___END___SUBROUTINE DATOUT___COMMON/FILNAM/V,V20 (2),V21(2),V22(2),V23(2),V24(2),V25(2),V26(2)___INTEGER V,V20,V21,V22, V23,V24,V25,V26___COMMON/TRPLST/ITRAP(32)___COMMON/SAYFA/PAGE,PAGCOR(3 00)___INTEGER PAGE,PAGCOR___COMMON/CIZGI/MATLIN(2300)___COMMON/LOGIC/M ASTER(1750),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/POIN TX/BLPONT(200,2),BLPINT___INTEGER BLPONT,BLPINT___WRITE(5,500)__500_FO RMAT(1X,'OUTPUT FILE:'/)___READ(5,501)IX__501_FORMAT(A5)___IF(IX.EQ.' ')GO TO 20___V=IX___DO 10 I=1,2___V20(I)=0___V21(I)=0___V22(I)=0__ _V23(I)=0___V24(I)=0___V25(I)=0___V26(I)=0__10_CONTINUE___V20(1)=V___V 21(1)=V20(___9?OUT(0,2,INSTNC(IX))___CALL SENDHS(0)___CALL SENDCS('DEL AY VALUE IS',14)___IN=I1___CALL SENDIN(I1,2,.TRUE.)___IF((I1.LT.0).OR. (I1.GT.23))I1=IN___CALL SENDCS('BINARY VALUE IS',15)___IM=I2___CALL SE NDIN(I2,2,.TRUE.)___IF((I2.LT.0).OR.(I2.GT.1))I2=IM___IO=NBOUT(29,2,IN STNC(IX))___INSTNC(IX)=0___IF(I2.EQ.0)GO TO 32___I2="777777777777__32_ INSTNC(IX)=I2___CALL BINS(I1,INSTNC(IX),0,4)___CALL BINS(IO,INSTNC(IX) ,5,6)___CALL BINS(IC,INSTNC(IX),7,10)___GO TO 999__35_WRITE(5,33)__31_ FORMAT(1X,I2,'. OUTPUT OF ',A5,'(',I4,')'/)__33_FORMAT(1X,'NO OUTPUT I NDICATED???'/)___GO TO 999__C_OUTPUT.__C_BITS 5&6 OF OUTPUT WORD GIVE DESTINATION DEVICE.____-_URN__1001_FORMAT(1H1,' TIME ',2X,15(A5,3X)) __1002_FORMAT('(1X,8H NANO ,2X,',I2,'(1H#,I4,3X))')__1003_FORMAT('(1 X,8H SECS ,2X,',I2,'(3HNO:,I2,3X))')___END___________________*_URN__ 1001_FORMAT(1H1,' TIME ',2X,15(A5,3X))__1002_FORMAT('(1X,8H NANO , 2X,',I2,'(1H#,I4,3X))')__1003_FORMAT('(1X,8H SECS ,2X,',I2,'(3HNO:,I 2,3X))')___END__________________ M?1)___CALL RUFFLE(V21)___V22(1)=V21( 1)___CALL RUFFLE(V22)___V23(1)=V22(1)___CALL RUFFLE(V23)___V24(1)=V23( 1)___CALL RUFFLE(V24)___V25(1)=V24(1)___CALL RUFFLE(V25)___V26(1)=V25( 1)___CALL RUFFLE(V26)__20_END FILE 20___CALL OFILE(20,V20)___WRITE(20, 1)(MASTER(K),K=1,MAPREK)___END FILE 20___CALL OFILE(20,V21)___WRITE(20 ,1)(INSTNC(K),K=1,INPREK)___END FILE 20___CALL OFILE(20,V22)___WRITE(2 0,1)MAPREK,INPREK,LNPR___END FILE 20___CALL OFILE(20,V23)___WRITE(20,1 )(MATLIN(K),K=1,LNPR)___END FILE 20___CALL OFILE(20,V24)___WRITE(20,1) (PAGCOR(K),K=1,300)___END FILE 20___CALL OFILE(20,V25)___WRITE(20,1)BL PINT,((BLPONT(K,J),K=1,BLPINT),J=1,2)_____(9?_40_CALL ATKILL__C_READ A TERMINAL OR ALINE.___INX=-KLS___CALL GETTER(K,NAME,IND,TRNO,INX)___IF (K.EQ.0)GO TO 35___IS=IND___IUSER=NAME___IF(K.LT.1)GO TO 998__C_OUTPUT TERMINAL OPENED.___WRITE(5,31)TRNO,NAME,IND___IX=IND+5+TRNO___I1=NBOU T(29,2,INSTNC(IX))___I2=I1___CALL SENDHS(0)___CALL SENDCS('OUTPUT DEVI CE IS:',17)___CALL SENDIN(I1,1,.TRUE.)___IF((I1.LT.0).OR.(I1.GT.3))I1= I2___CALL BINS(I1,INSTNC(IX),5,6)___I1=NBOUT(25,4,INSTNC(IX))___I2=I1_ __CALL SENDHS(0)___CALL SENDCS('COLUMN NO:',10)___CALL SENDIN(I1,2,.TR UE.)___IF((I1.LT.1).OR.(I1.GT.15))I1=I2___CALL BINS(I1,INSTNC(IX),7,10 )___GO TO 999__C_CLOSE.__50_CALL OFILE(21,'DATA2')__09?4__7x.____ @_7~ __0c.__7~ D_7|-\_P_4__054__7~4__7|4__7w4__7w __7|3$_0#+__7\+__7v __7~ .__0( D_7|"&___ F_7}-\_K\4__7~4__7x4__7|4__7}4__7_"$___.__0c.D_7~-\_P_ 4__044__7_4__7~4__7w4__7w-\_T[4__7_4__7y __7_/____ @_7|-\_T[4__7_4__7y .____ D_7_-\_P_4__054__7_4__7~4__7w4__7w+__7v-\_G/4__7z4__7z4__7w4__7w 4__7w+__7v+__7v4____ Z_7{ \_7{ _7{,!p__+__70 __7{ __7{-|p____P7w_____ __________________________u07_ __8Y3d_0"g____O____ &___3f_8Yg____O____ G____4$_8_ $___.__8Y.__0c D_8\"$___.__8\ D_8Z-\_P_4__044__8\4__8Z4__8U 4__8U __8\7 ___.$___(___w &___3F___+__8_ __0cX@_8_ "_8__b______8Y_ ___ +__8_(28H CHINTS-INVALID SEGMENT NAME,I10//) +__8S __8Z0$_________@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ___M_END FILE 20___CALL OFILE(20,V26)___WRITE(20,1)(ITRAP(K),K=1,32)__ _END FILE 20___RETURN__1_FORMAT(6O12)___END___________________H9?___WR ITE(21,1)(INSTNC(K),K=1,INPREK)___END FILE 21___PAUSE___GO TO 999__51_ FORMAT(1X,'FILES CLOSED.'/)__C_TEST.__C__C__C__C_SIMULATE.__60_CALL SI MULT(IUSER,IS)___CALL CHINTS(ISEG(6),0,7)___GO TO 998___END_______SUBR OUTINE BGDEC(NIN,I1,I2)___DIMENSION I1(5),I3(5)___L=2___I3(1)=I1(1)__3 0_IF(L.GT.NIN)GO TO 50___L1=L-1___IF(I1(L).EQ.0)GO TO 10___IF(I3(L1).E Q.1)I3(L)=0___IF(I3(L1).EQ.0)I3(L)=1___GO TO 20__10_I3(L)=I3(L1)__20_L =L+1___GO TO 30__50_CALL BINARY(I2,NIN,I3,1)__99_RETURN___END_____SUBR OUTINE BASLIK___COMMON/LOGIC/MASTER(1000),INSTNC(2000)___COMMON/VAL/MA PREK,INPREK,LNPR___COMMON/OUTXXX/LPT0(20),DSKB(20),D340(20),LP1,DS1,D3 __P9?g____O____ __8Y0&___g____O____A____5$_8_+__8S __8Y2D_0"+__8_O@_0e -\_P_4__044__8]4__8\4__8U4__8U-\_T[4__8]4__8U @_8] __8Z4$_8( $___.__8Z D_8] $___2$_8Z+__8( $___ D_8] __8]7 ___.$___(___~ D_8Z-\_T[4__8Z4__8V @_8^ __8Y4$_82 $___.__8Y D_8^ $___2$_8Y+__82 $___ D_8^ __8]7 ___.$__? (___|(____ __8].____ __8^(____.____ F_8]-\_P_4__054__8]4__8\4__8U4__8U __8Y3$_0#+__8<+__8S-\_T[4__8\4__8V __8\/____ @_8Z-\_T[4__8\4__8W.____ D_8\"$___.__8\ D_8Z-\_P_4__054__8\4__8Z4__8U4__8U __8\ D_8_ __8] D_8_ $___.__8Y.__0( D_8Z"&___ F_8[-\_K\4__8_4__8W4__8Z4__8[4__8^+__8S+__8S 4____ Z_8X \_8X _8X,!p__,!p__,!p__+__8_ __8X __8X-|p____X8U__________ ________________@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?_______________-\_Sh-\_Sh_ ___+___0____DDATA1 DATA2DATA3___________________t_^_ i@@_#_ $___ D_#_@@_#_@@_# __"s D_#( __"t D_#( __"t D_#) __"u D_#) __"u D_#* __"v D_#* __"v D_#+ __"w D_#+ -\_HI4__"w-\_HI4__"x-\_HI4__"x-\_I>4__# 4__"y4__#! :___ Z_#! __# 2Dh#' +__!_6b___0b___7____+__ }4__!_4__"?4__!_4__!_4__"_4__"#4__ u4__!l1:___ 9__ y-\_H}4__"z4__"}+__ u+__"r $___ D_#_@@_#_ $___ D_#: $___ D_#: $___ D_#9 $___ D_#"+__!_@@_#_ $___ D_#_-\_HI4__"~-\_I>4__#"4__"y4__#! __#" 3D_#++__ t __"_3D_#"+__!%O@_##-\_-t4__#"4__#"4__#:4__#:4__#94___c4___b 4__##4__## __## D_#$ $___.__#_ D_#$6b_##0b___7____+__!_4__!_4__! 6b_#$ 0b___7____+__!_4__!#4__!e6b_#$__h9?1___COMMON/EBAT/NIN,NOUT,KCLOCK___D IMENSION NAMES(45),INS(45),NOS(45)___COMMON/DEVICE/IDEV1,IDEV2,IDEV3__ _INTEGER DSKB,D340,DS1,D31,IFOR1(7),IFOR2(7)_____LP1=0___DS1=0___D31=0 ___INDX=1__100_IF(INDX.GE.INPREK)GO TO 1000___KX=INSTNC(INDX)___NIN=MA STER(KX+2)___NOUT=MASTER(KX+3)___NAME=MASTER(KX)___IX=INDX+5___DO 1 I= 1,NOUT___IX=IX+1___NDEV=NBOUT(29,2,INSTNC(IX))+1___GO TO(1,11,12,13),N DEV__C_LPT0:__11_IF(IDEV1.EQ.0)GO TO 1___LP1=LP1+1___CALL BINS(LP1,INS TNC(IX),7,10)___NAMES(LP1)=NAME___INS(LP1)=INDX___NOS(LP1)=I___GO TO 1 __C_DSKB:__12_IF(IDEV2.EQ.0)GO TO 1___DS1=DS1+1___CALL BINS(DS1,INSTNC (IX),7,10)___K=DS1+15___NAMES(K)=NAME_____p9?______eh8_ __:53d_0"g____ O____ &___3&_:5g____O____G____4$_8o $___.__:5.__0c D_:8 $___.__:8 D_:6 -\_P_4__044__:84__:64__:14__:1 __:87 ___.$___(___w &___3F___+__8| __0c X@_8p "_8t_b____ ___ __0cX@_8s "_8w_b______:5_ ___+__8w(//18H SUBROUTI NE SWITCH)+__8{(23H INVALID SEGMENT INDEX ,I8//) +__:0@@_:9-\_P_4__04 4__:94__:84__:14__:1 __:97 ___.$___(___y D_:6-\_T[4__:64__:21 ___+__9_ __0cX@_9_ "_8t_b____ ___"$___.__:8 D_:6-\_P_4__044__::4__:64__:14__:1 __0cX@_9_ "_9__b______:5___::_ ___+__9_(25H SEGMENT HAS BEEN DELETED/ 16H SEGMENT INDEX =,I5/13H USER LABEL =,I8//)+__:0 __:6 D_:: __::4D_9Y __::3$_0bg____O____ &___3f_::g____O____G____4$_9&______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?write lock error!___(16) not enough monitor table space!____(17) partial al location only!_(20) block not free on allocation!_(?) lookup,enter,or rename error!______________X_&_F@\4___\4_SX_[___U_-__Rn__x_,___09__x_- _SPW__yx_/_____-\_0Z-\_5_4___?4___\ ___\ D__` ___] D__` ___] D__a-\_Sr 4___^4___`-\_Sr4___^4___`-\_Sr4____4___a "__E_B_______b____c_ ___ "__E _B___ :___ Z__a ________c3:__b9___=_ ___ "__E_B___ :___ Z__a ________W 3:__c9___B_ ___+___F(6O12) $___ D__b-\_"o4____-\_Su4___^4___`-\_Su 4___^4___`-\_Su4____4___a "__E_b___ :___ Z__a ________c1:__t9___N_ ___ "__E_b___ :___ Z__a ________W1:__h9___S_ ___ "__E_b_______b____c_ ___ ___9?INS(K)=INDX___NOS(K)=I___GO TO 1__C_D340:__13_IF(IDEV3.EQ.0)GO TO 1___D31=D31+1___K=D31+30___CALL BINS(D31,INSTNC(IX),7,10)___NAMES(K)= NAME___INS(K)=INDX___NOS(K)=I__C_NEXT__1_CONTINUE___INDX=INDX+7+NIN+NO UT___GO TO 100__C_HEADING..__1000_ENCODE(32,1002,IFOR1),LP1___ENCODE(3 3,1003,IFOR2),LP1___IF(LP1.EQ.0)GO TO 1010___WRITE(3,1001)(NAMES(L),L= 1,LP1)___WRITE(3,IFOR1)(INS(L),L=1,LP1)___WRITE(3,IFOR2)(NOS(L),L=1,LP 1)__1010_ENCODE(32,1002,IFOR1),DS1___ENCODE(33,1003,IFOR2),DS1___IF(DS 1.EQ.0)GO TO 1020___WRITE(25,1001)(NAMES(L+15),L=1,DS1)___WRITE(25,100 2)(INS(L+15),L=1,DS1)___WRITE(25,1003)(NOS(L+15),L=1,DS1)__1020_ENCODE (32,1002,I___9? __0c.__:: D_:6-\_P_4__044__:84__:64__:14__:1 __:87 ___ .$___(___x &___3F___+__9: __0cX@_9( "_8t_b____ ___"$___.__:8 D_:6-\_P_ 4__044__::4__:64__:14__:1 __0cX@_9/ "_91_b______::___:5___::_ ___+__9: (25H INVALID SUBPICTURE NAME ,I8/16H SEGMENT INDEX =,I5/13H USER LABEL =,I8//) +__:0 __:53$_0#g____O____ __::2&_0#g____O____G____4$_9Y __0c X@_9A "_8t_b____ ___"$___.__:8 D_:6-\_P_4__044__::4__:64__:14__:1 __0c X@_9H "_9J_b______::___:5___::_ ___+__9X(33H NEW SUBPICTURE HAS NOT BE EN SENT/22H EXISTING CALL DELETED/18H SUBPICTURE NAME =,I5/16H SEGMENT INDEX =,I5/13H USER LABEL =,I8//) @@_:: __:97 ___.$___(___x D_:9 $___ 2D_:9+__9^ $___ D_:9______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?H___iH___mH___oH___sH___vH___z_0__Z _,__Z_0__Z6$__Z.___Z__x______1____Z____`_______(_9_____gg___i7_;y__p__ ____@:___z____1H___NH___`__ _R__ _S$___Q__0_CH___w__(_2__ _2H___T____2 ,___y,___q+___,____2__8_`6$__D_____a*cm**rwf*H___CH___SH___xH___oH___z H___ (0) file was not found!__(1) no such project-programmer number!__ (2) protection failure!__(3) file was being modified!__(4) rename file name already exists!____(5) illegal sequence of UUOs!_(6) bad UFD or bad RIB!__(7) not a SAV file!_(10) not enough core!____(11) device not available!____(12) no such device!(13) not two reloc reg. capability! (14) no room or quota exceeded!____(15) __(9?FOR1),D31___ENCODE(33,100 3,IFOR2),D31___IF(D31.EQ.0)GO TO 1030___WRITE(7,1001)(NAMES(L+30),L=1, D31)___WRITE(7,1002)(INS(L+30),L=1,D31)___WRITE(7,1002)(NOS(L+30),L=1, D31)__C_RETURN__1030_DO 1031 I=1,20___LPT0(I)=5H _____DSKB(I)=5H __1031_D340(I)=5H ___RETURN__1001_FORMAT(1H1,' TIME ',2X,15(A 5,3X))__1002_FORMAT('(1X,8H NANO ,2X,',I2,'(1H#,I4,3X))')__1003_FORM AT('(1X,8H SECS ,2X,',I2,'(3HNO:,I2,3X))')___END______SUBROUTINE RES ET___COMMON/LOGIC/MASTER(1000),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK ,LNPR___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/FORSIM/SIMIX,ITIMEX,ISIM_ __COMMON/PRFARK/IPOS,IVALUE___INTEGER IZ(5),SIMIX___09? $___2D_:9+__9` $___ D_:9 __:95d_:_ $___.__:8 D_:; $___.__:8 D_:6-\_P_4__044__:94__:6 4__:14__:1-\_T[4__:94__:2 __:8.____ D_:; __:52D_0"+__9n"$___.__0c.__0b D_:; __:;/__:;5d_:_-\_P_4__044__:94__:;4__:14__:1 __:97 ___.$___(___y &___2F___+__9w"__0c.D_:;+__:_:__:; __:97 ___.$___(___x &___2F___+__9~ -\_T[4__:94__:2 __0c.____ D_:; __:;/__:;4d_9o __0cX@_:_ "_8t_b____ ___ "$___.__:8 D_:6-\_P_4__044__:94__:64__:14__:1 __0cX@_:_ "_:__b______:5 ___:9_ ___+__:_(37H SEGMENT CONTAINS NO SUBPICTURE CALLS/16H SEGMENT I NDEX =,I5/13H USER LABEL =,I8//) +__:0 $___.__:5.__:9 D_:;-\_=]4__:; 4__:::__:8-\_P_4__044__:84__:84__:14__:1-\_T[4__:84__:3 __:8______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ___9?+______ File_ Protection Access_Creation __ Name_Ext_ Blks__ Date__Time_Date__Mode_____Directory _Continuation of ____ ,____-2__~-"__:?Disk directory read ____ &___,____ ____A$_@_,___a__@__ +___Y_`___& _j0& ___ ____,____ (___,___P ____,____+___O`^___,j___6`___ +____ (___ $___ D___,___P (___,___P,___P+___P1$___+____ (___ $___+____ (___1 ___,___P!"_@`_____`b_p_4H___.(___,___P_____ab___+____,j___ (___ !"__`,____ (___,___P+___O &__YZ____6@___0x___+___$7___F,___P_____5H___ "___XB(__+___u_no UFD created_____ &__`+___$ &__cZ____-"__5? ___,____ 08___7___0 _d_(+___:H___GH___IH___MH___PH___SH___WH___ZH___\H___^H___a H___dH___f___9>__ITIMEX=0___IPOS=1___I=1__50_IF(I.GE.INPREK)RETURN___I 1=INSTNC(I)___NIN=MASTER(I1+2)___NOUT=MASTER(I1+3)___IYPE=MASTER(I1+1) ___IF(IYPE.EQ.1)GO TO 1___IF(IYPE.EQ.2)GO TO 2__C_LIBRARY ELEMENT.__C_ __RETURN__C_SEQUENTIAL BLOCK.__1_IS=1___IX=MASTER(I1+5)-(MASTER(I1+5)/ 100)*100__40_CALL BINARY(IX,NOUT,IZ,0)___I1=I+5___INSTNC(I1)=IS___DO 1 0 L=1,NOUT___I1L=I1+L___ID=NBOUT(25,11,INSTNC(I1L))___INSTNC(I1L)=0___ IF(IZ(L).EQ.0)KX=0___IF(IZ(L).EQ.1)KX="777777777777___INSTNC(I1L)=KX__ _CALL BINS(ID,INSTNC(I1L),0,10)__10_CONTINUE___I=I+NIN+NOUT+7___GO TO 50__C_COMBINATIONAL BLOCK.__2_IX=MASTER(I1+5)___IS=1___GO TO 40___END_ ______________________P9?/____ @_:6-\_T[4__:84__:3.____ D_:8-\_P_4__05 4__:84__:84__:14__:1 __:52$_0#+__:+ $___.__:5.__0( D_:6"&___ F_:7-\_K\ 4__:84__:44__:64__:74__:<+__:0+__:04____ Z_:4 \_:5 _:5,!p__,!p__+__8` __:4 __:5-|p____X:1________ _________________s8:< __;$3D_0"+__:} __;$ 3d_0bg____O____ &___3f_;$g____O____G____4$_:~ $___.__;$.__0c D_;&-\_P_ 4__044__;&4__;&4__;!4__;! __;&7 ___.$___(___w &___2F___+__:~ __;$2$_0# +__;_ $_ _.__;&-\_T[4__;&4__;!/____ @_;$-\_T[4__;&4__;".____ D_;&-\_P_ 4__054__;&4__;&4__;!4__;! $___ D_;' $___.__0c.__;' D_;& __;$/__;' D_;' -\_P_4__044__;&4__;&4__;!4__;!-\_T[4__;&4__;" @_;("__;(.D_;& __;'4D_:l __;$2$_;(+__:v $___.__0c.__;(______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___ 9?,___y,___O_ __1,_____ __2 ,___y,___O_ __3,____+___:,___OZ___Z08___7___0 _d_(_____4H__:1H___+___: ,___P+___6_ __2,___y_____,___q+____ (___,___P=n__<,j___!$_A@4@__D``_p_ +___A(@___ (___+___C_____4H__D.(___,___P<____ad_p_,j___+___? ___[6@___ +___H____[5:__J"`___dZ__?.:__@&:__@.Z___,____+___O7@___+___P7___D,___P _____5H__M ____,____,___q7@___+___>@@___ ___Y B__[+______Total Blocks __@_____J___+___Y_J___eP_ _+___|,j___ ___( "__I B__( "___ B___ "___ B________+___r_____ D__(,j___,____7___E,___P_____5H___[___|,____ (___ ,___PZ___|,____,___O,_____`___,___y,___q`^___+___j>____7___E,___P_____ 5H__h+___qaV___`^___,j___,____7___F,___P_____5H__m__h9?_______________ _________A____B______________B____B________________________B__________ ________________________D________________________B____B_______________ ____B____B___________________B________________________________________ ________________________________________________________________D_____ ________________________B______________________x______C_______________ ____B__________________________________A____A______________A____A_____ __________________________________B___________________________________ _____________________________A______________________p9? D_;$-\_P_4__04 4__;(4__;$4__;!4__;!-\_T[4__;(4__;" @_;( __;$3$_;(+__:c __;(.D_;&-\_P_ 4__054__;&4__;&4__;!4__;! __;'4D_:x $___.__;'.__0( D_;$"&___ F_;%-\_K\ 4__;&4__;"4__;$4__;%4__;( __;( D_;' __;(5d_:W __;$ D_0" __;$ D_0#@@_0$ -\_<_ $___ D_0"+__;_-\_<_+__;_ __0cX@_:_ "_;__b______;$_ ___+__;_(//17 H SUBROUTINE STRIP/22H INVALID SEGMENT INDEX,I8//)+__;_"$___.__;& D_;$ -\_P_4__044__;&4__;$4__;!4__;! __0cX@_;_ "_;__b______;$___;&_ ___+__;_ (//17H SUBROUTINE STRIP/39H GIVEN SEGMENT HAS NOT BEEN SENT TO PDP/16H SEGMENT INDEX =,I5/13H USER LABEL =,I8//) +__;_+__;_4____ Z_;# \_;# _;#,!p__+__:< __;# __;#-|p____h;!___@____ _______s8;( $_________@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __@9? "___ B__X _____J__Y+____4B__uZ___`A"___5B__u "___ B__X!___B*"__[ ,j___,___H@@___@@___!____1B_M_l____7@__Yd____ ___Y B___[___Z B___,___g ,___qaV___,___^7@___+____ "____b___g____`b___g____O____ B___4B___ "___ _b___g____7B___+___> B___ B___,___H ____,___> (___,___P,___g,___q ___[ B__Y>`___+____,___U+___K_____4@___ @__Y ___| B__[7`___,___j>_________ [`___SZ__Za^___+____2Z___+____a^___+____2@___+____0Z_YR+____[___Y $__P ,___~ (___,___PZ___Y,___~+____ ___Y,___> .___ ___Z4@___,___O,___>aV___ +___!,___q+____7@__Z,___O,___< _____F8_Y+___44N__+Z___`A:___4Z__+ (___ ,___P7___D(Z________aZ___+___(,___P (___,___P,___O,___E_ __2,____`^___ +___9_ __1___9?_________________x____________________9?.__0".__0c D_<_ -\_P_4__044__<_4__<_4__<_4__<_ $___2D_0"+__;D __0%5D_;3-\_G/4__<_4__<_ 4__<_4__<_4__<_ $___.__0c D_<_-\_P_4__054__<_4__<_4__<_4__<_ $___.__0c D_<_-\_P_4__054__<_4__<_4__<_4__<_ $___ D_0# $___ D_0b $___ D_0$@@_0" @@_0%-\_G/4__<_4__<_4__<_4__<_4__<_+__;w __0$5$_;E+__<_ $___.__0% D_<_ -\_T[4__<_4__<_ &___.____ F_<_6b_<_0b___7____+__;K4__;N4__;a4__;^4__;\ $___ D_0%@@_0" $___.__0" D_0# $___.__0".__0c D_<_-\_P_4__054__<_4__<_ 4__<_4__<_ $___.__<_ D_<_-\_P_4__054__<_4__<_4__<_4__<_ $___.__0" D_0b +__;w"__0".__0#4d_;Q+__;O-\_G/4__<_4__<_4__<_4__<_4__<_ $___.__0".__0c D_<_-\_P_4__044__<_4__<_4__<_4__<_-\_T[4__<_4__<_ $___.__________@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __`9?6$__a6$__d_,__d_,__a-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep- -Oct--Nov--Dec-H___2-"__5? /Y switch option not available this assembl y!___ ___b7@__[ B__[,___H,___g,____@@__V,___g+___N_F__c+___#_____aL___ +___G@@__` ___| @__b+___L,___b5D__I ___A* __a ___d @__a ___D @__b_ __B `v____`__0_&__`;___V,___&+___Ad6___6@__V+____>___}_"___+___>,___f@@__V _____>`___+___U,___U+___]_____4@__T @__c>_________R@__d ___| @__e_D__c :___V_____@@__c ___| @__e_$__c:___V+___S7@__V,j___!._ _+___a!._@_aL___ !._ _-"__5?Failure(s) during /_____,___?_____-"__: request!_7___b ___[ 5B__h_b___`V___ ___X B__| ___B* ___ B__Y! _YR @__Za^___ B__} ___/ @__[ @__Y,___X__(9?______________________x______________09? D_<_-\_P_4__05 4__<_4__<_4__<_4__<_ $___.__<_ D_<_-\_P_4__054__<_4__<_4__<_4__<_ $___ .__0" D_0b@@_0%O@_0$ __0"2$_0#+__;w __0b D_0# $___ D_0" __<_7 ___.$___ (___y D_<_-\_T[4__<_4__<_ @_<_ __<_5D_;}+__<_ :___ Z_<_ _h/_ D_<_ __<_ 2d_<_+__<_ $h/MXD_<_-\_T[4__<_4__<_ @_<_ __0"2d_<_+__<_"__<_.__<_ Dh/_ "__<_.Dh/M1:__@9__;}O@_.q+__<_+__<_4____ Z_<_ \_<_+__;) __<_ __<_-|p__ ___<________________________________________'________ ________z_____B _x <_@@_<_ __<^3$_0b+__<_+___ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ___9?aB___+___{,_P__`B___+____`B___+____`B___+____`B___+____`B__A+____ `B__ +_____(___aB___`^___0T___,j___+___, ____A.___A.?__5N__" .___`B___ l___@`B___l____`B___l___@`B___l____,j____H___+___x_H____H___+___x ____ *_____H____H___,___V__@__ R___+___x_H___+____Z_____H____H___aP___+____ -"__5?Load point before end of (MB) or (MP) request!___ 2___aB__@ 2___ _HH__=&____H____H___aB___+___xaP____H___+___x[____ 2___aB__ 2____HH__ =f____H____H___dP_ ___@__+___x7____ ____@@___ D___a^___+___!,___{ZN___ _____+___r,j___ ____0T___ ____-"__5?Too many requests for __,___?_____ +___,____a____d_0__d_0__a00000____H_____FFFFP?????FFFFGcBN____________ _____6$__V__H9?_________________x___________________P9? $___.D_<` $___ .__<` D_<_-\_P_4__044___ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __ 9?lv___ev__@,j____d___ ___$@__; ___8P@__9 ___8P@__;,j___l6__@+___) S ___`^___P@__9,j___ ___=,___O+ ___+___, ___>,___O+___>"`___Q____7___> ,___P_____5H__>52__>R_H__,___>,___OZ_H__,____,___q*r__@+___> ___?,___N +___?Q2_A`$"___."________,___P+___G ___A,___N+___?-"__5File delet ed:__,___?____Y+___, ___Y D__2!$__@X___( D__3>___3_b___,j___ ____.___( *___(+___YTMPCOR directory____h__(_hV_(_+___" __. @___ @___! __: @___ __9 @________+___q_$____d________+___r_____@b__3______F____F___aP_@_ +___h-2__~,___K-"__:Input device __,___?_____-"__:: ___ ____A$_ _,___a S___9X___; .H_?*28___%__3_d___,___S:___31"___+_____$___+___,Z____A$___ `D___+___"__h9?______________________x______________p9? SWAP) +__<| (30H INVALID SUBPICTURE CALL INDEX,I10//) +__=> __=D4D_=_ __0b2d_=D g____O____ &___3f_=Dg____O____G____4$_=_ __0c.__=D D_=E-\_P_4__044__=F 4__=E4__=A4__=A __=F7 ___.$___(___x &___3F___+__=_ __0cX@_=_ "_ __=D3$_0#g____O____ __=D2&_0#g____O____G____4$_=) __0cX@_=_ "__4__=D @_=G $___.__0c.__=G D_=G-\_P_4__044__=F 4__=G4__=A4__=A-\_T[4__=F4__=B __=F/____ @_=E-\_T[4__=F4__=B______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __@9? (___,___P (___+___P_____a@___4H__w.(___,___P..___=d__s,j_____6)2 __exuf_dYZ $__P& ___ &___& ___ ____,___},____ ____.:__ 7___. <___Z\___ (___3:___,____&:8__Q\(__4Z___,____[_(__.(___+____ (___0:__t+____,___P 1:__2,___P $__P+___} .___ ___8.B________,____=n___,j___,___H____2,___= Z___9 H_).2___ @__M @__N,j___@f__S ___+3B__P+_________1D___:___S1D___ > __S+____9____7D__S4F__Z.D__S (___7 __S,___P#___S,____ (___,___P+___= bL__6,j___aV_a_+___ aV__@+___ cL__;`v___+___ +___+d6___[___d0@_K81@_8; +___+0@_:_1@_)6+___+0@_:_1@__t+___+1@_K{+___+aL___+___1av___bL__;,j___ S ___P@__9P@__;,j___l6___`L___+___)mv___+___6lv__@+___7_d___ ___;& ___ @__;+___)___9?_________________x____________________B __[yI__\_y__\_1 __[Z'__[b___[b___[Fd__\____[Z'__[^___[Z&__[^___[iy__[iw__[ix__[iz__[iv __[f___[iz__[q^__[f___[iz__[b___[b___\____\____\____[iz___B __[yG__[qb __[yI__[yH__[uT__[q___[}?__\_/__[f___[f___\_/__[uR__\____[}:__\_1__[q` __\_3__[}=__[mo__[yG___9?.____ D_=F-\_P_4__054__=F4__=G4__=A4__=A+__=> +__=>4____ Z_=C \_=C _=C,!p__,!p__+___ __=e.__0( D_=f-\_K\4__=g4__=c4__=f4__0,4__=h +__=a __=d D_=g+__=O+__=a4____ Z_=d \_=e _=e,!p__,!p__+__=H __=d __=e -|p____O`___p=c_______O`__|_=h __>_2$_0bg____O____ &___2f_>_g____O____ A____4$_=uO@_>_ __0cX@_=o "_=q_b______>__ ___+__=u(24H INCS-INDEX OUT OF RANGE,I10//)+__>_ $___.__>_.__0c D_>_>__>_-\_P_4__044__>_4__>_4__>_ 4__>_ __>_7 ___.$___(___w &_________@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___`9? D__[ ____2D__bl____ D__b ,j___6N__},j___,___S,___x,___kZN____*___aV__ +___:`^___+____aL___+___< `^___+____a^___+___@,___HaV_`_+___YaV_ _+___C,____`V_@_+___C ___N R__M +___Y,___g@@___+___Y_d__`+____`V___6@___+___J! _Lu_`___4@__JZ _LuS@___ m__@_`V_@_+___v`^___+___;aV_ _+____,____,___q@____ .__!!"_A Z___9."H__ 9___U>______(9?__\_0__[};__\_/ __\_.__[yG__[uS___B ___B ___B _____________B __[V3__[Z(__[Z*__[Z'__[Z) __[Z)__[Z&__[Z+__[b___[Z(__________________B ___B __[iy__[b___[b___[iy _______[iv__[f___[iy__[iv__[i|__[iy___B ___B ___B ___B __[}>__[ml__[f_ __[ml__[f___[Z'__[f___[f___[Z(__[Z'__[iw__[Z'__[yJ__[ix__[iy__[ml__[ml __[b___[^___[b___[iy__[iv__[yG__[iv__[ix__[f___[Z'__[b____B _______x__ _____________ ___#____%`___*@___-____.@___/`___1____3 ___4@___6____6`_ __8____o@___r____s@___u@___x@___y`___| ____ ____@____`___8`___;____=@_ __>@___?`___@`___1`____ ____`_________@____@____`____ ____`____@____@_ ___@____ ____@____ ____@________!____$@___09?2F___+__=w"$___.__>_/__0c D_>_+__>_+__>_4____ _>_Q ___* _>_ _>_,!p__+__=h!<_>_X<___*<___ __>_ -|p___~_>_U$___ D_>""$___ D_>!-\_LL4__>"4__>_4__0(4__>!4__>"U$___2D_>" +__>_+__>_-\_LL4__>_4__>_4__0(4__0,4__>"+__>_+__>_4____ Z_> \_> +__>_ __> __> -|p________~P>" __>/XD_>' __>/XD_>%-\_Id4__>% @_>/-\_>J4__>' 4__>/+__>,+__>,4____ Z_>. \_>. _>., p__+__># __>. __>.\ _>/-|p___|_>0 __0a5$_>2+__>M $___3d_>R+__>4+__>M-\_@_4__>P __>QXD_>6-\_@m4__>64__>R 4__.r@@_>S __>R D_>S:__>S __>S.__>Q ____5D_><+__>M __>S.__>Q $___XD_>? -\_P_4__074__>?4__>U4__>T-\_TC4__>S4__>T @_>T :___ Z_>U $h>UXD_>E-\_@_ 4__>E3:_>T9__>C"__>T.D_>S __>S5d_>9+__>M+__>M4__________@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?,___y +___~,___y+___he^___,___y+___ga^___+___x ___Y2B__c+___pa^___+___{ ___Z 2B__d+___pl____l____+___Y4D__}3D__.2B__.+____+____aV_`_+___r+___p`V_`_ +___s@@__c@@__d+___n`V_`_+___p@@__c@@__d+___{aV_@_+____>`___+____,___U +___Y_____4@___ @__c ___| @__e>_________R@__d,j___ ___N.&___ ___M.2___ 2r___+___Y R__M _H__4@___ @__c _H__R@__d,j___,____ &__IQ____*&___ 2__r R__M R__N,j___ ___? ___=,___a\D__=\B__?_b___dv__ +___zaL___+____-"__: Files deleted:_+___#6@__77@___+___!,j___O@___-"__:Files renamed:_ (___ ,___= (___,___=_b___,j___ &__c,____+___#d____l____! _ _2@__Y7@__Y+___+ l____7@__ZaV__ 3@__Z+___.l____aV_@_+___27D__[+___12D__|l____+___2 ___| __H9?__'____*@___,____.____/@___1 ___2@___4 ___` ___a@___d`___________ _______C`___E ___G ___J ___K`___N ___Q____R____U`___X ________________ ___`____ ____`______________@____`____ _________ ____@________________ __f____5`___9____; ___=`___@____B`___D@___I____J`___L`___N@___P ___R__ __U ___W ___Y`___\____^ ___`____b`___d`___g ___h@___j ___k@___m@___!@_ ___ ____________________________P9? Z_>P \_>Q _>Q, p__,!p__+__>0 __>P __>Q\ _>R,Ap__-|p________i0>W __0a5$_>Y+__@_ __@_ D_@_ $___2$_@_g____ O____ __@_0&___g____O____G____4$_?e:__@_L__.r5$_>b $__ .D_@_6b_@_0b__@ 7____+__>c4__@_4__?E4__?Z4__?$4__?$4__?$4__?a4__?c4__@_4__?$4__?$4__?$ 4__?$4__?m4__?~4__?|4__?$4__?$4__?_4__?$4__?$4__?$______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?Q __` * __DaV_`_+____,___(`L___+___8`V___+___>+___G`V_@_+___:,____+___J@@__C ___<*"__L "__C B__M ___Y4@__D ___M @___ ___Z @___ $__G3D___>___}6@__} +___E:___M,___S`^___+____+___<,___y+___B,___H "___+___^,____ ___9_$__2 _d___,____,____,___g+___TaL___,___& ___M`L__ +___X@@___@@___/___N &__! !$_A X___N/$__)_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __@9?,___=dV___,____aP_ _+___r,J___Z`___`V__ 0@__Y+___id____+___R:___c 0b__s+___~,____ ___Q @__c ___Q @__d,j___-"__5?Terminate /X, max. of 99 9 files processed!__ :__t ___<-$__}9___Z/(____H___,j___ ___8P@__9 ___8 P@__;,j___aV___,j___Z___9[____d____1@_P_m__ _0@___,j___! _x_G@___,j___ a^_ _+____ ____[____2@__. @__`0B_ _QB__a ___`[___a0B_ _3@__.+____h__P_ iV_P_,j___h__(_hV_(_+_____ __)_`__(,j___h__0_iV_0_,j___h__H_hV_H_,j___ [___d0@_8;,j___]___e"`___&"___5D__!<_____b__(,j___h____iL___aV_@_+___Y \"__{ ___c7F__H+___Y2D___3F__.+___(+___+R___d7F__M,j___2D___3F__.,j___ 8"__$+___Y`^___+___I`L___+___1aL___+___0a^__@+___% ____ @___ @__bd__c ,___) __C___9?________________________A____A____A____________________ ______________A_______________________________________________________ ____A______________A_____________________________@_________@____@_____ ___________________C__________________________________________________ ___________________________________________________________B__________ ___________________A____A___________________________x___________A____A __________________________________A____B____A_________________________ __________________________________@____B_____________________________A ____A____@_____________________________@____A____@______________@_____ ____B__________________9?ST TAB POSITION.TAB IGNORED.) O@_0_+__@_"$___ D_@_"&___ F_@_-\_A 4__.r4__.s4__@_4__@_4__@_O@_0_+__@_"$___.D_.s"$___ D_@_-\_B_4__@_4__@_4__@_O@_0_+__@_"$__ .D_@_+__>b@@_.r"$___ D_0_+__@_ O@_.r"$___ D_0_+__@_>__@_ __0cX@_?g "_?h_b______@__ ___+__?l(23H ILLEG AL CHARACTER CODE,I7) @@_0_+__@_ :___ Z_@_ __.s2$h/_+__?q _h.t D_.s +__?T3:_.t9__?n __0cX@_?t "_?u_b____ ___+__?{(54H Y BEAM POSITION BEYO ND LAST TAB POSITION.TAB IGNORED.) O@_0_+__@_ __.s D_.r+__?T __.t D_.s +__?T"$___ D_0_+__@_ $___.D_.r-\_B_4__@_4__@_4__@_O@_0_+__@_+__@_4____ Z_@_ \_@_ _@_,!p__+__>X __@_ __@_\ _@_,Ap__-|p_____B ________ ______ __p@_____t______t_@_ __0a5$_@_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___`9?`^___+____,j____*____(___ _$____&___-2__~ ____@__? ____@__?Q"_A`_____4@___1@___+___,_@__?+___: ?`__@_b____H__?,j___ _(__Q"_A@_____4H__B.(___,___=`b_p_+___@+___Ya^__@ +___%`V___+___Q`^___+___9aV___+_____d___,j___,___HaV_ _+___K,____,____ `V_@_,___g@@__V $___ ___:_____5@__O ____`___=d__N ___` @__Q ___a @__Q ,____,___g+___p,___"+___RaV__ +___W,___y+___X_F__c+___o,____,___s ___c @__`R___dR@__a@@__a_ __)cL__;`v___+___`_`__*_ __1h__P_iV_P__`__1,____ _d__`+____ ___* @__Nl,___@@__Sav___bL__;+___+? __:+___g____9,___P+___e ,___s,___R:___;+___e__________`v___aV___+___n ___V @__a_$__`+___",___S +___R:___V+___Rd6___7@__V+___>!.___+___a6@__:,j_____(9?_______________ _____________________________@_____________________________@__________ _____________________________E__________________________________B_____ ________________________C____________________________________________@ ____B____@______________________________________________________@____B ___________________A____A____@________________________________________ ____B____@_________________x________________A____A____@_______________ ______________B__________________________________A____________________ ____@____B__________________________________A____@____A____A__________ ___________________________________________________________@__09?+__@q @@_0_ $___3d_@v+__@_+__@q@@_@x __@v D_@y $__ D_@y __@w5$_@_@@_@y@@_@z :__@x __@x.__@v ____4D_@j __@x.__@v $___XD_@!-\_P_4__074__@!4__A_4__@z -\_TC4__@y4__@z @_@{ :___ Z_@{ $___ __@{.__A_ D_@|"$___.__@|4$_@,4D_@+ @@_@y+__@f $__ D_@y+__@f __@y.D_@| __@| __/_ D_@| __@|&__@r D_@}"$___ .__@}4$_@f5d_@6 __@y4D_@f"__@y.D_@| __@|4d_@f+__@- $___ D_0_ $___3d_@} +__@f-\_T[4__@|4__@s @_@} $___2d_@}+__@f __@z5d_@M $___.__0".__0c D_@~ -\_P_4__044__@~4__@~4__@s4__@s $_ _.__@~-\_T[4__@~4__@t/____ @_@w-\_T[ 4__@~4__@t.____ D_@~-\_C34__@z-\_Ck4__@z-\_P_4__054__@~4__@~4__@s4__@s __@r.__@| __@| D_/_ __@| __/M D_@| __@|7 ___.$___(___y D_@_ __@_(____ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~____9?_____-"__: not available!_____`V_@_+___#,___y+___~l6__ +____-"__:? No file named ____ &__Y,____,___#aV___,j___`V___+___H+____ 7@__`+____`V___+___"-"__5? Directory full!___`V___+____-"__5?Illegal f ile name!_-"__5?(0) Illegal file name!__-"__5?PIP command error!_-"__5 ?PIP command too long!___-"__: line too long!_____-"__5?Too many input devices!_-"__5?Disk or DECtape input required!___-"__5?Incorrect Proj ect-Programmer number!___-"__5?Illegal protection!_____-"__5?DECtape I /O only!__-"__5?Explicit output device required!__ ____4@__4_`___a`___ +___-l__@_,*___,J___+___44@__ua`___+____``__@l____``___l__ _``___l____ ``___l___ ``___l______H9?_____________________________________________ __________________________________A_____________________________@_____ ____@_________________________________________________________________ _____________________________________________________________________A ____A____A_________________________________________________A____A_____ ___________________B____@_____________________________________________ __x______________________________________________A____________________ ______________A_________@_____________________________________________ ______________________________________________________________________ ________________________C_______P9? __@z.____ __@| F /M __@z.__0c D_@_ __@_ D_@|"$___.__@}.__@_ D_A_ __@_ Z_A_ $h0pXD_@]-\_P_4__054__@]4__@_ 4__@s:__@_3:_A_9__@[!$___ __@_.__0p D_@w-\_P_4__054__@w4__@|4__@s4__@s __@}.D_@z __@{3:_@{9__@%"__@{.D_@y __@y5d_@_ __@z4d_@l __@z D_0b+__@q +__@q4____ Z_@u \_@u _@u, p__,!p__,!p__+__@_ __@u __@u-|p_____B ____t __p@s___@____ __{_A_ __0a5$_A_+__A% __0$4$_A_ __A.0$___g____O____ __A. 0&___g____O____A____4$_A_ __0e0D___g____O____ __A.2F_0dg____O____ __A. 2H_0dg____O____A____A____4$_A_-\_G/4__A)4__A*4__A*4__A.4__A.@@_0e __A- 1$___g____O____ __A,1&___g____O____G____5$_A_L__A- D_A/-\_G/4__A+4__A* 4__A/4__A,4__A-+__A%+__A%4____ Z_A+ \_A,______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?`L___ ___-.____ A___, ____A___*(___~/____G___*eL___ D__Nl__P_:____ ___: B__W+_____F___ +___Z_F___aV___`P_@_aP_D_,j___,____-2__~,___K-"__:Input device __,___? _____7@__c+___G-"__:: file ___ &__c,____ ____A$_a ,___a__@__,j___ (___ al__@+___=aP_@_+___OaV_(_,j___+___=`P___aV_9@,j___+___=`l___+____:___W `v___+___[1H___+___a1H___+___]d__ _1H___+___`1h__/1(___+___Y?`__T+___` ;_(__@____,j___0"__$0b__(+___S (___+___SdL_ _aL___+___` ___R @__P ___ @__T+___YlL_ _+___d ___P @__R @__R@@__T:___T>`__T+___Y0"___aL___+___i ___R @__P (___@@__T_`__R+___` .___7@__c+___m-"__5?File ____ &__c,____ +_8__-"__5?____ &__`,____+____7____ ____-"__5?Device __,___?__h9?_____ ________________________A__________________________________A_________A ____________________________________________A____A____@_______________ _________A_______________________________________C____________________ ______________A___________________A____A____@___________________B_____ __________________________________@____B________________________A____A _____________________________A____A____@_______x_____________________B ______________A_____________________________A____A____A_______________ ______________@_____________________________@____B____@_______________ __________________________________A____A____A_________________________ __p9? _A,,!p__,!p__,!p__,!p__,!p__+__A_ __A+ __A,\ _A.,Ap__,Ap__,Ap__ ,Ap__,Ap__-|p______________xA*______q_A/ __0a5$_A1+__B __B(0D___g____ O____ __B'0F___g____O____A____5$_A7+__B L__B( D_B*-\_T_4__B' @_B*-\_T_ 4__B( @_B+ $___ D_B+ __0e5D_A? $___ __0d,__T( D_B+ __B*$__B+ D_B, __B+ $__B+ D_B, $___3d_B,g____O____ &___3f_B,g____O____A____4$_AT __0cX@_AH "_AK_b______B'___B(___0d___0b_ ___+__AS(17H VECTOR INCORRECT/6H DELX= ,I8/6H DELY=,I8/ 7H SCALE=,I3/5H DAC=,I7//) +__B @@_B- __B'5$_AV $__@ D_B-@@_B- __B(5$_AY $___ D_B- $___ D_B. __B*5$_A[@@_B. __B-.__B-.__B. D_B. __B*2d_B++__Ac-\_TP4__B+ @_B/-\_TP4__B* @_B/O@_B0+__Af-\_TP4__B* @_B/-\_TP______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?_ ___+ ____ ___O@__f ___,j___ ___9_b___+ ___ +___wA____B____T____W____8____5____2____E____U____F____D___ P___@#____ _____Q____E____F_________A____B____C____D____L____M____)____N____O___P P_`__R___ S___PT____V____X____Z____U____Y____J ___I____H____G_________ al___el___+_____(__91H___+___(1h___1(___+___'1h___7_$__!_$___h__9(H__| A(___dH__@l,___5H__Y,J(__+___8aL___+___#____W5H__Y_"__9 (___1b___1"___ (___d____+___`:___9/"___ B__:`L___+___# D__N,___"__:+___+,___=`P_ _,j___+___#l__@_m____ (___+_____ __W_R_?@_`__@___E_ _X_______9cL__6`v___+___Y_(__94H__#1H___al___+___1l,___+___# ___9dD___ +____dL___aL__@+___Q ___N ___,___9?_________A_________________________ ______________A____A_______________________________________A__________ ____B___________________B_______________________________________@____A ________________________B_____________________________@____A____@_____ ___________________C______________A_____________________________A____A ____@_____________________________@________________________@____A____@ ______________________x_______________________________________________ ____________________________________________A____B____@____A__________ _________A____C___________________B____A____@_________________________ __________________________________@____A___9?4__B+ @_B/@@_B0"__B$___B/ ___B$-\_TV4____ @_B0 __B05d_Am __B* D_B1 __B+ D_B1+__A~@@_B2@@_B2!$__~ ___B/___B/ D_B3 __B04$_Ax $__? D_B1-\_TV4__B3 @_B1!$__~ D_B3!$__~ D_B4 __B3 D_B4 __B3 D_B5+__A~-\_TV4__B3 @_B1 $__? D_B1 __B3 D_B3 __B3 D_B4 !$__~ D_B4!$__~ D_B5 __B..__B1 __B1(____.____ D_B5 __B05d_B_-\_G/4__B% 4__B54__B%4__B&4__B&+__B >__B0-\_G/4__B%4__B54__B%4__B&4__B& __B1.D_B2 __B1.D_B2 __B05d_B_ __B*/__B2 D_B1 $__@3d_B1+__B_ __B+/__B2 D_B1 $__@ 2d_B1+__A~ __B3_D_B4 __B4_D_B5-\_TP4__B2___B4"@_B)-\_TV4__B) @_B1-\_TP 4__B2___B5"@_B)-\_TV4__B) @_B1+__A~+__B 4____ Z_B& \_B' _B',!p__,!p__ ,!p__+__A0 __B& __B'\ _B(/ ___,Ap__,Ap__-|p__ 0_________@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?+___: 0@__(1@__!+___8+____XX__~,___C+___0QX__~+___9,___C0@__&1@___+____+____ 8___,___^1@___+___>0 ___0`___,j___$8___A ___.____+___>,___^ ___9 4__e aL___X$___aL___ 4____&___5F__Id____ 4___`v___,j___1F___ 4___1F___+____ 2F___9___F ____GRP__`L___GR__|`l___+___8,j___6@__7+___c>`__>+___X ___= ___?,___a\@__=\R__? ___{1r__"+___V,___#_B___ ___>_"___ R__>____>0@__> 1@__? ___4@__P0 __0d____0@___1@___+___P,j___6@__7+___c? __{+________{ ,j____"___iSH____p_=_`___,j___7@__0+___g____0Z___02<__1+___q+___Y>`__5 +___m_@___+___m_`_ _+___q-"__5Read error-CCL command file!______4 ___4 a\___+___Y:___4"<___.\__5+___c6@__0+___x7@__7+___w_____@____["__61B_K8 __(9?______________D______________C___________________________________ _________@___________________A__________________________________A_____ ___________________B____@_________A_________B______________C__________ ___________________@__________________________________________________ ______________________________________________________________________ ___________________@_____________________________E_________________x__ ______________E___________________E___________________________________ _________A____A____@________________________@_________@_______________ ___________________B_______________________________________@__________ ____@____A__09?!_`__________________}_B5 __0a5$_B7+__BI __BN D_BS __BO D_BU __BO D_BS __BP D_BU __BP D_BT __BQ D_BV __BQ D_BT __BR D_BV-\_Bv 4__BN4__BS4__BL+__BI+__BI4____ Z_BM \_BM _BM,!p__,!p__,!p__,!p__,!p__ ,!p__,!p__,!p__,!p__+__B6 __BM __BM\ _BR/ ___,Ap__-|p________{_BV-\_T_ 4____4__B_4__C_4__B|4__B|4__B| __0a5$_B\+__Bz@@_C_ __C_5$_B^ $___ D_C_ @@_C_ :___ Z_C_ :___ Z_C_ $___$D_C_ ____$__B~ __C_$__B~.____ __C_.____ "__B_.____ _0__4D_Bn $___.D_C_ ____$__B~ __C_$__B~.____ __C_.____"__B_ .____ _0__4d_Bn>__C_1:___9__B` __C_1:___9__B_ __C_.__C_ D_C_-\_G/4__B| 4__C_4__B}4__B}4__B}+__Bz+__Bz4____ Z_C_ \_C_ _C_,!p__, p__,!p__+__BW __C_ __C_-|p_____________@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?sum or parity error_+____physical e ot___+____block or block number too large_____(____*____$____&___+___, monitor detected software error____al__@+___~-"__:______"___`V___,____ `V___,___Hd__@_`D__@d____!___8* ___ ___B ___B,j___ ___8* __A R__B T__B `V____$___`V____&___,j___ ____[____1T_YR@____ B___4T___0T_YR+____[____ $__=,___~ (___,___=Z____,___~l4___ T___,___?_____,___?_____ (___+___= ,___^1@___+___;1@___+___01@___+___'0@__-,j___,___*0x___+____0@___+___% SX__[+___!XX__[1@__.+____+____,___*1@___0x___+____(8__{TX__Z+____ 8___ ,___^1@___+___+0 ___0`___,j___ ____(X___.8O_h+___+,___C1@___+____1@__& l____0@___+___0aL___+____,___=0@__"1@__ __H9?____@___________________A ____________________________________________@____A____________________ ____A_____________________________@____@____@___________________B_____ ________________________@____A____@___________________________________ ________________________@____A____@___________________________________ ___________________@____A_________________x___________________P9?_____ ___________yPC_ __0a5$_C_+__C6 $___.__0".__0c D_C? __0$5$_C_@@_0$-\_P_ 4__044__C?4__C?4__C84__C8-\_T[4__C?4__C9 $___.____ D_C?-\_P_4__054__C? 4__C?4__C84__C8 __0e5D_C$:__C?-\_P_4__044__C?4__C?4__C84__C8 $_@_.__C? -\_T[4__C?4__C9/____ @_C>-\_T[4__C?4__C:.____ D_C?-\_P_4__054__C?4__C? 4__C84__C8-\_G/4__C:4__C;4__C;4__C<4__C8 __0e D_C@@@_0e __0b D_C=-\_G/ 4__C;4__C;4__C;4__C<4__C8-\_G/4__C;4__C84__C;4__C<4__C8:__0bO@_0e $___ 2$_0b+__C/+__C6 __C@5D_C2 __0b __C= F_0f+__C6+__C64____ Z_C< \_C= _C= ,!p__+__C_ __C< __C=\ _C=,Ap__-|p____HC8___ _________@________________ ______ypC@ __0a5$_CB+__Cn __0b5d_CR __0cX@_CD "_CF_b______Ct___0b_ ___ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~___ 9?!&_>9 F___ ___Y F___,___q@@___ <___6@__7Q<____|___+____ `L___+___@ ___+3D__P,j________,___P+___>`l___+____`V___+___= "___ $___ ___P_D___=b__D $___Z___P/"___4B__O$B___3d__;+___K,___R 4___bT___aV___ +___K.$__P"`___.D__;Q$___X___;8____.b__;*$___,j___ (___?`__;,___R_H__; ,j____d___+___Z_D___,___U__@__,j___aV__@+___W`P___+___XaP_@_+___Y,____ -2__~,___K-"__:Output device _,___?_____7@__`+____-"__:: file ___ &__` ,____ ____A$__@ "__y`P___+___: "__qaD__ "___aD_@_ "__laD_y@ "__n`P___ +___: "__t`P___+___: "__v`P___+___:Z___.aD___ "__{+___:write (lock) er ror__+___~binary data incomplete___+____7-9 punch missing___+____devic e error___+____check__h9?______________________x____________________B __[yI__\_y__\_1__[Z'__[b___[b___[Fd__\____[Z'__[^___[Z&__[^___[iy__[iw __[ix__[iz__[iv__[f___[iz__[q^__[f___[iz__[b___[b___\____\____\____[iz ___B __[uS__[uV__[qa__[}<__[q`__[q___[uV__[};__[b___p9?+__CQ(51H CALL TO ENDSUB BUT NO SUBPICTURE IS BEING DEFINED./6H NAME=,I10/6H DAC =,I1 0/13H CALL IGNORED//) +__Cn-\_G/4__Co4__Cp4__Cp4__Cq4__Cq __Cr.__0b D_Cv __Ct.__0c D_Cw-\_P_4__054__Cv4__Cw4__Cq4__Cq>__0bO@_0e $___3d_0b +__C^O@_0e+__Cn __Cr.__0b D_Cv"$___.__Ct.__0c D_Cw-\_P_4__054__Cv4__Cw 4__Cq4__Cq"$___ D_Cu"&___ F_Cu-\_G/4__Cs4__Cq4__Cq4__Cu4__Cu+__Cn+__Cn 4____ Z_Cs \_Ct _Ct,!p__+__C@ __Cs __Ct-|p________________________hCq __K____L________uxCw __0a5$_Cy+__DE __DM3$_0bg____O____ &___3f_DMg____ O____G____4$_D8 __DM.__0c D_DM-\_P_4__044__DO4__DM4__DH4__DH __DO7 ___ .$___(___x &___2F___+__D_-\_G/4__DH4__DI4__DI4__DM4__DH"$_________@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __@9?,j___d____ B___-"__5?Device __,___?_____-"__:does not exist!_____ *__~ ___O @__(,___a______"___ ___(Z@__O_b___+_H__@@___ ___8* __H,j___ a^___7 __}+___)d____6B__~+____d___ @@__Z@@__Y ___+,____0@___0 __ 0`__- +____/ ___`b_p__@___+____0 ___0`___+____+____1`___1 ___1@___+____1@___ ?___}1@___+____1@___+___%1@___+___"1@___+___.1@__ +___21@___+___61@___ _`___0@__/+___,l____`^__ l___@7B__Z+___'*___YRB__Z,j___@@__~1B___+___) B___l___ +____a^__ +___(7B__Y "___ B__~+___* ___Y @__Z+____7@__Y`^__ ,j___6B__Y+___!l____@@__Z@@__Y,j___H___Y1`__/1`___+____+____,____0`___ 1`___+____0@___1@___+____+___. ____ F___ ___Z F__5 ___Y7@__5*___5+____ `^__ 7F______9?__[q`__\_/__[q^__\____[}:__[yI__[q`__[yJ__[yH__[qa__[}; __[}<__[mj__\____[}:__[yG__[uT___B ___B ___B _____________B __[V3__[Z( __[Z*__[Z'__[Z)__[Z)__[Z&__[Z+__[b___[Z(__________________B ___B __[iy __[b___[b___[iy_______[iv__[f___[iy__[iv__[i|__[iy___B ___B __[f___[mm __[Z(__[iz__[b___[^___[i{__[f___[Z'__[Z(__[f___[Z&__[uX__[f___[b___[f_ __[f___[f___[f___[b___[f___[b___[yH__[mk__[b___[iy__[Z'__[b____B _____ __x_________________________ ___&@___) ___.____0@___2____3 ___4@___6`_ __8____9@___: ___;@___s____u@___w____y____|____} ____`____`_________ _ __< ___>@___A____B____C ___D ___1`____ ____`_________@____@____@______ ___9? D_DM"&___ F_DN-\_G/4__DJ4__DH4__DH4__DM4__DNO@_0e"$___.__0b/__0" D_DO $___.__0c.__0" D_DP"$___.__DO4D_D_5d_D7 $___ D_DP"$___.__DO4D_D, +__D7 $___.__DP D_DM-\_P_4__044__DO4__DM4__DH4__DH __DO7 ___.$___(___y D_DM-\_T[4__DM4__DJ"&___.____5F_D7 $___ D_DP $___.__DP D_DM-\_P_4__04 4__DO4__DM4__DH4__DH __DO7 ___.$___(___y D_DM-\_T[4__DM4__DK"&___.____ 5F_D7-\_P_4__044__DO4__DP4__DH4__DH-\_T[4__DO4__DK $___.____"&___.__DP (____.____ D_DO-\_P_4__054__DO4__DP4__DH4__DH+__DE __0cX@_D9 "_D;_b___ ___DM_ ___+__DA(//18H SUBROUTINE CALSUB/24H INVALID SUBPICTURE NAME,I1 0//) +__DE+__DE4____ Z_DL \_DL _DL,!p__+__Cw __DL __DL\ _DM,Ap__-|p__ __HDH___________@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?,___<+___+_(__P1H___aV___+___<@_____h__P,___< `L___+___i_____+_____*____&___6.__}+___F_____,___S`v___aV___+___E_ __/ _`__0_$__`+___"_$___+___,,___S,___x,___kZN___+____`^___,j___ ___P B__( __9 @________+___r_____*___(/___PZ____/___(&@___ .__H1"___+_________ ___9 @__8,j___@@__|dV___l____@@__~@@__Z@@__[,____ ___ZRB__Zd__c ,___) ____aV_@_+____,___r`V___+____aV___+____ ___}6@__[+____ D__[ D__|6@__~ +____[___~5D__a $___QD__~Z___~5D__(:___~+___( ___ZaB___+___gRB__VRB__Z m6___@b__Z,j____`___a`___+___kl____,*___,J___,j___4@__va`___+____``___ l____``___l____``_@_l____``___l____``___l___@,j___2@__7,j___ ___X B__[ l____,j___m____l____ ____3B__7__(9?________`____`____`____@____`____@_ ___`____@___ @___#`___&____(`___* ___, ___- ___/____0 ___2____` ___a@_ __d`__________________G ___H`___J`___M`___O ___Q`___T@___U@___Y ___[`_ __________________ ____`____ ____@______________ ____`____@____`___ __ _________________f____4____7____9`___<____?____A`___D____G@___J____K`_ __N____P ___Q@___U`___X ___Z@___]_____@___a`___d@___f ___i____j@___l`_ __n ___p ___%____"`_______________________09?_________________________ ______S0DP@@_G>@@_G?6b_G;0b___7____+__DS4__DX4__Dh4__Ev4__F+4__F_4__G_ 4__G_4__G- __G; D_G? __G; D_G@L__0a4$_D]@@_0a"$___.__G@ D_0c+__Db __0c .__0b D_G=-\_P_4__054__G?4__G=4__G64__G6:__0b __G>5D_Dd+__G46b_G>0b___ 7____+__De4__Dn4__Eh4__Ek4__Eq4__F` __G; D_G@ __G< D_G@ __G= D_GAL__0a 4$_Dr@@_0a $___ D_G>+__DZ __G@ D_GA@@_GB@@_GB $___ D_G?+__Eq __0%4D_E_ 5d_E_O@_0" $___.__0c.__0" D_GC-\_P_4__044__GC4__GC4__G64__G6-\_T[4__GC 4__G6 @_GD __GC/__GD D_GD-\_T[4__GD4__G7 __GD.____ D_GC-\_P_4__054__GC 4__GC4__G64__G6 $___.__0%5$_E_ $___.__0c.__0# D_GC-\_P_4__044__GC4__GC 4__G64__G6 __0".__GC-\_T[4__GC4__G7/____ D_GC-\_P_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?6F__Y aL___+___~6@__`+___~[___Z0B_ _3F__.+___~ F__`SB__aaV___,j___ ___~ ___| 4___+___n ___6 B___ ___O B__(_____+___q_$___*___(/___OZ____/___O(____ &@___ .___1"___+_____$___ ___; @__8 ___(Z@__P,j___a^___,____eL___+____ ,___D_$____*___a^___+____+___,Z____. ____`___+____+_8__-"__5?Not enoug h core_____`___`L__$+___,`L___+___IaV___`L___+___D`^___+___D,___H`V_ _ ,____`V_@_,___g,___g+___#_F__c+___wl,___,____`V___+___',_____d__`+____ +___'eV___+___~+___>`V__ d____mV____d___+___=l____,___=d____,____`P_ _ +___%7@__:+___'l____ ___+ @__P@@__W,____m____,___P,____+___9cL__6`v___ +___. ___P1H__?+___83B__++___j_H__P1h___1(___+___6+___81h___1(___+___/ __H9?_________________x_____________________B_________________________ ______________A____A___________________A____A___________________A____A ____@______________________________________________________B____B_____ ____________P9?4__054__GC4__GC4__G64__G6 __0" D_0# $___.__0c.__0# D_GC -\_P_4__054__G84__GC4__G64__G6@@_0% $___.__0"2$_0b+__E_@@_G?>__0b __0b 3$_0&+__E% __0a4$_E% __0cX@_E_ "_E__b______0b_ ___+__E$(22H DISPLAY FI LE TOO LONG/18H CURTAILED AT DAC=,I10) O@_0a __0$4D_E(5d_E9 $___ D_0$ +__E9 $___2d_G@g____O____ &___2f_0bg____O____G____4$_E9 $___.__0c.__0" D_GE-\_P_4__044__GC4__GE4__G64__G6-\_T[4__GC4__G7 $___.____ D_GC-\_P_ 4__054__GC4__GE4__G64__G6 $___ D_0$ $___ D_GE $___3d_G@+__E< __G@ D_GE $___2D_G@+__E>@@_GE __0f4D_EB@@_0f __0b __GE F_0k+__EL __0e4D_EL@@_0e __G8.__0b __GE(____.____ D_GF"$___.__0c __0b.__0f D_GF-\_P_4__054__GF 4__GF4__G64__G6 $_________@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?_"___@l__Y@v___Z _>9S@___ ___4* __~ @____6@__7+___F ___E,___P:___{0n__d+____1@___,___w_@___6@__f+___F1`___ 1 ___1@___+___A+___>H___f! _Lu_`___4@__H! _Lu @____"___ ___E @__{,____ 6@__~+____6 __}+___P6@__7+___,a^___`^___6@__Y+____+___, ____ @___,___h ,___`,___d ___~ @__U ___| @__U ___5* __baV___@@__bd____@@___! _Lu_`___ 4@__Z! _Lu @___,___Sav___+___bZ _>9S@___S@__b ___- @__Y! _ _ @__Zd____ l____ ___X @__[>___}d__c ,___)l6___`l___+___Vh___ iL__ ,___s .___,___u ,___k`l___l___ ZN___ .___,___x,___kZN___,___(+____al__ +___ml____d____ aL___+___ol____d____`l___l____`L___,j___`L__$l____,j___d___ l__ _ ___5 * ___,j___aV__@,j___ ___U ___U 4___+___n__h9?____C______________A____A ________________________A____A______________@____A____B_______________ ______________A________________________@______________A_______________ _________@____A____A_______________________________________A__________ ___________________C_____________________________A____________________ ___________________@__________________________________________________ ___________________B____A____A__________________________________A__x__ ____A____________________________________________B____A____@__________ __________________________________A____A______________________________ _________A__________________________________________p9?3d_GB+__Ek __G? .__GB.__GB.__GE D_GG $___2D_GGg____O____ &___2F_GGg____O____ __GG0H___ g____O____G____G____4$_Ek __GB3D_GE+__Ei $___2D_GBg____O____ &___2F_GB g____O____ __GB0H___g____O____G____G____4$_Ea+__Ec"__GB.__GE(____.D_G? +__Ei __GB4D_Ee $___.D_G? __GE4D_Ei $___ D_G>+__DZ __GE(____ D_G? $___ D_G>+__DZ@@_GG __G@ D_GB __GA D_GB __G@.__GG D_G? $___ D_G> $___3$_G@ +__DZ __G?5D_Es+__G46b_G?0b___7____+__Et4__F_4__Fd __0a5$_Ew+__G4 __G; D_GG __G< D_GH __G< D_GH __G= D_GI __GG D_GI $___2$_GGg____O____ __GG 0&___g____O____G____5$_F_@@_GI $___ D_GJ __GH5$_F_@@_GJ __GI4$_F_ $___ 2d_GI+__F_ __0cX@_F_ "_F__b______GH___GI___0b_ ___+__F_(12H ______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __@9?*____(___.7!p__"`___-|p__[> ____h1n _p__&_p__ ______x1p-|p__+____ _#d__+______x___?l______________________g____O____@@__7! _>9_`___ ___/ @__X ___3_`___@____a`___g____\ ___ @___[___(ZB__O4L__1_`___ ___4!$__8 D__1!$__@X___O D__2>___2_b___+____Q$_A` D__0O@__0.b__O B__1O@__7+___1 @@__0_b___ ___&"___.$___)D__}=`___X&__8 F__5!&_Lu F___!&_K8 F__6@@__7 @@___ &__4 F________+___"_@__5+___'_____ ___(Z@__OO@__7+___1-"__5?File ____,___?____5-"__:.TMP init failure!__O@__f-"__5?Command file _ &__5 ,____-"__: not found!____6@__77@__f+___1_____ ___X@__(_b___@@__7+___1 _`___-2__~6@__7+___6 ____@__? ____@__? ____@__?_b___@@__S ___ @__T ___* @__N___9?____B____A___________________A_________________________ _____________________________________________________________________C __________________________________B____A________________________B_____ ____B___________________A______________@____A____A____________________ _____________________________@___________________A____@______________A ____@____A__________________________________A_________@____A____@_____ __________________________________A____@__x______@____________________ ____@____@____________________________________________A_______________ _________@____A___________________A____@____A_________________________ ______________@________9?POINT FUNNY/3H X=,I8/3H Y=,I8/5H DAC=,I7//) $___.__GI __GI7 ___.&___(___{(____/____ D_G@ __GH4$_F% $_ _.D_G@ $___ D_G@ $___ D_GA $___ D_G?+__Dk __GH5$_F_+__G4 $___2d_GH+__F! __0cX@_F_ "_F__b______GH___GI___0b_ ___ __GH7 ___.$___(___{(____ __GH/____ F_G@ __G@.__GJ __GI(____.____ D_G@ $___ D_G@ __GI D_GA@@_G?+__Dk __0a5$_F- +__G4 __G; D_GG __G< D_GJ __G< D_GK __G= D_GK __GG D_GI $___2$_GGg____ O____ __GG0&___g____O____G__GJG____5$_F8@@_GI@@_GL __GJ5$_F: $___ D_GL @@_GL __GK4$_FI __GK D_0d $___2$_GK+__FG __0cX@_F@ "_FB_b______GK___0b _ ___+__FG(12H SCALE FUNNY/7H SCALE=,I8/5H DAC=,I7//) @@_0d $___.__0d D_GL@@_GM __GK4$_FY __GK D_0d______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___`9?_"_1/1B___(____ @___ F___ -|p__0_ __C______h10#_p__-|p__S__0__|@12#_p__+"_14-|p__U ___-|p__Kc__K ____ ____,__1> @___,~___Kc__J ____ ____,__1> @___,~___Kc__I ____ ____ ,__1> @___,~___Kc__H4B_1O5@_1B5"_1K ___,__0_U ___,~___4"_1P,>___ $___ D_1N5`_1HaB___+__1HL@_1N+__1H$____+"_1K(B___dB___$____+"_1K5b_1F ____ ,^___,~___U ___6 _1N+__1J"`___/ ___+__1J__(1N ___,~________aB___#`___ 0@___3@_1P,~___ ___,~___C6Md __h1T,__1^-|p__[&r____h1V,__1^-|p__[&r__ __X1X,__1^-\_1j___1c-|p__C6Md____1[,__1^-\_1d___1c-|p__ _p__9__1`2a___ ____ _p__h"_ _ab_~_9__1_ @_1c,~_____x1cM2|____@1d _p__& ___6@___h _F_ h"_6__ ___-|p__S; ____p1h+__1jS_O____@1j#_p__% _____(9?______________@ __________________________________@___________________________________ _________@_____________________________@_________A____________________ __________________________________@_____________________________@_____ ________________________@________________________@____________________ ____@_____________________________@____@____A_________________________ ________________________A____@______________A____A____________________ _________________x_____________________@______________________________ ________________________@__________________________________A__________ ____A___________________A_____________________________________09? $___ 2$_GK+__FW __0cX@_FN "_FP_b______GK___0b_ ___+__FV(16H INTENSITY FUNNY /11H INTENSITY=,I8/5H DAC=,I7//) $___ D_0d $___.__0d D_GM __GL.__GM __GI(____.____ __GL(____.____ D_G@ __GJ4$_F`@@_G@ __GI D_GA+__Dk $___ D_G@@@_GA $___ D_G?@@_0a+__Dk $___ D_G?@@_GB $___.__0c.__0" D_GC-\_P_ 4__044__GM4__GC4__G64__G6-\_T[4__GM4__G7 __GM/____ D_GM"$___.__0b/__0" D_GN __GM.__GN D_GM-\_P_4__054__GM4__GC4__G64__G6 __0b5D_Fu+__G4 __0c X@_Fw "_Fx_b______0"_ ___+__F~(46H ALL SUBPICTURE DEFS. NOT COMPLETED IN SEGMENT,I5) +__G4 __0a5$_G_+__G4 __G; D_GG __G< D_GN __GG D_GI $___ 2$_GGg____O____ __GG0&___g____O____G____5$_G_@@_GI __G9.__GN __GI(____ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~____9?___0 6$`__1X__-+__0S+__0V.___+h`_____0_s __0j __0k,>___ _____(___{jb___m8_~_d8_~_3"_0pg____(____,^___+__05@____6%__+1X__-+__0@ 1X__,+__0>,^_0k+__0V9____._______0[X8___`x___ 8___+__0aKbN@___`0_+@_0_ ,____+@_0__`_____`1_ _p__ _p__(@___-|p____`1_ _p__ _p__( ___-|p____`1_ _p__ _p__(____-|p___|`1_ _p__X@_1_ _p___@_1_-|p__,>________4`_1_"`___ Q@___ _1 _`________*b_1_+__1_ _1!_`______1"Z____5"_1_______ ___ _1_ _`____ ___ _1__@__~______ ___(@__q1@__,+__0_0@__#+__1_,^___,~___(30H TYPE G TO CONTINUE,X TO EXIT./1H )_(A1)_(1H 14A5/)(1H A5,1X,O6)__PAUSE +__1#_~@1# ____"#p__ %p__.$___Q____ &___ ___ F___.<___ ____$_p__.____ _p__/_p__$&___*d_1'__H9?_____________________________________________ ______________________________________________________C_______________ _____________________________B____@__________________________________C ___________________________________________________________A____A____@ ________________________A_______________________________________C_____ _____________________________A___________________A____A____@__________ _________B_______________________________________@____B_______x_______ ______________A____A_____________________________A____A____@__________ ______________B______________A_____________________________A____A____A _____________________________@__P9?.____ D_G@ $___ D_G@ __GI D_GA+__Dk __0a5$_G_+__G4 __G; D_GG __G< D_GN __GG D_GI $___2$_GGg____O____ __GG 0&___g____O____G____5$_G_@@_GI __G8.__GN __GI(____.____ D_G@ $___ D_G@ __GI D_GA+__Dk __0a5$_G_+__G4 __G; D_GG __G< D_GO __GG D_GI $___2$_GG g____O____ __GG0&___g____O____G____5$_G(@@_GI __G9.__GO __GI(____.____ D_G@ $___ D_G@ __GI D_GA+__Dk __G; D_G?+__G4+__G44____ Z_G: \_G: _G: ,!p__,!p__,!p__,!p__,!p__+__DQ __G: __G:-|p____HG6_____________ ______ __L____N____J___s@GO-\_T_4__H4 @_H6@@_H7 __H54D_GT5d_G^ __H54$_Gt+__H. $___.__H7 D_H7 __H45$_GX $___ D_H7 $___ D_H8 __H63$_H8+__Gk:__H7 __H1 3D_H8+__Gk $___$D_H8+__GY __H5 D_H7"$_________@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?+__0V_8_0o X_0k ___+ X_0l __0j 9_0l*__0lh8_D_Y___+bX_0o7__0k __0l X_0k ___+`x__ +__0p __0j7!_0k7__0wU8___,>____8_0w1x__?18__0+__0xA8___+_`08+__0@+__0A+__0G +__0<+__0@+__0@+__0G,>x__ __0j,__0k,__0l+__0U:__0kA8___ X_0k __0j,__0k +__0U __0k.8___A8___ X_0l,^_0k,>_0{U8___7 _0k_8x__,>___+__0< __0j,__0l +__0U+__0S+__0P+__0N+__0L+__0S+__0S+__0N ___+d8_~_l8___+__0T ___+d8__p l8___+__0T_8_0o_x_0{.8___d____l8___+__0TR___+d8_~_l8___*__0j+@_0j X_0j :___+ ___+h8_Z_`x_~_+__0\`X___ZX__+`x_Z_+__0\+__0| __0j+___+ __0iax__ :__0jax_@_+__0|X8___`x___ 8___`x__ 8___Z`___,>___,>___,>___Z__0i3b___ +@_0_,____p____p__0iZ__0i3b___+@_0_,^___,^___,^___+__0Z_}X0l__h9?_____ ________________________@____B____@___________________________________ ______________A____A____A__________________________________A__________ _____________________________A____A___________________________________ ____A______________B___________________B______________________________ _________@____A________________________B_____________________________@ ____A____@________________________C______________A____________________ _________A____A____@_________________x________________@_______________ _________@____A____@__________________________________________________ ___________________________________________________________A____B____@ __p9?.__H74$_Gb5d_Gi __H45$_Gk __H7 D_H7 __H45$_Gd>__H7 $___ __H7,__T( D_H8O@_H7 __H6/__H85$_GT+__Gk-\_TC4__H54__H2 @_H7 _HAX@_Q_ "_Gn_____ ___H7_ ___+__Gp('(1H+,I',I2,',$)') "_HAQ"____b______H4_ ___ __H54$_Gt +__H. "_Gv_b____ ___+__Gw('+ #',$) "_Gy_B______H9_ ___+__Gz(I) __H9 4D_G} __H9 D_H4+__H. "_H__B__} :___ Z_H8 _______H:1:___9__G~_ ___+__H_ (3A5)@@_H<-\_Id4__H; @_H7 __H75D_H_+__H.-\_T]4__H;4__H2 @_H7 :___ Z_H8 -\_Tg4__H7 @_H6 $___3D_H6+__G{ $___3D_H6+__H_ $___2$_H6+__H_+__H.3:_H7 9__H_+__H. __H72D_H8+__H_+__H.:__H8@@_H9-\_Tg4__H7 @_H6 $___3D_H6+__H_ O@_H: $___3D_H6+__H" $___ D_H: $___3D_H6+__H" $___3$_H6+__H& $___2d_H6 +__H& $_________@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?__h-j _p__B_p__-|p____h-l@@____`___-|p____P-n ___-s. ____`___. ____`___-|p____X-q_`___4____)@___O2vH1_~`-t__x-~_}@.r __0._ @_/_ _.__`___+__._ ____ @_0_ <_-D+____gg___M?_L@_~p._?CANNOT FI ND FORTR.SHR____&_.__`____&_.__`___?FORTR.SHR DOES NOT CORRESPOND TO I MP40________80_ \_/_ <_-D+__._*__/_+__0_*__/_+____+__1#_ H___t_0_,~___ :_x__,~________INX__G____YC __GSH__iSH__aS___aS___I'___IR___IR_ _IR_0_ IR_@_IR_P_IR_`_IR_p_[R___[R___[R_ _M?_L@INZ__INZ__INZ _INZ0_INZ@_I_2__ I_2 _I_20_I_2@_I_2P_e__X2G____iSH__YC __aS___iSH__ "_0"ZB__* "___+__0l _b___@@_0j,~___ X_0j>___+ X_0iax__ +__0*P_`__h8_Z_ax_~_+__0+_8_0m0x__? +__0V18__0+__0mA8___+_`0Hax_@____9?____A___________________A____C_____ ______________B____A____@_____________________________________________ ______________@____A______________D______________C____________________ ________________________@___________________A_________________________ _________A________________________B____@_________A_________B__________ ____C_____________________________@___________________________________ ______________________________________________________________________ ____________x__________________________@_____________________________E _____________________________E___________________E____________________ ________________________A____A____@________9?A__H6-\_Sk4__H94__H3G____ @_H9:__H: __H73D_H8+__H&:__H8-\_Tg4__H7 @_H6+__H_ __H:4D_H) __H9$__H: D_H4+__H.+__H.4____ Z_H3 \_H4 _H4,!p__,!p__,!p__+__GO __H3 __H4\ _H5 / ___,Ap__,Ap__-|p___P_d_________________~PHB __HOXD_HG __HOXD_HE-\_Id 4__HE @_HO-\_H}4__HG4__HO+__HL+__HL4____ Z_HN \_HN _HN, p__+__HC __HN __HN\ _HO-|p___yXHP __I_ D_I_ __I_ ____5D_HS@@_I_ $___ D_I_ __I_4$_H| 4D_Hz-\_TC4__I_4__I_ @_I_ __I_.__I_ $___XD_HZ-\_J_4__HZ4__I_4__H; $___ D_I_ __I_ Z_I_ __I_3DhH:+__Hj3:_I_9__H] "_He_b___ __I_ Z_I_ _______H: 3:_I_9__Hb_ ___+__Hg(1H+,$,15A1) $___.D_I_"__I_.D_I_ __I_4d_H|+__HV __I_3D_I_g____O____ D_I_>__I_ __I_5$_Hs "_He_b_________@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?\ _-, ,Ap__/ ___,Ap__-|p____________________________________________h-(_____ ____ _______h-3<__-40__-4F_p____P-5 _p___`_-3 _p___`_-4_ _-4-|p____H-8 _p___`_-3 _p___`_-4 _p___`_-4-|p____p-< !p__-|p____`-> _p__ ____ Cp__ -|p____`-@ _p__ _p__ C___-|p____p-C _p__-|p____p-D _p__-|p____p-F@@_-q 5__-I_~h-G ___ @_-q _p__/_p__8____(D___ "___/_p__(B___.____.#p__6@_-q 5__-P_ ___ Ap__-|p__ _p___`___-|p____p-Q@@_-q5__-T_~`-S ___ @_-q *p__ P_(__A__-r2F_-r-|(__ (___/_(__6@_-q5__-[Z"___(B __GCp__5__-]\"___O____ )B __ACp__9__-U__P-]L_p__Q ___.__-s @_-a ___@______X-a@____A_p__0B___ 8____-|p____h-d _p__A_p__-|p____h-f _p__G_p__-|p____h-h _p__F_p__-|p__ __(9?___________________@_________@__________________________________B _______________________________________@______________@____A____@_____ ______________A____________________________________________@____A_____ ___________________A_____________________________@____@____@__________ _________B_____________________________@____A____@____________________ _______________________________________@____A____@____________________ __________________________________@____A_________________x____________ __09? __I_ Z_I_ _______H:3:_I_9__Hp_ ___+__Ht(1H+,15A1) "_Hv_b____ ___ +__Hw(' ') $___.__I_ D_I_"__I_.__I_4d_H]+__Hg "_Hv_b____ ___+__I_+__I_ 4____ Z_I_ \_I_ _I_, p__,!p__+__HP __I_ __I_-|p_______^ _x(I_ __IH 4$_I%4D_I$ "_I__b____ ___+__I_('+:',$) "_I__B____ _H;4_____ ___+__I_ (16A5) $___.__IH&$___ D_II-\_TC4__II4__IE @_IJ __IJ __H: D_IJ __IE 2D_IJ+__I% __IJ.__IG@@___>__IJ __IJ4D_I$ __IE __IJ3D_H:+__I_ :___ Z_IK ____.__IG _hH: F___3:_IJ9__I_ __IGXD_I#-\_Id4__I# @_IH+__IB@@_IH+__IB :___ Z_IK ____.__IG _hH: F___3:_IJ9__I& $___.__IH D_II-\_T[4__II4__IF &___.____ F_IK-\_J_4__IJ4__IF4__H; :___ Z_IK $___/____ D_IL __IE __IL 2D_H:+__I5______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?O@_-2-\_-F4__-04__-+4__-(4__-( __-05D_,t $___ D_-1 :___ Z_-2 $___.__-1 D_---\_-F4__-04__-+4__-14__-- __-25$_,n $___ .D_-0 ____.__-, __-0 F___ $___.D_-11:___9__,g __-,@@___ $___ D_-,+__- @@_-1 :___ Z_-2 $___.__-1 D_---\_-F4__-04__-+4__-14__-- ____.__-, __-0 F___ $___.D_-11:___9__,u $___ D_-, __-25$_-_+__- :___ Z_-2 $___ ____ .__-,.____ D_---\_1n4__--4__-) @___3:_-,9__-_+__- __-,5$_-_+__- -\_1V 4__-,4__-) @_-3@@_-+@@_-1 :___ Z_-2 $___ D_-0 ____2d_-3+__-_ $___ ____ .__-,.____ D_-0 $___.__-1 D_---\_-G4__-04__-+4__-14__-- $___.D_-1 __-2 1:___9__-_+__- @@_-2+__,b $___ D_-++__- +__- 4____ Z_-* \_-* _-*,!p__ ,!p__, p__,!p__+__,) __-* __-*__H9?________________SUBROUTINE SUBRES__ _COMMON/BUTTON/FIX,MOVE,LINES,ERASE,BRING,___1ROTATE,STOP___COMMON/KUT U/IBOX(5)___INTEGER FIX,ERASE,BRING,ROTATE,STOP___DO 1 I=1,5___CALL DE __P9?1:___9__I0"__IK.D_IL __IL4d_I< :___ Z_IK ____.__IK __IE F_H:3:_IL 9__I8@@_IL __IH.__IL D_IH+__IB+__IB4____ Z_IF \_IG _IG, p__,!p__,!p__ +__I_ __IF __IG\ _IH,Ap__-|p_______ ______|_IL@@_Is __Ir ____4D_Ib $___ D_Is :___ Z_It ____.__Ir ____4D_IU3:_Is9__IP $__( D_Is+__Ib>__It __It.__Ir $___XD_IX-\_J_4__IX4__Ij4__Iu :___ Z_It __Ik"____2D_Iw+__I_ 1:___9__IZ>__It __It4d_Ib+__IU $___/__It &___$__It.____ D_Is __Is D_Ir +__Ih+__Ih4____ _IkQ ___* _Iq _Iq, p__+__IL!<_IkX<___*<___ __Ir-|p__ _____ _|`Iw-\_T_4____4__J_4__J_4__J_ __J_XD_I{-\_T]4__I{4__J_ @_J_ __J_XD_I~-\_T]4__I~4__J_ @_J_ :___ Z_J_-\_Tg4__J_ @_J_-\_Tp4__J_4__J_ :___ Z_J_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?4____ _,_Q ___* _,_ _,_,!p__+__+Q!<_,_X<___ *<___ __,_-|p___p_,( __-+5d_,*+__- $___2$_-++__,,+__- 6b_-+0b___7____ +__,.4__,K4__,64__,94__,<4__,34__,b4__-_4__-_4__-_ __-,XD_,4-\_-<4__,4 @_-++__- __-,XD_,7-\_->4__,74__-++__- __-,XD_,:-\_-@4__,:4__-++__- __-,XD_,>-\_-F4__-.4__,>4__-$4__-$ __-,XD_,A-\_-F4__-/4__,A4__-%4__-% __-,XD_,E-\_-F4__-/4__,E4__-&4__-& __-.(____ __-/.____ __-/(____.____ F_-++__- __-+ D_-0-\_-F4__-04__-+4__-'4__-' $___2D_-0+__,Q $___.__-+ D_-0@@_-1 :___ Z_-1 Z_-- $___.____ D_---\_-F4__-04__-04__--4__-- $___ 3d_-0+__,Z $__ .D_-0 __-,XD_,] $___.__-1 D_---\_-G4__-04__,]4__-14__-- $___.D_-1.:___1z___+__,R+__- __h9?FSUB(IBOX(I))___CALL BOX2((I+1)*30, 40)__1_CALL ENDSUB(IBOX(I))___CALL DEFSUB(FIX)___CALL HOLSTR('FIX')___ CALL ENDSUB(FIX)___CALL DEFSUB(MOVE)___CALL HOLSTR('MOVE')___CALL ENDS UB(MOVE)___CALL DEFSUB(LINES)___CALL HOLSTR('LINE')___CALL ENDSUB(LINE S)___CALL DEFSUB(ERASE)___CALL HOLSTR('ERASE')___CALL ENDSUB(ERASE)___ CALL DEFSUB(BRING)___CALL HOLSTR('BRING')___CALL ENDSUB(BRING)___CALL DEFSUB(ROTATE)___CALL HOLSTR('ROTAT')___CALL ENDSUB(ROTATE)___CALL DEF SUB(STOP)___CALL HOLSTR('CLOSE')___CALL ENDSUB(STOP)___CALL TERMIN___R ETURN___END____00010__COMMON /LOGIC/MATRIX(1000),IJK___00020__WRITE(25 ,110)_____00030_110_FORMAT(11X,'NAME',5X__p9?-\_Tp4__J_4__J_1:___9__J_ __J_3:_J_9__J_+__J_+__J_4____ Z_J_ \_J_ _J_, p__,!p__, p__+__Iw __J_ __J_\ _J_-|p__________________|`J_ __J34d_J$"$___.__J34D_J 5d_J$"$___ D_J4-\_K\4__J24__J24__0'4__J44__J5+__J0"$___ D_J4-\_K\4__J24__J24__0) 4__J44__J5+__J0 __0cX@_J& "_J'_b______J3_ ___+__J,(34H SUBROUTINE ENAB L-ILLEGAL ARGUMENT,I10//)+__J0+__J04____ Z_J2 \_J3 _J3,!p__+__J_ __J2 __J3-|p________|`J5 __JQ4d_JA"$___.__JQ4D_J=5d_JA"$___ D_JR-\_K\4__JO 4__JP4__0'4__JR4__JS+__JN"$___ D_JR-\_K\4__JO4__JP4__0)4__JR4__JS+__JN __0cX@_JC "_JD_b______JQ_ ___+__JJ(35H SUBROUTINE DISABL-ILLEGAL ARGU MENT,I10//) +__JN+__JN4____ Z_JP \_JQ _JQ,!p________@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?_____ _w8+J_________________________________________________________________ @@_,_ __,_3$_,_+__+S+__,_ __,_ D_,_ $___3d_,_+__+W $___ D_,_ $___.__,_ .__,_ D_,_ __,_.__,_ D_,_"$___.__,_3$_,_+__+n $___.__,_ D_,_-\_-_4__+L 4__,_4__,_4__,_4__,_ __,_7 ___.$___(___w &___2F___+__+n $___.D_,_ $___ .__,_ D_,_-\_-_4__+L4__,_4__,_4__,_4__,_ __,_7 ___.$___(___w &___2F___ +__+n+__,_-\_-_4__+L4__,_4__,_4__,_4__,_ __,_7 ___.$___(___y &___3F___ +__+{ __,_7 ___.$___(___w &___2F___+__+x+__,_:__,_ __,_/__,_5$_,_+__+n __,_/__,_ D_,_"$___.__,_2$_,_+__+_+__,_ $___.__,_ D_,_-\_-_4__+L4__,_ 4__,_4__,_4__,_ __,_7 ___.$___(___w &___3F___+__,_+__,_@@_,_+__,_+__,_ ___9?,'TYPE',5X,'CODE',5X,'INPUTS',_____00040_ 1 5X,'OUTPUTS',5X, 'STATES')______00050__WRITE(25,112)_____00060_112_FORMAT(11X,56(1H*))_ _____00070_111_FORMAT(11X,A4,5X,A5,5X,I3,6X,I4,7X,I5,7X,I4)______00080 __NAME1=5HDATA1_____00090__NAME3=5HDATA3_____00100__CALL IFILE(20,NAME 1)___00110__CALL IFILE(22,NAME3)___00120__READ(22,100)MAPREK,INPREK___ 00130__READ(20,100)(MATRIX(I),I=1,MAPREK)____00140_100_FORMAT(6O12)___ 00150__I=1_____00160_1_IF(I.GE.MAPREK)RETURN______00170__NAME=MATRIX(I )____00180__IYPE=MATRIX(I+1)__00190__NIN=MATRIX(I+2)________00200__NOU T=MATRIX(I+3)__00210__NS=MATRIX(I+4)____00220__IF(IYPE.EQ.1)ITYPE=5HSQ NTL__00230___9?+__J5 __JP __JQ-|p____xJO______|_JS __JsO@___@@_Ju __Js XD_JW-\_N_4__Jp4__JW4__Jq4__Ju __Ju4D_JZ+__Jn $___ __Js2D___+__J] __Js ____ D_0$ $___ __Js3D___+__J`+__Jn $___ __JsA____.$___ D_Ju __Js __Ju F___ __Js __Jq F___ __Js $___XD_Jg-\_T]4__Jg4__Jr @_Jt-\_Tp4__Ju4__Jt +__Jn+__Jn4____ Z_Jr \_Js _Js, p__+__JS __Jr __Js\ _Js-|p____________ ________JuO@_0.-\_K\4__J~4__J~4__J~4__0,4__K_+__J|+__J|4____ Z_J~ \_J_+__Jv __J~ __J_-|p___s@K_-\_T_4____4__Ke4__Kg4__Kc __Kg4$_K_4D_K_ __Kh5$_K_+__K_ __Kh5$_K_+__KEO@_Ki "_KS_b______Kg___Kh_ ___+__Ka __0/ 4D_K_5d_K_"$___ D_Ki+__Ka-\_M_4__0/+__K_ $__d D_Kj $___ D_Kn __Kh D_Ko $___ D_Kj"$___.__Kg______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?+__)54____ Z_)9 \_):+__(% __)9 __): -|p______________________ __x*_____t__x*_____t_|p*_____2____d_____ ____H____z____,____^_________B____B____B____B_________^____,____z____H _________d____2____2____2__@+&____W____W____$_________________________ __0++______________*____*______________*____#_________4__x+0____*__@+1 ____#_____________________________________x+8_______x+9_______x+=DFD00 ___+>____`____________________________________________________________ _________________X+G______________________(9?__IF(IYPE.EQ.2)ITYPE=5HCO MBI__00240__WRITE(25,111)NAME,ITYPE,IYPE,NIN,NOUT,NS___00250__I=I+5+2* *NIN*NS___00260__GO TO 1______00270_2_STOP___00280__END______SUBROUTIN E OPEN(I,I1,I2,I3,I4,I5)___COMMON/LOGIC/MASTER(1000),INSTNC(2000)___I1 =NBOUT(35,1,INSTNC(I))___I2=NBOUT(26,9,INSTNC(I))___I3=NBOUT(17,9,INST NC(I))___I4=NBOUT(5,12,INSTNC(I))___I5=NBOUT(0,5,INSTNC(I))___RETURN__ _END_______SUBROUTINE PLPONT(I1,I2,I3,I4,I5,I6,I7)___COMMON /LOGIC/MAS TER(1000),INSTNC(2000)___COMMON/EBAT/NIN,NOUT,KCLOCK___IX=INSTNC(I1)__ _NOUT=MASTER(IX+3)___IX=I1+5+NOUT+I2___CALL BINS(I7,INSTNC(IX),31,35)_ __CALL BINS(I6,INSTNC(IX),19,30)___CALL BINS(I5,IN__09?&__Kj (___.____ H_Kk"$___.__Kk$__Kj __Kg/____ F_Kk :___ Z_Kl __Kj D_KnO@_Ko@@_Kl __Kk 2D___+__K __Kk D_Kn __Kh D_Ko :___ Z_Km __Kl4$_K*-\_N_4__Kc4__Kn4__Kd 4__Km $___2D_Kmg____O____ __Kg0F___g____O____A____4$_KE+__K0 __Kj$__Kd __Kg.____"__Ke.____ $(__XD_K/-\_N_4__Kc4__K/4__Kn4__Km __Km4d_K: __0c X@_K3 "_KF_b______Km_ ___ __Km1:___9__K __0cX@_K7 "_KK_b____ ___"$___ D_KiO@_0/+__Ka __Km4D_K@ __0cX@_K= "_KO_b____ ___"$___ D_KiO@_0/+__Ka __Kl4$_KBO@_Kl+__K __Kj.D_Kj __Kj.D_Ko __Kl3:_Kk9__K_@@_Ki+__Ka+__KK (31H SUBROUTINE WRITOP-LINK FAILURE,I4) +__KO(24H SUBROUTINE WRITOP FA ILS//) +__KS(31H SUBROUTINE WRITOP-LINK INVALID//) +__K[______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ___9?_b___ :___ Z_)> _______)k3:_"L9__(t_ ___ _*_X@_.! "_))________"M _ ___ _*_X@_.! "_).________"M_ ___ __"M4D_)_ "_)&_b___ :___ Z_)> ____ ___)F3:_"M9__)__ ___ "_))_b___ :___ Z_)> _______)\3:_"M9__)__ ___ "_). _b___ :___ Z_)> _______)s3:_"M9__)__ ___ _*_X@_.! "_))________"M_ ___ _*_X@_.! "_).________"M_ ___ __"M4D_) "_)&_b___ :___ Z_)> _______)M 3:_"M9__)__ ___ "_))_b___ :___ Z_)> _______)d3:_"M9__)__ ___ "_))_b___ :___ Z_)> _______)z3:_"M9__)__ ___ :___ Z_)= __)9 Dh". __)9 Dh"8 __)9 Dh"B1:___9__)!+__)5+__))(1H1,' TIME ',2X,15(A5,3X)) +__).('(1X,8H NANO ,2X,',I2,'(1H#,I4,3X))')+__)3('(1X,8H SECS ,2X,',I2,'(3HNO:,I2 ,3X))') __H9?STNC(IX),10,18)___CALL BINS(I4,INSTNC(IX),1,9)___CALL B INS(I3,INSTNC(IX),0,0)___RETURN___END___PRINT.F4,PRYAZ.F4,PR5.F4______ 0000000000210000000000002710574040004110334000000000000000200000000000 00___41105740401431003340000000000000002200000000000041105740402043003 3400000___000000000017000000000000271057404000271033400000000000000023 000000000000___2710574040002261440000000000000000250000000000002521700 04020271144000000___00000000002400000000000027117000400025214400002400 0000000030000000000000___404170004000423144000000000000000027000000000 000423170004020404144000000___0000000000330000000000005431700040005621 44000000000000000032__P9?(37H SUBROUTINE WRITOP-INCORRECT ARGUMENT/ 8H NWORDS=,I8/8H PSTADD=,I8//) +__Ka4____ Z_Kf \_Kf _Kf, p__,!p__,!p__ ,!p__,!p__+__K_ __Kf __Kf\ _Ki,Ap__-|p_____________s(Ko-\_T_4____4__LV 4__LX4__LT __LX4$_Kw4D_Ku __LY5$_K{+__Kw __LY5$_K{+__L1O@_LZ __0cX@_Ky "_LD_b______LX___LY_ ___+__LQ __0/4D_K~5d_L_"$___ D_LZ+__LQ-\_M_4__0/ +__K{ $___ D_L[ $___ D_L_ __LY D_L` $___ D_L["$___.__LX&__L[ (___.____ H_L\"$___.__L\$__L[ __LX/____ F_L\ :___ Z_L] __L[ D_L_O@_L`@@_L] __L\ 2D___+__L_ __L\ D_L_ __LY D_L` :___ Z_L^ __L]4$_L_-\_N_4__LT4__L_4__LT 4__L^ $___2D_L^g____O____ __LX0F___g____O____A____4$_L1+__L! __L[$__LU __LX.____"__LV.____ $(__XD_L_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___ 9?-\_-54__)74__)74__(5 $___ .____ D_)=6b_)=0b___7____+__(94__(]4__(;4__(F4__(R __"O4D_(]:__"L __)< $___XD_(?-\_-G4__"L4__(?4__)84__)8 __"L __)< F_)> __"L __); F_)U __"L __)= F_)k+__(] __"P4D_(]:__"M __)< $___XD_(J-\_-G4__"M4__(J4__)84__)8 $___.__"M D_)> __)> __)< F_)> __)> __); F_)U __)> __)= F_)k+__(] __"P 4D_(]:__"M $___.__"M D_)> __)< $___XD_(W-\_-G4__"M4__(W4__)84__)8 __)> __)< F_)> __)> __); F_)U __)> __)= F_)k __)=3:___9__(1 $___.__);.____ .____ D_);+__(( _*_X@_.! "_))________"L_ ___ _*_X@_.! "_).________"L _ ___ __"L4D_(w "_)&_b___ :___ Z_)> _______)>3:_"L9__(j_ ___ "_*_Q"___ _b___ :___ Z_)> _______)U3:_"L9__(o_ ___ "_*_Q"_____h9?000000000000___ 5621700040005431440040020000000000310000000000004231440040005171440200 02_______________________000000000026000000000000271144004000360144000 000000000000041000000000000___6321250040006511010000000000000000400000 00000000651125004030632101000000___00000000003700000000000056214400400 0606101000000000000000036000000000000___252170014000252235400000377235 400000377252000000000000000035000000000000___3602520100003601700000004 04170000000000000000034000000000000341252014000___34122100000054322100 0000543170000000000000000000__00010_ SUBROUTINE BINGRY(IX,IY,I2)_ _____00020_ DIMENSION IX(1),IY(1)____p9?-\_N_4__LU4__L_4__L_4__L^ __L^4d_L+ __0cX@_L# "_L7_b______L^_ ___ __L^1:___9__L_ __0cX@_L( "_L; _b____ ___"$___ D_LZO@_0/+__LQ __L^4$_L2 __L]4$_L.O@_L]+__L_ __L[.D_L[ __L[.D_L` __L]3:_L\9__L_@@_LZ+__LQ __L[X@_L4 "_L?_b____ ___"$___ D_LZ O@_0/+__LQ+__L;(31H SUBROUTINE REFROP-LINK FAILURE,I4) +__L?(24H SUBRO UTINE REFROP FAILS//) +__LD(31H SUBROUTINE REFROP-LINK INVALID//) +__LL(37H SUBROUTINE REFROP-INCORRECT ARGUMENT/ 8H NWORDS=,I8/8H PSTAD D=,I8//) +__LQ4____ Z_LW \_LW _LW, p__,!p__,!p__,!p__,!p__+__Kp __LW __LW\ _LZ,Ap__-|p__________________x0L`@@_M __0cX@_Lc "_Ld_b____ ___ +__Lf(15H LINK REQUESTED)+__Ln __0cX@_Lh "_Li_b_________@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9? ___( D___ __(_ ___( D___ __(_ ___' D_(_ $___3D_(_+__'s $___3D_(_+__(_+__(_ $___ D_( __(_ ___) F_(_&$__2$$__2 __(_ _(_)/____ H_( -\_%?4__( 4____ 4__(#4__(_ $___.__(_ D_(_ __(_ __( F___ :___ Z_(! __(_.____ D_(! __(! $___XD_(_-\_-54__(_4__(_4__(_ @_(" __(!@@___ _h("5D_(_@@_(" $___2Dh(" +__(_U$___ D_(" __(! __(" F___ __(! $___XD_(_-\_-G4__("4__(_4__(_4__(_ 3:___9__'_ $___.__(_.____.____ D_(_+__'h __(_ ___) D_( $___ D_( +__'y +__(_4____ Z_(_ \_(_+__'e __(_ __(_-|p____h(_________________m@(%@@_"L @@_"M@@_"M $___ D_); __);2$___+__(b __); ____ D_); __); ___( D___ __); ___( D___ __); ___' D_)< $___.__); D_)< :___ Z_)=:__)< __)< $___XD_(5 ___9?00030_ I=1_____00040_ IY(I)=IX(I)__00050_ 1 I=I+1___ 00060_ IF(I.GT.I2)RETURN______00070_ IF(IX(I).EQ.IX(I-1))IY( I)=0______00080_ IF(IX(I).NE.IX(I-1))IY(I)=1______00090_ GO TO 1______00100_ 2 STOP____00120__END______SUBROUTINE CONSEN(LINE1, LINE2,NIN,IT)___DIMENSION LINE1(1),LINE2(1)___IT=0___DO 3 L=1,NIN___IF (LINE1(L).EQ.LINE2(L))GO TO 3___IF(LINE1(L).EQ.2)GO TO 3___IF(LINE2(L) .EQ.2)GO TO 2___IT=IT+1___LINE2(L)=2___GO TO 3__2_LINE2(L)=LINE1(L)__3 _CONTINUE___IF(IT.EQ.1)RETURN___IT=0___RETURN___END_____SUBROUTINE COV ERS(LINE1,LINE2,K,COVER,NIN)___INTEGER LINE1(1),LINE2(1),COVER(1)___IF (COVER(K).___9?_ ___+__Lm(30H ATTEMPT TO USE LINK ABANDONED)O@_M_+__M_ $___ D_M! $___ D_M!@@_M"O@_M"-\_N_4__M_4__M!4__M_4__M __M 4D_L_ __0c X@_Lv "_Lx_b______M _ ___+__Lz(11H LINK ERROR,I2) __M 5D_Lg "___,__Sx __M (____ &___.____ F_M +__Lq $___ D_M!-\_N_4__M_4__M!4__M_4__M __M 5D_Lu __M! D_M_ $___2D_M_+__M_ __0cX@_M_ "_M__b____ ___+__M_(10H LINK O.K./) +__M_-\_PW4__M 5`_L_ __0cX@_M_ "_M__b____ ___+__M_(13H LINK SUSPECT) __M 4$_Lg5d_M_O@_M "$___.__M 4d_L{+__Lg+__M_4____ Z_M_ \_M_ _M_,!p__+__La __M_ __M_\ _M_,Ap__-|p__________________ppM"-\_T_4____ 4__N_4__N"4__N_ $___.__N!7 ___.$___(____"&___.____5F_Mn __N"4$_Mn5d_M/ @@_N#6b_N!0b___7__________@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9? D_'3 __'= D_'4 __'= D_'5 __'< D_'4 +__',@@_'3+__', ____.__'=2$_'4+__'_ __'4/____/__'= D_'= __'8 D_'<+__'_ +__',4____ Z_'2 \_'2 _'2,!p__,!p__,!p__,!p__,!p__+__&B __'2 __'2\ _'5 ,Ap__,Ap__,Ap__,Ap__,Ap__-|p____x'1______{X'= __'b $___XD_'A-\_-54__'] 4__']4__'A @_'b __'b $___XD_'E-\_-54__'^4__'^4__'E @_'c __'b $___XD_'I -\_-54__'_4__'^4__'I @_'c __'b $___XD_'M-\_-54__'_4__'`4__'M @_'d __'b $___XD_'Q-\_-54__'`4__'_4__'Q @_'d+__'X+__'X4____ Z_'a \_'a _'a,!p__ ,!p__,!p__,!p__,!p__,!p__+__'> __'a __'a\ _'d,Ap__,Ap__,Ap__,Ap__,Ap__ -|p______________________________________y0'e@@_"N $___ D_"Q $___ D_(_ __(_3$___+__'j+__(_ __(_ ____ D_(_ __(___(9?EQ.1)RETURN___DO 1 L=1,NI N___IF(LINE1(L).EQ.2)GO TO 1___IF(LINE1(L).NE.LINE2(L))RETURN__1_CONTI NUE___COVER(K)=1___RETURN___END_____SUBROUTINE CANCEL(ISSS,NIN,INPUT,C OVER)___INTEGER COVER(1)___INTEGER TABLE___COMMON /TAB/TABLE(1024,6),L INE1(6),LINE2(6)___INTEGER IMPTAB(64,64),X2(64),PI(64,6)___INTEGER INP UT(1)___NT=2**NIN___X2(1)=0___IC1=0___PI(1,1)=0___K1=0___ICNT2=1___IM= 1__15_DO 1 L=1,NT___IF(INPUT(L).NE.1)GO TO 1___K1=K1+1___LX=L-1___CALL BINARY(LX,NIN,LINE2,0)___LCN=0___DO 2 L2=1,ISSS___IF(COVER(L2).EQ.1)G O TO 2__1234_XZA=0___LCN=LCN+1___DO 3 L3=1,NIN___IF(TABLE(L2,L3).EQ.2) GO TO 3__1235_XZA=0___IF(TABLE(L2,L3).NE.LINE2(L3)__09?+__M-4__Mn4__Mn 4__MQ4__Mn-\_TC4__N"4__N_ @_N#6b_N!0b___7____+__M34__M54__M]4__MQ4__N_ :___ Z_N$ ____$__N_ __N!.____"__N_.____ $(__XD_M< $hN$XD_M=-\_P_4__N_ 4__M<4__M=4__N_3:_N#9__M6 "_M@_b____ ___+__MA($) -\_O_ "_MC_B____ ___ +__MD(1X) "_MI_b___ :___ Z_N$ _______N$3:_N#9__MF_ ___+__MK(1H+,200A3 ) "_MM_B______N"_ ___+__MN(I1) $___2D_N"+__MP $___ D_N"+__N_ "_MS _b______N"_ ___+__MT(1H+,I1,$) $___.__N" D_N$6b_N$0b___7____+__MW4__M] 4__M]4__M]4__M[4__Mn4__N_-\_O_ "_MC_B____ ___+__N_-\_O_ "_Mb_B___ :___ Z_N$ _______N$3:_N#9__M__ ___+__Md(20A3) :___ Z_N$ ____$__N_ __N! .____"__N_.____ $(__XD_Mk $hN$XD_Mk-\_P_4__N_4__Mk4__Mk4__N_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ___9? ____.__': D_':-\_'S4__':4__';4__';4__'<4__'<4__'= __'73D_'<+__&i __'73D_';+__&i3:_'99__&\ $___.__'8.____.____ D_'8+__&P __'8 D_'4 __'9 ___' D_'3+__'_ $___ D_'8 __'83$___+__&o+__', __'8 ____ D_'9 __'9 ___' D_'3 __'9 ___( D___ __'8 $___XD_&v-\_-54__'14__'14__&v @_'= __'=4D_&y $___ D_'= __'9 ___( D___ ____.____.__'= D_'9 __'8 D_'4 __'8 ____4D_'_ __'7 __'83D___+__'_ $___.__'8.____.____ D_'8+__&m :___ Z_'4-\_,_4__'8 @_'8 __'83D_';+__'!3:_'99__'_+__', $___.__'4.__'4.____ D_':-\_'S4__': 4__';4__';4__'<4__'<4__'= __'< ____ D_'9 __'9 ___' D_'3 __'<4D_' __'; 4D_' __';4D_'_ __'= D_'4 __'9 ___( D___ __'< D_'4:__'6 $___2$_'6+__'_ +__' $_____H9?)GO TO 4__3_CONTINUE___IMPTAB(LCN,K1)=1___K2=L2___IC1=I C1+1___GO TO 2__4_IMPTAB(LCN,K1)=0__2_CONTINUE__1236_XZA=0___IF(IC1.NE .1)GO TO 5___DO 6 L3=1,ICNT2___IF(X2(L3).EQ.K2)GO TO 5__6_CONTINUE___X 2(ICNT2)=K2___ICNT2=ICNT2+1___X2(ICNT2)=0__5_IC1=0__1_CONTINUE__1237_X ZA=0___DO 975 LKJ=1,LCN___WRITE(5,9753)(IMPTAB(LKJ,KJJ),KJJ=1,K1)__975 _CONTINUE__9753_FORMAT(1X,10I3)___IF(K1.EQ.0)GO TO 50___ICNT2=ICNT2-1_ __IF(ICNT2.LT.1)GO TO 20___DO 8 I=1,ICNT2___IZ=X2(I)___DO 8 J=1,K1___I F(IMPTAB(IZ,J).NE.1)GO TO 8___ILT=1___DO 33 LK1=1,NT___IF(INPUT(LK1).N E.1)GO TO 33___IF(ILT.EQ.J)GO TO 32___ILT=ILT+1__33_CONTINUE___PAUSE ' CONFUSION!!!...'__32__P9?3:_N#9__Md@@_N"+__N_ :___ Z_N$ ____$__N_ __N! .____"__N_.____ _(__ D_N$ $___3d_N$+__Mv $__ .D_N$@@hN$ $hN$XD_Mx-\_P1 4__Mx4__N$4__N_4__N_3:_N#9__Mo-\_O_ "_MC_B____ ___-\_TC4__N#4__N_ @_N# "_N__b___ :___ Z_N$ _______N$3:_N#9__N__ ___+__N_(1H+,64A1)+__N_-\_TC 4__N#4__N_ @_N# "_N__B___ :___ Z_N$ ____$__N_ __N!.____"__N_.______ __ 3:_N#9__N__ ___+__N_(40A5) +__N_ "_MS_b______N"_ ___+__M{+__N_4____ Z_N \_N _N ,!p__, p__,!p__,!p__+__M# __N __N \ _N",Ap__,Ap__-|p__ _________d__`N_______________ ________O_ :___ Z_O_ Z_O_1:__29__O_+__O_ +__O_4____ Z_O_ \_O_+__O_ __O_ __O_-|p___p_O_ __P_5d_O_+__P_ $___2$_P_ +__O_+__P_6b_P_0b___7____+__O_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___ 9? __&A F_"B __&=3:___9__%X $___.__&;.____.____ D_&;+__%P __"Q4D_&* __"O4D_&! __"L4D_&! "_&,_b___ ___&: :___ Z_&B _______".3:_"L9__&__ ___ __"P4D_&( __"M4D_&( "_&,_b___ ___&: :___ Z_&B _______"83:_"M9__&%_ ___ __"P4D_&* __"M4D_&* __&; D_"Q +__&1+__&/(1H*,I6,4X,20(A5,3X)) +__&14____ Z_&8 \_&9+__%L __&8 __&9 -|p________________________P&5__________I -<-<-->->- I_r_&B $___ D_'6O@_'3 __'5 D_'4 __'55d_'_ __"- D_'6 __'6 ____ D_'7 __'6 D_'4 __'7 D_'3-\_124__'5 @_'7 __'72$_'7+__&N+__',@@_'3 __'85d_&l $___ D_'8 __'8 3$___+__&R+__', __'8 ____ D_'9 __'9 ___( D___ $___.____ D_'9 __'9 ___( D___ __'8 ____4D_&f $___.__'8.____ D_': :___ Z_'4__h9?_INPUT(LK1)=2__ 8_CONTINUE___DO 10 I=1,ISSS__10_COVER(I)=0___I1=IM___I2=IM+ICNT2-1___K =1___DO 9 I=I1,I2___IZ=X2(K)___COVER(IZ)=1___DO 9 J=1,NIN__9_PI(I,J)=T ABLE(IZ,J)___IM=I2+1___L1=0___DO 11 I=1,ISSS___IF(COVER(I).EQ.1)GO TO 11___L1=L1+1___DO 12 J=1,NIN__12_TABLE(L1,J)=TABLE(I,J)__11_CONTINUE__ _K1=0___ISSS=L1___GO TO 15__50_IF(PI(1,1).EQ.0)GO TO 1000__98_WRITE(5, 5013)___IM=IM-1___ASSIGN 55 TO IGOX___DO 51 I=1,IM___DO 52 J=1,NIN___L INE2(J)=1H*___IF(PI(I,J).EQ.0)LINE2(J)=1H0___IF(PI(I,J).EQ.1)LINE2(J)= 1H1___IF(PI(I,J).EQ.2)LINE2(J)=1H-__52_CONTINUE___WRITE(5,5010)(LINE2( J),J=1,NIN)__51_CONTINUE___GO TO IGOX__1000_WRITE(5,5011)_____p9?4__O4 4__O_4__O"4__O%4__O_4__OK4__Oq4__P_4__P_ __P_XD_O_-\_P&4__O_ @_P_+__P_ __P_XD_O!-\_P'4__O!4__P_+__P_ __P_XD_O$-\_P*4__O$4__P_+__P_ __P_XD_O' -\_P/4__P_4__O'4__P_4__P_ __P_XD_O+-\_P/4__P_4__O+4__P_4__P_ __P_XD_O. -\_P/4__P_4__O.4__P_4__P_ __P_(____ __P_.____ __P_(____.____ F_P_+__P_ __P_ D_P_-\_P/4__P_4__P_4__P_4__P_ $___2D_P_+__O; $___.__P_ D_P_@@_P_ :___ Z_P_ Z_P_ $___.____ D_P_-\_P/4__P_4__P_4__P_4__P_ $___3d_P_+__OC $__ .D_P_ __P_XD_OG $___.__P_ D_P_-\_P14__P_4__OG4__P_4__P_ $___.D_P_ .:___1z___+__O<+__P_O@_P_-\_P/4__P_4__P_4__P_4__P_ __P_5D_O^ $___ D_P_ :___ Z_P_ $___.__P_ D_P_-\_P/4__P_4__P_4__P_4__P_ __P_5$_OW $___.D_P_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~___@9? __&< ___( D___ $___.__&; D_&< :___ Z_&= __&<.____ D_&= __&= $___XD_%]-\_-54__&34__&34__%] @_&> $___/__&> D_&> $___.__&> D_&? __&= $___XD_%d-\_-54__&?4__&>4__%d @_&? __&= $___XD_%h-\_-54__&44__&4 4__%h @_&@ __&= $___XD_%l-\_-54__&54__&44__%l @_&@ __&= $___XD_%p-\_-5 4__&54__&64__%p @_&A $___2D_&;+__%r __&= $___XD_%u"$___ D_&9-\_1_4__%u 4__&9 @___>__&> __&= $___XD_%z-\_-G4__&?4__%z4__&54__&>:__&@:__&@ $___ 3D_&@+__&_6b_&@0b___7____+__%_4__&_4__&_4__&_4__&_ __&6 D_&A+__&_ __&7 D_&A $___ D_&; $___ D_"Q+__&_ __&7 D_&A $___ D_&; $___ D_"Q+__&_ __&8 D_&A6b_&@0b___7____+__&_4__&_4__&_4__&_4__&_ __&A __&A F_".+__&_ __&A __&A F_"8+__&_ __&A___9?RETURN__20_IF(PI(1,1).EQ.0)GO TO 25___GO TO 9 8__25_WRITE(5,5012)__55_WRITE(5,5014)__26_DO 21 I=1,ISSS___DO 22 J=1,N IN___LINE2(J)=1H*___IF(TABLE(I,J).EQ.0)LINE2(J)=1H0___IF(TABLE(I,J).EQ .1)LINE2(J)=1H1___IF(TABLE(I,J).EQ.2)LINE2(J)=1H-__22_CONTINUE___WRITE (5,5010)(LINE2(J),J=1,NIN)__21_CONTINUE___RETURN__5010_FORMAT(1X,10(A1 ,1X))__5011_FORMAT(1X,'FUNNY!!!')__5012_FORMAT(1X,'NO ESSENTIAL PI''S' /)__5013_FORMAT(1X,'ESSENTIAL PI''S ARE:'/)__5014_FORMAT(1X,'NON-ESSEN TIAL PI''S ARE:'/)___END______C_SINGLE OUTPUT PRIME IMPLICANT FINDER._ __INTEGER TABLE(1024,6),LINE1(6),LINE2(6)___1,COVER(1024),INPUT(64)__1 0_WRITE(5,5000)___READ(5,5001)___9? ____.__P_ __P_ F___ $___.D_P_1:___ 9__OQ __P_@@___ $___ D_P_+__P_@@_P_ :___ Z_P_ $___.__P_ D_P_-\_P/4__P_ 4__P_4__P_4__P_ ____.__P_ __P_ F___ $___.D_P_1:___9__O_ $___ D_P_ __P_ 5$_Oj+__P_ :___ Z_P_ $___ ____.__P_.____ D_P_-\_T[4__P_4__P_ @___3:_P_ 9__Oj+__P_ __P_5$_Or+__P_-\_TC4__P_4__P_ @_P_@@_P_@@_P_ :___ Z_P_ $___ D_P_ ____2d_P_+__O{ $___ ____.__P_.____ D_P_ $___.__P_ D_P_-\_P14__P_ 4__P_4__P_4__P_ $___.D_P_ __P_1:___9__Ov+__P_@@_P_+__OL $___ D_P_+__P_ +__P_4____ Z_P_ \_P_ _P_,!p__,!p__, p__,!p__+__O_ __P_ __P_\ _P_,Ap__ / ___,Ap__-|p____________________________________________hP__________ _______hP_<__P_0__P_F_p____PP_ _p___`_P_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?@@_% __% __% 5D_%_ __%_ &___ F_% +__%_ __%_ __% _ % F_% :__%_+__%_-\_%?4__%_4__%_ 4__% 4__%_+__%_+__%_4____ Z_%_ \_%_ _%_,!p__, p__,!p__+__%_ __%_ __%_ \ _%_,Ap__/ ___,Ap__-|p________{@%" __%I4D_%+@@_%H :___ Z_%J"____.__%H (___ ____,__18 ____.__%I$____.H_%H3:_%H9__%%+__%D :___ Z_%J ____.__%I @@___3:_%H9__%, __%H D_%J __%H D_%K __%K D_%K $___2$_%K+__%< __%K7 ___ .$___(____ D_%K __%K(____ __%K/____ F_%L __%J.__%I __%L F___>__%J __%K D_%K+__%2 __%J.__%I __%K F___+__%D+__%D4____ Z_%G \_%G _%G,!p__,!p__ , p__,!p__+__%# __%G __%G\ _%I/ ___,Ap__-|p___rx%L $___$__"N D_&: __"Q D_&; $___ D_&; __&;2$___+__&_ __&; ____ D_&< __&< ___( D_____(9?NIN__ _NLIN=2**NIN___WRITE(5,5200)__5200_FORMAT(1X,'GIVE TABLE IN I1 FORMAT 32/LINE'/)___READ(5,5201)(INPUT(K),K=1,NLIN)__5201_FORMAT(32I1)___CALL TIME(START,SS1)___I1=0___DO 2 L=1,NLIN___IF(INPUT(L).EQ.0)GO TO 2__C_ WRITE INTO TABLE.___KJ=L-1___CALL BINARY(KJ,NIN,LINE1,0)___I1=I1+1___D O 1 K=1,NIN__1_TABLE(I1,K)=LINE1(K)__2_CONTINUE___IF(I1.LE.1)GO TO 10_ _C_START CONSENSUS.___IST=1___ISSS=I1+1___ICN=0__9_K=IST+1___DO 3 L=1, NIN__3_LINE1(L)=TABLE(IST,L)__4_IF(K.GE.ISSS)GO TO 8___DO 5 L=1,NIN__5 _LINE2(L)=TABLE(K,L)___CALL CONSEN(LINE1,LINE2,NIN,IT)___IF(IT.EQ.0)GO TO 7___L1=ISSS+ICN___IF(L1.GT.1023)GO TO 500___DO 6 L=1,NIN__6_TABLE( __09? _p___`_P__ _P_-|p____HP" _p___`_P_ _p___`_P_ _p___`_P_-|p____pP& !p__-|p____`P' _p__ ____ Cp__-|p____`P* _p__ _p__ C___-|p____pP, _p__ -|p____pP. _p__-|p____pP/@@_P[5__P2_~hP1 ___ @_P[ _p__/_p__8____(D___ "___/_p__(B___.____.#p__6@_P[5__P9_ ___ Ap__-|p__ _p___`___-|p____pP; @@_P[5__P>_~`P< ___ @_P[ *p__P_(__A__P[2F_P\-|(__ (___/_(__6@_P[5__PD Z"___(B __GCp__5__PF\"___O____)B __ACp__9__P>__PPGL_p__Q ___.__P\ @_PJ ___@______XPJ@____A_p__0B___8____-|p____hPM _p__A_p__-|p____hPO _p__ G_p__-|p____hPQ _p__F_p__-|p____hPS _p__B_p__-|p____hPU@@____`___-|p__ __PPW___P]. ____`___. ____`___-|p____XP[_`___4____)@___O2vH1_~`P]__xPg _}@Q\__0Pw______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9? :___ Z_$r:__$u __$u $___XD_$7-\_-54__$g4__$g 4__$7 @_$w $___/__$w D_$x $h$}XD_$= __$u $___XD_$=-\_-G4__$=4__$=4__$x 4__$x3:_"R9__$3 __$q $___XD_$B-\_%?4__$B4__"R4__$x4__$e+__$d "_$G_b___ ___$p___"O___$n_ ___+__$L(1X,I2,'INPUT OF ',A5,'(',I4,') IS FREE.'/) +__$d $___2$_"N+__$O+__$d+__$_ $___$__"N D_$t "_$T_b______"O___"N___$t _ ___+__$_(1X,'AN INPUT IS CHANGING WITH CLOCK TRANSITION'/1X,'BLOCK I S: ',A5,'(',I4,')'/1X,'TIME=',I8,' NS.'/) +__$_+__$d4____ Z_$j \_$j _$j,!p__,!p__, p__+__#I __$j __$j-|p_________h$f________________|8$_ $___ D_%_ __%_ ____ D_% __%_2d_%_+__%_"$___.__%_ D_% __%_.__%_ ____ 4D_%_ $___ __% 2D_% +__%_ __%___H9?L1,L)=LINE2(L)___KZ1=L1___DO 100 L1 =1,KZ1___DO 101 L2=1,NIN___IF(TABLE(L1,L2).NE.TABLE(KZ1,L2))GO TO 100_ _101_CONTINUE___IF(L1.EQ.KZ1)GO TO 29___GO TO 7__100_CONTINUE__29_ICN= ICN+1__7_K=K+1___GO TO 4__8_IST=IST+1___IF(IST.GE.ISSS)GO TO 11___GO T O 9__C_COVERING ROUTINE.__11_IF(ICN.EQ.0)GO TO 30___IMA=ISSS+ICN__88_D O 12 L=1,IMA__12_COVER(L)=0___KX=IMA___IST=KX___IZXA=IST+1__18_IF(IST. LE.0)GO TO 15___DO 13 L=1,NIN__13_LINE1(L)=TABLE(IST,L)___K=IST-1__17_ IF(K.LE.0)GO TO 16___DO 14 L=1,NIN__14_LINE2(L)=TABLE(K,L)___CALL COVE RS(LINE1,LINE2,K,COVER,NIN)___K=K-1___GO TO 17__16_IST=IST-1___GO TO 1 8__15_L1=0___L2=1__22_IF(L2.GE.IZXA)GO T__P9? @_Qr _P{_`___+__Q_ ____ @_Rp <_P-+____gg___M?_L@_~pP~?CANNOT FIND FORTR.SHR____&_P~_`____&_Q_ _`___?FORTR.SHR DOES NOT CORRESPOND TO IMP40________8Rn \_Qy <_P-+__Pw *__Qy+__Rn*__Qy+____+__T__ H___t_Rt,~___:_x__,~________INX__G____YC __ GSH__iSH__aS___aS___I'___IR___IR_ _IR_0_IR_@_IR_P_IR_`_IR_p_[R___[R___ [R_ _M?_L@INZ__INZ__INZ _INZ0_INZ@_I_2__I_2 _I_20_I_2@_I_2P_e__X2G____ iSH__YC __aS___iSH__ "_S_ZB__* "___+__SV_b___@@_SS,~___ X_ST>___+ X_SS ax__ +__S_P_`__h8_Z_ax_~_+__S__8_SV0x__?+__S?18__0+__SWA8___+_`S2ax_@_ +__S?_8_SX X_ST ___+ X_SU __ST 9_SU*__SUh8_D_Y___+bX_SY7__ST __SU X_SU ___+`x__ +__SZ __ST7!_SU7__S`U8___,>____8_Sa1x__?______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9? @_$s __$s4D_#{ $___3D_$s+__#z $___ D_$r-\_-54__$e4__$e4__$s @_$s+__#{ $___ D_$s __$r __$s F_$w __$r3:_$q9__#f __$q $___XD_$_-\_%?4__$_4__"R4__${ 4__$f@@_$t :___ Z_$r _h$x3Dh$z+__$_:__$t3:_"R9__$_ __$t4D_$M $___3D_$m +__$_ $___3D_$t+__$_ $___$__"N D_$t+__$_(1X,'MORE THAN ONE INPUT ACTIV E..',A5,'(',I4,')'/1X,'TIME=',I8,' NS.'/) "_$__b______"O___"N___$t _ ___+__$_ $___3D_$r+__$O-\_%_4__"R4__$x4__$u:__$u $___.__"N D_$u __$u ____ D_$v $___3d_$v+__$! $___ D_$v __$u$__$h __$v$__$h.____ __$l.____ "__$i.____ _0__ F_$l&$__2 D_$v $__2$__$v __$u$__$h __$v$__$h.____ __$l .____"__$i.____ _8__/____ F_$w __$u __$v F___-\_%?4__$w4__"R4__$}4__$f __h9?O 20___IF(COVER(L2).EQ.1)GO TO 19___L1=L1+1___DO 21 L=1,NIN__21_T ABLE(L1,L)=TABLE(L2,L)__19_L2=L2+1___GO TO 22__20_IST=1___ICN=0___ISSS =L1+1___GO TO 9__30_ISSS=ISSS-1___L1=ISSS___L2=L1-1___DO 201 I=1,ISSS_ _201_COVER(I)=0__211_DO 202 I=1,NIN__202_LINE2(I)=TABLE(L1,I)__204_IF( L2.LE.0)GO TO 210___DO 203 I=1,NIN__203_LINE1(I)=TABLE(L2,I)___IF(COVE R(L1).EQ.1)GO TO 210___CALL COVERS(LINE1,LINE2,L1,COVER,NIN)___L2=L2-1 ___GO TO 204__210_L1=L1-1___L2=L1-1___IF(L1.LE.1)GO TO 99___GO TO 211_ _99_CALL TIME(FINISH,SS2)___DO 31 K=1,ISSS___IF(COVER(K).EQ.1)GO TO 31 ___DO 32 L=1,NIN___IF(TABLE(K,L).EQ.0)LINE1(L)=1H0___IF(TABLE(K,L).EQ. 1)LINE1(L)__p9?18__0+__SaA8___+_`S"+__S)+__S++__S0+__S%+__S)+__S)+__S0 ,>x__ __ST,__ST,__SU+__S?:__STA8___ X_ST __ST,__ST+__S? __ST.8___A8___ X_SU,^_SU,>_SdU8___7 _SU_8x__,>___+__S& __ST,__SU+__S?+__S<+__S9+__S7 +__S5+__S<+__S<+__S7 ___+d8_~_l8___+__S> ___+d8__pl8___+__S>_8_SX_x_Se .8___d____l8___+__S>R___+d8_~_l8___*__ST+@_ST X_ST:___+ ___+h8_Z_`x_~_ +__SE`X___ZX__+`x_Z_+__SE+__Se __ST+___+ __SSax__ :__SSax_@_+__SfX8___ `x___ 8___`x__ 8___Z`___,>___,>___,>___Z__SS3b___+@_Rp,____p____p__SS Z__SS3b___+@_Rp,^___,^___,^___+__SD_}XSU___S_6$`__1X__-+__S<+__S?.___+ h`_____0_s __ST __SU,>________(___{jb___m8_~_d8_~_3"_SYg____(____,^___ +__S_@____6%__+1X__-______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?-\_%?4__##4__"R4__#A4__#5+__#4 "_#) _b______#=___#<___#;_ ___+__#-(1X,'INPUT OF ',A5,'(',I4,') IS FREE.'/) +__#4 $___2$_"N+__#0+__#4+__#_+__#44____ Z_#7 \_#8 _#8, p__+__"S __#7 __#8-|p_________p#6___________l0#H-\_1#4____4__$i4__$k4__$e4__$k4__$e __"N $___XD_#O-\_-54__$f4__$f4__#O @___@@_$m ____4D_#b $___ D_$m $___ D_$n __"N D_$n-\_''4__$o4__$o4__$n4__$p4__$n __"R D___ __"R D___ __$o 4D_$D &___.__$n.__$n $___XD_#_-\_-54__$f4__$f4__#_ @_$p ____3D_$p+__#b +__$d $___.__"N D_$q $___.__"R D_$q@@_$r :___ Z_$r Z_$n __"N D_$n-\_'' 4__$o4__$o4__$n4__$p4__$n __"R D___ __"R D___ __$o4D_$D $___.__$n.__$n D_$s __$s $___XD_#s-\_-54__$f4__$f4__#s___9?=1H1___IF(TABLE(K,L).EQ.2 )LINE1(L)=1H-__32_CONTINUE___WRITE(5,5002)(LINE1(L),L=1,NIN)__31_CONTI NUE___WRITE(5,103)START,SS1,FINISH,SS2__C__C__C_GO TO 10 IS DELETED... .!!!!__C__C__C_GO TO 10___STOP__103_FORMAT(1X,'STARTING TIME=',2A5,5X, 'FINISHING TIME=',2A5/)___STOP__5000_FORMAT(1X,'NO.OF INPUTS(I1 FORMAT )='/)__5001_FORMAT(I1)__5002_FORMAT(1X,10(A1,1X))__500_WRITE(5,5003)__ 5003_FORMAT(1X,'TOO MANY PRIME IMPLICANTS!!!...'/)___END_____SUBROUTIN E REGENT(I,KLS)__C_REORGANIZE AND RE GENERATE.___COMMON/LOGIC/MASTER(1 000),INSTNC(2000)___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/BLOCK/BLKNO(1 00,2),BLPREK,CLCKTR,INTERM,IOUTTR___COMMON/KUTU/IB___9?+__S)1X__,+__S( ,^_SU+__S?9____._______SDX8___`x___ 8___+__SJKbN@___`Sh+@_Rp,____+@_Rp _`_____`Sk _p__ _p__(@___-|p____`Sm _p__ _p__( ___-|p____`Sp _p__ _p__ (____-|p____XSr _p__X@_St _p___@_St-|p___|`Su _p__X@_Sw _p___`_Sw-|p__ ,>________4`_S}"`___Q@___ _T__`________*b_S|+__T_ _T__`______T_Z____ 5"_T_______ ___ _T__`____ ___ _T__@__~______ ___(@__q1@__,+__Si0@__# +__T_,^___,~___(30H TYPE G TO CONTINUE,X TO EXIT./1H )_(A1)_(1H 14A5/) (1H A5,1X,O6)__PAUSE+__T__~@T_ ____"#p__ %p__.$___Q____ &___ ___ F___ .<___ ____$_p__.____ _p__/_p__$&___*d_T__"_T_1B___(____ @___ F___-|p__ 0_ __C______hT_#_p__-|p__S__0__|@T_#_p__+"_T -|p__U ___-|p________@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __`9?3:_#:9__"V __#9 $___XD_"f-\_%?4__"f4__"R4__#D4__#6@@_#= :___ Z_#: _h#A3Dh#C+__"l:__#=3:_"R9__"i __#=4D_#. $___3D_#=+__#_ $___$__"N D_#> "_"t_b______"O___"N___#>_ ___+__"}(1X,'MORE THAN ONE INPUT ACTIVE FOR BLOCK',1X,A5,'(',I4,')'/1X,'TIME=',I8,' NS.'/) "_#__b___ :___ Z_#> _______#A3:_"R9__"~_ ___ "_#__b___ :___ Z_#> _______#C3:_"R9__#__ ___ +__#_(1X,'OLD INPUTS=',5I3) +__#_(1X,'NEW INPUTS=',5I3) -\_%_4__"R 4__#A4__#?:__#? __#?.__#8 ____ D_#?-\_%?4__#?4__"R4__#F4__#6 $___.__"N D_#@ :___ Z_#::__#@ __#@ $___XD_#_-\_-54__#64__#74__#_ @_#@ $___/__#@ D_#A $h#FXD_#_ __#@ $___XD_#_-\_-G4__#_4__#_4__#A4__#A3:_"R9__#_ __#9 $___XD_##__(9?OX(5)___COMMON/CIZGI/MATLIN(2300)___COMMON/DOT/IX1(20), IY1(20),IX2(20),IY2(20),ICOUNT___COMMON/DISP/DISPFL(5000),ISEG(200),IR AY(4)___COMMON/VAL/MAPREK,INPREK,LNPR___INTEGER BLKNO,BLPREK,CLCKTR,DI SPFL,TYPE___WRITE(5,1971)__1971_FORMAT(1X,'REGENERATING THE FILE.'/,1X ,'WAIT FOR READY SIGNAL'/)___K=1___IK=K___BLPREK=0___I=KLS+1___CALL ST RIP(ISEG(I))___CALL DEPICT(DISPFL,1)___ASSIGN 3002 TO IGO1__3001_NX=IN STNC(IK)___NAME=MASTER(NX)___NIN=MASTER(NX+2)___NOUT=MASTER(NX+3)___GO TO IGO1__3002_IF(INSTNC(IK+1).EQ.0)GO TO 3010__C_REGENERATE BLOCK.__3 004_N=K+2___IX=NBOUT(14,10,INSTNC(N))___IY=NBOUT(4,10,INSTNC(N))___IR= NBOUT(2,2,INSTNC(N))__09?Kc__K ____ ____,__T+ @___,~___Kc__J ____ ____ ,__T+ @___,~___Kc__I ____ ____,__T+ @___,~___Kc__H4B_T;5@_T.5"_T7 ___ ,__RqU ___,~___4"_T=,>___ $___ D_T;5`_T4aB___+__T4L@_T;+__T4$____+"_T8 (B___dB___$____+"_T85b_T3 ____,^___,~___U ___6 _T;+__T7"`___/ ___+__T7 __(T; ___,~________aB___#`___0@___3@_T<,~___ ___,~___C6Md __hTA,__TJ -|p__[&r____hTC,__TJ-|p__[&r____XTE,__TJ-\_TV___TO-|p__C6Md____TH,__TJ -\_TP___TO-|p__ _p__9__TL2a___ ____ _p__h"_ _ab_~_9__TK @_TO,~_____xTO M2|____@TP _p__& ___6@___h _F_h"_6__ ___-|p__S; ____pTU+__TWS_O____@TV #_p__% ___*____(___.7!p__"`___-|p__[> ____`T[ _p__&_p__ ____-|p____PT] @`___X_p__X_p___b_U_l _@_-|p________@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~____9? $___ ____,__1; D___ ____ $__)XD__S-\_$`4____4____4___S+___W ____ $__)XD__V-\_#14___V+___W $___ .__"N.__"R.__"R D_"N+___>-\_&/:__"N:____ ____3$_"N+___d $__22d___+___= @@___ __",4d__= __"- D__~ ___~ ____ D__} $___3D__}+___d+___=-\_-l4____ @__________________ $___ D__}"____.____&$__t D___ "__l_b_________ ___ +___q(1X,'EXEC. TIME IN SECONDS IS:',I4/) "__zQ"___,__1_+____+___w 4____ Z__| \__} __},!p__,!p__+____ ___| ___}\ __~,Ap__,Ap__-|p__READY FOR ANOTHER RUN _sP"R $___.__"N D_#9 $___.__"R D_#: :___ Z_#: __"N D_#; Z_#;-\_''4__#<4__#<4__#;4__#=4__#; __"R D___ __"R D___ __#<4D_#& &___.__#;.__#; $___XD_"b-\_-54__#54__#54__"b @h#@__H9?___KCLOCK=NBOUT (0,2,INSTNC(N))___CALL BLOCKS(NAME,I,ISSS,IX,IY,0,0,IR)___CALL DEPICT( DISPFL,1)___BLPREK=BLPREK+1___BLKNO(BLPREK,1)=IK___BLKNO(BLPREK,2)=K__ _INSTNC(K+1)=I-1___K=K+7+NIN+NOUT___CALL BINS(ISSS,INSTNC(N),0,11)__30 03_IK=IK+7+NOUT+NIN___IF(IK.LT.INPREK)GO TO 3001___GO TO 3100__3010_AS SIGN 3011 TO IGO1___GO TO 3003__3011_IF(INSTNC(IK+1).EQ.0)GO TO 3003__ _LS1=K-1___LS2=IK-1___LIM=NOUT+NIN+7___DO 3012_J=1,LIM__3012_INSTNC(LS 1+J)=INSTNC(LS2+J)___ASSIGN 3002 TO IGO1___GO TO 3004__C_PLACE NEW NAM ES AND GENERATE LINES.__3100_INPREK=K___CALL DEPICT(DISPFL,1)___ASSIGN 3101 TO IGO1___IK=1___L1=1___L2=1__3503_IF(L1.GE.LNPR)GO TO___9=__HTa Z_p__Z_p___b_U_ "___/_p___b_U_-|p____`TeQ _:_X_p__ @w__-|w____`TgQ _8_ X_p__ @w__-|w____`TjQ _6_X_p__ @w__-|w____HTlQ ___X_p__ @w__Q _>_X_p__ @p__-|w____HTpQ ___X_p__ @w__Q _<_X_p__ @p__-|w____PTtQ ___X_p__ @w__ __U_P@p__-|w____PTxQ ___X_p__ @w__ __U_P@p__-|w____PT{Q ___X_p__ @w__ __U_P@p__-|w____PT_Q ___X_p__ @w__ __U_P@p__-|w____PU_Q ___X_p__ @w__ __U_P@p__-|w____PU_Q ___X_p__ @w__ __U_P@p__-|w____PU_Q ___X_p__ @w__ __U_P@p__-|w____PU_Q ___X_p__ @w__ __U_P@p__-|w____PU_Q ___X_p__ @w__ __U_P@p__-|w___~xU_Q ___X_p__ @w__ __U_P@p__-|w__0____<____X@___Q@___ Y@___P@___Z@___S@___[@___R@___^@_____xU__@___+___[________________@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __ 9?ESSED OUTPUT,1 FOR COMPLETE:'/1X,'(OR 2 TO ABORT SIMULATION.)'/) +____(I1) $___3$_"Q+___d $___$____ D___ "____b_________ ___ "__:_B___ ____~_ ___ ___~4$__d ___~&$___.D___+___)(1X,'GIVE DURATION OF SIMULATI ON IN NANO SECONDS USING 6 DIGITS.'/1X,'TIME NOW IS',I8,' NS.'/) "__. _b____ ___ "__9_B______"O___"P___"P_ ___+___9(1X,'ENABLE OR DISABLE DE VICES BY TYPING 1 OR 0 ' 'RESPECTIVELY'/ ,1X,'ORDER OF DEVICES IS LPT, DSK,DISP'/) +___:(3I1)+___;(I6) -\_)3-\_-l4____ @___ $___ D_"N __"N 2$___+___Z __"N ____ D___ ____ ___( D___ ____ ___' D___ ____ ___( D___ ____ ___) D___ ____ ___' D_"O ____ D_"R ____ D_"R6b___0b___7____+___L 4___N4___T__h9? 3500___LIM=NBOUT(11,5,MATLIN(L1+2))+3___IF(MATLIN(L1). EQ.0)GO TO 3501___MATLIN(L1+1)=0___LX=L1-1___LY=L2-1___DO 3502 L=1,LIM __3502_MATLIN(LY+L)=MATLIN(LX+L)___L2=L2+LIM__3501_L1=L1+LIM___GO TO 3 503__3500_LNPR=L2___MATLIN(L2)=0__3101_IK=1___IF(IK.GE.INPREK)RETURN__ _ASSIGN 3120 TO IGO1__13101_NX=INSTNC(IK)___NIN=MASTER(NX+2)___NOUT=MA STER(NX+3)___LIM=NIN+1___K=IK+5+NOUT___DO 3200 J=1,LIM___NLIN=K+J___CA LL OPEN(NLIN,I1,I2,I3,I4,I5)___IF(I3.EQ.0)GO TO 3200___IF(I4.EQ.0)GO T O 33200___DO 3102_L=1,BLPREK___IF(BLKNO(L,1).EQ.I4)GO TO 3103__3102_CO NTINUE___PAUSE 'ERROR 10'__3103_I4=BLKNO(L,2)__33200_CONTINUE__13107_L =1__3107_INC=NBOUT(1______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___@9?4____4___"-\_-G4___$4___. 4___"4___#-\_-G4___%4___.4____4___"-\_-G4___$4___.4___"4___#-\_-G4___% 4___34____4___"-\_-G4___$4___34___"4___#-\_-G4___%4___44____4___"-\_-G 4___$4___44___"4___#-\_-G4___&4___94____4___"-\_-G4___$4___94___"4___# -\_-G4___&4___94____4___"-\_-G4___$4___94___"4___#-\_-G4___&4___:4____ 4___"-\_-G4___$4___:4___"4___#-\_-G4___%4___?4____4___"-\_-G4___$4___? 4___"4___#-\_-G4___%4___@4____4___"-\_-G4___$4___@4___"4___#-\_(_-\__s 4___&4___'+___B-\_0__ ___+___0_____DATA3__p_______DATA1__p_______DATA2 __P_ _______________________________q __@@___@@___ $___ D_"Q "____b___ _ ___ "____B______"Q_ ___+____(1X,'TYPE 0 FOR SUPR___9?1,5,MATLIN(L+2) )+3___IF(MATLIN(L).EQ.I3)GO TO 3105___L=L+INC___IF(L.LT.LNPR)GO TO 310 7___PAUSE 'ERROR 11'__3105_IF(MATLIN(L+1).NE.0)GO TO IGO1__C_GENERAATE LINE.___MATLIN(L+1)=I___N=L+2___IST1=NBOUT(1,1,MATLIN(N))___IST2=NBOU T(0,1,MATLIN(N))___IX=NBOUT(26,10,MATLIN(N))___IY=NBOUT(16,10,MATLIN(N ))___ICOUNT=NBOUT(11,5,MATLIN(N))___N=N-1___CALL MOVETO(IX,IY,.FALSE., 0,5)___IF(IST1.EQ.0)GO TO 3108___CALL MOVETO(-1,-1,.TRUE.,1,7)___CALL INCRMT(.TRUE.,-1,0,1,0,1,0,-1,0)___CALL INCRMT(.TRUE.,0,1,0,-1,0,-1,0, 1)___CALL MOVETO(-1,-1,.TRUE.,0,5)__3108_IX1(1)=IX___ICOUNT=ICOUNT+1__ _IY1(1)=IY___DO 3106 M=1,ICOUNT___NX=N+M___IX1(M+1)=NBOUT(26______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~___`9?__x_,_Ph+Q__x_-___3__r(_/_____-\_1_4____4____-\_1_4____ 4____-\_1_4____4____ "__@_B___________________ ___ "__@_B___ :___ Z__# ________'3:___9___9_ ___ "__@_B___ :___ Z__# _________3:___9___=_ ___ +___B(6O12) "__G_b____ ___ "__K_B_______$____$____%____%____&_ ___ +___K(1X,'ND,NG1,NG2,NF,NC:I1,4I2..'/) +___M(I1,4I2) -\_-G4___ 4___& 4___!4___!-\_-G4___ 4___,4___!4___!-\_-G4___ 4___14___!4___!-\_-G4___ 4___=4___!4___!-\_-G4___$4____4____4___"-\_-G4___$4____4___"4___#-\_-G 4___%4___#4____4___"-\_-G4___$4___#4___"4___#-\_-G4___%4___(4____4___" -\_-G4___$4___(4___"4___#-\_-G4___%4___)4____4___"-\_-G4___$4___)4___" 4___#-\_-G4___%4___.__(9?,20,MATLIN(NX))___IY1(M+1)=NBOUT(16,10,MATLIN (NX))___IX=IX1(M+1)-IX1(M)___IY=IY1(M+1)-IY1(M)___CALL LINE(IX,IY,.TRU E.)__3106_CONTINUE___IF(IST2.EQ.0)GO TO 3109___CALL MOVETO(-1,-1,.TRUE .,1,7)___CALL INCRMT(.TRUE.,-1,0,1,0,1,0,-1,0)___CALL INCRMT(.TRUE.,0, 1,0,-1,0,-1,0,1)___CALL MOVETO(-1,-1,.TRUE.,0,5)__3109_I=I+1___ISEG(I) =NEWSEG(I)___CALL MSSLP(ISEG(I-1))___CALL DEPICT(DISPFL,1)___GO TO IGO 1__3120_I31=MATLIN(L+1)___IF(I2.EQ.I3)GO TO 3121___I3=I31___IF(I2.EQ.0 )GO TO 3199___ASSIGN 3121 TO IGO1___I3=I2___GO TO 13107__3121_I3=I31__ _I2=MATLIN(L+1)__3199_CALL PLPONT(IK,J,I1,I2,I3,I4,I5)___ASSIGN 3120 T O IGO1__3200_CONTINUE___IK=IK+______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?3,1003,IFOR2),D S1___IF(DS1.EQ.0)GO TO 1020___WRITE(25,1001)(NAMES(L+15),L=1,DS1)___WR ITE(25,1002)(INS(L+15),L=1,DS1)___WRITE(25,1003)(NOS(L+15),L=1,DS1)__1 020_ENCODE(32,1002,IFOR1),D31___ENCODE(33,1003,IFOR2),D31___IF(D31.EQ. 0)GO TO 1030___WRITE(7,1001)(NAMES(L+30),L=1,D31)___WRITE(7,1002)(INS( L+30),L=1,D31)___WRITE(7,1002)(NOS(L+30),L=1,D31)__C_RETURN__1030_DO 1 031 I=1,20___LPT0(I)=5H _____DSKB(I)=5H __1031_D340(I)=5H ___RETURN__1001_FORMAT(1H1,' TIME ',2X,15(A5,3X))__1002_FORMAT('(1X, 8H NANO ,2X,',I2,'(1H#,I4,3X))')__1003_FORMAT('(1X,8H SECS ,2X,',I 2,'(3HNO:,I2,3X))')___END_______X_&_Y_5I___5I________1q-__0___H9?7+NOU T+NIN___IF(IK.GE.INPREK)GO TO 3300___GO TO 13101__3300_L=1__3301_IC=NB OUT(11,5,MATLIN(L+2))___MATLIN(L)=MATLIN(L+1)___MATLIN(L+1)=0___L=L+3+ IC___IF(L.GE.LNPR)GO TO 3302___GO TO 3301__3302_CALL DEPICT(DISPFL,1)_ __RETURN___END_______SUBROUTINE GETTER(K,NAME,IND,L1,INX)___COMMON/LOG IC/MASTER(1000),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/ EBAT/NIN,NOUT,KCLOCK___COMMON/DISP/DISPFL(5000),ISEG(200),IRAY(4)___IN TEGER DISPFL___LSB=1___K=-1___L1=INX___IF(INX.GT.0)GO TO 9__C_READ INT ERRUPT...__C_CALL ATKILL__C_CALL ENABLE(2)__C_CALL ACTION(IRAY)__C_CAL L DISABLE(2)___IS=IRAY(2)___IUSER=DISPFL(IS)___IND=IS___NAME=IUSER__C_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?X),7,10)___NAMES(LP1)=NAME___INS(LP1)=INDX___ NOS(LP1)=I___GO TO 1__C_DSKB:__12_IF(IDEV2.EQ.0)GO TO 1___DS1=DS1+1___ CALL BINS(DS1,INSTNC(IX),7,10)___K=DS1+15___NAMES(K)=NAME___INS(K)=IND X___NOS(K)=I___GO TO 1__C_D340:__13_IF(IDEV3.EQ.0)GO TO 1___D31=D31+1_ __K=D31+30___CALL BINS(D31,INSTNC(IX),7,10)___NAMES(K)=NAME___INS(K)=I NDX___NOS(K)=I__C_NEXT__1_CONTINUE___INDX=INDX+7+NIN+NOUT___GO TO 100_ _C_HEADING..__1000_ENCODE(32,1002,IFOR1),LP1___ENCODE(33,1003,IFOR2),L P1___IF(LP1.EQ.0)GO TO 1010___WRITE(3,1001)(NAMES(L),L=1,LP1)___WRITE( 3,IFOR1)(INS(L),L=1,LP1)___WRITE(3,IFOR2)(NOS(L),L=1,LP1)__1010_ENCODE (32,1002,IFOR1),DS1___ENCODE(3__h9?CHECK IT.___KT=IABS(INX)___IF(IUSER .LT.KT)RETURN___K=0__C_FIND TERMINAL.__CCC_I=INSC(IS)___IF(I.GT.0)GO T O 20__C_LINE HIT.___L=1__4_IF(L.GE.INPREK)RETURN___IX=INSTNC(L)___NIN= MASTER(IX+2)___LIM=NIN+1___NOUT=MASTER(IX+3)___IF(INSTNC(L+1).EQ.0)GO TO 3___IZ=L+5+NOUT___DO 1 L1=1,LIM___IN=IZ+L1___CALL OPEN(IN,I1,I2,I3, I4,I5)___IF(I3.EQ.IUSER)GO TO 2___IF(I2.EQ.IUSER)GO TO 2__1_CONTINUE__ 3_L=L+7+NIN+NOUT___GO TO 4__C_MAIN LINE . &/+ SECOND LINE...!__2_IND=L ___NAME=MASTER(IX)___GO TO 9__C_TERMINAL.__C20_N=NOSH(I1)__20_L=1__6_I F(L.GE.INPREK)RETURN___IX=INSTNC(L)___NAME=MASTER(IX)___NIN=MASTER(IX+ 2)___KCL=NBOUT(0,2,INSTNC(L+2))___IF(KCL______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?NIN,I 3,1)__99_RETURN___END_____SUBROUTINE BASLIK___COMMON/LOGIC/MASTER(1000 ),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/OUTXXX/LPT0(20 ),DSKB(20),D340(20),LP1,DS1,D31___COMMON/EBAT/NIN,NOUT,KCLOCK___DIMENS ION NAMES(45),INS(45),NOS(45)___COMMON/DEVICE/IDEV1,IDEV2,IDEV3___INTE GER DSKB,D340,DS1,D31,IFOR1(7),IFOR2(7)_____LP1=0___DS1=0___D31=0___IN DX=1__100_IF(INDX.GE.INPREK)GO TO 1000___KX=INSTNC(INDX)___NIN=MASTER( KX+2)___NOUT=MASTER(KX+3)___NAME=MASTER(KX)___IX=INDX+5___DO 1 I=1,NOU T___IX=IX+1___NDEV=NBOUT(29,2,INSTNC(IX))+1___GO TO(1,11,12,13),NDEV__ C_LPT0:__11_IF(IDEV1.EQ.0)GO TO 1___LP1=LP1+1___CALL BINS(LP1,INSTNC(I ___9?.NE.0)KCL=1___NOUT=MASTER(IX+3)___LIM=NIN+KCL+NOUT___IND=L___IF(I NSTNC(L+1).EQ.0)GO TO 5___IF(INSTNC(L+1).EQ.IUSER)GO TO 7__5_L=L+7+NIN +NOUT___GO TO 6__C_BLOCK FOUND.__7_DO 8 L1=1,LIM___I=INSC(I)___IF(I.EQ .I1)GO TO 90__8_CONTINUE___RETURN__9_IN=IND+5+NOUT+L1___CALL OPEN(IN,I 1,I2,I3,I4,I5)___IX=INSTNC(I4)___NAME=MASTER(IX)___IF(I3.EQ.0)GO TO 10 0___IF(I2.EQ.0)GO TO 100___IF(I1.EQ.0)GO TO 30__C_SEARCH CONTINUES FOR OUTPUT TERMINAL...___L1=I5___NOUT=MASTER(IX+3)___IND=I4___LSB=LSB+1__ _IF(LSB.LE.25)GO TO 9___GO TO 100__C_FOUND.__30_K=1___L1=I5___INX=I5__ _IND=I4___RETURN__C_FREE OUTPUT TERMINAL ENCOUNTERED...__100_K=0___RET URN__90_IF______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?ND,INSTNC(50),5,6)___CALL BINS(NC,I NSTNC(60),0,4)___CALL BINS(ND,INSTNC(60),5,6)___CALL BINS(NC,INSTNC(61 ),0,4)___CALL BINS(ND,INSTNC(61),5,6)___CALL BINS(NC,INSTNC(62),0,4)__ _CALL BINS(ND,INSTNC(62),5,6)___CALL BINS(NF,INSTNC(73),0,4)___CALL BI NS(ND,INSTNC(73),5,6)___CALL BINS(NF,INSTNC(74),0,4)___CALL BINS(ND,IN STNC(74),5,6)___CALL RESET___CALL SIMULT(IUSER,IS)___GO TO 5___END____ _SUBROUTINE BGDEC(NIN,I1,I2)___DIMENSION I1(5),I3(5)___L=2___I3(1)=I1( 1)__30_IF(L.GT.NIN)GO TO 50___L1=L-1___IF(I1(L).EQ.0)GO TO 10___IF(I3( L1).EQ.1)I3(L)=0___IF(I3(L1).EQ.0)I3(L)=1___GO TO 20__10_I3(L)=I3(L1)_ _20_L=L+1___GO TO 30__50_CALL BINARY(I2,__(9?(L1.LE.(NIN+KCL))GO TO 9_ __I5=L1-NIN-KCL___I4=L___GO TO 30___END_______SUBROUTINE SHIFT___COMMO N/LOGIC/MASTER(1000),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___CO MMON/OUTXXX/LPT0(20),DSKB(20),D340(20),LP1,DS1,D31___COMMON/EBAT/NIN,N OUT,KCLOCK___COMMON/DISP/DISPFL(5000),ISEG(200),IRAY(4)___COMMON/DEVIC E/IDEV1,IDEV2,IDEV3___COMMON/PRFARK/IPOS,IVALUE___COMMON/FORSIM/SIMIX, ITIME,ISIM___INTEGER SIMIX___INTEGER DSKB,D340,DS1,D31,DISPFL___ITIME1 =ITIME*10___IP=IVALUE___L=1__2_IF(L.GE.INPREK)GO TO 500___NX=INSTNC(L) ___NIN=MASTER(NX+2)___NOUT=MASTER(NX+3)___I=L+5___DO 1 K=1,NOUT___NK=I +K___ND=NBOUT(31,5,INSTNC(NK))___IM=35-ND___KM=ND+______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ___9?,4I2..'/)__101_FORMAT(I1,4I2)___CALL BINS(1,INSTNC(23),34,35)___C ALL BINS(1,INSTNC(34),34,35)___CALL BINS(1,INSTNC(45),34,35)___CALL BI NS(1,INSTNC(69),34,35)___CALL BINS(NG1,INSTNC(7),0,4)___CALL BINS(ND,I NSTNC(7),5,6)___CALL BINS(NG2,INSTNC(17),0,4)___CALL BINS(ND,INSTNC(17 ),5,6)___CALL BINS(NF,INSTNC(27),0,4)___CALL BINS(ND,INSTNC(27),5,6)__ _CALL BINS(NF,INSTNC(28),0,4)___CALL BINS(ND,INSTNC(28),5,6)___CALL BI NS(NF,INSTNC(38),0,4)___CALL BINS(ND,INSTNC(38),5,6)___CALL BINS(NF,IN STNC(39),0,4)___CALL BINS(ND,INSTNC(39),5,6)___CALL BINS(NF,INSTNC(49) ,0,4)___CALL BINS(ND,INSTNC(49),5,6)___CALL BINS(NF,INSTNC(50),0,4)___ CALL BINS(__H9?1___NSAVE=NBOUT(KM,IM,INSTNC(NK))___NO=NBOUT(29,2,INSTN C(NK))___IT=NBOUT(0,2,INSTNC(NK))___LDD=NBOUT(25,4,INSTNC(NK))___IF(L. NE.1)GO TO 98__98_INSTNC(NK)=LSH(INSTNC(NK),-1)___IM=IM-1___CALL BINS( NSAVE,INSTNC(NK),0,IM)__255_NO=NO+1___IT=IT+1___IF(NO.EQ.1)GO TO 1___G O TO(10,11,12,13),IT__C_0 - 0__10_N1=5HI ___GO TO 15__C_1 - 0__11_N 1=5H-<-<-___IP=1___IPOS=1___GO TO 15__C_0 - 1__12_N1=5H->->-___IP=1___ IPOS=1___GO TO 15__C_1 - 1__13_N1=5H I__C_SELECT OUTPUT MEDIA....._ _15_GO TO(1,20,30,40),NO__C_LPT0:__20_LPT0(LDD)=N1___GO TO 1__C_DSKB:_ _30_DSKB(LDD)=N1___GO TO 1__C_D340:__C_THIS PART IS NOT READY YET..... __40_D340(LDD)=N1__C______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___ 9?2-L))*IX(L)__ RETURN __ 2 DO 4 L=1,I2__ 4 IX(L)=0__ L=I2__ I5=I1__ I3= I5__ 6 IF(I3.LE.1)GO TO 5__ I3=I3/2__ I4=I5-2*I3__ I X(L)=I4__ L=L-1__ I5=I3__ GO TO 6__ 5 IX(L)=I3__ RETURN__ END_______COMMON/LOGIC/MASTER(1000),INSTNC(2000)___COM MON/VAL/MAPREK,INPREK,LNPR___COMMON/EBAT/NIN,NOUT,KCLOCK___CALL IFILE( 22,'DATA3')___CALL IFILE(20,'DATA1')___CALL IFILE(21,'DATA2')___READ(2 2,1)MAPREK,INPREK,LNPR___READ(20,1)(MASTER(K),K=1,MAPREK)___READ(21,1) (INSTNC(K),K=1,INPREK)__1_FORMAT(6O12)__5_WRITE(5,100)___READ(5,101)ND ,NG1,NG2,NF,NC__100_FORMAT(1X,'ND,NG1,NG2,NF,NC:I1__h9?_NEXT...__1_CON TINUE__777_L=L+NIN+NOUT+7___GO TO 2__500_IF(IPOS.EQ.0)GO TO 700___IF(I DEV1.EQ.0)GO TO 510___IF(LP1.EQ.0)GO TO 510___WRITE(3,501)ITIME1,(LPT0 (KJ),KJ=1,LP1)__510_IF(IDEV2.EQ.0)GO TO 520___IF(DS1.EQ.0)GO TO 520___ WRITE(25,501)ITIME1,(DSKB(KJ),KJ=1,DS1)__520_IF(IDEV3.EQ.0)GO TO 700__ _IF(D31.EQ.0)GO TO 700__C_TO BE FILLED LATER.__C__700_IPOS=IP___RETURN __501_FORMAT(1H*,I6,4X,20(A5,3X))___END_______SUBROUTINE SIMSUB(I)___C OMMON/PENBUT/IY(6)___INTEGER DISPFL___COMMON/DISP/DISPFL(5000),ISEG(20 0),IRAY(4)___K=6___L=1___CALL DEFSUB(IY(L))___CALL HOLSTR('STOP ')___C ALL ENDSUB(IY(L))___L=L+1___CALL DEFSUB(IY(L))___CALL HOLSTR______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~___@9?_2000_WRITE(24,5002)L1,NAME,IND__5002_FORMAT(1X,'INPUT OF ',A5,'(',I4,') IS FREE.'/)__7_RETURN__99_IF(ITIMEX.GT.26)RETURN___G O TO 3___END___C THIS IS THE BINARY SUBROUTINE.__C IT PERFORMS CONVERSION FROM DECIMAL INTO BINARY__C AND VICE VERCA.__C IF "J" IS NOT EQUAL TO ZERO THE "I2" BIT BINARY__C NUMBER IN THE TOP "I2" WORDS OF "IX" IS__C CONVERTED TO DECIMAL IN "I1".__C OTHE RWISE ,THE CONVERSION IS DONE IN THE OTHER __C DIRECTION INTO THE TOP WORDS OF "IX" FROM "I1".__C__ SUBROUTINE BINARY(I1,I2,IX,J)__ DIMENSION IX(5)__ IF(J)1,2,1__ 1 I1=0__ DO 3 L=1,I2 __ 3 I1=I1+(2**(I___9?('RESET')___CALL ENDSUB(IY(L))___L=L+1___CALL DEFSUB(IY(L))___CALL HOLSTR('VALUE')___CALL ENDSUB(IY(L))___L=L+1___C ALL DEFSUB(IY(L))___CALL HOLSTR('LIST ')___CALL ENDSUB(IY(L))___L=L+1_ __CALL DEFSUB(IY(L))___CALL HOLSTR('CLOSE')___CALL ENDSUB(IY(L))___L=L +1___CALL DEFSUB(IY(L))___CALL HOLSTR('BEGIN')___CALL ENDSUB(IY(L))___ IXX=900___IYY=900___DO 2 I=1,K___ISEG(I)=NEWSEG(I)___CALL MOVETO(IXX,I YY,.FALSE.,-1,-1)___CALL CALSUB(IY(I))___CALL MSSLP(ISEG(I))__2_IYY=IY Y-100___I=K+1___ISEG(I)=NEWSEG(I)___RETURN___END___COMMON/PENBUT/IY(6) ___INTEGER IY___COMMON/LOGIC/MASTER(1000),INSTNC(2000)___COMMON/VAL/MA PREK,INPREK,LNPR___COMMON/CIZG______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?E___IF(NCH.EQ.0 )GO TO 99___IF(NCH.EQ.1)GO TO 3__C_TOO MANY INPUTS ACTIVE.___IKHG=ITIM EX*10___WRITE(24,5001)ISIM,IK,IKHG__5001_FORMAT(1X,'MORE THAN ONE INPU T ACTIVE FOR BLOCK',___11X,A5,'(',I4,')'/___11X,'TIME=',I8,' NS.'/)___ WRITE(24,1947)(INPT1(KJ),KJ=1,NT)___WRITE(24,1948)(INPT2(KJ),KJ=1,NT)_ _1947_FORMAT(1X,'OLD INPUTS=',5I3)__1948_FORMAT(1X,'NEW INPUTS=',5I3)_ _C_OKEY SIMULATE.__3_CALL BGDEC(NT,INPT1,IZ)___IZ=IZ+1___IO=ITAB(IZ)__ _CALL BINARY(IO,NO,IOUTPT,0)___IX=IK+5___DO 4 I=1,NO___IX=IX+1___ND=NB OUT(31,5,INSTNC(IX))___IM=34-ND___CALL BINS(IOUTPT(I),INSTNC(IX),IM,IM )__4_CONTINUE___CALL BINARY(INSTNC(KX),NT,INPT1,1)___RETURN___(9?I/MAT LIN(2300)___COMMON/DISP/DISPFL(5000),ISEG(200),IRAY(4)___COMMON/BLOCK/ BLKNO(100,2),BLPREK,CLCKTR,INTERM,IOUTTR___COMMON/EBAT/NIN,NOUT,KCLOCK ___INTEGER DISPFL,BLOKNO,BLPREK,CLCKTR,TYPE,TRNO__C_SET UP THE DISPLAY & LIGHT BUTTONS..___CALL SENTER___CALL DEFPIC(DISPFL,5000)___CALL SUB RES___CALL SIMSUB(I)___CALL DEPICT(DISPFL,1)__C_READ DATA STRUCTURE.__ _CALL IFILE(20,'DATA1')___CALL IFILE(21,'DATA2')___CALL IFILE(22,'DATA 3')___CALL IFILE(23,'DATA4')___READ(22,1)MAPREK,INPREK,LNPR___READ(20, 1)(MASTER(K),K=1,MAPREK)___READ(21,1)(INSTNC(K),K=1,INPREK)___READ(23, 1)(MATLIN(K),K=1,LNPR)__1_FORMAT(6O12)__C_DRAW CIRCUIT ON THE 340 DISP ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?1X__,+___-,^__Z+___E9____.________JX8___`x___ 8___+___PKbN@___`_n+@__v,____+@__v_`_____X_p _p__X@__r _p___@__r-|p__ __x_s+___t+___~_SUBROUTINE SIMCOM(ITAB)___DIMENSION ITAB(1),INPT1(5),I NPT2(5),IOUTPT(5)___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/LOGIC/MASTER( 1000),INSTNC(2000)___COMMON/FORSIM/IK,ITIMEX,ISIM___COMMON/SIZE02/NT,N O___KX=IK+3___KL=NT+1__C_SIMULATE.___DO 1 I=2,KL___IND=IK___INX=I___CA LL GETTER(K,NAME,IND,L1,INX)___NIN=NT___NOUT=NO___IF(K.EQ.0)GO TO 2000 ___INPT1(I-1)=NBOUT(1,1,INSTNC(IND+INX+5))__1_CONTINUE___CALL BINARY(I NSTNC(KX),NT,INPT2,0)___NCH=0___DO 2 I=1,NT___IF(INPT1(I).EQ.INPT2(I)) GO TO 2___NCH=NCH+1__2_CONTINU__H9?LAY.___KLS=6___CALL REGENT(I,KLS)__ _WRITE(5,1971)__1971_FORMAT(1X,'SYSTEM READY.'/)__C_PREPARE LIGHT BUTT ONS FOR LIGHT PEN INTERRUPT.___IOLD=1__C_WAIT FOR INTERRUPT.__999_CALL ATKILL___CALL CHINTS(ISEG(IOLD),0,7)___CALL ENABLE(2)__C_LIGHT PEN RE ADY.___CALL ACTION(IRAY)__C_INTERRUPT READ.___CALL DISABL(2)___IS=IRAY (2)___IUSER=DISPFL(IS)__C_ANALYSE INTERRUPT.__998_IF(IUSER.GT.KLS)GO T O 999__C_ONLY LIGHT BUTTON HITS ARE ACCEPTED.___IOLD=IUSER___CALL CHIN TS(IS,1,7)__C_CHOOSE CORRECT ROUTINE.___GO TO(10,20,30,40,50,60),IUSER __10_ISTOP=-1___GO TO 999__C_RESET.__20_CALL RESET___GO TO 999__C_EXAM INE.__30_CALL ATKILL__C_READ A TERMINAL ______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?+___g A8___+_`_'+___/+___0+___6+___++___/+___/+___6,>x__ ___Y,___Z,___[+___D :___ZA8___ X__Z ___Y,___Z+___D ___Z.8___A8___ X__[,^__Z,>__jU8___7 __Z _8x__,>___+___+ ___Y,___[+___D+___B+___?+___=+___;+___B+___B+___= ___+ d8_~_l8___+___C ___+d8__pl8___+___C_8__^_x__j.8___d____l8___+___CR___+ d8_~_l8___*___Y+@__Y X__Y:___+ ___+h8_Z_`x_~_+___K`X___ZX__+`x_Z_+___K +___k ___Y+___+ ___Xax__ :___Yax_@_+___kX8___`x___ 8___`x__ 8___Z`___ ,>___,>___,>___Z___X3b___+@__v,____p____p___XZ___X3b___+@__v,^___,^___ ,^___+___I_}X_[_____6$`__1X__-+___B+___E.___+h`_____0_s ___Y ___Z,>___ _____(___{jb___m8_~_d8_~_3"___g____(____,^___+___$@____6%__+1X__-+___/ __h9?OR A LINE.___INX=-KLS___CALL GETTER(K,NAME,IND,TRNO,INX)___IF(K.E Q.0)GO TO 35___IS=IND___IUSER=NAME___IF(K.LT.1)GO TO 998__C_OUTPUT TER MINAL OPENED.___WRITE(5,31)TRNO,NAME,IND___IX=IND+5+TRNO___IC=NBOUT(25 ,4,INSTNC(IX))___I1=NBOUT(31,5,INSTNC(IX))___I2=NBOUT(0,2,INSTNC(IX))_ __CALL SENDHS(0)___CALL SENDCS('DELAY VALUE IS',14)___IN=I1___CALL SEN DIN(I1,2,.TRUE.)___IF((I1.LT.0).OR.(I1.GT.23))I1=IN___CALL SENDCS('BIN ARY VALUE IS',15)___IM=I2___CALL SENDIN(I2,2,.TRUE.)___IF((I2.LT.0).OR .(I2.GT.1))I2=IM___IO=NBOUT(29,2,INSTNC(IX))___INSTNC(IX)=0___IF(I2.EQ .0)GO TO 32___I2="777777777777__32_INSTNC(IX)=I2___CALL BINS(I1,INSTNC (IX),0,4)_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9? ____`___+____ ____ @__u <__3+____ gg___M?_L@_~p__?CANNOT FIND FORTR.SHR____&____`____&____`___?FORTR.SHR DOES NOT CORRESPOND TO IMP40________8_t \___ <__3+___}*____+___t*____ +____+___s_ H___t__y,~___:_x__,~________INX__G____YC __GSH__iSH__aS___ aS___I'___IR___IR_ _IR_0_IR_@_IR_P_IR_`_IR_p_[R___[R___[R_ _M?_L@INZ__ INZ__INZ _INZ0_INZ@_I_2__I_2 _I_20_I_2@_I_2P_e__X2G____iSH__YC __aS___ iSH__ "___ZB__* "___+___[_b___@@__Y,~___ X__Y>___+ X__Xax__ +____P_`__ h8_Z_ax_~_+_____8__\0x__?+___E18__0+___\A8___+_`_7ax_@_+___E_8__^ X__Z ___+ X__[ ___Y 9__[*___[h8_D_Y___+bX__^7___Z ___[ X__Z ___+`x__ +____ ___Y7!__Z7___fU8___,>____8__f1x__?18__0___9?__CALL BINS(IO,INSTNC(IX) ,5,6)___CALL BINS(IC,INSTNC(IX),7,10)___GO TO 999__35_WRITE(5,33)__31_ FORMAT(1X,I2,'. OUTPUT OF ',A5,'(',I4,')'/)__33_FORMAT(1X,'NO OUTPUT I NDICATED???'/)___GO TO 999__C_OUTPUT.__C_BITS 5&6 OF OUTPUT WORD GIVE DESTINATION DEVICE.__40_CALL ATKILL__C_READ A TERMINAL OR ALINE.___INX =-KLS___CALL GETTER(K,NAME,IND,TRNO,INX)___IF(K.EQ.0)GO TO 35___IS=IND ___IUSER=NAME___IF(K.LT.1)GO TO 998__C_OUTPUT TERMINAL OPENED.___WRITE (5,31)TRNO,NAME,IND___IX=IND+5+TRNO___I1=NBOUT(29,2,INSTNC(IX))___I2=I 1___CALL SENDHS(0)___CALL SENDCS('OUTPUT DEVICE IS:',17)___CALL SENDIN (I1,1,.TRUE.)___IF((I1.LT.0).OR.(I1.GT.3))I1=I2_________@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __`9?_`__#_ __#-|p____H_' _p___`__" _p___`__# _p___`__#-|p____p_+ !p__ -|p____`_- _p__ ____ Cp__-|p____`_/ _p__ _p__ C___-|p____p_2 _p__-|p__ __p_3 _p__-|p____p_5@@__`5___8_~h_6 ___ @__` _p__/_p__8____(D___ "___ /_p__(B___.____.#p__6@__`5___?_ ___ Ap__-|p__ _p___`___-|p____p_@@@__` 5___C_~`_B ___ @__` *p__P_(__A___a2F__a-|(__ (___/_(__6@__`5___JZ"___ (B __GCp__5___L\"___O____)B __ACp__9___D__P_LL_p__Q ___.___b @__P ___ @______X_P@____A_p__0B___8____-|p____h_S _p__A_p__-|p____h_U _p__G_p__ -|p____h_W _p__F_p__-|p____h_Y _p__B_p__-|p____h_[@@____`___-|p____P_] ____b. ____`___. ____`___-|p____X_`_`___4____)@___O2vH1_~`_c__x_m_}@_a __0_| @__x__(9?CALL BINS(I1,INSTNC(IX),5,6)___I1=NBOUT(25,4,INSTNC(IX) )___I2=I1___CALL SENDHS(0)___CALL SENDCS('COLUMN NO:',10)___CALL SENDI N(I1,2,.TRUE.)___IF((I1.LT.1).OR.(I1.GT.15))I1=I2___CALL BINS(I1,INSTN C(IX),7,10)___GO TO 999__C_CLOSE.__50_CALL OFILE(21,'DATA2')___WRITE(2 1,1)(INSTNC(K),K=1,INPREK)___END FILE 21___PAUSE___GO TO 999__51_FORMA T(1X,'FILES CLOSED.'/)__C_TEST.__C__C__C__C_SIMULATE.__60_CALL SIMULT( IUSER,IS)___CALL CHINTS(ISEG(6),0,7)___GO TO 998___END______MAIN.F4,DE FINE.F4,DEFSQN.F4,DEFCOM.F4__,PREP.F4,SUBPIC.F4,BOX.F4,STATAB.F4__,DIG IT.F4,TRUTH.F4,LOOK.F4,BINARY.F4__,BINGRY.F4,CAUSE.F4__TECBAG,REGENT,S UBRES,RESET,LK,BLOCK______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~____9?____z____,____^_________B ____B____B____B_________^____,____z____H_________d____2____2____2__@_x ____W____W____$___________________________0_|______________*____*_____ _________*____#_________4__x______*__@______#_________________________ ____________x_________x_________x__DFD00_________`____________________ _________________________________________________________X____________ ______________________________________________________________________ _______________<___#0___#F_p____P_$ _p___`__" _p____H9?S,BOX2,TERMIN,C ONSUB__,PR1,PR2,PR3,PR4,PR5,PR6______X_&_B0h____h__?0_h___c{-__a<__x_, __(=q__x_-_?(c___H_/_____+___:4___0 ___Q ___* ___ ___,!p__ ____&$___ $$___-\_c84____4___i& ___$ ___.____ ____!<___X<___*<___-|p__-\_>_-\_BW 4___C4___i-\_b@4___j4___j-\_b@4___k4___l-\_b@4___m4___m-\_b@4___n4___o "__S_B______1I___1I___1J_ ___ "__S_B___ :___ Z___ _______%l3:_1I9___G _ ___ "__S_B___ :___ Z___ _______)`3:_1I9___K_ ___ "__S_B___ :___ Z___ ________23:_1J9___P_ ___+___T(6O12) -\_4+ $___ D___ :___ Z___ Z___ -\_C.4____ @h%_"$___ D___"&___ F___-\_N{4___p4____4___k4____4____ $h_. XD___-\_R_4____ $h%_XD__a-\_E+4___a"$__%.D___1:___9___V $_________@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~___ 9?E ',I2,'. OUTPUT OF ',A5,'(',I3,') BY LINE ',I2,' VIA L INE ',I2,/) +___#(1H+,26X,'FREE BUT LINE ',I2,' IS ATTACHED TO IT', /) +___&(1H+,26X,'FREE...',/) +___,4____ Z__. \__/ __/,!p__,!p__ ,!p__,!p__,!p__+___g ___. ___/\ __1,Ap__-|p___{X_3 ___W $__~XD__6-\__$ 4___R4___S4___6 @__X ___W $__~XD__:-\__$4___S4___T4___: @__X ___W $__~ XD__>-\__$4___T4___T4___> @__Y ___W $__~XD__B-\__$4___U4___U4___B @__Y ___W $__~XD__F-\__$4___V4___U4___F @__Z+___N+___N4____ Z__V \__W __W ,!p__,!p__,!p__,!p__,!p__,!p__+___3 ___V ___W\ __Z,Ap__,Ap__,Ap__,Ap__ ,Ap__-|p_______________________________________x_\____t__x_]____t_|p_^ ____2____d_________H__h9? D___-\_C.4____ ____ @_%_-\_DW4___C4___p $___ D___ "__k_b____ ___+___p(1X,'TYPE 1 TO RESET(LNPR), C.R. TO CONTINUE' ) "__r_B_________ ___+___s(I1) $___2D___+___u-\_4= __1I Z___@@h)` 1:__h9___v __| @___@@___@@___-\_Y6 $___2D___+___^ "__q_b____ ___-\_Xi 4___q-\_Y6-\_XM@@__X-\_J_-\_DW4___C4___p ____ $_%_XD___-\_F_4____4___k 4___q-\_Y'4__%k-\_Y_4___q-\_Y6 __%k D___ ____ ___B D___ $___3$___+___} ____ $_%_XD___-\_F_4____4___k4___q-\_F_4____4___p4___q ____ D___ $___ 3D___+___i-\_J_-\_DW4___C4___p6b___0b___7____+____4___i4___}4___/4___V 4___m4___54___S ____2D___g____O____ ____2F___g____O____A____4$__}-\_9; 4____4____4____4____4____"$_________@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?X,34('*')/) +___y(1X,/,5X,'ITS CLOCK INPUT IS:') +___}(1X,/,5X,'IT''S ',I2,'. I NPUT IS:')-\__n_ ___+___0_____DATA1__p_______DATA2__p_______DATA3__x__ ______w__g ___1 ___~ D__2 ___2 ____ D__3 ___04D__~ ___04D__| ___/4D__w >___1 ___14D__s "____b_______1____3____1____0____0_ ___+___, "____b___ ____3____1____0____0_ ___+___, "____b_______1____3____1____0____0_ ___ +___, "____b_______0_ ___+___, "__#_b____ ___+___,+____(1H+,26X,'CONNE CTED TO THE ',I2,'. INPUT OF ',A5,'(',I3,') BY LINE ',I2,' VIA LINE ', I2,/)+____(1H+,26X,'CONNECTED TO THE CLOCK INPUT OF ',A5,'(',I3,') BY LINE ',I2,' VIA LINE ',I2,/) +____(1H+,26X,'CONNECTED TO TH___9?2D___ +___}"$___.____ __1J D__2 __1J@@__2 $___.__1J D___ ____ $__2XD__,-\_^_ 4___04___,4___k4___r ____ $__2XD__0-\_^_4___:4___04___i4___r"$___.___X D___ ____ $__2XD__5-\_^_4____4___54___k4___s ____ $__2XD__9-\_^_4____ 4___94___s4___s ____ $__2XD__=-\_^_4____4___=4___t4___t>____ :___ Z___ $h_0XD__D ____.____ $__2XD__D-\_^_4___D4___D4___k4___r $h_:XD__I ____ .____ $__2XD__J-\_^_4___I4___J4___i4___r3:__X9___@@@___@@___ $___.__1J .____ D_1J+___} ____4D___"$___ D___"&___ F___-\_N{4____4____4___t4___p 4___q"$___ D___"&___ F___-\_P_4___t4____4___k4___p4___k4____4___k"$___ D___"&___ F___-\_P_4___t4___k4___p4___k4____4___k4____4___k______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~___`9? "__@_B_______f____g_ ___ "__@_B___ :___ Z___ ________~ 3:__g9___8_ ___ "__@_B___ :___ Z___ _________3:__f9___=_ ___+___A(6O12 ) $___ D___ ____ ___~ D___ ____ ____ D___ ____ ____ D___ ____ ____ D___ ____ $___XD__K-\__$4____4____4___K @___ ___g3d___+___n ____ ___~ 4D__j "__o_b______________ ___ ____4D__] $___.____.____ D___-\__H4____ 4____4____4____4____4____ "__u_b____ ___-\__'4____4____4____4____4____ :___ Z___ $___.____.____.____ D___-\__H4____4____4____4____4____4____ "__y_b_________ ___-\__'4____4____4____4____4____3:___9___] $___.____ .____.____ D___ ___g2d___+___B_____-\__n+___u(1X,///,10X,'BLOCK NAME I S:',A5,'(',I3,')',/1__(9?4___p"$___ D___"&___ F___-\_N{4____4____4___t 4___k4___u+____-\_c84___X4___k4@__} ____2D___g____O____ ____2F___g____ O____A____4$__w ____ D___ ____ D___:___X ___X ___C F__0 ___X ___M F__: ____5D___-\_F_4__%_4___k4___q-\_F_4__%_4___p4___q-\_Y6 $___ D___+___n -\_X 4___k4___k $__2 D___ $__2 D___-\_Xi4___q-\_Y'4__%k __%k D___ ____ ___B D___ $___2$___+____-\_Jp4____ @___ ____4D__} $___ D___ ___ @___ ___ @___-\_Y6 ____ D___+____-\_X:4____4____4____ ____4$___-\_YE4____ ____5d__'-\__04____ @___-\__04____ @___ ____2D___g____O____ ____2F___ g____O____A____4$___ ____ D___ ____ D___-\_G!4____4____4____ ____ $_)a XD__!-\_^_4____4___!4___n4___u______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?STNC(IX)=IN___C ALL BINARY(IO,NO,OUTPT,0)___DO 15 I=1,NO___IX=IX+1___ND=NBOUT(31,5,INS TNC(IX))___IM=34-ND___CALL BINS(OUTPT(I),INSTNC(IX),IM,IM)__15_CONTINU E___CALL BINARY(INSTNC(KX),NT,INPT1,1)___RETURN__2000_WRITE(24,2001)L1 ,ISIM,IND__2001_FORMAT(1X,I2,'INPUT OF ',A5,'(',I4,') IS FREE.'/)___RE TURN__99_IF(ITIMEX.GT.26)RETURN___GO TO 12__17_IKHG=ITIMEX*10___WRITE( 24,5002)ISIM,I1,IKHG__5002_FORMAT(1X,'AN INPUT IS CHANGING WITH CLOCK TRANSITION'/___11X,'BLOCK IS: ',A5,'(',I4,')'/___11X,'TIME=',I8,' NS.' /)___GO TO 12___END________X_&_c@________.@_~____t-___t__x_,_Lx_"__x_- _.8___ux_/_____-\__p4____4____-\__p4____4____-\__p4____4______H9? ____ $_)aXD__%-\_^_4____4___%4___v4___m+____-\_Y'4__%k __%k D___ ____ ___B D___ $___2$___+____-\_Y6+____@@___@@___@@___@@___@@___@@___ ____ __%_ D___ $__`3$___+___d $__c3d___+___d $__o3d_1J+___d $___ D___@@__X-\_J_ -\_DW4___C4___p-\_XM@@___@@___-\_Xi4___q-\_Y'4__%k __%k D___ ____ ___B D___ $___2$___+____-\_Jp4____ @___ ____ D___-\_Y6-\_K>4____4@__k __W @___ __k @___ $___ D___ __N @___ __1I2d___+___L6B___+____ ____ D___ +____ ____ ____3D_)`+___P+___J ____ $_)aXD__S-\_^l4___k4___q4___S @___ ____.___Y.___Y D___6B___+____-\_K>4____ @___ :___ Z___-\_K>4____ @___ ____3D___+___`3:___9___Y "__vQ"___,__bF $___ D___ ____ D___-\__04__%l ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9? TO 9__C_TRANSITION ON INPUT.. END VALUE ASSU MED..___LN=1___IKC=NBOUT(1,1,IKC)___GO TO 10__9_IKC=1__10_INPT1(I-1)=I KC___CALL BINARY(INSTNC(KX),NT,INPT2,0)___NCH=0___DO 11 I=1,NT___IF(IN PT1(I).EQ.INPT2(I))GO TO 11___NCH=NCH+1__11_CONTINUE__18_IF(NCH.EQ.0)G O TO 99___IF(KT.EQ.1)GO TO 13___IF(NCH.EQ.1)GO TO 12__C_TOO MANY INPUT S ACTIVE.___IKHG=ITIMEX*10__5001_FORMAT(1X,'MORE THAN ONE INPUT ACTIVE ..',A5,'(',I4,')'/___11X,'TIME=',I8,' NS.'/)___WRITE(24,5001)ISIM,I1,I KHG___GO TO 12__13_IF(LN.EQ.1)GO TO 17__12_CALL BGDEC(NT,INPT1,IZ)___I Z=IZ+1___IX=I1+5___IS=INSTNC(IX)___IF(IS.LT.1)IS=1___IN=ITAB(IS,IZ)/10 0___IO=ITAB(IS,IZ)-IN*100___IN__h9? @__0-\__04__%l @__:-\_X 4___04___: ____4D__h-\_X 4__%l4__%l ___0 D___ ___: D___+___mO@___ $___ D___+___` $___ D__X-\_Xi4___q-\_Y6-\_X:4____4____4____ $___ D__ ____4$__o-\__0 4____ @___-\__04____ @___ ____2D___g____O____ ____2F___g____O____A____ 4$__. $___ D___ ___X ____ F__D ___X ____ F__N ____ D___ ____ D___ $___ 2D___+____@@___ $___2D___+____@@___-\_J_"$___ D___-\_N{4___04___:4___k 4____4___u ____4D__#"$___ D___"&___ F___-\_N{4____4____4___t4___p4___q "$___ D___"&___ F___-\_P_4___t4____4___k4___p4___k4____4___k"$___ D___ "&___ F___-\_P_4___t4___k4___p4___k4____4___k4____4___k4___p"$___ D___ "&___ F___-\_N{4____4____4___t______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?/FORSIM/I1,ITIM EX,ISIM___INTEGER INPT1(5),INPT2(5),OUTPT(5)___COMMON/SIZE02/NT,NO___D IMENSION ITAB(NS,NX)__C_CHECK CLOCK REQUIREMENTS.___KCLOCK=NBOUT(0,2,I NSTNC(I1+2))___KT=0___IF(KCLOCK.EQ.0)GO TO 20__C_CLOCK REQUIRED.___KT= 1___INX=1___IND=I1___CALL GETTER(K,NAME,IND,L1,INX)___NIN=NT___NOUT=NO ___IF(K.EQ.0)GO TO 2000__C_OKEY, WHAT IS IT?.___IBIN=NBOUT(0,2,INSTNC( IND+5+INX))___IF(IBIN.NE.KCLOCK)RETURN__C_SIMULATE.__20_KX=I1+3___KL=N T+1___LN=0___DO 10 I=2,KL___INX=I___IND=I1___CALL GETTER(K,NAME,IND,L1 ,INX)___NIN=NT___NOUT=NO___IF(K.EQ.0)GO TO 2000___KM=IND+5+INX___IKC=N BOUT(0,2,INSTNC(KM))___IF(IKC.EQ.0)GO TO 10___IF(IKC.EQ.3)GO___9?4___k 4___u :___ Z___"_h_0._h_D D___"_h_:._h_N D___-\_Ox4____4____4___t3:__X 9___#-\_DW4___C4___p6b__ 0b___7____+___-4___.4___o-\_YE4____ ____4$__o -\_Y'4__%k __%k D___ ____ ___B D___ $___2$___+___P-\_Jp4____ @___ ____ D___-\_Y6@@___-\_K>4____4@__T __? @___ __T @___ __N @___ $___ D___ +___J-\_K>4____ @___ :___ Z___-\_K>4____ @___ ____3D___+___H3:___9___A "__wQ"___,__bF $___ D___ ____ D___-\__04__%l @___-\__04__%l @___ $___ D__ ____2D__:g____O____ ____2F__0g____O____A____4$__|-\_X 4____4____ +___|O@___ $___ D___+___H ___X4D__t>___X ___X4D__k ___X $__0XD__[ $__: XD__\-\_X 4___[4___\ ___X ___0 F__D ___X ___: F__N $___ D__ -\_F_4__%_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?100_SIMIX=SIMIX+7+NT+NO___GO TO 1__6000_CALL SHIFT___ITIMEX=ITIMEX+1___ITIME=ITIME+1___IF(ITIMEX.GT.ISTIME)GO TO 98 7___IF(ITIME.LT.100)GO TO 2__50_ITIME=0__C_CALL ATTEST(IRAY)__5000_IF( IRAY(1).LE.0)GO TO 2__C_CALL ACTION (IRAY)___IS=IRAY(2)___IUSER=DISPFL (IS)___IF(IUSER.EQ.1)GO TO 987__C_CALL ATKILL___GO TO 2__987_IEND=ICPU T(NKDUM)___END FILE 3___END FILE 24___END FILE 25___IUSER=1___I=(IEND- IBEG)/1000___WRITE(5,1980)I__1980_FORMAT(1X,'EXEC. TIME IN SECONDS IS: ',I4/)___PAUSE 'READY FOR ANOTHER RUN'___GO TO 123___END_____SUBROUTIN E SIMSQN(NS,NX,ITAB)___COMMON/LOGIC/MASTER(1000),INSTNC(2000)___COMMON /EBAT/NIN,NOUT,KCLOCK___COMMON__(9?4___k4___q-\_F_4__%_4___p4___q-\_Y6 -\_Xi4___q $___ D___-\_F_4__%_4___k4___q-\_F_4__%_4___p4___q+____@@___ @@___-\_XM+___}-\_VF4___k ____ __%_ D___ $__`3$___+___e $__c3d___+___e -\_VF4___x-\_W<4___ 4___u4___! ___y3D__ +___}O@___-\_4V4___ 4___!4____ 4____ $___3D___+___|+___m@@__Z $___2D__!+____-\_Vz4___z4___r-\_W<4____ 4___|4___! ___}2D___+____-\_Vz4___}4___n-\_Vz4____4___k $___ D__" $___ D__Z-\_V'4___"4___q4___t $___3D__"+____ $___ D__Z-\_5_4___ 4____4___" 4____4____4___k4___k4___k __1I ____ F_)`"$___.____ __1I D_)a __1I $_)a XD___-\_^_4___Z4____4___s4___t __1I $_)aXD___-\_^_4___k4____4____4____ __1I $_)aXD___-\_^_4____4____4___n4___u______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?,'ENA BLE OR DISABLE DEVICES BY TYPING 1 OR 0 '___1 'RESPECTIVELY'/___1 ,1X, 'ORDER OF DEVICES IS LPT,DSK,DISP'/)__1976_FORMAT(3I1)__1974_FORMAT(I6 )__C_CALL ATKILL___CALL BASLIK___IBEG=ICPUT(NKDUM)__2_SIMIX=1__C_START SIMULATION...__1_IF(SIMIX.GE.INPREK)GO TO 6000___IX=INSTNC(SIMIX)___N IN=MASTER(IX+2)___TYPE=MASTER(IX+1)___NOUT=MASTER(IX+3)___NS=MASTER(IX +4)___ISIM=MASTER(IX)___NT=NIN___NO=NOUT__C_SIMULATE...___GO TO(10,11) ,TYPE__C_IN FUTURE OTHER TYPES WILL BE ICLUDED.....__C___C_SEQUENTIAL BLOCK..__10_NX=2**NIN___CALL SIMSQN(NS,NX,MASTER(IX+5))___GO TO 100__C _OTHER TYPES..__11_CALL SIMCOM(MASTER(IX+5))__C____GO TO 100__C___C___ __H9? __1I $_)aXD__#-\_^_4____4___#4___v4___m __1I $_)aXD__'-\_^_4___" 4___'4___k4____ __1I@@_)b __1I@@_)b $___.__1I D___ ____ &___ F_)` :___ Z___ ____.____!&_@_ F_)`3:__Y9___/ $___.__1I.___Y.___Y D_1I+___}-\_Xi 4___q-\_Y'4__%k __%k D___ ____ ___B D___ $___2$___+____-\_K>4____ @___ ____4D__} $___ D___ __A @___ ___ @___+____ ____ $_)aXD__D-\_^l4___s 4___v4___D @__# ____ $_)aXD__H-\_^l4___q4___q4___H @__#:___# $___2$__# +___K@@__# ____ $_)aXD__N-\_^_4___#4___N4____4____-\_Kp4___#4___k4___k 4___#-\_Y6+___} __T @___+___^-\_bC4___m4___m-\_bC4___n4___o-\_bC4___j 4___j __1I Z__$@@h)`1:__h9___Z __1J Z__$@@h_21:__~9___\ "__S_b___ :___ Z___ __________@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?IM/SIMIX,ITIMEX,ISIM___COMMON/DEVIC E/IDEV1,IDEV2,IDEV3___COMMON/PRFARK/IPOS,IVALUE___COMMON/SIZE02/NT,NO_ __INTEGER DISPFL,DSKB,D340,DS1,D31,SIMIX,TYPE___ISTIME=0___IPOS=1__123 _WRITE(5,1971)___READ(5,1972)IVALUE__1971_FORMAT(1X,'TYPE 0 FOR SUPRES SED OUTPUT,1 FOR COMPLETE:'/___11X,'(OR 2 TO ABORT SIMULATION.)'/)__19 72_FORMAT(I1)___IF(IVALUE.GT.1)GO TO 987___IG=ISTIME*10___WRITE(5,1973 )IG___READ(5,1974)IS___IF(IS.LT.0)GO TO 987___ISTIME=IS/10+ISTIME__197 3_FORMAT(1X,'GIVE DURATION OF SIMULATION IN NANO SECONDS___1 USING 6 D IGITS.'/1X,'TIME NOW IS',I8,' NS.'/)___WRITE(5,1975)___READ(5,1976)IDE V1,IDEV2,IDEV3__1975_FORMAT(1X__h9?____23:_1J9_____ ___ "__S_b___ :___ Z___ _______)`3:_1I9___d_ ___ "__S_b______1I___1I___1J_ _____________ _____ "__m_b____ ___+___o(1X,'DATA STORED') "__q_b____ ___+___t(1X,' SYSTEM READY ...'/) +___}-\_Xi4___q-\_Y'4__%k __%k D___ ____ ___B D___ $___2$___+____-\_Jp4____ @___-\_Y6 ____4D__4 __2 @___ ___ @___ $___ D___ __1I3d___+___} ____ __)` D___ ____3D___+____ ____ __)` D___ ____ __%m D__Y ____ __%n D__Y $___.____.___Y.___Y D___ $___.___Y D___6B___ +____ $___ D___"$___.____ D__$ ___$ D___ ___ @___ ____ D__% $___ D___ +____ $___.____.___Y.___Y D___ __1I2d___+____6B___+____ ____ __)`4D__/ $___.____.___Y D___ :___ Z___ ____.__________@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?=1___ IX=MASTER(I1+5)-(MASTER(I1+5)/100)*100__40_CALL BINARY(IX,NOUT,IZ,0)__ _I1=I+5___INSTNC(I1)=IS___DO 10 L=1,NOUT___I1L=I1+L___ID=NBOUT(25,11,I NSTNC(I1L))___INSTNC(I1L)=0___IF(IZ(L).EQ.0)KX=0___IF(IZ(L).EQ.1)KX="7 77777777777___INSTNC(I1L)=KX___CALL BINS(ID,INSTNC(I1L),0,10)__10_CONT INUE___I=I+NIN+NOUT+7___GO TO 50__C_COMBINATIONAL BLOCK.__2_IX=MASTER( I1+5)___IS=1___GO TO 40___END_______SUBROUTINE SIMULT(IUSER,IS)___COMM ON/LOGIC/MASTER(1000),INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___C OMMON/DISP/DISPFL(5000),ISEG(200),IRAY(4)___COMMON/OUTXXX/LPT0(20),DSK B(20),D340(20),LP1,DS1,D31___COMMON/EBAT/NIN,NOUT,KCLOCK___COMMON/FORS ___9? D___ ____ $_)`XD__#-\_^l4___u4___v4___# @__% ____ $_)`XD__'-\_^l 4____4___r4___' @__& ____3D__%+___} ____2D__%+___, ___&5D__}3:___9____ $___.____ D___+____ ____.D___+____6B___+____ ___%@@_)`-\_H;4____+___} $___ D___ $___ D__& ____ __)` D___ ____ __%m D__Y ____ __%n D__Y $___ .___Y.___Y D___ ____ ___&3D__2+___E ___& $__3XD__B-\_^l4____4___u4___B @__' $___.___&.___' D__&+___= ___&@@__2 __1I3d___+___] ____ __)`4D__% ____ D___ $___.___Y D___ $___.____.___Y D___ $___ D___ ____ D__' ____ .____ D___ ____ $_)`XD__T-\_^l4____4___r4___T @___ ____2D___+___b-\_;J 4____4____4____4___&4___%4___( ____2D__&+___h"$___.____ D___-\_:.4____ 4____4___k______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?TS,GETTER,BGDEC,SHIFT,SIMULT,REGENT __,SIMCOM,PR2,PR5,BLOCKS,BINARY,SUBRES,TERMIN,BOX2_____ADDXXX.F4,SIMUL T.F4,SIMCOM.F4,SIMSQN.F4__,BGDEC.F4,BINARY.F4,SHIFT.F4,GETTER.F4,PR5.F 4__,RESETS.F4,BASLIK.F4___SUBROUTINE RESET___COMMON/LOGIC/MASTER(1000) ,INSTNC(2000)___COMMON/VAL/MAPREK,INPREK,LNPR___COMMON/EBAT/NIN,NOUT,K CLOCK___COMMON/FORSIM/SIMIX,ITIMEX,ISIM___COMMON/PRFARK/IPOS,IVALUE___ INTEGER IZ(5),SIMIX___ITIMEX=0___IPOS=1___I=1__50_IF(I.GE.INPREK)RETUR N___I1=INSTNC(I)___NIN=MASTER(I1+2)___NOUT=MASTER(I1+3)___IYPE=MASTER( I1+1)___IF(IYPE.EQ.1)GO TO 1___IF(IYPE.EQ.2)GO TO 2__C_LIBRARY ELEMENT .__C___RETURN__C_SEQUENTIAL BLOCK.__1_IS__(9?4___k4___k4___k4___k+___! ____ $_)`XD__e-\_^l4____4___r4___e @__& ____3D__&+___-+___! $___ D___ ____ D__% ___ @__( $___ D__) ____ D__) __1I2d___+___o6B__(+____ __r @___ ____ D___+____ $___.____.___Y D___ ____ __)`4D___ :___ Z__# ____ .____ D___ ____2D___g____O____ ____2F___g____O____A____4$___ ____ $_)` XD___-\_^l4____4___r4____ @__* ____ $_)`XD___-\_^l4___)4___r4____ @__* ___&2D__*+____"$___.____ D___"&___.____ F___ Z___-\_:.4____4____4___p 4___*4___&4____4____ ___) D___ ___% D___+___!3:___9___v $___.____ D___ +___m $___.____.___Y.___Y D___+___m ___ @__( $___ D___ $___ D__)+___m "$___.____ D___-\_:.4____4____4___k4___k4___&4___k______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ___9?Z_p__Z_p___b_cu "___/_p___b_cu-|p____`cBQ _:_X_p__ @w__-|w____`cE Q _8_X_p__ @w__-|w____`cGQ _6_X_p__ @w__-|w____HcJQ ___X_p__ @w__Q _>_ X_p__ @p__-|w____HcNQ ___X_p__ @w__Q _<_X_p__ @p__-|w____PcRQ ___X_p__ @w__ __cvP@p__-|w____PcUQ ___X_p__ @w__ __cvP@p__-|w____PcYQ ___X_p__ @w__ __cwP@p__-|w____Pc\Q ___X_p__ @w__ __cwP@p__-|w____Pc`Q ___X_p__ @w__ __cxP@p__-|w____PccQ ___X_p__ @w__ __cxP@p__-|w____PcgQ ___X_p__ @w__ __cyP@p__-|w____PcjQ ___X_p__ @w__ __cyP@p__-|w____PcnQ ___X_p__ @w__ __czP@p__-|w___~xcqQ ___X_p__ @w__ __czP@p__-|w__0____<____X@___ Q@___Y@___P@___Z@___S@___[@___R@___^@_____xcz_@___+___hSIMSIM,SIMSQN,S IMSUB,RESE__H9?4___k ___% D___ ___) D___:____ ____3d__'+___P $___.____ D___+___& ____.D___ ____ __)` D__+ ___+ __%m D__Y ___+ __%n D__Y $___ .___Y.___Y D___+___F"$___.____ D___-\_:.4____4____4___k4___k4___k ____ D__+ $___ D__, ___, __)` D__, ___, __%m D__Y ___, __%n D__Y ___, __)a 4D__J $___.___Y.___, D__- $___.___Y D___ :___ Z__- ___-.____ D__.-\_;J 4___.4____4____4___&4___%4___( ___&2D__+g____O____ ____2F__+g____O____ G____4$__!3:___9___? $___.___Y.___Y.D__, __1I2d__,+___5 ___+ $_%_XD__P -\_H;4___P $___ D__, __1J3d__,+___! ___+ ___,3D__2+___[ ___, $__3XD__X -\_^l4____4___u4___X @__- $___.___,.___- D__,+___Q ___,@@__2+___!-\_H; 4____+___}______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?+__c_L@_c_+__c_$____+"_c_(B___dB___ $____+"_c_5b_c_ ____,^___,~___U ___6 _c_+__c_"`___/ ___+__c___(c_ ___ ,~________aB___#`___0@___3@_c_,~___ ___,~___C6__ __hc_,__c_-|p__[_B__ __hc_,__c_-|p__[_B____Xc_,__c_-\_c4___c_-|p__C6______c_,__c_-\_c.___c_ -|p__ _p__9__c_3!___ ____ _p__h"_ _ab_~_9__c_ @_c_,~_____xc_C6Md __hc_ ,__c(-|p__[&r____hc ,__c(-|p__[&r____Xc",__c(-\_c4___c--|p__C6Md____c% ,__c(-\_c.___c--|p__ _p__9__c*2a___ ____ _p__h"_ _ab_~_9__c) @_c-,~___ __xc-M2|____@c. _p__& ___6@___h _F_h"_6__ ___-|p__S; ____pc2+__c4S_O__ __@c4#_p__% ___*____(___.7!p__"`___-|p__[> ____`c8 _p__&_p__ ____-|p__ __Pc;@`___X_p__X_p___b_cul _@_-|p____Hc>__h9? $___ D__.-\_3i4____4___. -\_DW4___C4___p6B___+____-\_b6 __/ @___+___^ __m @___+___^-\_b6-\_b6 _ ___+___0_________D_____DATA4__p_k_____DATA1__p_l_____DATA2__p_n_____ DATA3_~p_o____B_______________________________________________________ _____ERROR 1 ERROR 2 NAME=__X_yOMITXTYPE YES IF CLOCKED __H_|_____ YES 0-1 EDGE OR 1-0 EDGE ? __`__(TYPE "01" OR "10").__P______2_____ _____________________[_1J "_1L_b____ ___+__1R(1X,'REGENERATING THE FIL E.'/,1X,'WAIT FOR READY SIGNAL'/) $___ D_3| __3| D_3|@@__> $___.__3z D_3y __3y $_%_XD_1X-\_I-4__1X-\_DW4___C4__3p _1b @_3} __3| __)` D_3} __3} __%l D_3~ __3} __%m D__Y __3} __%n D__Y6B_3}______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __@9?-|p____Xb@ _p__X@_bB _p___@_bB-|p___|`bC _p__X@_bE _p___`_bE-|p__ ,>________4`_bK"`___Q@___ _bZ_`________*b_bJ+__bN _b[_`______b]Z____ 5"_bN______ ___ _bV_`____ ___ _bZ_@__~______ ___(@__q1@__,+__b70@__# +__bO,^___,~___(30H TYPE G TO CONTINUE,X TO EXIT./1H )_(A1)_(1H 14A5/) (1H A5,1X,O6)__PAUSE+__b^_~@b^ ____"#p__ %p__.$___Q____ &___ ___ F___ .<___ ____$_p__.____ _p__/_p__$&___*d_bb_"_bi1B___(____ @___ F___-|p__ 0_ __C______hbj#_p__-|p__S__0__|@bl#_p__+"_bn-|p__U ___-|p__Kc__K ____ ____,__by @___,~___Kc__J ____ ____,__by @___,~___Kc__I ____ ____,__by @___,~___Kc__H4B_c_5@_b|5"_c_ ___,__a?U ___,~___4"_c_,>___ $___ D_c_ 5`_c_aB______9?+____ __3| __)a4D_2_ $___.__3| D_3~ __3~ $_)`XD_1h-\_^l 4__3p4__3q4__1h @_3_ __3~ $_)`XD_1l-\_^l4__3q4__3q4__1l @_3_ __3~ $_)` XD_1p-\_^l4__3r4__3r4__1p @_4_ __3~ $_)`XD_1t-\_^l4__3r4__3r4__1t @__Z -\_5_4__3~4__3y4__4_4__3_4__3_4__3r4__3r4__4_-\_DW4___C4__3p:___> ___> __3| F__Z ___> __3| F___"$___.__3y __3| D_)a $___.__3|.___Y.___Y D_3| __3~ $_)`XD_2_-\_^_4__4_4__2_4__3r4__3s $___.__3|.___Y.___Y D_3| __3| 3$_1I+__1[+__2_ _2_ @_3}+__2_ __3| __)a4D_2_"$___.__3| D_4_"$___.__3| D_4_ $___.___Y.___Y D_4_ :___ Z_4_ __4_.____ __4_.____ _ )` F_)`3:_4_ 9__2_ _1b @_3}+__1d __3| D_1I-\_DW4___C4__3p _26 @_3} $___ D_3| $___ D_4_ $___ D_4_ __4_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___`9?+__at __b",__b#+__b_+__b_ +__b_+__b_+__b_+__b_+__b_+__b_ ___+d8_~_l8___+__b_ ___+d8__pl8___+__b_ _8_b&_x_b3.8___d____l8___+__b_R___+d8_~_l8___*__b"+@_b" X_b":___+ ___+ h8_Z_`x_~_+__b_`X___ZX__+`x_Z_+__b_+__b3 __b"+___+ __b!ax__ :__b!ax_@_ +__b4X8___`x___ 8___`x__ 8___Z`___,>___,>___,>___Z__b!3b___+@_a>,____ p____p__b!Z__b!3b___+@_a>,^___,^___,^___+__b__}Xb#___aX6$`__1X__-+__b_ +__b_.___+h`_____0_s __b" __b#,>________(___{jb___m8_~_d8_~_3"_b'g____ (____,^___+__al@____6%__+1X__-+__aw1X__,+__av,^_b#+__b_9____._______b_ X8___`x___ 8___+__b_KbN@___`b6+@_a>,____+@_a>_`_____`b9 _p__ _p__(@___ -|p____`b; _p__ _p__( ___-|p____`b> _p__ _p__(______(9?2$_1J+__24 __4_ $__3XD_2%-\_^l4__3s4__3s4__2% $___.____ D_4_ __4_ ___24D_23 __4_@@__2 "$___.__4_ D_4_"$___.__4_ D_4_ :___ Z_4_ __4_.____ __4_.____ _ _2 F__2 3:_4_9__2. __4_.D_4_ __4_.D_4_+__2! __4_ D_1J __4_@@__2 $___ D_3| __3| 3$_1I+__29+__3m _3F @_3} __3| __)` D_3} __3} __%m D__Y __3} __%n D__Y $___.___Y D_4_ $___.__3|.___Y D_3| :___ Z_4_ __3|.____ D_4_-\_;J4__4_ 4__4_4__4_4__4_4__4_4__4_ __4_4D_3U __4_4D_2Q :___ Z_4_ __4_3Dh_Z+__2O 3:__>9__2K "_3tQ"___,__bF __4_ ____ D_4_ $___ D_4_ __4_ $__3XD_2U-\_^l 4__3s4__3s4__2U $___.____ D_4_ __4_ __4_3D__2+__2] __4_.D_4_ __1J2d_4_ +__2R "_3uQ"___,__bF __4_ ___24D_2_6B_3}+____ __4_ __3y F__2______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~____9?+___E*__`G+__a<*__`G+____+__b]_ H___t_aB,~___:_x__,~___ _____INX__G____YC __GSH__iSH__aS___aS___I'___IR___IR_ _IR_0_IR_@_IR_P_ IR_`_IR_p_[R___[R___[R_ _M?_L@INZ__INZ__INZ _INZ0_INZ@_I_2__I_2 _I_20_ I_2@_I_2P_e__X2G____iSH__YC __aS___iSH__ "_aYZB__* "___+__b$_b___@@_b! ,~___ X_b">___+ X_b!ax__ +__aaP_`__h8_Z_ax_~_+__ab_8_b$0x__?+__b_18__0 +__b%A8___+_`b_ax_@_+__b__8_b& X_b" ___+ X_b# __b" 9_b#*__b#h8_D_Y___+ bX_b'7__b" __b# X_b# ___+`x__ +__b( __b"7!_b#7__b.U8___,>____8_b/1x__? 18__0+__b/A8___+_`ap+__aw+__ay+__a~+__as+__aw+__aw+__a~,>x__ __b",__b" ,__b#+__b_:__b"A8___ X_b" __b",__b"+__b_ __b".8___A8___ X_b#,^_b#,>_b2 U8___7 _b#_8x__,>_____H9? $___.__4_ D_3~ __3~ $__2XD_2e-\_^l4__3p4__3p 4__2e @_4_ __3~ $__2XD_2i-\_^l4__3r4__3p4__2i @_4_ __3~ $__2XD_2m-\_^l 4__3v4__3q4__2m @_3_ __3~ $__2XD_2q-\_^l4__3v4__3q4__2q @_3_ __3~ $__2 XD_2u-\_^l4__3s4__3s4__2u @__X>__3~-\_N{4__3_4__3_4__3r4__3r4__3s __4_ 4D_3_"$___ D_3z"&___ F_3{-\_N{4__3z4__3{4__3w4__3p4__3w"$___ D_3z"&___ F_3{-\_P_4__3w4__3z4__3r4__3p4__3r4__3{4__3r"$___ D_3z"&___ F_3{-\_P_ 4__3w4__3r4__3p4__3r4__3z4__3r4__3{4__3r4__3p"$___ D_3z"&___ F_3{-\_N{ 4__3z4__3{4__3w4__3r4__3s __3_ D__0:___X __3_ D__: :___ Z_4_ __3~.____ D_3} __3} $__2XD_3_-\_^l4__3v4__3x4__3_ @h_0 __3} $__2XD_3_-\_^l4__3v 4__3q4__3_ @h_: _h_0______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___ 9?@@__)5_____~h^_ ___ @__) _p__/_p__8____(D___ "___/_p__(B___.____.#p__6@__)5_____ ___ Ap__-|p__ _p___`___-|p____p__@@__)5_____~`__ ___ @__) *p__P_(__A___)2F__*-|(__ (___/_(__6@__)5____Z"___(B __GCp__5____\"___O____)B __ACp__9______P__ L_p__Q ___.___* @___ ___@______X__@____A_p__0B___8____-|p____h__ _p__ A_p__-|p____h__ _p__G_p__-|p____h__ _p__F_p__-|p____h_! _p__B_p__-|p__ __h_#@@____`___-|p____P_%____+. ____`___. ____`___-|p____X_)_`___4____ )@___O2vH1_~`_+__x_5_}@`*__0_E @_`@ __I_`___+___O ____ @_a> <_^{+____ gg___M?_L@_~p_L?CANNOT FIND FORTR.SHR____&__L_`____&__Q_`___?FORTR.SHR DOES NOT CORRESPOND TO IMP40________8a< \_`G <_^{__h9?/_h_0 D_3_ _h_: /_h_: D_3_-\_Ox4__3_4__3_4__3w3:__X9__3_ __4_4D_3?"$___ D_3z"&___ F_3{ -\_N{4__3z4__3{4__3w4__3p4__3w"$___ D_3z"&___ F_3{-\_P_4__3w4__3z4__3r 4__3p4__3r4__3{4__3r"$___ D_3z"&___ F_3{-\_P_4__3w4__3r4__3p4__3r4__3z 4__3r4__3{4__3r4__3p"$___ D_3z"&___ F_3{-\_N{4__3z4__3{4__3w4__3r4__3s :__3y-\_C.4__3y __3y @_%_ __3y $_%_XD_3C-\_E+4__3C-\_DW4___C4__3p6B_3} +____ __4_ ___2 D_4_ __4_3D_4_+__3N __4_ D_4_ __4_4D_3P _3N @_3} __4_ D_4_+__2Q __4_ D_4_ __4_ ___2 D_4_-\_:.4__3|4__4_4__4_4__4_4__4_4__4_ 4__4_ _3F @_3} __4_3:_4_9__2C $___.__3|.___Y.___Y D_3| __3|2$_1I+__3[ +__2: $___ D_4_ __4_ $__3XD_3_-\_^l4__3s4__3s4__3_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __@9? $___ D_^d __^i5$_^8+__^X :___ Z_^j $___ ____.__^c.____ D_^d-\_c8 4__^d4__^` @___3:_^d9__^8+__^X __^d5$_^@+__^X-\_c 4__^d4__^a @_^j@@_^c @@_^h :___ Z_^j $___ D_^h ____2d_^j+__^I $___ ____.__^c.____ D_^h $___ .__^h D_^d-\_^_4__^h4__^c4__^h4__^d $___.D_^h __^j1:___9__^D+__^X@@_^i +__^_ $___ D_^c+__^X+__^X4____ Z_^a \_^b _^b,!p__,!p__, p__,!p__+__]` __^a __^b\ _^d,Ap__/ ___,Ap__-|p_____________________________________ _______h^__________ _______h^j<__^l0__^lF_p____P^l _p___`_^k _p___`_^k _ _^l-|p____H^p _p___`_^k _p___`_^k _p___`_^l-|p____p^t !p__-|p____`^u _p__ ____ Cp__-|p____`^x _p__ _p__ C___-|p____p^z _p__-|p____p^| _p__ -|p____p^}___9? @_4_ __4_ ___2 F__2 __4_@@__2 $___.__4_.__4_ D_4_ __1J 3d_4_+__3g+__3\-\_DW4___C4__3p+__3m+__3m4____ Z_3x \_3y _3y,!p__,!p__ +__1J __3x __3y\ _3z/ ___,Ap__-|p_____________________________(3r_____ _____ERROR 10 ERROR 11 __________________________{84_ :___ Z_48 $h_@ XD_4_-\_Q_4__4_ $___.____$$___ D_47-\_524__474__4/ $h_@XD_4_-\_QF4__4_ 1:___9__4_-\_Q_4___/-\_L_4__4/-\_QF4___/-\_Q_4___/-\_L_4__40-\_QF4___/ -\_Q_4___0-\_L_4__41-\_QF4___0-\_Q_4___0-\_L_4__42-\_QF4___0-\_Q_4___1 -\_L_4__43-\_QF4___1-\_Q_4___1-\_L_4__44-\_QF4___1-\_Q_4___2-\_L_4__45 -\_QF4___2-\_69+__4-+__4-4____ Z_46 \_47+__4_ __46 __47-|p_______FIX __x40MOVE __x41LINE ______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___`9?4__^[4__^\ __^cXD_]y-\_^} 4__^f4__]y4__^\4__^] __^cXD_]|-\_^}4__^g4__]|4__^]4__^^ __^f(____ __^g .____ __^f(____.____ F_^c+__^X __^c D_^g-\_^}4__^h4__^c4__^^4__^_ $___ 2D_^h+__^_ $___.__^c D_^g@@_^h :___ Z_^i Z_^d $___.____ D_^e-\_^}4__^h 4__^g4__^d4__^e $___3d_^h+__^_ $__ .D_^h __^cXD_^_ $___.__^h D_^d-\_^_ 4__^h4__^_4__^h4__^d $___.D_^h.:___1z___+__^_+__^XO@_^i-\_^}4__^h4__^c 4__^_4__^` __^h5D_^, $___ D_^i :___ Z_^j $___.__^i D_^d-\_^}4__^h4__^c 4__^i4__^d __^i5$_^% $___.D_^h ____.__^c __^h F___ $___.D_^i1:___9__^_ __^c@@___ $___ D_^d+__^X@@_^i :___ Z_^j $___.__^i D_^d-\_^}4__^h4__^c 4__^i4__^d ____.__^c __^h F___ $___.D_^i1:___9__^-__(9?__x42ERASE__x43 BRING__x44ROTAT__x45CLOSE___48 $___ D__> $___ D_1I $___ D_1J+__4?+__4? 4____ Z_4@ \_4A+__49 __4@ __4A-|p___|84A $___ D_4` $___ D_4b $___ D_4a __4b3d_1I+__4G+__4[ __4a __%m D_4` __4a __%m D__Y __4a __%n D__Y __4a __%n D_4b __4_ __4a3D_%l+__4T $___.__4a (___ ___Y,__bs$__4b.____ D_4a __4a D_4b+__4E $___ D_4`+__4[+__4[4____ Z_4^ \_4_ _4_,!p__,!p__,!p__ ,!p__+__4B __4^ __4_\ _4a,Ap__,Ap__,Ap__-|p___xp4b-\_c_4___Y4___Y @_5% "$___ D_5$"&___ F_5$-\_N{4__5!4__5"4__5_4__5$4__5$-\_Ox4__5_4__5_4__5_ "$___ D_5$"&___ F_5$-\_Ox4__5$4__5$4__5_-\_RG __5% $__@XD_4r-\_R_4__4r "$___.__5%$$___ D_5&-\_Ox4__5&4__5_4__5_-\_L%4__5 4__5_-\_R6______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~____9?_ ___-\_c 4__\q4__\k @_\q "_\Q_b___ :___ Z_\r _______\r 3:_\q9__\N_ ___+__\S(1H+,64A1)+__\f-\_c 4__\q4__\l @_\q "_\\_B___ :___ Z_\r ____$__\l __\o.____"__\m.______ __3:_\q9__\W_ ___+__\^(40A5) +__\f "_\!_b______\p_ ___+__\I+__\f4____ Z_\n \_\n _\n,!p__, p__,!p__ ,!p__+__[q __\n __\n\ _\p,Ap__,Ap__-|p___________d__`\j______________ ________]V :___ Z_]_ Z_]`1:__29__]X+__]\+__]\4____ Z_]^ \_]^+__]W __]^ __]^-|p___p_]` __^b5d_]b+__^X $___2$_^b+__]d+__^X6b_^b0b___7____+__]e 4__^_4__]m4__]p4__]s4__]j4__^_4__^?4__^P4__^Q __^cXD_]l-\_^t4__]l @_^c +__^X __^cXD_]o-\_^u4__]o4__^c+__^X __^cXD_]r-\_^x4__]r4__^c+__^X __^c XD_]u-\_^}4__^f4__]u__H9?"$___/__5& D_5$"&___ F_5$-\_Ox4__5$4__5$4__5_ ___Z4D_4_-\_R_4___? :___ Z_5&-\_R_4___?3:__Y9__5_ $___$___Y"D_5$-\_Ox 4__5$4__5_4__5_ :___ Z_5&-\_R_4___@3:__Y9__5_ __5 $_%_XD_5_-\_E+4__5_ :__5 -\_C.4__5 __5 @_%_-\_DW4___C4__5_+__5_+__5_4____ Z_5_ \_5_ _5_ ,!p__,!p__,!p__,!p__,!p__,!p__,!p__,!p__+__4c __5_ __5_\ _5#/ ___,Ap__ ,Ap__/ ___,Ap__,Ap__-|p____X5___________________________}h5&-\_Ox4__58 4__5;4__59-\_Ox4__5:4__584__59"__5; D_5;-\_Ox4__584__5;4__59"__5: D_5; -\_Ox4__5;4__584__59+__55+__554____ Z_59 \_5: _5:,!p__,!p__+__5' __59 __5:\ _5;,Ap__,Ap__-|p____x58______op5<-\_Q_4___?"$___ D_6B-\_Ox4__6= 4__6B4__6="$___ D_6B"&___ F_6B______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9?4__\_4__\j3:_\q 9__\_ "_\__b____ ___+__\_($) -\_]Z "_\__B____ ___+__\_(1X) "_\__b___ :___ Z_\r _______\r3:_\q9__\__ ___+__\_(1H+,200A3) "_\__B______\p _ ___+__\_(I1) $___2D_\p+__\_ $___ D_\p+__\f "_\!_b______\p_ ___+__\" (1H+,I1,$) $___.__\p D_\r6b_\r0b___7____+__\%4__\+4__\+4__\+4__\)4__\< 4__\S-\_]Z "_\__B____ ___+__\f-\_]Z "_\0_B___ :___ Z_\r _______\r3:_\q 9__\-_ ___+__\2(20A3) :___ Z_\r ____$__\l __\o.____"__\m.____ $(__ XD_\9 $h\rXD_\9-\_^S4__\j4__\94__\94__\j3:_\q9__\2@@_\p+__\f :___ Z_\r ____$__\l __\o.____"__\m.____ _(__ D_\r $___3d_\r+__\D $__ .D_\r@@h\r $h\rXD_\F-\_^_4__\F4__\r4__\j4__\k3:_\q9__\=-\_]Z "_\__B_____h9?-\_P_ 4__6>4__6=4__6>4__6B4__6=4__6=4__6B4__6>4__6="$___ D_6B"&___ F_6B-\_P_ 4__6>4__6=4__6>4__6>4__6=4__6=4__6B4__6B4__6="$___ D_6B"&___ F_6B"(___ H_6C"*___ J_6C-\_P_4__6>4__6B4__6>4__6>4__6B4__6>4__6>4__6C4__6C"$___ D_6B"&___ F_6B-\_N{4__6B4__6B4__6>4__6=4__6?-\_RG-\_Ox4__6=4__6?4__6> "$___ D_6B"&___ F_6B-\_N{4__6B4__6B4__6=4__6=4__6@-\_R6-\_QF4___?-\_Q_ 4___@-\_Ox4__6=4__6?4__6="$___ D_6B"&___ F_6B-\_P_4__6>4__6=4__6>4__6B 4__6=4__6=4__6B4__6>4__6="$___ D_6B"&___ F_6B-\_P_4__6>4__6=4__6>4__6> 4__6=4__6=4__6B4__6B4__6="$___ D_6B"&___ F_6B"(___ H_6C"*___ J_6C-\_P_ 4__6>4__6B4__6>4__6>4__6B4__6>4__6>4__6C4__6C"$___ D_6B"&___ F_6B-\_N{ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?LINK ERROR,I2) __[n5D_[5 "___,__bF __[n(____ &___.____ F_[n+__[? $___ D_[o-\_\a4__[k4__[o4__[j4__[n __[n5D_[C __[o D_[m $___2D_[m+__[Z __>_X@_[V "_[W_b____ ___+__[Y(10H LINK O.K./) +__[h-\__%4__[n5`_[M __>_X@_[] "_[^_b____ ___+__[`(13H LINK SUSPECT) __[n4$_[55d_[bO@_[n"$___.__[n4d_[I+__[5+__[h4____ Z_[l \_[l _[l,!p__ +__[/ __[l __[l\ _[m,Ap__-|p__________________pp[p-\_b^4____4__\m4__\p 4__\i $___.__\o7 ___.$___(____"&___.____5F_\< __\p4$_\<5d_[}@@_\q6b_\o 0b___7____+__[{4__\<4__\<4__\_4__\<-\_c 4__\p4__\i @_\q6b_\o0b___7____ +__\_4__\_4__\+4__\_4__\^ :___ Z_\r ____$__\l __\o.____"__\m.____ $(__ XD_\_ $h\rXD_\_-\_^S4__\i4__\____9?4__6B4__6B4__6>4__6=4__6?-\_RG"$___ D_6B-\_Ox4__6=4__6B4__6>"$___ D_6B"&___ F_6B-\_N{4__6B4__6B4__6=4__6= 4__6@-\_R6-\_QF4___@-\_Q_4___?"$___ D_6B"&___ F_6B-\_Ox4__6B4__6B4__6= "$___ D_6B"&___ F_6B-\_P_4__6>4__6=4__6>4__6B4__6=4__6=4__6B4__6>4__6= "$___ D_6B"&___ F_6B-\_P_4__6>4__6=4__6>4__6>4__6=4__6=4__6B4__6B4__6= "$___ D_6B"&___ F_6B"(___ H_6C"*___ J_6C-\_P_4__6>4__6B4__6>4__6>4__6B 4__6>4__6>4__6C4__6C"$___ D_6B"&___ F_6B-\_N{4__6B4__6B4__6>4__6=4__6? -\_RG-\_Ox4__6@4__6?4__6>"$___ D_6B"&___ F_6B-\_N{4__6B4__6B4__6=4__6= 4__6@-\_R6-\_QF4___?+__6;+__6;4____ Z_6A \_6A+__5< __6A __6A-|p_______ __P6=_______________________________zX6D______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?.D_[) __[).D_[. __[+3:_[*9__ZX@@_[(+__[_ __[)X@_[_ "_[__b____ ___"$___ D_[( O@_=g+__[_+__[_(31H SUBROUTINE REFROP-LINK FAILURE,I4) +__[_(24H SUBRO UTINE REFROP FAILS//) +__[_(31H SUBROUTINE REFROP-LINK INVALID//) +__[_(37H SUBROUTINE REFROP-INCORRECT ARGUMENT/ 8H NWORDS=,I8/8H PSTAD D=,I8//) +__[_4____ Z_[% \_[% _[%, p__,!p__,!p__,!p__,!p__+__Z> __[% __[%\ _[(,Ap__-|p__________________x0[.@@_[n __>_X@_[1 "_[2_b____ ___ +__[4(15H LINK REQUESTED)+__[< __>_X@_[6 "_[7_b____ ___+__[;(30H ATTEM PT TO USE LINK ABANDONED)O@_[m+__[h $___ D_[o $___ D_[o@@_[pO@_[p-\_\a 4__[j4__[o4__[k4__[n __[n4D_[M __>_X@_[D "_[F_b______[n_ ___+__[H(11H __(9? $___ D_6u __6u2$_1I+__6c __6u __)` D_6v __6v __%m D__Y __6v __%n D__Y __6r __6u3D_)a+__6P $___.__6u.___Y.___Y D_6u+__6E __6u $_)aXD_6S -\_^l4__6o4__6o4__6S @__Z ___Z4D_6V $___ D__Z __6u D_6t $___ D_6s@@_6s @@_6t ___Z2D_6r+__6[+__6k@@_6s ___Y.___Z D_6u __6u2$_6r+__6a"__6u.__6r D_6t+__6k"___Z.__6r D_6s+__6k "_6pQ"___,__bF+__6k+__6k4____ Z_6q \_6q _6q,!p__,!p__,!p__,!p__,!p__,!p__+__6D __6q __6q\ _6t,Ap__,Ap__,Ap__ ,Ap__-|p____h6o_____ERROR 4 _V_6v $___2d_9H+__7_-\_6e4__9H4__9H4__9L 4__9L4__9M4__9M@@_9N $___ D_9N __9M5D_7_ $___.__9L.__9M.___Y D_9O-\_;J 4__9O4__9O4__9P4__9P4__9Q4__9Q@@_9N+__7_-\_<_4__9H4__9L4__9L4__9M4__9M 4__9R __9H______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?______s(Z=-\_b^4____4__[$4__[&4__[" __[&4$_ZE4D_ZC __['5$_ZI+__ZE __['5$_ZI+__Z_O@_[( __>_X@_ZG "_[__b___ ___[&___['_ ___+__[_ __=g4D_ZL5d_ZN"$___ D_[(+__[_-\_[e4__=g+__ZI $___ D_[) $___ D_[- __[' D_[. $___ D_[)"$___.__[&&__[) (___.____ H_[*"$___ .__[*$__[) __[&/____ F_[* :___ Z_[+ __[) D_[-O@_[.@@_[+ __[*2D___+__Zh __[* D_[- __[' D_[. :___ Z_[, __[+4$_Zh-\_\a4__["4__[-4__["4__[, $___ 2D_[,g____O____ __[&0F___g____O____A____4$_Z_+__Zo __[)$__[# __[&.____ "__[$.____ $(__XD_Zm-\_\a4__[#4__Zm4__[-4__[, __[,4d_Zy __>_X@_Zq "_[_ _b______[,_ ___ __[,1:___9__Z_ __>_X@_Zv "_[__b____ ___"$___ D_[(O@_=g +__[_ __[,4$_[_ __[+4$_Z|O@_[++__Z^ __[)__H9? D_9R _9_ @_9S $___3D_9R +__9# $___ D_9N $___2d_9I+__7_-\_6e4__9I4__9I4__9S4__9T4__9T4__9U@@_9U $___ D_9V __9T5D_7# $___.___Y.__9T.__9U D_9V-\_;J4__9V4__9W4__9W4__9X 4__9X4__9Y@@_9V+__7#-\_<_4__9I4__9S4__9T4__9T4__9U4__9Y __9I D_9R _9_ @_9S $___3D_9Y+__9# $___ D_9U $___.__9N __9U(____.____ D_9Z6b_9Z0b___ 7____+__7(4__7*4__8%4__9_4__9_ $___.__9N __9V(____.____ D_9Z6b_9Z0b___ 7____+__7/4__714__7v4__8_4__9_@@_9[ $___ D_9[ __9M D_9b $___.__9L D_9n __9P4D_7> _7> @_9S@@_9\ $___.__9L D_9J-\_;"4__9M4__9J4__9b4__9[4__9[ 4__9\ __9\5D_99@@_9\ $___ D_9] __9U D_9{ $___.__9T D_:_ __9X4D_7J _7J @_9S@@_9\ $___.__9T D_9J-\_;"4__9U4__9J4__9{4__9]______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __ 9? $___2D_Z;g____O____ __Z50F___g____O____A____4$_Z_+__Y~ __Z8$__Z2 __Z5.____"__Z3.____ $(__XD_Y}-\_\a4__Z14__Y}4__Z<4__Z; __Z;4d_Z_ __>_ X@_Z_ "_Z__b______Z;_ ___ __Z;1:___9__Yn __>_X@_Z_ "_Z__b____ ___"$___ D_Z7O@_=g+__Z/ __Z;4D_Z_ __>_X@_Z_ "_Z__b____ ___"$___ D_Z7O@_=g+__Z/ __Z:4$_Z_O@_Z:+__Yn __Z8.D_Z8 __Z8.D_Z= __Z:3:_Z99__Yh@@_Z7+__Z/+__Z_ (31H SUBROUTINE WRITOP-LINK FAILURE,I4) +__Z_(24H SUBROUTINE WRITOP FA ILS//) +__Z!(31H SUBROUTINE WRITOP-LINK INVALID//) +__Z)(37H SUBRO UTINE WRITOP-INCORRECT ARGUMENT/ 8H NWORDS=,I8/8H PSTADD=,I8//) +__Z/ 4____ Z_Z4 \_Z4 _Z4, p__,!p__,!p__,!p__,!p__+__YN __Z4 __Z4\ _Z7,Ap__ -|p_________h9?4__9\4__9\ __9\5D_99 $___.__9[ __9\(____.____ D_9]6b_9] 0b___7____+__7O4__7Q4__7s4__7u4__9_ _7g @_9^ _7s @_9^ :___ Z_9_ :___ Z_9_ __9_ __9a2Dh9z+__7Y __9_ __9n3Dh:_+__9_3:_9]9__7U __9_3:_9[9__7T $___3D_9[+__7_-\_:`4__9O4__9b4__9[ $___.__9L D_9J &___.__9T F_9K-\_:. 4__9M4__9J4__9E4__9J4__9J4__9U4__9K6B_9^+____ $___3D_9]+__7k-\_:`4__9V 4__9{4__9] $___.__9T D_9J &___.__9L F_9K-\_:.4__9U4__9J4__9E4__9J4__9J 4__9M4__9K6B_9^+____+__9_ _7s @_9^+__7g _7s @_9^+__7\ __9X4D_8_ $___ D_9] __9U D_9{ $___.__9T D_:_@@_9\ _8_ @_9S@@_9\ $___.__9T D_9J-\_;" 4__9U4__9J4__9{4__9]4__9\4__9\ __9\5D_99 $___3D_9\+__9_ $___3D_9]+__8_ -\_:`4__9V4__9{4__9]______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~___@9?\ _Y/-|p____________ ________Y1O@_=g-\_Z*4__Y:4__Y:4__Y:4__=e4__Y<+__Y8+__Y84____ Z_Y: \_Y; +__Y2 __Y: __Y;-|p___~_Y< $___ D_YMU$___ D_YN-\_\a4__YJ4__YN4__YK4__YM O@_YLU$___3D_YN+__YD __YN D_YL+__YH+__YH4____ Z_YK \_YL _YL,!p__+__Y< __YK __YL\ _YL,Ap__-|p_____________s@YN-\_b^4____4__Z34__Z54__Z1 __Z5 4$_YU4D_YT __Z65$_YY+__YU __Z65$_YY+__Z_O@_Z7 "_Z!_b______Z5___Z6_ ___ +__Z/ __=g4D_Y\5d_Y]"$___ D_Z7+__Z/-\_[e4__=g+__YY $__d D_Z8 $___ D_Z< __Z6 D_Z= $___ D_Z8"$___.__Z5&__Z8 (___.____ H_Z9"$___.__Z9$__Z8 __Z5 /____ F_Z9 :___ Z_Z: __Z8 D_Z_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~___`9?ARGUMENT,I10//)+__Xl+__Xl4____ Z_Xn \_Xo _Xo,!p__+__XT __Xn __Xo-|p________|`Xq __Y_4d_X}"$___.__Y_4D_Xy5d_X}"$___ D_Y_-\_Z* 4__Y_4__Y_4__=`4__Y_4__Y_+__Y_"$___ D_Y_-\_Z*4__Y_4__Y_4__=b4__Y_4__Y_ +__Y_ __>_X@_X_ "_Y__b______Y__ ___+__Y_(35H SUBROUTINE DISABL-ILLEGAL ARGUMENT,I10//) +__Y_+__Y_4____ Z_Y_ \_Y_ _Y_,!p__+__Xq __Y_ __Y_ -|p____xY_______|_Y_ __Y/O@___@@_Y1 __Y/XD_Y_-\_\a4__Y,4__Y_4__Y-4__Y1 __Y14D_Y_+__Y* $___ __Y/2D___+__Y_ __Y/ ____ D_=] $___ __Y/3D___+__Y_ +__Y* $___ __Y/A____.$___ D_Y1 __Y/ __Y1 F___ __Y/ __Y- F___ __Y/ $___ XD_Y#-\_c;4__Y#4__Y. @_Y0-\_cN4__Y14__Y0+__Y*+__Y*4____ Z_Y. \_Y/ _Y/ , p__+__Y_ __Y. __Y/__(9? D__Y $___.___Y.__9T.__9U D_9V@@_9\ _8U @_9S @@_9\ $___.__9T D_9J-\_;"4__9U4__9J4__9{4__9]4__9\4__9\ __9\5D_99+__8U $___ D_9V $___ D_9\ $___.__9N __9V(____.____ D_9Z $___ D_9`6b_9Z0b___ 7____+__8Z4__8]4__9_4__9_4__9_ $___.__9[ __9\(____.____ D_9] _8z @_9^ _9_ @_9^6b_9]0b___7____+__8c4__8f4__9_4__9_4__9_ :___ Z_9_ :___ Z_9_ __9_ __9a2Dh9z+__8l __9_ __9n3Dh:_+__9_3:_9]9__8g __9_3:_9[9__8f $___ 3D_9]+__8r-\_:`4__9V4__9{4__9] $___.__9T D_9J &___.__9L F_9K-\_:.4__9U 4__9J4__9`4__9H4__9J4__9M4__9K6B_9^+____ $___3D_9[+__8}-\_:`4__9O4__9b 4__9[ $___.__9L D_9J &___.__9T F_9K-\_:.4__9M4__9J4__9`4__9J4__9H4__9U 4__9K6B_9^+____ _9_ @_9^+__8n______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~____9?-\_Z*4__X+4__X' 4__=a4__X)4__X*+__X#+__X#4____ Z_X' \_X( _X(,!p__,!p__+__X_ __X' __X( \ _X),Ap__,Ap__-|p_____________}_X, $___ D_XF@@_XG@@_XG $___ D_XF-\_\a 4__XA4__XF4__XB4__XF __XG D_XD __XG D_XDO@_XE-\_c84__XF4__XB5@_X7@@_XE __XH4D_X9 $___ D_XE+__X>+__X>4____ Z_XC \_XC _XC,!p__,!p__,!p__+__X, __XC __XC\ _XE,Ap__,Ap__,Ap__-|p__________________~xXH"$___ D_XS-\_Z* 4__XQ4__XQ4__=a4__XS4__XT+__XO+__XO4____ Z_XR \_XR+__XH __XR __XR-|p__ __xXQ______|`XT __Xo4d_X`"$___.__Xo4D_X\5d_X`"$___ D_Xp-\_Z*4__Xn4__Xn 4__=`4__Xp4__Xq+__Xl"$___ D_Xp-\_Z*4__Xn4__Xn4__=b4__Xp4__Xq+__Xl __>_ X@_Xb "_Xc_b______Xo_ ___+__Xh(34H SUBROUTINE ENABL-ILLEGAL __H9? _9_ @_9^+__8z _9_ @_9^@@_9`"$___.__9M D_9L+__8n _9_ @_9^@@_9`"$___.__9T D_9T __9[4D_8z+__9_ __9M D_9` __9U D_9M __9` D_9U __9L D_9` __9T D_9L __9` D_9T __9M D_9` __9T D_9M __9` D_9T __9I D_9H+__8%-\_J_-\_DW4___C 4__9E+__9@:__9JO@_9H-\_C.4__9J __9J @_%_ __9J $_%_XD_9"-\_E+4__9"+__9@ $___ D_9a __9R __9a3D__2+__95 __9a $__3XD_9)-\_^l4__9F4__9F4__9) @_9a $___.__9a.__9a D_9a __9a3$_1J+__9$ "_90_b______9R_ ___+__94(1X,I6,3X, 'LINE NOT FOUND......'/) 6B_9S+____ __9a@@__2 __9R $_%_XD_98-\_H;4__98 6B_9S+____ __9\ D_9R+__9#+__9@4____ Z_9G \_9G _9G,!p__,!p__,!p__,!p__ ,!p__+__6v __9G __9G\ _9J,Ap__,Ap__,Ap__,Ap__,Ap__-|p_________p9E_____ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___ 9? __Wo ____4D_W` $___ D_Wq :___ Z_Wq ____.__Wo ____4D_WR3:_Wq9__WM $__( D_Wp+__W`>__Wq __Wq.__Wo $___XD_WU-\_X_4__WU 4__Wh4__Wr :___ Z_Wr __Wh"____2D_Wu+__W]1:___9__WW>__Wq __Wq4d_W`+__WS $___/__Wr &___$__Wq.____ D_Wp __Wp D_Wp+__We+__We4____ _WiQ ___* _Wo _Wo, p__+__WJ!<_WiX<___*<___ __Wp-|p_______ _|`Wt-\_b^4____4__X_ 4__X_4__X_ __X_XD_Wy-\_c;4__Wy4__X_ @_X_ __X_XD_W|-\_c;4__W|4__X_ @_X_ :___ Z_X_-\_cE4__X_ @_X_-\_cN4__X_4__X_ :___ Z_X_-\_cN4__X_4__X_1:___ 9__X_ __X_3:_X_9__W~+__X_+__X_4____ Z_X_ \_X_ _X_, p__,!p__, p__+__Wu __X_ __X_\ _X_-|p__________________}hX_ $___ D_X+-\_c84__X(4__X& @_X+ -\_c84__X)4__X& @_X,"$___ D_X)__h9?______zp:_ __:> __)` D_:B __:B __%n D__Y $___.__:>.___Y.__:? D_:B __:B $_)`XD_:_-\_^_4__:A4__:_4__:94__:9 __:B $_)`XD_: -\_^_4__:A4__: 4__::4__:: __:B $_)`XD_:$-\_^_4__:@4__:$ 4__:;4__:; __:B $_)`XD_:(-\_^_4__:@4__:(4__:<4__:< __:B $_)`XD_:,-\_^_ 4__:?4__:,4__:=4__:=+__:4+__:44____ Z_:= \_:> _:>,!p__,!p__,!p__,!p__ ,!p__,!p__,!p__+__:_ __:= __:>\ _:A,Ap__,Ap__,Ap__,Ap__,Ap__-|p_______ ____________________________________{P:B __:h D_:i __:i.__:g ____ D_:i __:i.__:g ____ D_:j>__:i __:i5D_:J+__:d __:i.__:g ____ D_:j __:j __)` D_:k __:k __%n D__Y __:k __%m D__Y $___.__:j.___Y __:i.__:g.____ D_:k -\_;J4__:k4__:l4__:l4__:m4__:m4__:n __:i______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?^ _x(W_ __WE4$_W"4D_W" "_W__b____ ___+__W_('+:',$) "_W__B____ _V84____ _ ___+__W_(16A5) $___.__WE&$___ D_WF-\_c 4__WF4__WB @_WG __WG __V8 D_WH __WC2D_WH+__W# __WG.__WE@@___>__WG __WG4D_W" __WC __WG3D_V8+__W_ :___ Z_WH ____.__WE _hV8 F___3:_WG9__W_ __WEXD_W -\_Wb4__W @_WF+__W@ @@_WF+__W@ :___ Z_WH ____.__WE _hV8 F___3:_WG9__W$ $___.__WE D_WF-\_c8 4__WF4__WC &___.____ F_WI-\_X_4__WH4__WC4__V8 :___ Z_WH $___/____ D_WI __WC __WI2D_V8+__W31:___9__W."__WI.D_WI __WI4d_W9 :___ Z_WH ____.__WI __WC F_V83:_WI9__W6@@_WI __WE.__WI D_WF+__W@+__W@4____ Z_WD \_WD _WD , p__,!p__,!p__+__W_ __WD __WD\ _WF,Ap__-|p_______ ______|_WI@@_Wp ___9?.__:g $___XD_:] $___XD_:^-\_:.4__:i4__:j4__:e4__:m4__:l4__:]4__:^ +__:D+__:d+__:d4____ Z_:f \_:f _:f,!p__, p__,!p__+__:C __:f __:f-|p__ ______x0:n __;/ D_;0 $___ D_;. $___ D_;0 $___ D_;.@@_;/ __;0.__;- ____ D_;1 __;1 __)` D_;1 __;1 __%m D__Y __;1 __%n D__Y $___.___Y __;0.__;- .____.____ D_;2-\_;J4__;24__;24__;34__;34__;44__;4 __;34D_;_ __;34D_;_ $___3D_;2+__;_+__;( :___ Z_;5 __;4 ____.__;-2D___+__;_ __;4 ____.__;- 3D___+__;_3:_;09__;_:__;0 __;0.__;- __;4 F___ __;0.__;- __;4 F___+__:s @@_;. __;0 D_;."$___.__;0 __;52F___+__;_+__;( __;3 D_;/@@_;.+__;(@@_;. __;0 D_;.+__;( __;04D_;_ $___3$_;0+__;_ __;02D_;3+__;_@@_;. $___ D_;. +__;(@@_;.______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?________________~PV@ __VLXD_VD __VL XD_VC-\_Wb4__VC @_VM-\_Vz4__VD4__VM+__VI+__VI4____ Z_VK \_VL _VL, p__ +__V@ __VK __VL\ _VL-|p___yXVM __W_ D_W_ __W_ ____5D_VQ@@_W_ $___ D_W_ __W_4$_Vy4D_Vx-\_c 4__W_4__V_ @_W_ __W_.__W_ $___XD_VX-\_X_4__VX4__W_ 4__V8 $___ D_W_ __W_ Z_W_ __W_3DhV8+__Vh3:_W_9__V[ "_Vb_b___ __W_ Z_W_ _______V83:_W_9__V__ ___+__Vd(1H+,$,15A1) $___.D_W_"__W_.D_W_ __W_ 4d_Vy+__VS __W_3D_W_g____O____ D_W_>__W_ __W_5$_Vp "_Vb_b___ __W_ Z_W_ _______V83:_W_9__Vm_ ___+__Vr(1H+,15A1) "_Vs_b____ ___+__Vt(' ') $___ .__W_ D_W_"__W_.__W_4d_VZ+__Vd "_Vs_b____ ___+__V~+__V~4____ Z_W_ \_W_ _W_, p__,!p__+__VN __W_ __W_-|p_________(9? __;3 D_;/ __;0 D_;.+__;( +__;(4____ Z_;+ \_;, _;,,!p__,!p__, p__,!p__,!p__,!p__+__:n __;+ __;, \ _;/,Ap__,Ap__,Ap__-|p___{X;5 __;Y $_)`XD_;8-\_^l4__;T4__;U4__;8 @_;Z __;Y $_)`XD_;<-\_^l4__;U4__;V4__;< @_;Z __;Y $_)`XD_;@-\_^l4__;V4__;V 4__;@ @_;[ __;Y $_)`XD_;D-\_^l4__;W4__;W4__;D @_;[ __;Y $_)`XD_;H-\_^l 4__;X4__;W4__;H @_;\+__;P+__;P4____ Z_;X \_;Y _;Y,!p__,!p__,!p__,!p__ ,!p__,!p__+__;5 __;X __;Y\ _;\,Ap__,Ap__,Ap__,Ap__,Ap__-|p____________ __________________________w@;\@@_<"@@_<#@@_<# $___ D_<$@@_<$ __<$ __)` D_<% __<% __%m D__Y __<% __%n D__Y $___.___Y D_<& $___.__<$.___Y D_<& :___ Z_<' __<&.____ D_<%-\_;J4__<%4__<'4__<(4__<(______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ___9?_ ___ __V34$_Ur+__V+ "_Us_b____ ___+__Uu('+ #',$) "_Uw_B______V6 _ ___+__Ux(I) __V64D_Uz __V6 D_V2+__V+ "_U__B__} :___ Z_V6 _______V8 1:___9__U|_ ___+__V_(3A5)@@_V:-\_Wb4__V8 @_V5 __V55D_V_+__V+-\_c;4__V8 4__V0 @_V4 :___ Z_V6-\_cE4__V4 @_V4 $___3D_V4+__Uy $___3D_V4+__V_ $___ 2$_V4+__V_+__V+3:_V59__V_+__V+ __V52D_V6+__V_+__V+:__V6@@_V7-\_cE4__V4 @_V4 $___3D_V4+__V_O@_V7 $___3D_V4+__V $___ D_V7 $___3D_V4+__V $___ 3$_V4+__V$ $___2d_V4+__V$ $___A__V4-\_b94__V74__V0G____ @_V7:__V8 __V5 3D_V6+__V$:__V6-\_cE4__V4 @_V4+__V_ __V84D_V& __V7$__V7 D_V2+__V++__V+ 4____ Z_V1 \_V1 _V1,!p__,!p__,!p__+__UM __V1 __V1\ _V3/ ___,Ap__,Ap__ -|p___P_d___H9?4__<)4__<) __<(3D_<"+__;t3:_<&9__;h $___.__<% D_<$ __<$ 2$_1I+__;~+__;` __<(4D_;z __<(2D_<(g____O____ __<'0F___g____O____A____ 4$_<_"$___.__<' D_<# __<#5D_;} $___ D_<"+__<_ $___ D_<$ __<$ __)` D_<% __<% __%m D__Y __<% __%n D__Y $___.___Y D_<& $___.__<$.___Y D_<& :___ Z_<' __<&.____ D_<%-\_;J4__<%4__<'4__<(4__<(4__<)4__<) __<(3D_<"+__<_ 3:_<&9__<_ $___.__<% D_<$ __<$3$_1I+__;_ $___ D_<$+__<_ __<) D_<# __<) D_<$+__<_+__<_4____ Z_____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ __ 9? __>_5$_U_+__U2 __U9 D_UE __U: D_UL __UE D_UG $___2$_UEg____O____ __UE0&___g____O____G____5$_U%@@_UG __U7.__UL __UG(____.____ D_U= $___ D_U> __UG D_U>+__Ri __U9 D_U=+__U2+__U24____ Z_U7 \_U8 _U8,!p__,!p__ ,!p__,!p__,!p__+__RN __U7 __U8-|p____HU3_____________ ________L____N__ __J___s@UL-\_bl4__V2 @_V4@@_V4 __V24D_UR5d_U[ __V34$_Ur+__V+ $___.__V4 D_V5 __V25$_UU $___ D_V5 $___ D_V5 __V43$_V5+__Uh:__V5 __V/3D_V5+__Uh $___$D_V5+__UV __V2 D_V5"$___.__V54$_U_5d_Uf __V25$_Uh __V5 D_V4 __V2 5$_Ub>__V4 $___ __V4,__bv D_V6O@_V4 __V4/__V65$_UR+__Uh-\_c 4__V24__V/ @_V5 _V>X@__X "_Uk________V5_ ___+__Un('(1H+,I',I2,',$)') "_V>Q"___ _b______V2__h9?____B____B____B____B_________^____,____z____H_________d ____2____2____2__@=G____W____W____$___________________________0=K_____ _________*____*______________*____#_________4__x=Q____*__@=R____#_____ ________________________________x=X_______x=Y_______x=]DFD00___=_____` ______________________________________________________________________ _______X=g__________________________z8=j______________________________ ___________________________________-\_b@4__>_4__>__@____ _)4___t_ ___ $___ D_=F "_=y_b____ ___+__=|(' SCOURGE 1.2'/) ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___@9?@@_U> __UG D_U>+__Ri $___ D_U>@@_U> $___ D_U< @@_>_+__Ri $___ D_U=@@_U? $___.__>_.__=Z D_U@-\_^S4__=m4__UJ4__U@4__U3 4__U3-\_c84__UJ4__U5 __UJ/____ D_UK"$___.__>_/__=Z D_UK __UK.__UK D_UJ -\_^S4__=m4__UJ4__U@4__U34__U3 __>_5D_Ts+__U2 __>_X@_Tt "_Tv_b______=Z _ ___+__T|(46H ALL SUBPICTURE DEFS. NOT COMPLETED IN SEGMENT,I5) +__U2 __>_5$_T~+__U2 __U9 D_UE __U: D_UL __UE D_UG $___2$_UEg____O____ __UE 0&___g____O____G____5$_U_@@_UG __U6.__UL __UG(____.____ D_U= $___ D_U> __UG D_U>+__Ri __>_5$_U_+__U2 __U9 D_UE __U: D_UL __UE D_UG $___2$_UE g____O____ __UE0&___g____O____G____5$_U_@@_UG __U6.__UL __UG(____.____ D_U= $___ D_U> __UG D_U>+__Ri_ _9? "_=}_b____ ___+__=_(' ERR DEV: '$) "_>__B______>__ ___+__>_(I) __>_4$_>_ __>_5D_>_ $___ D_>_ $___3D_>_ +__>_ $___3D_>_+__>_ $___3$_>_+__>_ "_>__b____ ___+__>_(1H+)+__>_ "_>_ _b____ ___+__>_(1H+,'ILLEGAL DEVICE NUMBER'/)+__=|+__>_4____ Z_>_ \_>_ +__=q __>_ __>_-|p_______SCHRB_wpB_-\_b^4____4__Bb4__Bd4__B\O@_>_@@_>_ @@_>_@@_>_@@_>_O@_<*O@_<* :___ Z_Be __B]2dh____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___`9?_b___ ___UF___UF___>__ ___ __UF7 ___.$___(___{(____ __UF/____ F_U= __U=.__UG __UG(____.____ D_U= $___ D_U> __UG D_U>@@_U<+__Ri __>_5$_T*+__U2 __U9 D_UE __U9 D_UH __U: D_UH __U: D_UI __UE D_UG $___2$_UEg____O____ __UE 0&___g____O____G__UHG____5$_T5@@_UG@@_UI __UH5$_T8 $___ D_UI@@_UJ __UH 4$_TF __UH D_>_ $___2$_UH+__TE __>_X@_T= "_T?_b______UH___>__ ___+__TD (12H SCALE FUNNY/7H SCALE=,I8/5H DAC=,I7//) @@_>_ $___.__>_ D_UJ@@_UJ __UI4$_TV __UI D_>_ $___2$_UI+__TU __>_X@_TL "_TN_b______UI___>__ ___ +__TT(16H INTENSITY FUNNY/11H INTENSITY=,I8/5H DAC=,I7//) $___ D_>_ $___.__>_ D_UJ __UI.__UJ __UG(____.____ __UJ(____.____ D_U= __UH4$_T^ _ (9?.____"__Ba.____@@ __ __Ba(____ __Bc.____"__Ba.____ *___ J __ $___ $__Ba __Bc.____"__Ba.____ __B_ J __ $___ D_>_O@_=\-\_N{4__B`4__B`4__B^ 4__B^4__B` __Ba(____ __Bc.____"__Ba.____ *_0g J __-\_Q_4__Be-\_QF4__Be -\_R_4__Be+__BZ+__BZ4____ Z_Bb \_Bc _Bc, p__,!p__+__B_ __Bb __Bc\ _Bd -|p_________z_____B __XB^__________________________v Bf@@_>_ __>_4$_C* __=\5$_Bo __>_.__=Z D_C>-\_^S4__=m4__C?4__C>4__C44__C4 __C?3D_C>+__C, __=]5D_Bs-\_U-4__C54__C44__C54__C44__C6 __C> D_C@ __C>5D_C_ __>_X@_Bv "_Bx_b______>__ ___+__C_(//16H FUNCTION NEWSEG/19H LABEL 0 IS INVALID /16H LABEL SET TO -1/16H SEGMENT INDEX =,I5//) O@_C@ $___.__>_.__=\ D_C@-\_^S______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__ _9?G____4$_S^+__Sa"__U@.__UC(____.D_U= +__Sg __U@4D_Sc $___.D_U= __UC4D_Sg $___ D_U<+__RW __UC(____ D_U= $___ D_U<+__RW@@_UD __U> D_U? __U> D_U@ __U=.__UD D_U= $___ D_U< $___3$_U> +__RW __U<5D_Sp+__U26b_U<0b___7____+__Sr4__T_4__Ta __>_5$_Su+__U2 __U9 D_UE __U9 D_UE __U: D_UF __U: D_UF __UE D_UG $___2$_UEg____O____ __UE 0&___g____O____G____5$_S_@@_UG $___ D_UG __UE5$_T_@@_UG __UF4$_T_ $___ 2d_UF+__T_ __>_X@_T_ "_T__b______UF___UF___>__ ___+__T_(12H POINT FUNN Y/3H X=,I8/3H Y=,I8/5H DAC=,I7//) $___.__UF __UF7 ___.&___(___{(____ /____ D_U= __UF4$_T# $_ _.D_U= $___ D_U> $___ D_U> $___ D_U<+__Ri __UF 5$_T_+__U2 $___2d_UF+__T_ __>_X@_T_ "_T__ H9?4__=m4__C?4__C@4__C44__C4 __C?.__>_ D_C>-\_^S4__=m4__C>4__C@4__C44__C4 __>_ D_=\ $___.__>_.__=Z D_C@-\_^S4__=m4__C?4__C@4__C44__C4-\_c84__C?4__C6!$___.____ D_C?-\_^S 4__=m4__C?4__C@4__C44__C4 __>_ D_=Z __>_.__>_ D_C@-\_^S4__=m4__C@4__C@ 4__C44__C4 $___.__C@ D_C>-\_^S4__=m4__C64__C>4__C44__C4 $___.__C@ D_C> -\_^S4__=m4__C74__C>4__C44__C4 __>_ D_C?@@_=]O@_=\ $___.D_>_+__C2O@_C? O@_=] $___ D_=\+__C2 __=Z D_C?+__C2+__C24____ _C7Q ___* _C= _C=,!p__ +__Bf!<_C7X<___*<___ __C?-|p____XC4__________________________l8C@ __=] 5D_CE-\_U-4__D]4__D]4__D^4__D]4__D^ $__D3$_>_+__DJ $__P3$_>_+__D@ __=[ D_De@@_=[ $___.__=]7 ___.$___(____"&___/____ F_=]______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ _ 9?AY FILE TOO LONG/18H CURTAILED AT DAC=,I10) O@_>_ __=\4D_S%5d_S6 $___ D_=\+__S6 $___2d_U>g____O____ &___2f_>_g____O____G____4$_S6 $___ .__>_.__=Z D_UB-\_^S4__=m4__UA4__UB4__U34__U3-\_c84__UA4__U4 $___.____ D_UA-\_^S4__=m4__UA4__UB4__U34__U3 $___ D_=\ $___ D_UC $___3d_U>+__S: __U> D_UC $___2D_U>+__S<@@_UC __>_4D_S?@@_>_ __>_ __UC F_>#+__SI __>_ 4D_SI@@_>_ __U6.__>_ __UC(____.____ D_UC"$___.__>_ __>_.__>_ D_UD-\_^S 4__=m4__UC4__UD4__U34__U3 $___3d_U?+__Sh __U=.__U?.__U@.__UC D_UD $___ 2D_UDg____O____ &___2F_UDg____O____ __UD0H___g____O____G____G____4$_Si __U@3D_UC+__Sg $___2D_U?g____O____ &___2F_U?g____O____ __U?0H___g____ O____G_____ h9? __=[ D_Df __>_ D_=[ __=g1d___g____O____-\_c84__Dc4__D_ 0@___g____O____A____4 _CW-\_c84__Dc4__D_4`_D? $___2D_Df+__Cc-\_Z*4__D] 4__D_4__=a4__=d4__Df __DcXD_C`"$___.__=[ D_Dd &___.__=` F_Dd-\_Z*4__C` 4__Dd4__Dd4__=d4__Df+__D/ __Dc ____7 ___.$___(___x D_Dd-\_c84__Dd4__D_ 5@_Cn $___.__=` D_Dd-\_Z*4__D`4__D_4__Dd4__=d4__Df $___ __Dc.D___"__Df .__=[ D_Dg __Dg4d_D? __De4d_D_ $___3D_Dg+__D_"$___.__Df.__=` D_Dg $___ 2D_De+__Cz-\_Z*4__D]4__D_4__=a4__=d4__Df-\_Z*4__D`4__D_4__Dg4__=d4__Df __Df.__Dc $___XD_D_ __Df.__=` D_Dd"&___ F_Dd-\_Z*4__D_4__Dg4__Dd4__Dd 4__Df __Df.__Dc $__~XD_D_"$___ D_Dd-\_Z*4__D_4__D_4__Dg4__Dd4__Df+__D? __Df.__Dc $___XD_D_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~__ @9?4__U;4__U34__U3:__>_ __U< 5D_Ra+__U26b_U<0b___7____+__Rc4__Rl4__Se4__Sh4__So4__T^ __U9 D_U= __U: D_U> __U: D_U>L__>_4$_Ro@@_>_ $___ D_U<+__RW __U> D_U?@@_U?@@_U@ $___ D_U=+__So __=]4D_S_5d_S_O@_=[ $___.__>_.__=Z D_U@-\_^S4__=m4__UA4__U@ 4__U34__U3-\_c84__UA4__U4 @_UA __UA/__UA D_UB-\_c84__UA4__U4 __UB.____ D_UA-\_^S4__=m4__UA4__U@4__U34__U3 $___.__=]5$_S_ $___.__>_.__=\ D_U@ -\_^S4__=m4__UA4__U@4__U34__U3 __=Z.__UA-\_c84__UA4__U5/____ D_UA-\_^S 4__=m4__UA4__U@4__U34__U3 __=Z D_=\ $___.__>_.__=\ D_U@-\_^S4__=m4__U5 4__U@4__U34__U3@@_=] $___.__=Z2$_>_+__S_@@_U=>__>_ __>_3$_=^+__S" __>_ 4$_S" __>_X@_S_ "_S__b______>__ ___+__S"(22H DISPL_!_9? __Df.__=` D_Dd "&___ F_Dd-\_Z*4__D_4__Dg4__Dd4__Dd4__Df __De5$_D_ __Df.__Dc $___XD_D_ "$___.__Df.__=` D_Dd"&___ F_Dd-\_Z*4__D_4__D_4__Dd4__Dd4__Df $___ D_Dg __Dg.__Dc $___XD_D_-\_c84__D_4__Da @_Dh"__Df.__Dh5$_D% __Dh4d_D% $___ .__Dh D_Dg+__D_ __Dg.__Dc $___XD_D* __=`.__Dg D_Dd"&___ F_Dd-\_Z*4__D* 4__D_4__Dd4__Dd4__Df:__Dg"__Df.__Dh4D_D0+__D1 $___ D_Dh $___.__Dh D_Dg __Dg.__Dc ____ D_Dh $___.__Dh-\_c84__Dh4__D`/____ @_Dd-\_c84__Dh4__Da .____ __Dg.__Dc D___ __Dh.__Dc $___XD_D=-\_c84__D=4__Da @_Dh __Dh5d_D0 +__DZ __>_X@_DA "_DB_b____ ___+__DI(//' SUBROUTINE DEPICT'/' DISPLAY F ILE LENGTH EXCEEDS 4096'//) +__CH __>_X@_DK "_DL_b____ _________@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~__ `9?ROUTINE CALSUB/24H INVALID SUBPICTURE NAME,I10//) +__R! +__R!4____ Z_R' \_R( _R(,!p__+__QS __R' __R(\ _R(,Ap__-|p____HR#_____ _______________________________~_R, $___.__=Z __>_3F___+__R2-\_U-4__R: 4__R:4__R;4__R;4__R;+__R8-\_U-4__R;4__R:4__R;4__R;4__R;+__R8+__R84____ Z_R< \_R<+__R, __R< __R<-|p______________xR;______~_R= $___.__=Z __>_ 3F___+__RC-\_U-4__RK4__RK4__RL4__RL4__RL+__RI-\_U-4__RL4__RK4__RL4__RL 4__RL+__RI+__RI4____ Z_RM \_RM+__R= __RM __RM-|p______________xRL_____ _S0RN@@_U<@@_U<6b_U80b___7____+__RQ4__RU4__Rf4__Ss4__T)4__T|4__U_4__U_ 4__U+ __U9 D_U= __U9 D_U=L__>_4$_R[@@_>_"$___.__U= D_>_+__R` __>_.__>_ D_U;-\_^S4__=m4__U=_!(9?+__DV(//' SUBROUTINE DEPICT'/' DISPLAY FILE L ENGTH EXCEEDS 5000'/' PICTURE CANNOT BE SENT'//) +__DZ+__DZ4____ Z_Db \_Db _Db, p__,!p__+__CA __Db __Db\ _Dc,Ap__-|p_________@D]__________ __________________ ____ _______w_Dh __E43d_=Zg____O____ &___3f_E4g____ O____G____4$_Dv $___.__E4.__>_ D_E5-\_^S4__=m4__E64__E54__E04__E0 __E6 7 ___.$___(___w &___3F___+__E_ __>_X@_Dx "_Dy_b______E4_ ___+__D_(17H SUBROUTINE MSSLP/21H INVALID SEGMENT NAME,I10//) +__E. $___.__E4 D_E7 __E73D_>_+__E' __>_.__E7 D_E5-\_^S4__=m4__E64__E54__E04__E0 __E67 ___ .$___(___z(____ &___.____(____-\_c84__E64__E0.____ @_E6 __>_.__E7 D_E5 -\_^S4__=m4__E64__E54__E04__E0______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__!_9?G____4$_R_ __R( .__>_ D_R)-\_^S4__=m4__R*4__R)4__R#4__R# __R*7 ___.$___(___x &___2F___ +__Qp-\_U-4__R$4__R$4__R%4__R(4__R#"$___ D_R)"&___ F_R)-\_U-4__R%4__R# 4__R#4__R)4__R)O@_>_"$___.__>_/__=Z D_R+ $___.__>_.__=Z D_R+"$___.__R+ 4D_Qs5d_R_ $___ D_R,"$___.__R+4D_R_+__R_ $___.__R+ D_R)-\_^S4__=m4__R* 4__R)4__R#4__R# __R*7 ___.$___(___y D_R)-\_c84__R)4__R&"&___.____5F_R_ $___ D_R, $___.__R+ D_R)-\_^S4__=m4__R*4__R)4__R#4__R# __R*7 ___.$___ (___y D_R)-\_c84__R)4__R&"&___.____5F_R_-\_^S4__=m4__R*4__R+4__R#4__R# -\_c84__R*4__R' $___.____"&___.__R,(____.____ D_R*-\_^S4__=m4__R*4__R+ 4__R#4__R#+__R! __>_X@_R_ "_R__b______R(_ ___+__R_(//18H SUB_!H9? __E4 3$_=[+__E_+__E. __E7.__=` D_E5"&___ F_E5-\_Z*4__E64__E14__E54__E54__E7 "$___.__>_.D_E7-\_^S4__=m4__E84__E74__E04__E0-\_c84__E84__E1 __E8/____ @_E5-\_c84__E84__E2.____ D_E8-\_^S4__=m4__E84__E74__E04__E0+__E.-\_U- 4__E24__E34__E04__E04__E0+__E.+__E.4____ Z_E3 \_E4 _E4,!p__+__Di __E3 __E4-|p____PE0_______________________________u0E8 __F_3d_=Zg____O____ &___3f_F_g____O____G____4$_EG $___.__F_.__>_ D_F_"$___.__F_ D_F_-\_^S 4__=m4__F_4__F_4__F_4__F_ __F_7 ___.$___(___w &___3F___+__EO __>_X@_EI "_EJ_b______F__ ___+__EO(28H CHINTS-INVALID SEGMENT NAME,I10//) +__F_ __F_0$___g____O____ __F_0&___g____O____A____5$_EU+__F_ __F_2D_=Z+__EW ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__! 9? __Q_\ _Q_,Ap__-|p____HQ____ _________@______ ________________ypQ_ __>_5$_Q_+__QI __>_5d_Q- __>_X@_Q "_Q"_b______QP ___>__ ___+__Q-(51H CALL TO ENDSUB BUT NO SUBPICTURE IS BEING DEFINED. /6H NAME=,I10/6H DAC =,I10/13H CALL IGNORED//) +__QI-\_U-4__QK4__QK 4__QL4__QL4__QM __QM.__>_ D_QR __QP.__>_ D_QR-\_^S4__=m4__QR4__QR4__QM 4__QM>__>_O@_>_ $___3d_>_+__Q:O@_>_+__QI __QN.__>_ D_QR"$___.__QP.__>_ D_QR-\_^S4__=m4__QR4__QR4__QM4__QM"$___ D_QP"&___ F_QQ-\_U-4__QN4__QM 4__QM4__QP4__QQ+__QI+__QI4____ Z_QO \_QO _QO,!p__+__Q_ __QO __QO-|p__ ______________________hQM__K____L________uxQR __>_5$_QT+__R! __R(3$_>_ g____O____ &___3f_R(g____O_____!h9?O@_>_-\_^S4__=m4__F_4__F_4__F_4__F_ -\_c84__F_4__F_ @_F_ __F_4$_Ea $___.__F_ D_F_ $___2$_F_+__Ea $___ D_F_ __F_7 ___.$___(___~ D_F_-\_c84__F_4__F_ @_F_ __F_4$_Ej $___.__F_ D_F_ $___2$_F_+__Ej $___ D_F_ __F_7 ___.$__?(___|(____ __F_.____ __F_(____ .____ F_F_-\_^S4__=m4__F_4__F_4__F_4__F_ __F_3$_=[+__Eu+__F_-\_c84__F_ 4__F_ __F_/____ @_F_-\_c84__F_4__F_.____ D_F_"$___.__F_ D_F_-\_^S4__=m 4__F_4__F_4__F_4__F_ __F_ D_F_ __F_ D_F_ $___.__F_.__=` D_F_"&___ F_F_ -\_Z*4__F_4__F_4__F_4__F_4__F_+__F_+__F_4____ Z_F_ \_F_ _F_,!p__,!p__ ,!p__+__E8 __F_ __F_-|p____XF___________________________n_F_ __G+3d_=Z g____O____ &___3&_G+g____O____G____4$_F'______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__!@9?1:___ 9__P; __P_.__P_ D_P^-\_U-4__PX4__P^4__PX4__PY4__PY+__PV+__PV4____ Z_P[ \_P\ _P\,!p__, p__,!p__+__P2 __P[ __P\-|p_______________________yPP` __>_5$_Pb+__Q_ $___.__=Z.__>_ D_Q_ __=\5$_Po@@_=\-\_^S4__=m4__Q_4__Q_ 4__Q_4__Q_-\_c84__Q_4__Q_ $___.____ D_Q_-\_^S4__=m4__Q_4__Q_4__Q_4__Q_ __>_5D_P_:__Q_-\_^S4__=m4__Q_4__Q_4__Q_4__Q_ $_@_.__Q_-\_c84__Q_4__Q_ /____ @_Q_-\_c84__Q_4__Q_.____ D_Q_-\_^S4__=m4__Q_4__Q_4__Q_4__Q_-\_U- 4__Q_4__Q_4__Q_4__Q_4__Q_ __>_ D_Q_@@_>_ __>_ D_Q_-\_U-4__Q_4__Q_4__Q_ 4__Q_4__Q_-\_U-4__Q_4__Q_4__Q_4__Q_4__Q_:__>_O@_>_ $___2$_>_+__Q_+__Q_ __Q_5D_Q_ __>_ __Q_ F_>_+__Q_+__Q_4____ Z_Q_ \_Q_ _Q_,!p__+__Pa __Q_ _"_9? $___.__G+.__>_ D_G. $___.__G. D_G--\_^S4__=m4__G/4__G-4__G'4__G' __G/7 ___.$___(___w &___3F___+__F4 __>_X@_F) "_F-_b____ ___ __>_X@_F+ "_F0_b______G+_ ___+__F0(//17H SUBROUTINE SHIFT) +__F4(23H INVALID SE GMENT INDEX ,I8//) +__G%-\_^S4__=m4__G/4__G.4__G'4__G' __G/7 ___.$___ (___y D_G/-\_c84__G/4__G'0 ___+__FT $___.__G. D_G--\_^S4__=m4__G14__G- 4__G'4__G' __G/7 ___.$___(____ &___3F___+__Fg __G17 ___.$___(___y D_G- -\_c84__G-4__G( &___2F___+__FT $___.__G. D_G--\_^S4__=m4__G/4__G-4__G' 4__G' __G/7 ___.$___(___y D_G--\_c84__G-4__G( &___3F___+__Fg __>_X@_FU "_F-_b____ ___"$___.__G. D_G--\_^S4__=m4__G/4__G-4__G'4__G' __>_X@_F\ "_F^_b_________@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__!`9?-\_c.4__P____P_"@_P_-\_c44__P_ @_P_ +__OZ+__O|4____ Z_P_ \_P_ _P_,!p__,!p__,!p__+__O_ __P_ __P_\ _P_/ ___ ,Ap__,Ap__-|p__ 0___!_`__________________}_P_ __>_5$_P_+__P% __P* D_P. __P* D_P0 __P+ D_P/ __P+ D_P1 __P, D_P/ __P, D_P1 __P- D_P0 __P- D_P2 -\_PR4__P)4__P.4__P(+__P%+__P%4____ Z_P( \_P) _P),!p__,!p__,!p__,!p__ ,!p__,!p__,!p__,!p__,!p__+__P_ __P( __P)\ _P-/ ___,Ap__-|p________{_P2 -\_b^4____4__P[4__P]4__PW4__PX4__PW __>_5$_P7+__PV@@_P_ __P\5$_P: $___ D_P_@@_P_ :___ Z_P` :___ Z_P` $___$D_P_ ____$__PZ __P`$__PY.____ __P] .____"__PZ.____ _0__4D_PJ $___.D_P_ ____$__PZ __P`$__PY.____ __P].____ "__PZ.____ _0__4d_PJ>__P_1:___9__P< __P`_"(9?___G+___G/_ ___+__Fg(26H SEGMENT CANNOT BE SHIFTED/16H SEGMENT INDEX =,I5/13H USER LABEL =,I8// ) +__G%@@_G0 $___.__G. D_G--\_^S4__=m4__G24__G-4__G'4__G' $___2$_G, g____O____ __G,0&___g____O____G____4$_Fx $___ D_G0 $_ _.__G, D_G2 $___ .__G. D_G--\_^S4__=m4__G24__G-4__G'4__G' $___2$_G,g____O____ __G,0&___ g____O____G____4$_G_ $___ D_G0 $___.__G. D_G--\_^S4__=m4__G/4__G-4__G' 4__G' __G/.__G,-\_c84__G/4__G)/____ D_G2 $___.__G. D_G--\_^S4__=m4__G2 4__G-4__G'4__G' __G+3$_=[g____O____ __G00F___g____O____G____5$_G_+__G% -\_c84__G/4__G) __G//____ @_G--\_c84__G/4__G*.____ D_G1 $___.__G. D_G- -\_^S4__=m4__G14__G-4__G'4__G' $___.__G+.__=` D_G-______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ _"_9? D_P_ $___ D_P_ __P_5$_O7@@_P_ __P_.__P_.__P_ D_P_ __P_2d_P_+__O> -\_c.4__P_ @_P_-\_c.4__P_ @_P_O@_P_+__OB-\_c.4__P_ @_P_-\_c.4__P_ @_P_ @@_P_"__O____P____P_-\_c44____ @_P_ __P_5d_OH __P_ D_P_ __P_ D_P_+__OZ @@_P_@@_P_!$__~___P____P_ D_P_ __P_4$_OS $__? D_P_-\_c44__P_ @_P_!$__~ D_P_!$__~ D_P_ __P_ D_P_ __P_ D_P_+__OZ-\_c44__P_ @_P_ $__? D_P_ __P_ D_P_ __P_ D_P_!$__~ D_P_!$__~ D_P_ __P_.__P_ __P_(____.____ D_P_ __P_ 5d_Oa-\_U-4__P_4__P_4__P_4__P_4__P_+__O|>__P_-\_U-4__P_4__P_4__P_4__P_ 4__P_ __P_.D_P_ __P_.D_P_ __P_5d_On __P_/__P_ D_P_ $__@3d_P_+__On __P_ /__P_ D_P_ $__@2d_P_+__OZ __P__D_P_ __P__D_P_-\_c.4__P____P_"@_P_-\_c4 4__P_ @_P__"H9?"&___ F_G--\_Z*4__G14__G04__G-4__G-4__G0+__G%+__G%4____ Z_G* \_G+ _G+,!p__,!p__,!p__+__F_ __G* __G+-|p____PG'_______________ ________________n G2 __HF3d_=Zg____O____ &___3&_HFg____O____G____4$_GB $___.__HF.__>_ D_HH $___.__HH D_HF-\_^S4__=m4__HH4__HF4__HA4__HA __HH 7 ___.$___(___w &___3F___+__GK __>_X@_GC "_GE_b______HF_ ___+__GJ(//35 H CANNOT DELETE NON-EXISTENT SEGMENT,I10//) +__H>-\_^S4__=m4__HI4__HH 4__HA4__HA __HI7 ___.$___(___y D_HI-\_c84__HI4__HA1 ___+__G[ __>_X@_GT "_GV_b______HF_ ___+__G[(//8H SEGMENT,I10,19H IS ALREADY DELETED//) +__H> __HI(____ __HI/____ F_HJ-\_J74__HF @_HJ __HF2D_=\+__Gb __HJ D_=\ $___.__>_.__HJ D_HK______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~__" 9?4__O_@@_>_ __O_1$___g____ O____ __O_1&___g____O____G____5$_NzL__O_ D_O_-\_U-4__O_4__O_4__O_4__O_ 4__O_+__O_+__O_4____ Z_O_ \_O_ _O_,!p__,!p__,!p__,!p__,!p__+__N_ __O_ __O_\ _O_,Ap__,Ap__,Ap__,Ap__,Ap__-|p______________xO_______q_O_ __>_ 5$_O_+__O| __P_0D___g____O____ __P_0F___g____O____A____5$_O_+__O|L__P_ D_P_-\_bl4__P_ @_P_-\_bl4__P_ @_P_ $___ D_P_ __>_5D_O_ $___ __>_,__bv D_P_ __P_$__P_ D_P_ __P_$__P_ D_P_ $___3d_P_g____O____ &___3f_P_g____ O____A____4$_O/ __>_X@_O$ "_O'_b______P____P____>____>__ ___+__O/(17H VECTOR INCORRECT/6H DELX=,I8/6H DELY=,I8/ 7H SCALE=,I3/5H DAC=,I7//) +__O|@@_P_ __P_5$_O2 $__@ D_P_@@_P_ __P_5$_O4 $____"h9?-\_^S4__=m4__HK 4__HK4__HA4__HA __HK7 ___.$___(___y(____ __HJ.____ F_HK-\_^S4__=m4__HK 4__HK4__HA4__HA __=Z2$_=[+__Gu $___.__HJ.__=` D_HF"&___ F_HG-\_Z*4__HK 4__HB4__HF4__HG4__HL $_@_.__HJ D_HF-\_^S4__=m4__HF4__HH4__HA4__HA __HF 2D_=Z+__H_"$___3D_=]+__H_-\_U-4__HA4__HA4__HB4__HA4__HC $___.__HH D_HF -\_^S4__=m4__HH4__HF4__HA4__HA $___$__=] &___.____ F_=]@@_=\-\_c84__HH 4__HC @_HI $___3$_HI+__H_+__H> $___.D_HH-\_^S4__=m4__HK4__HH4__HA4__HA -\_c84__HK4__HC $_`_.____ D_HL-\_^S4__=m4__HL4__HH4__HA4__HA __HD.__HF .__HI D_HM $___.__HH D_HF-\_^S4__=m4__HM4__HF4__HA4__HA __HF3$_=[+__H_ +__H> $___.__HF.__=` D_HJ"$___ D_HF-\_[_4__HK4__HB4__HJ4__HF______@___ __ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>_ ___B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv_ __`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+ __A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9 __!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G $__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU +_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c 2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq 9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_ ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~__"@9? D_NZ-\_Q_4__NU-\_QF4__NU-\_^S4__=m4__NZ4__NY4__NO4__NO __NN.__NX __NW D__ D_N[ __N[ D_NX"$___.__NY.__NZ D_N[ __NZ Z_N\ $h>(XD_N9-\_^S4__=m4__N94__N[4__NO:__N[3:_N[9__N6!$___ __NZ.__>( D_NS-\_^S4__=m4__NS4__NX4__NO4__NO __NY.D_NU __NW3:_NV9__N_"__NV.D_NT __NT5d_Mw __NU4d_NG __NU D_>_+__NL+__NL4____ Z_NP \_NQ _NQ, p__,!p__ ,!p__+__Mo __NP __NQ-|p_____B ____t__pNO___@____ __{_N^ __>_5$_N`+__O_ __=\4$_Nn __O_0$___g____O____ __O_0&___g____O____A____4$_Nq __>_0D___ g____O____ __O_2F_>_g____O____ __O_2H_>_g____O____A____A____4$_Nq-\_U- 4__O_4__O_4__O_4__O__#_9?4__HL __HL4D_H%+__H>-\_c84__HK4__HC $_@_.____ D_HK"$___ D_HF-\_Z*4__HK4__HB4__HJ4__HF4__HL $___.__HJ D_HF"&___ F_HG -\_Z*4__HL4__HD4__HF4__HG4__HL __HH7 ___.$___(___x(____ __HI.____ F_HK "$___.__HH D_HF-\_^S4__=m4__HK4__HF4__HA4__HA+__H>+__H>4____ Z_HE \_HE _HE,!p__+__G3 __HE __HE\ _HF,Ap__-|p____HHA_______________________ _ __L________s8HM __I53D_=Z+__I_ __I53d_>_g____O____ &___3f_I5g____O____ G____4$_I_ $___.__I5.__>_ D_I7-\_^S4__=m4__I74__I74__I24__I2 __I77 ___ .$___(___w &___2F___+__I_ __I52$_=[+__I_ $_ _.__I7-\_c84__I74__I2/____ @_I5-\_c84__I74__I3.____ D_I7-\_^S4__=m4__I74__I74__I24__I2 $___ D_I8 $___.__>_.__I8 D_I7 __I5/__I8______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__"`9?4__MhO@_=G+__Md +__Md4____ Z_Mj \_Mj _Mj,!p__+__L3 __Mj __Mj\ _Mk,Ap__-|p_____B _____ ___ ________pMh____t______t_Mn __>_5$_Mp+__NL@@_=G $___3d_NR+__Ms+__NL @@_NT __NR D_NT $__ D_NU __NR5$_Mw@@_NU@@_NU:__NT __NT.__NQ ____4D_NE __NT.__NQ $___XD_M}-\_^S4__=p4__M}4__N\4__NV-\_c 4__NT4__NV @_NV :___ Z_NW $___ __NW.__N\ D_NW"$___.__NW4$_N_4D_N_@@_NU+__NB $__ D_NU+__NB __NU.D_NW __NW ___ D_NY-\_^S4__=m4__NZ4__NY4__NO 4__NO $_ _.__NZ-\_c84__NZ4__NO/____ @_NS-\_c84__NZ4__NP._____#(9? D_I8 -\_^S4__=m4__I74__I74__I24__I2-\_c84__I74__I3 @_I9"__I9.D_I7 __I84D_H} __I52$_I9+__I_ $___.__>_.__I9 D_I5-\_^S4__=m4__I94__I54__I24__I2-\_c8 4__I94__I3 @_I9 __I53$_I9+__Ht __I9.D_I7-\_^S4__=m4__I74__I74__I24__I2 __I84D_I_ $___.__I8.__=` D_I5"&___ F_I6-\_Z*4__I74__I34__I54__I64__I9 __I9 D_I8 __I95d_Hh __I5 D_=Z __I5 D_=\@@_=\-\_J_ $___ D_=[+__I0-\_J_ +__I0 __>_X@_I_ "_I__b______I5_ ___+__I_(//17H SUBROUTINE STRIP/22H IN VALID SEGMENT INDEX,I8//)+__I0"$___.__I7 D_I5-\_^S4__=m4__I74__I54__I2 4__I2 __>_X@_I_ "_I _b______I5___I7_ ___+__I,(//17H SUBROUTINE STRIP/3 9H GIVEN SEGMENT HAS NOT BEEN SENT TO PDP/16H SEGMENT INDEX =,I5/13H U ______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6_ __`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n_ __@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&) __!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7 ___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E #_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS *_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a 1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o 8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv} ?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__#_9? __Mn D_=G+__Md :___ Z_Mn __<+2$h<-+__M% _h<- D_<++__M03:_<-9__M! __>_X@_M' "_M(_b____ ___+__M/(54H X BEAM POSITION BEYOND LAST TAB POSITION.TAB IGNORED.) O@_=G+__Md"$___ D_Mk"&___ F_Ml -\_N{4__<+4__<+4__Mh4__Mk4__MlO@_=G+__Md"$___.D_<+"$___ D_Mk-\_Ox4__Mh 4__Mk4__MhO@_=G+__Md"$__ .D_Mm+__L=@@_<*"$___ D_=G+__MdO@_<*"$___ D_=G +__Md>__Mm __>_X@_MB "_MD_b______Mm_ ___+__MH(23H ILLEGAL CHARACTER CO DE,I7) @@_=G+__Md :___ Z_Mn __<+2$h<9+__MM _h<- D_<++__M03:_<-9__MI __>_X@_MO "_MP_b____ ___+__MW(54H Y BEAM POSITION BEYOND LAST TAB POS ITION.TAB IGNORED.) O@_=G+__Md __<, D_<++__M0 __<, D_<++__M0"$___ D_=G +__Md $___.D_<+-\_Ox4__Mi4__Mh_#H9?SER LABEL =,I8//) +__I0+__I04____ Z_I4 \_I4 _I4,!p__+__HM __I4 __I4-|p____hI2___@____ _______s8I9 $___ .__=Z.__>_ D_J&-\_^S4__=m4__J'4__J&4__J_4__J_ $___2D_=Z+__IU __=]5D_ID -\_U-4__J_4__J_4__J_4__J_4__J $___.__>_ D_J&-\_^S4__=m4__J 4__J&4__J_ 4__J_ $___.__>_ D_J&-\_^S4__=m4__J!4__J&4__J_4__J_ $___ D_=[ $___ D_>_ $___ D_=\@@_=[@@_=]-\_U-4__J!4__J_4__J_+__J_ __=\5$_IV+__J_ $___.__=] D_J&-\_c84__J&4__J_ &___.____ F_J(6b_J(0b___7____+__I\4__I_4__Ir4__Io 4__Im $___ D_=]@@_=[ $___.__=Z D_=[ $___.__=Z.__>_ D_J(-\_^S4__=m4__J" 4__J(4__J_4__J_ $___.__J( D_J&-\_^S4__=m4__J"4__J&4__J_4__J_ $___.__=Z D_>_+__J_"__=Z.__=[4d_Ib+__I`______@_____ ___@0____@___@P____`___@p__ ___"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV_ __`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_# __A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1 __!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M '_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[ ._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i 5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w <__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__# 9?4__L_4__L_4__L_ 4__L_4__MI4__MY4__MX4__L_4__L_4__M[4__L_4__L_4__L_4__M<4__M> __Mm ___ D_J(-\_^S4__=m4__J)4__J(4__J_4__J_-\_c84__J)4__J# $___.____ D_J)-\_^S4__=m4__J)4__J(4__J_4__J_ $___.__J( D_J&-\_^S4__=m4__J!4__J& 4__J_4__J_ $___.__=Z D_>_@@_=]O@_=\ __=Z2$_=[+__J_ __>_ D_=[ $___ D_=[ __J'7 ___.$___(___y D_J&-\_c84__J&4__J$ @_J' __J'5D_J_+__J_ :___ Z_J( _h_ D_JE-\_^S4__=m 4__JG4__JE4__J=4__J=-\_c84__JG4__J> @_JF______@_____ ___@0____@___@P__ __`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N_ __@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__! __!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/ ___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv= __az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K &_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY -_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g 4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu ;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0__ __@___@P____`___@p_____"__A_&___ *__A0.___@2__AP6___`:__Ap>____B__B_F_ __ J__B0N___@R__BPV___`Z__Bp^____b__C_f___ j__C0n___@r__CPv___`z__Cp~_ ____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6- __a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n; __Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I %_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W ,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e 3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns :_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~__#@9?XD_L_ -\_^S4__=p4__L_4__L14__L/-\_c 4__L/4__L/ @_L0 :___ Z_L0 $hL0XD_L!-\_Ma 4__L!3:_L09__L_"__L0.D_L/ __L/5d_L_+__L)+__L)4____ Z_L, \_L, _L,, p__ ,!p__+__L_ __L, __L,\ _L-,Ap__-|p________i0L3 __>_5$_L5+__Md __Mk D_Mm $___2$_Mmg____O____ __Mm0&___g____O____G____4$_M@:__MmL__<*5$_L= $__ .D_Mm6b_Mm0b__@7____+__L?4__M\4__M!4__M64__L_4__L_4__L_4__M<4__M>4__M\ _$_9? __JF2D_JE+__J+"$___.__JG D_JF+__J;+__J;4____ _J>Q ___* _JD _JD ,!p__+__J*!<_J>X<___*<___ __JF-|p____xJ=___ __yxJG@@_K_@@_K_@@_K_"$___ D_K_-\_[_4__K_4__Jw4__=f4__K_4__K_-\_c84__K_4__Jx @_K_ __K_.__>_ D_K_ $___.__>_ D_K_>__K_ __K_2$_K_+__JU+__Jt-\_^S4__=m4__K_4__K_4__Jx4__Jx __K_7 ___.$___(___w D_K_ $___2D_K_+__J\+__Jt $___2D_K_+__JR __K_7 ___ .$___(___x D_K_-\_c84__K_4__Jy @_K_ $___2D_K_+__JR"$___.__K_/__>_ D_K_ __K_ D_K_ __>_.__K_ D_K_-\_^S4__=m4__K_4__K_4__Jx4__Jx-\_c84__K_4__Jx __K_2D___+__Jo __K_ D_K_+__Jt+__Jt4____ _JyQ ___* _J_ _J_,!p__+__JH !<_JyX<___*<___\ _K_,Ap__ __K_-|p__________ ___xJx______x K_@@_KL __KK 3$_>_+__K_______@_____ ___@0____@___@P____`___@p_____"__A_&___ *__A0._ __@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^____b__C_f_ __ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_%__a_&_Dq_' ___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3__AR4_FQV5 __aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A!_"_B!H2_C "_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O(__BP(J_FQ )_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv]/_bz^/Kr~_ 0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k6_C2l6MS6m 7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~_______@_____ ___@0____@___@P____`___@p_____"__A_&_ __ *__A0.___@2__AP6___`:__Ap>____B__B_F___ J__B0N___@R__BPV___`Z__Bp^_ ___b__C_f___ j__C0n___@r__CPv___`z__Cp~_____ _D__!__!_"_D1_#__A_$_DQ_% __a_&_Dq_'___"(_E_&)__!**_E1.+__A2,_EQ6-__a:._Eq>/___B0_F_F1__!J2_F1N3 __AR4_FQV5__aZ6_Fq^7___b8_G_f9__!j:_G1n;__Ar<_GQv=__az>_Gq~? ___@ H__A !_"_B!H2_C"_B_D"HR_E#_b_F#Hr_G$__"H$I_&I%_"*J%I2.K&_B2L&IR6M'_b:N'Ir>O (__BP(J_FQ)_"JR)J2NS*_BRT*JRVU+_bZV+Jr^W,__bX,K_fY-_"jZ-K2n[._Br\.KRv] /_bz^/Kr~_0___`0L__a1_#_b1L3_c2_C_d2LS_e3_c_f3Ls_g4__"h4M_&i5_#*j5M3.k 6_C2l6MS6m7_c:n7Ms>o8__Bp8N_Fq9_#Jr9N3Ns:_CRt:NSVu;_cZv;Ns^w<__bx_Cr|>OSv}?_cz~?Os~___!_"!_#_bA_%_"a_'_b__a_&#_c_fC_e_&c_g_f __!(*%_#(jE_%)*e_')j__a8.'_c8nG_e9.g_g9n__!H2)_#HrI_%I2i_'Ir__aX6+_cXv K_eY6k_gYv__!h:-_#hzM_%i:m_'iz__ax>/_cx~O_ey>o_gy~_ )_"!(+_bA0-_"a8/_b _ i_&#(k_fC0m_&c8o_f_!)**%)+*jE1-+*e9/+j_!i:.')k:nG1m;.g9o;n_")J2)*+Jr I2-K2i:/Kr_"iZ6+*kZvK2m[6k:o[v_#)j:-++jzM3-k:m;/kz_#iz>/+kz~O3m{>o;o{~ _@1_#!H3_cAP5_#aX7_c_@q_'#Hs_gCPu_'cXw_g_A1,+%I3,kEQ5-+eY7-k_Aq/'i{>oGq}?/gy_?o_b9N3)j;NsIr=O3iz?Os_by^7+j{^wKr}_7kz__w _c9n;-k;n{Ms=o;m{?o{_cy~?/k{~_Os}_?o{___