PLPPREP CSY/ P€1_$PROGRAM LPPREP_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1C_]_^1C_#A PREPROCESSOR FOR THE LP17 LINEAR PROGRAMMING PACKAGE_^1C_#IT COMBINES A FILE CREATION SECTION, FOR CREATING A FILE_^1C_#FOR INPUT TO THE LP17 PACKAGE WITH CONTROL CARDS, AND AN_^1C_#EDITOR FOR EDITING AN EXISTING LP17 INPUT FILE (WITH_^1C_#CONTROL CARDS)_^1C_]_^1C_#AUTHOR: DAVID R. GREENEBAUM_!AUGUST, 1978_^€€1C_]_^1_$DIMENSION IBLOCK(15),IBUFR(24),IMIN(2),IMAX(2),MSG(17),MSG1(16),_^1_#*_)MSG2(12),MSG3(15),MSG4(14),MSG5(30),MSG6(7),MSG7(24),_^1_#*_)JCL1(42),JCL2(42),JCL3(42),JCL4(42),IPROPT(4),ITREND(3),_^1_#*_)XTEMP(50),XMAT(51,50),LTEMP(41),MSG8(20),IANS(2)_^1_$INTEGER PRIM(3),DUAL(3),YES,EVALU8,BLOCK2(24),BUFR(42),FALSE,_^1_#*_'BLANKS(40),USER(4),ITEMP(2),TEMP(6),GT,EQ,C,D,E,Z,R,P,L,€€F_^1_$DIMENSION LIST(10),LIST1(10),LETTER(8),MSG9(29)_^1_$EQUIVALENCE(LIST(1),IPROPT(1)),(LIST(4),TREND),(LIST(6),M),_^1_#*_*(LIST(7),N),(LIST(8),MAX),(LIST(9),MVCD),_^1_#*_*(LIST(10),MAXNIT)_^1_$EQUIVALENCE (LIST1(1),TOL1),(LIST1(3),TOL2),(LIST1(5),TOL3),_^1_#*_+(LIST1(7),TOL4),(LIST1(9),TOL5)_^1_$BYTE(L2,ITREND(2)(15=8)),_^1_#*_"(LMIN,IMIN(2)(15=8)),_^1_#*_"(LMAX,IMAX(2)(15=8))_^€€1_$BYTE(C,LETTER(1)(15=8)),(D,LETTER(2)(15=8)),(E,LETTER(3)(15=8)),_^1_#*_"(Z,LETTER(4)(15=8)),(P,LETTER(5)(15=8)),(R,LETTER(6)(15=8)),_^1_#*_"(L,LETTER(7)(15=8)),(F,LETTER(8)(15=8))_^1_$BYTE(ICODE,IVAL(15=8))_^1_$DATA IBLOCK/8*2H ,'SYSVOL ',0,1,-1/_^1_$DATA IBUFR/24*0/_^1_$DATA BLOCK2/12*0,80,0,400,9*0/_^1_$DATA BLANKS/40*2H /_^1_$DATA PRIM/'PRIMAL'/,_^1_#*_#DUAL/'DUAL '/,_^1_€€#*_#IMIN/'MIN '/,_^1_#*_#IMAX/'MAX '/,_^1_#*_#ICLR/$2018/_^1_$DATA LT/'<'/,_^1_#*_#EQ/'='/,_^1_#*_#GT/'>'/,_^1_#*_#FALSE/0/,_^1_#*_#MSG9/'ENTER MAX NUM. OF CONSTRAINTS THAT CAN BE DROPPED [ ]'_^1_#*_#,' < '/_^1_$DATA MSG /$0000,'ENTER WORK FILE NAME [_']'/,_^1_#*_#MSG1/'PRIMAL OR DUAL PROBLEM [_$]'/,_^1_#*_#MSG2/'MIN OR MAX DESIRED [_!]'/,_^1_#*_#MSG3/'NUMBER OF CONSTRAINTS [ ] €€<50'/,_^1_#*_#MSG4/'NUMBER OF VARIABLES [ ] <50'/_^1_$DATA MSG5/'DO YOU WISH MORE THAN 30 ITERATIONS IN MINOR LOOP? [ ]'_^1_#*_),' (Y/N)'/,_^1_#*_#MSG6/'HOW MANY [_!]'/,_^1_#*_#MSG7/'ENTER ZERO TOLERANCE [_)] (E.G. 1.0E-7)'/,_^1_#*_#MSG8/'ENTER COEFFICIENTS SEPERATED BY SLASHES'/_^1_$DATA YES/'Y'/,_^1_#*_#JCL1/'*JOB,LP RUN',36*2H /,_^1_#*_#JCL2/'*K,I13,L14',37*2H /,_^1_#*_#JCL3/€€'*LPEXM',39*2H /,_^1_#*_#JCL4/'*Z',41*2H /_^1_$DATA LETTER/'C','D','E','Z','P','R','L','F'/_^1._]_^1C_]_^1C_#ASK USER FOR WORK FILE_^1C_]_^1_$CALL SCRNCL_^1_$WRITE(5,9100)_^1_$CALL READIT(MSG,33,$0004,$1604,IBLOCK,8)_^1_$CALL PGMIN(USER,LUNIT,MODE,NOPORT)_^1_$CALL MOVE(USER,IBLOCK(5),4)_^1_$CALL OPEN(IBUFR,IBLOCK,NEW)_^1_$IF(NEW.EQ.FALSE)GOTO 1000_^1+_EIF FILE ALREADY EXISTS, EDI€€T IT_^1_$CALL MOVE(IBLOCK,BLOCK2,12)_^1_$CALL ZERO(IBUFR,24)_^1+_EZERO REQUEST BUFFER FOR CREATION_^1_$CALL CREATE(IBUFR,BLOCK2,ISTAT)_^1_$CALL ZERO(IBUFR,24)_^1+_EZERO REQUEST BUFFER FOR OPEN_^1_$CALL OPEN(IBUFR,IBLOCK,IDUM)_^1_$CALL SCRNCL_^1+_ECLEAR THE SCREEN_^1C_]_^1C_#WRITE OUT FIRST THREE LINES OF JCL_^1C_]_^1_$CALL PUTS(IBUFR,JCL1,1,IDUM)_^1_$CALL PUTS(IBUFR,JCL2,1,IDUM)_^1€€_$CALL PUTS(IBUFR,JCL3,1,IDUM)_^1C_]_^1C_#PRIMAL OR DUAL PROBLEM??_^1C_]_^120_"CALL READIT(MSG1,31,$0001,$1801,IPROPT,6)_^1_$K=MAX0(4,IPROPT(4))_^1_$IF(COMPAR(IPROPT,PRIM,6))25,30,25_^125_"IF(COMPAR(IPROPT,DUAL,K))20,29,20_^1C_]_^1C_#GET TREND (MIN OR MAX)_^1C_]_^129_"IPROPT(3)=$2020_^1+_EBLANK FILL LAST TWO CHARACTERS_^130_"CALL READIT(MSG2,24,$0003,$1403,ITREND,3)_^1_$IF((ITREND(€€1).NE.IMIN(1)).OR.(L2.NE.LMIN))GOTO 35_^1_$TREND=1.0_^1_$GOTO 40_^135_"IF((ITREND(1).NE.IMAX(1)).OR.(L2.NE.LMAX))GOTO 30_^1_$TREND=-1.0_^1C_]_^1C_#GET NUMBER OF CONSTRAINTS (EQUATIONS)_^1C_]_^140_"ITEMP(1)=0_^1_$CALL READIT(MSG3,30,$0005,$1705,ITEMP,2)_^1_$M=EVALU8(ITEMP,2,IDUM)_^1_$IF((M.LT.1).OR.(M.GT.50))GOTO 40_^1C_]_^1C_#GET NUMBER OF UNKNOWNS_^1C_]_^150_"ITEMP(1)=0_^1_$CALL R€€EADIT(MSG4,28,$0007,$1507,ITEMP,2)_^1_$N=EVALU8(ITEMP,2,IDUM)_^1_$IF((N.LT.1).OR.(N.GT.50))GOTO 50_^1_$MAX=2500_^1+_DMAXIMUM NUMBER OF VECTORS ON DISK_^1_$MVCD=N-1_^1C_]_^1C_#GET MAX NUMBER OF ITERATIONS_^1C_]_^1_$MAXNIT=30_^1+_EDEFAULT VALUE_^160_"CALL READIT(MSG5,60,$0009,$3409,IANS,1)_^1_$IF(AND(IANS,$FF00).NE.AND(YES,$FF00))GOTO 70_^165_"ITREND(1)=0_^1_$ITREND(2)=0_^1_$CALL REA€€DIT(MSG6,14,$000B,$0A0B,ITREND,3)_^1_$MAXNIT=EVALU8(ITREND,3,IDUM)_^1_$IF((MAXNIT.LT.1).OR.(MAXNIT.GT.999))GOTO 65_^1C_]_^1C_#GET ZERO TOLERANCE_^1C_]_^170_"CALL READIT(MSG7,47,$000D,$160D,TEMP,10)_^1_$ASSIGN 9910 TO IFORM_^1_$CALL DECODE(TEMP,IFORM,10,LTEMP)_^1_$J=1_]_^1_$CALL EVAL(LTEMP,J,TOL)_^1_$IF(TOL.LT.0.0)GOTO 70_^1_$IPTOL=ALOG(TOL)/ALOG(10.0)_^1_$TOL=TOL+5.0*10.0**(IPTOL-4€€)_^1+_@ADDITIVE CONST. TO AVOID ENCODE PROBLM_^1_$TOL1=TOL_^1_$TOL2=TOL_^1_$TOL3=TOL_^1_$TOL4=TOL_^1_$TOL5=TOL_^1C_#GET MAX NUMBER OF VECTORS THAT CAN BE DROPPED_^1_$II=M-M/10*10_^1_$JJ=M/10*10_^1_$MSG9(29)=(JJ+$30)*$100+(II+$30)_^180_"ITEMP(1)=0_^1_$CALL READIT(MSG9,58,$000F,$330F,ITEMP,2)_^1_$MVCD=EVALU8(ITEMP,2,IDUM)_^1_$IF((MVCD.LT.0).OR.(MVCD.GT.M-1))GOTO 80_^1C_]_^1C_#MOVE FI€€RST TWO DATA CARDS TO FILE_^1C_]_^1_$ASSIGN 9200 TO IFORM_^1_$CALL MOVEC(IBUFR,IFORM,LIST,9)_^1_$ASSIGN 9300 TO IFORM_^1_$CALL MOVEC(IBUFR,IFORM,LIST1,5)_^1._]_^1C_]_^1C_#READ MATRIX_^1C_]_^1_$CALL SCRNCL_^1+_ECLEAR SCREEN_^1_$CALL READMT(M,N,XMAT,IBUFR)_^1C_]_^1C_#READ RIGHT HAND SIDE_^1C_]_^1_$CALL SCRNCL_^1_$WRITE(5,9700)_^1_$J=0_]_^1_$IXY=$0005_^1_$ASSIGN 9600 TO IFORM_^1100_!C€€ALL BLANK(LTEMP,40)_^1_$CALL READIT(BLANKS,80,IXY,IXY,LTEMP,80)_^1_$CALL PARSE(XMAT( 1,1),LTEMP,J)_^1_$IF(J.EQ.M)GOTO 120_^1_$K=J-M_^1_$IF(K.GT.0)GOTO 110_^1_$IXY=IXY+$0001_^1_$GOTO 100_^1110_!WRITE(5,9500)K_^1120_!DO 130 K=1,M,8_^1_$KK=MIN0(8,M-K+1)_^1130_!CALL MOVEC(IBUFR,IFORM,XMAT(K,1 ),KK)_^1C_]_^1C_#READ PRICE EQUATION_^1C_]_^1_$CALL SCRNCL_^1_$WRITE(5,9400)_^1_$IXY=$0005_^1_€€$J=0_]_^1200_!CALL BLANK(LTEMP,40)_^1_$CALL READIT(BLANKS,80,IXY,IXY,LTEMP,80)_^1_$CALL PARSE(XMAT( 1,1),LTEMP,J)_^1_$IF(J.EQ.N)GOTO 220_^1_$K=J-N_^1_$IF(K.GT.0)GOTO 210_^1_$IXY=IXY+$0001_^1_$GOTO 200_^1210_!WRITE(5,9500)K_^1220_!DO 230 K=1,N,8_^1_$KK=MIN0(8,N-K+1)_^1230_!CALL MOVEC(IBUFR,IFORM,XMAT(K,1 ),KK)_^1C_]_^1C_#READ LOGICAL OPERATORS_^1C_]_^1_$CALL SCRNCL_^1_$WRITE(5,9800)€€_^1_$IXY=$0005_^1_$J=0_]_^1_$ASSIGN 9900 TO IFORM_^1300_!CALL BLANK(LTEMP,40)_^1_$CALL READIT(BLANKS,80,IXY,IXY,LTEMP,80)_^1_$CALL TRANSP(LTEMP,M,XTEMP(J+1),0,J)_^1_$IF(J.EQ.M)GOTO 320_^1_$K=J-M_^1_$IF(K.GT.0)GOTO 310_^1_$IXY=IXY+$0001_^1_$GOTO 300_^1310_!WRITE(5,9500)K_^1320_!DO 330 K=1,M,20_^1_$KK=MIN0(20,M-K+1)_^1330_!CALL MOVEC(IBUFR,IFORM,XTEMP(K),KK)_^1C_]_^1C_#PUT LAST LINE €€OF JCL IN FILE_^1C_]_^1_$CALL PUTS(IBUFR,JCL4,1,IDUM)_^1_$GOTO 8000_^1+_EEXIT_^1._]_^1C_]_^1C_"THE EDITOR SECTION_^1C_]_^11000 CALL MNUPRO(IBLOCK,IVAL)_^1_$K=0_]_^1_$IF(ICODE.EQ.E)GOTO 8000_^1_$IF(ICODE.EQ.D)CALL DISPLA(IBUFR,K,1)_^1_$IF(ICODE.EQ.C)CALL CHANGE(IBUFR)_^1_$IF(ICODE.EQ.Z)CALL ZCHNG(IBUFR)_^1_$IF(ICODE.EQ.P)CALL PCHNG(IBUFR)_^1_$IF(ICODE.EQ.R)CALL RCHNG(IBUFR)_^1_$IF(€€ICODE.EQ.L)CALL LCHNG(IBUFR)_^1_$IF(ICODE.EQ.F)CALL FCHNG(IBUFR)_^1_$GOTO 1000_^1C_]_^1C_#EXIT_]_^1C_]_^18000 CALL CLOSFL(IBUFR,IDUM)_^1_$CALL PGMOUT_^1C_]_^1C_#FORMATS_^1C_]_^19100 FORMAT('LP17 LINEAR PROGRAMMING PACKAGE PREPROCESSOR')_^19200 FORMAT(3A2,F4.1,5I10)_^19300 FORMAT(5(E10.3))_^19400 FORMAT('ENTER THE PRICE COEFFICIENTS SEPERATED BY SLASHES')_^19500 FORMAT(I2,' EX€€TRA VALUES IGNORED')_^19600 FORMAT(8F10.4)_^19700 FORMAT(/'ENTER RIGHT HAND SIDE COEFFICIENTS, SEPERATE BY SLASHES')_^19800 FORMAT(//'ENTER ALL THE LOGICAL OPERATORS (>=<) WITH NO SEPARATORS_^1_#* BETWEEN THEM')_^19900 FORMAT(20F4.1)_^19910 FORMAT(80R1)_^1_$END_]_^1_$INTEGER FUNCTION EVALU8(STRING,N,I)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER_!STRING(1),ITEMP(80)€€_^1_$NUM=0_^1_$CALL ZERO(ITEMP,80)_^1_$ASSIGN 100 TO IFORM_^1_$CALL DECODE(STRING,IFORM,N,ITEMP)_^1_$DO 20 I=1,N_^1_$IF(ITEMP(I).NE.$20)GOTO 15_^1_$IF(NUM.NE.0)GOTO 50_^1_$GOTO 20_^115_"IDIG=ITEMP(I)-$30_^1_$IF((IDIG.LT.0).OR.(IDIG.GT.9))GOTO 50_^1_$NUM=NUM*10+IDIG_^120_"CONTINUE_^150_"EVALU8=NUM_^1_$RETURN_^1100_!FORMAT(80R1)_^1_$END_]_^1_$SUBROUTINE READEQ(IBUFR,IXY,I)_^1_#*_>/CO€€PYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IBUFR(41),MSG(20)_^1_$DATA IPOSN/$1B31/_^1_$DATA MSG/'ENTER COEFFICIENTS SEPARATED BY SLASHES'/_^1_$IXY1=IXY+$0001_^110_"WRITE(5,9000)I_^1_$DO 20 J=1,40_^120_"IBUFR(J)=$2020_^1_$CALL WTREAD(5,IXY,MSG,39,IXY1,IBUFR,80,ITC)_^1_$IF(ITC.NE.$ 4)RETURN_^1_$NXY=IXY-$0001_^1_$WRITE(5,9100)IPOSN,NXY_^1_$GOTO 10_^19000 FORMAT('EQUATION',I3)_^19€€100 FORMAT(2A2)_^1_$END_]_^1_$SUBROUTINE OPEN(IBUFR,IBLOCK,NEW)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IBUFR(24),IBLOCK(15)_^1_$BYTE (NOFILE,ISTAT(1=1)),(IBUSY,ISTAT(2=2))_^110_"CALL OPENFL(IBUFR,IBLOCK,ISTAT)_^1_$NEW=0_^1_$IF(ISTAT.EQ.0)GOTO 900_^1_$IF(NOFILE.EQ.1)NEW=1_^1_$IF(IBUSY.EQ.1)WRITE(5,9000)_^1_$IF(NEW.EQ.1)GOTO 900_^1_$CALL ERROR(IBLOCK,ISTAT)_^19000 €€ FORMAT('FILE BUSY')_^1900_!RETURN_^1_$END_]_^1_$SUBROUTINE PARSE(VECTOR,ICHAR,IPOS)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION VECTOR(50),ICHAR(41),IBUF(80),IT(2)_^1_$DATA I1,I2/0,1/_^1_$EQUIVALENCE(X,IT(1))_^1_$ASSIGN 9000 TO IFORM_^1_$I=1_]_^1_$CALL DECODE(ICHAR,IFORM,80,IBUF)_^110_"CALL EVAL(IBUF,I,X)_^1_$IF((IT(1).EQ.I1).AND.(IT(2).EQ.I2))GOTO 100_^1_$IPOS=IPOS+1€€_^1_$VECTOR(IPOS)=X_^1_$GOTO 10_^1100_!RETURN_^19000 FORMAT(80R1)_^1_$END_]_^1_$SUBROUTINE EVAL(STRING,IPOS,RETN)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER STRING(80),TERM,_$E,PT,PL,MI,EFLAG,IT(2)_^1_$EQUIVALENCE (TEMP,IT(1))_^1_$DATA TERM,E,PT,PL,MI,IT /1R/,1RE,1R.,1R+,1R-,0,1/_^1_$IFLAG=0_^1_$RETN=0_^1_$EXP=0_^1_$DFLAG=0_^1_$NFLAG=1_^1_$EFLAG=0_^1_$NEFLAG=1_^110_"I€€F(IPOS.GT.80)GOTO 900_^1_$IF(STRING(IPOS).EQ.TERM)GOTO 900_^1_$IF(STRING(IPOS).EQ.$20)GOTO 600_^1_$IF(STRING(IPOS).EQ.PT)GOTO 200_^1_$IF(STRING(IPOS).EQ.PL)GOTO 300_^1_$IF(STRING(IPOS).EQ.MI)GOTO 400_^1_$IF(STRING(IPOS).GE.$30)GOTO 100_^1_$GOTO 900_^1C_]_^1100_!IF(STRING(IPOS).GT.$39)GOTO 500_^1_$IF(EFLAG.EQ.1)GOTO 150_^1_$DFLAG=DFLAG*10.0_^1_$RETN=RETN*10.0+(STRING(IPOS)-$30)_^1_$€€IPOS=IPOS+1_^1_$IFLAG=1_^1_$GOTO 10_^1C_]_^1150_!EXP=EXP*10+(STRING(IPOS)-$30)_^1_$IPOS=IPOS+1_^1_$GOTO 10_^1C_]_^1200_!IF(DFLAG.EQ.1)GOTO 900_^1_$DFLAG=1_^1_$IPOS=IPOS+1_^1_$IFLAG=1_^1_$GOTO 10_^1C_]_^1300_!IF(RETN.NE.0)GOTO 350_^1_$IPOS=IPOS+1_^1_$GOTO 10_^1350_!IF(EXP.NE.0)GOTO 950_^1_$IPOS=IPOS+1_^1_$GOTO 10_^1C_]_^1400_!IF(RETN.NE.0)GOTO 450_^1_$NFLAG=-1_^1_$IPOS=IPOS+1_^1_$IF€€LAG=1_^1_$GOTO 10_^1450_!IF(EXP.NE.0)GOTO 950_^1_$NEFLAG=-1_^1_$IPOS=IPOS+1_^1_$IFLAG=1_^1_$GOTO 10_^1C_]_^1500_!IF(STRING(IPOS).NE.E)GOTO 950_^1_$EFLAG=1_^1_$IPOS=IPOS+1_^1_$GOTO 10_^1C_]_^1600_!IF((RETN.NE.0.0).OR.(EXP.NE.0.0))GOTO 900_^1_$IPOS=IPOS+1_^1_$GOTO 10_^1C_]_^1800_!RETN=TEMP_^1_$GOTO 990_^1900_!IF((IFLAG.EQ.0).AND.(IPOS.GT.80))GOTO 800_^1_$IPOS=IPOS+1_^1_$IF(RETN.EQ.0)€€GOTO 990_^1950_!RETN=(RETN*NFLAG)*10.0**(EXP*EFLAG*NEFLAG)_^1_$IF(DFLAG.NE.0)RETN=RETN/DFLAG_^1990_!RETURN_^1_$END_]_^1_$SUBROUTINE TRANSP(CHARS,M,NUMS,FLG,J)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER CHARS(40),TCHAR(80),FLG,LT,GT,EQ_^1_$REAL NUMS(50)_^1_$DATA LT,GT,EQ/1R<,1R>,1R=/_^1_$IF(FLG.EQ.1)GOTO 500_^1_$ASSIGN 9000 TO IFORM_^1_$CALL DECODE(CHARS,IFORM,M,TCHAR)_^€€1_$K=M-J_^1_$DO 100 I=1,K_^1_$IF((TCHAR(I).NE.EQ).AND.(TCHAR(I).NE.LT).AND.(TCHAR(I).NE.GT))_^1_#*_"GOTO 100_^1_$J=J+1_^1_$IF(TCHAR(I).EQ.LT)NUMS(I)=1.0_^1_$IF(TCHAR(I).EQ.EQ)NUMS(I)=0.0_^1_$IF(TCHAR(I).EQ.GT)NUMS(I)=-1.0_^1100_!CONTINUE_^1_$GOTO 900_^1C_]_^1500_!ASSIGN 9000 TO IFORM_^1_$DO 510 I=1,M_^1_$IF(NUMS(I))501,502,503_^1501_!TCHAR(I)=GT_^1_$GOTO 510_^1502_!TCHAR(I)=EQ_^1_$€€GOTO 510_^1503_!TCHAR(I)=LT_^1510_!CONTINUE_^1_$CALL ENCODE(CHARS,IFORM,M,TCHAR)_^1900_!RETURN_^19000 FORMAT(80R1)_^1_$END_]_^1_$FUNCTION COMPAR(V1,V2,N)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER V1(1),V2(1)_^1_$COMPAR=0_^1_$N1=IFIX(FLOAT(N)/2.0+.90)_^1_$DO 10 I=1,N1_^1_$IF(V1(I).EQ.V2(I))GOTO 10_^1_$COMPAR=-1_^110_"CONTINUE_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE ERROR(I€€BLOK,ISTAT)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IBLOK (15)_^1_$WRITE(5,9000)(IBLOK(I),I=1,4),ISTAT_^1_$CALL PGMOUT_^19000 FORMAT('ERROR TRYING TO OPEN '4A2,' STATUS $',Z4)_^1_$END_]_^1_$INTEGER FUNCTION MIN0(I,J)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$MIN0=I_^1_$IF(I.GT.J)MIN0=J_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE SCRNCL_^1_#*_>/COPYRIGHT CONTROL DATA €€CORP., 1978_^1_$DIMENSION BUFR(2)_^1_$CALL READIT($2018,2,0,0,BUFR,0)_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE READIT(MSG,N,IPOS1,IPOS2,IBUF,N2)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IBUF(1),IERR(3)_^1_$DATA IERR/$1745,'RROR'/_^1_$I=(N2+1)/2+1_^1_$IF(N.GT.0)GOTO 10_^1_$N=-N_]_^1_$J=(IBUF(I)+5)*$100+AND(IPOS2,$FF)_^1_$CALL WTREAD(5,J,IERR,6,0,IDUM,0,ITC)_^110_"CALL WTR€€EAD(5,IPOS1,MSG,N,IPOS2,IBUF,N2,ITC)_^1_$IF(ITC.EQ.4)GOTO 10_^1+_EIF A RUBOUT WAS THE TERMINATOR_^1C_EREAD IT AGAIN_^1_$IF((IBUF(I).EQ.0).AND.(N2.NE.0))GOTO 10_^1+_ENO CHARACTERS WERE ENTERED SO_^1C_EDONT RETURN_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE ZERO(IARRAY,N)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IARRAY(1)_^1_$DO 10 I=1,N_^110_"IARRAY(I)=0_^1_$RETURN_^1_$END_]€€_^1_$SUBROUTINE MOVE(IFROM,ITO,N)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IFROM(1),ITO(1)_^1_$DO 10 I=1,N_^110_"ITO(I)=IFROM(I)_^1_$RETURN_^1_$END_]_^1_$FUNCTION MAX0(N1,N2)_^1_#*_>/COPYRIGHT CONTROL DATA CORP,. 1978_^1_$MAX0=N1_^1_$IF(N1.LT.N2)MAX0=N2_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE MOVEC(IBUFR,IFORM,ISTR,NUM)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INT€€EGER BUFR(42)_^1_$CALL BLANK(BUFR,42)_^1_$CALL ENCODE(BUFR,IFORM,NUM,ISTR)_^1_$CALL PUTS(IBUFR,BUFR,1,IDUM)_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE READMT(M,N,XMAT,IBUFR)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION XMAT(51,50),XTEMP(8),LTEMP(42)_^1_$IXY=$0002_^1_$INC=$0003_^1_$DO 10 I=1,50_^110_"CALL ZERO(XMAT(1,I),102)_^1_$DO 100 I=1,M_^1_$J=0_]_^120_"CALL ZERO(LTEMP,42)_€€^1_$CALL READEQ(LTEMP,IXY,I)_^1_$IXY=IXY+INC_^1_$CALL PARSE(XMAT(1,I),LTEMP,J)_^1_$IF(J.EQ.N)GOTO 40_^1_$IF(J.GT.N)GOTO 30_^1_$IF(IXY.LT.$0014)GOTO 20_^1_$CALL SCRNCL_^1_$IXY=$0002_^1_$GOTO 20_^130_"K=J-N_^1_$WRITE(5,9500)K_^1_$IXY=IXY+$0002_^140_"IF(IXY.LT.$0014)GOTO 100_^1_$CALL SCRNCL_^1_$IXY=$0002_^1100_!CONTINUE_^1_$ASSIGN 9600 TO IFORM_^1_$DO 200 I=1,N_^1_$CALL ZERO(XTEMP,16)€€_^1_$DO 200 K=1,M,8_^1_$DO 150 J=1,8_^1_$KK=K+J-1_^1150_!XTEMP(J)=XMAT(I,KK)_^1_$KK=MIN0(8,M-K+1)_^1200_!CALL MOVEC(IBUFR,IFORM,XTEMP,KK)_^1_$RETURN_^1_]_^19500 FORMAT(I2,' EXTRA VALUES IGNORED')_^19600 FORMAT(8F10.4)_^1_$END_]_^1_$SUBROUTINE BLANK(IARRAY,N)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IARRAY(1)_^1_$DO 10 I=1,N_^110_"IARRAY(I)=$2020_^1_$RETURN_^1_$END€€_]_^1_$SUBROUTINE MNUPRO(IBLOCK,IVAL)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IVAL(2),MSG1(3),MSG2(3),MSG3(11),MSG4(11),MSG5(8),_^1_#*_)IANS(2),MSG6(13),MSG7(12),MSG8(15),MSG9(13),MSG10(16)_^1_$DATA MSG1/'FILE:'/,_^1_#*_#MSG2/'ENTER:'/,_^1_#*_#MSG3/'D - DISPLAY CONSTRAINT'/,_^1_#*_#MSG4/'C - CHANGE CONSTRAINT'/,_^1_#*_#MSG5/'E - EXIT LPPREP'/_^1_$DATA MSG6/'Z - CHA€€NGE ZERO TOLERANCES'/,_^1_#*_#MSG7/'P - CHANGE PRICE VECTOR'/,_^1_#*_#MSG8/'R - CHANGE REQUIREMENTS VECTOR'/,_^1_#*_#MSG9/'L - CHANGE LOGICAL VECTOR'/,_^1_#*_#MSG10/'F - CHANGE FIRST CARD PARAMETERS'/_^1_$DATA IANS/'[ ]'/_^1_$CALL SCRNCL_^1_$CALL READIT(MSG1,5,0,0,IDUM,0)_^1_$CALL READIT(IBLOCK,8,$0600,0,IDUM,0)_^1_$CALL READIT(MSG2,6,3,0,IDUM,0)_^1_$CALL READIT(MSG3,22,5,0,IDUM,0)€€_^1_$CALL READIT(MSG4,21,6,0,IDUM,0)_^1_$CALL READIT(MSG6,26,7,0,IDUM,0)_^1_$CALL READIT(MSG7,23,8,0,IDUM,0)_^1_$CALL READIT(MSG8,30,9,0,IDUM,0)_^1_$CALL READIT(MSG9,25,10,0,IDUM,0)_^1_$CALL READIT(MSG10,32,11,0,IDUM,0)_^1_$CALL READIT(MSG5,15,12,0,IDUM,0)_^1_$CALL READIT(IANS,3,14,$010E,IVAL,1)_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE DISPLA(IBUFR,K,IFLAG)_^1_#*_>/COPYRIGHT CONTROL DAT€€A CORP., 1978_^1_$INTEGER BUFR(42),LIST(2),NUM(2),A,FLYFRM(40),EVALU8_^1_$DIMENSION MSG1(16),MSG2(4),TEMP(50),TEMP1(5),LIST2(13)_^1_$EQUIVALENCE (MSG1(16),M1),(LIST(1),M),(LIST(2),N),(LIST2(4),TEMP1)_^1_$DATA MSG1/'ENTER CONSTRAINT NUMBER [ ] < '/,_^1_#*_#MSG2/'READY???'/,ILB/$7B/,IRB/$7D/_^1_$CALL GETMN(IBUFR,M,N)_^1_$M1=M+$30_^1_$IF(M.GT.9)M1=M1+$3000_^1_$IF(K.NE.0)GOTO 15_^110€€_"CALL ZERO(BUFR,42)_^1_$CALL SCRNCL_^1_$CALL READIT(MSG1,32,2,$1902,BUFR,2)_^1_$K=EVALU8(BUFR,2,IDUM)_^115_"IF((K.LT.1).OR.(K.GT.M))GOTO 10_^1_$LSEG=M/8+1_^1_$LEQY=(K-1)/8_^1_$LEQX=K-(LEQY*8)_^1_$IEND=LSEG*(N-1)+1_^1_$A=(LEQX-1)*5+1_^1_$DO 20 I=1,IEND,LSEG_^1_$CALL REEDR(IBUFR,BUFR,5+I+LEQY,IDUM)_^1_$II=(I-1)/LSEG+1_^120_"CALL GETNUM(BUFR,A,TEMP(II))_^1_$ASSIGN 9200 TO IFORM_^1_$I€€XY=3_^1_$DO 30 I=1,N,5_^1_$CALL MOVE(TEMP(I),TEMP1,10)_^1_$LIST2(1)=ILB_^1_$LIST2(2)=I_^1_$LIST2(3)=IRB_^1_$CALL ENCODE(BUFR,IFORM,8,LIST2)_^1_$KK=MIN0(5,N-I+1)*12+4_^1_$CALL READIT(BUFR,KK,IXY,0,IDUM,0)_^130_"IXY=IXY+1_^1_$IF(IFLAG.EQ.1)CALL READIT(MSG2,8,IXY,IXY+$0900,BUFR,1)_^1_$RETURN_^1_]_^19000 FORMAT(18X,I2,8X,I2)_^19200 FORMAT(R1,I2,R1,5(2X,F10.4))_^1_]_^1_$END_]_^1_$SUBR€€OUTINE CHANGE(IBUFR)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION MSG(17),ITEMP(2),MSG1(27),LIST(2)_^1_$INTEGER BUFR(42),BLANKS(40),BUFR2(42),STRING(80),E,EVALU8_^1_$EQUIVALENCE (LIST(1),M),(LIST(2),N)_^1_$DATA E/'E'/,_^1_#*_#MSG/'WHICH CONSTRAINT? [ ], E FOR EXIT'/,_^1_#*_#MSG1/'ENTER: [UNKNOWN # ]/[NEW VALUE], E FOR NEW CONSTRAINT'/_^1_#*_",BLANKS/40*$2020/_^1_$CALL €€SCRNCL_^110_"ITEMP(1)=0_^1_$CALL READIT(MSG,34,2,$1302,ITEMP,2)_^1_$IF(AND(ITEMP(1),$FF00).EQ.AND(E,$FF00))GOTO 900_^1_$K=EVALU8(ITEMP,2,IDUM)_^115_"CALL DISPLA(IBUFR,K,0)_^120_"CALL READIT(MSG1,53,15,16,IDUM,0)_^1_$CALL ZERO(BUFR,42)_^1_$CALL READIT(BLANKS,80,16,16,BUFR,80)_^1_$IF(AND(BUFR(1),$FF00).EQ.AND(E,$FF00))GOTO 10_^1_$KK=EVALU8(BUFR,80,I)_^1_$CALL REFORM(BUFR,STRING)_^1_$€€I=I+1_^1_$CALL EVAL(STRING,I,X)_^1_$CALL GETMN(IBUFR,M,N)_^1_$IF((KK.LT.1).OR.(KK.GT.N))GOTO 20_^1_$ICARD=(M/8+1)*(KK-1)+(K-1)/8+6_^1_$ASSIGN 9200 TO IFORM_^1_$CALL ENCODE(BUFR2,IFORM,1,X)_^1_$IPOS=((K-((K-1)/8)*8)-1)*5+1_^1_$CALL REEDR(IBUFR,BUFR,ICARD,IDUM)_^1_$CALL MOVE(BUFR2,BUFR(IPOS),5)_^1_$CALL UPDREC(IBUFR,BUFR,IDUM)_^1_$GOTO 15_^1_]_^1900_!RETURN_^1_]_^19000 FORMAT(80R1)_€€^19100 FORMAT(18X,I2,8X,I2)_^19200 FORMAT(F10.4)_^1_]_^1_$END_]_^1_$SUBROUTINE REEDR(IBUFR,IRECB,IRECNO,IDUM)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION NUMBER(2),IRECB(40)_^1_$NUMBER(1)=0_^1_$NUMBER(2)=IRECNO_^1_$CALL READR(IBUFR,IRECB,NUMBER,IDUM)_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE GETNUM(BUFR,A,VAL)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER BUFR(1),€€A,TEMP(5)_^1_$CALL MOVE(BUFR(A),TEMP,5)_^1_$ASSIGN 9000 TO IFORM_^1_$CALL DECODE(TEMP,IFORM,1,VAL)_^1_$RETURN_^19000 FORMAT(F10.4)_^1_$END_]_^1_$SUBROUTINE LCHNG(IBUFR)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$REAL LOG(50)_^1_$INTEGER BUFR(42),E,CHR1,MSG1(26),EQ,LT,GT,LIST(3),SYMB,EVALU8_^1_$BYTE(E,IE(15=8)),(CHR1,BUFR(1)(15=8)),(EQ,LIST(1)(15=8)),_^1_#*_"(LT,LIST(2)(15=8)),€€(GT,LIST(3)(15=8)),(SYMB,IZ(7=0))_^1_$DATA LIST,IE/'=','<','>','E'/,_^1_#*_#MSG1/'ENTER [LOGICAL SYMBOL NO.]/[NEW SYMBOL], E FOR EXIT'/_^1_$ISIZE=51_^1_$CALL GETMN(IBUFR,M,N)_^1_$ICARD=(N+1)*((M-1)/8+1)+6+(N-1)/8+1_^1_$K=ICARD_^1_$ASSIGN 9000 TO IFORM_^1_$DO 10 I=1,M,20_^1_$CALL REEDR(IBUFR,BUFR,K,IDUM)_^1_$K=K+1_^1_$L=MIN0(20,M-I+1)_^110_"CALL DECODE(BUFR,IFORM,L,LOG(I))_^120_"CAL€€L SCRNCL_^1_$CALL BLANK(BUFR,42)_^1_$CALL TRANSP(BUFR,M,LOG,1,IDUM)_^1_$WRITE(5,9100)_^1_$MM=(M+1)/2_^1_$DO 30 I=1,MM,3_^1_$K=(I-1)*2+1_^1_$J=MIN0(M-I+1,I+2)_^130_"WRITE(5,9200)K,(BUFR(L),BUFR(L),L=I,J)_^1100_!CALL ZERO(BUFR,40)_^1_$CALL READIT(MSG1,ISIZE,15,16,BUFR,80)_^1_$IF(CHR1.EQ.E)GOTO 900_^1_$I=EVALU8(BUFR,80,J)_^1_$IF((I.LT.1).OR.(I.GT.M))GOTO 40_^1_$J=J+1_^1_$CALL XTRACT(B€€UFR,J,IZ)_^1_$Z=-4.0_^1_$IF(SYMB.EQ.LT)Z=1.0_^1_$IF(SYMB.EQ.EQ)Z=0.0_^1_$IF(SYMB.EQ.GT)Z=-1.0_^1_$IF(Z.EQ.-4.0)GOTO 40_^1_$LOG(I)=Z_^1_$GOTO 20_^140_"ISIZE=-ISIZE_^1_$GOTO 100_^1_]_^1900_!DO 910 I=1,M,20_^1_$J=MIN0(M-I+1,20)_^1_$CALL REEDR(IBUFR,BUFR,ICARD,IDUM)_^1_$ICARD=ICARD+1_^1_$CALL ENCODE(BUFR,IFORM,J,LOG(I))_^1910_!CALL UPDREC(IBUFR,BUFR,IDUM)_^1_$RETURN_^19000 FORMAT(20F4€€.1)_^19100 FORMAT('LOGICAL VECTOR'//)_^19200 FORMAT('[',I2,']',1X,3(1X,A1,1X,R1))_^1_$END_]_^1_$SUBROUTINE PCHNG(IBUFR)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER BUFR(42),E,CHR1,MSG1(21),EVALU8,STRING(80)_^1_$DIMENSION PRICE(50)_^1_$BYTE (E,IE(15=8)),(CHR1,BUFR(1)(15=8))_^1_$DATA IE/'E'/,_^1_#*_#MSG1/'ENTER [PRICE NO.]/[NEW VALUE], E FOR EXIT'/_^1_$ISIZE=41_^1_$CALL €€GETMN(IBUFR,M,N)_^1_$ICARD=(N+1)*((M-1)/8+1)+6_^1_$K=ICARD_^1_$ASSIGN 9100 TO IFORM_^1_$DO 10 I=1,N,8_^1_$CALL REEDR(IBUFR,BUFR,K,IDUM)_^1_$K=K+1_^1_$L=MIN0(8,N-I+1)_^110_"CALL DECODE(BUFR,IFORM,L,PRICE(I))_^120_"CALL SCRNCL_^1_$WRITE(5,9200)_^1_$DO 30 I=1,N,5_^1_$J=MIN0(I+4,N)_^130_"WRITE(5,9300)I,(PRICE(K),K=I,J)_^1100_!CALL ZERO(BUFR,40)_^1_$CALL READIT(MSG1,ISIZE,15,16,BUFR,80)€€_^1_$IF(CHR1.EQ.E)GOTO 900_^1_$I=EVALU8(BUFR,80,J)_^1_$IF((I.LT.1).OR.(I.GT.N))GOTO 40_^1_$J=J+1_^1_$CALL REFORM(BUFR,STRING)_^1_$CALL EVAL(STRING,J,Z)_^1_$PRICE(I)=Z_^1_$GOTO 20_^140_"ISIZE=-ISIZE_^1_$GOTO 100_^1_]_^1900_!DO 910 I=1,N,8_^1_$CALL REEDR(IBUFR,BUFR,ICARD,IDUM)_^1_$ICARD=ICARD+1_^1_$J=MIN0(8,M-I+1)_^1_$CALL ENCODE(BUFR,IFORM,J,PRICE(I))_^1910_!CALL UPDREC(IBUFR,BUFR,I€€DUM)_^1_$RETURN_^19100 FORMAT(8F10.4)_^19200 FORMAT('PRICE VECTOR'//)_^19300 FORMAT('[',I2,']',5(3X,F10.4))_^1_$END_]_^1_$SUBROUTINE RCHNG(IBUFR)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER BUFR(42),E,CHR1,MSG1(24),EVALU8,STRING(80)_^1_$DIMENSION REQ(50)_^1_$BYTE(E,IE(15=8)),(CHR1,BUFR(1)(15=8))_^1_$DATA IE/'E'/,_^1_#*_#MSG1/'ENTER [REQUIREMENT NO.]/[NEW VALUE], E FOR€€ EXIT'/_^1_$ISIZE=47_^1_$CALL GETMN(IBUFR,M,N)_^1_$ICARD=N*((M-1)/8+1)+6_^1_$K=ICARD_^1_$ASSIGN 9100 TO IFORM_^1_$DO 10 I=1,M,8_^1_$CALL REEDR(IBUFR,BUFR,K,IDUM)_^1_$K=K+1_^1_$L=MIN0(8,M-I+1)_^110_"CALL DECODE(BUFR,IFORM,L,REQ(I))_^120_"CALL SCRNCL_^1_$WRITE(5,9200)_^1_$DO 30 I=1,M,5_^1_$J=MIN0(I+4,M)_^130_"WRITE(5,9300)I,(REQ(K),K=I,J)_^1100_!CALL ZERO(BUFR,40)_^1_$CALL READIT(MSG€€1,ISIZE,15,16,BUFR,80)_^1_$IF(CHR1.EQ.E)GOTO 900_^1_$I=EVALU8(BUFR,80,J)_^1_$IF((I.LT.1).OR.(I.GT.M))GOTO 40_^1_$J=J+1_^1_$CALL REFORM(BUFR,STRING)_^1_$CALL EVAL(STRING,J,Z)_^1_$REQ(I)=Z_^1_$GOTO 20_^140_"ISIZE=-ISIZE_^1_$GOTO 100_^1_]_^1900_!DO 910 I=1,M,8_^1_$CALL REEDR(IBUFR,BUFR,ICARD,IDUM)_^1_$ICARD=ICARD+1_^1_$J=MIN0(8,M-I+1)_^1_$CALL ENCODE(BUFR,IFORM,J,REQ(I))_^1910_!CALL U€€PDREC(IBUFR,BUFR,IDUM)_^1_$RETURN_^19100 FORMAT(8F10.4)_^19200 FORMAT('REQUIREMENTS VECTOR'//)_^19300 FORMAT('[',I2,']',5(3X,F10.4))_^1_$END_]_^1_$SUBROUTINE ZCHNG(IBUFR)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION ZVAL(5),MSG1(26)_^1_$INTEGER BUFR(42),TEMP(10),NAME1(2),NAME2(5),CHR1,E,EVALU8,STNG(80)_^1_$BYTE (E,IE(15=8)),(CHR1,BUFR(1)(15=8))_^1_$DATA IE/'E'/,NAME1€€/'TOL'/,_^1_#*_#NAME2/'BV','DJ','PV','ZE','ER'/,_^1_#*_#MSG1/'ENTER [TOLERANCE ID NUMBER]/[NEW VALUE], E FOR EXIT'/_^1_$ISIZE=51_^1_$CALL REEDR(IBUFR,BUFR,5,IDUM)_^1_$ASSIGN 9000 TO IFORM_^1_$J=1_]_^1_$CALL REFORM(BUFR,STNG)_^1_$DO 5 I=1,5_^15_#CALL EVAL(STNG,J,ZVAL(I))_^110_"CALL SCRNCL_^1_$WRITE(5,9100)(I,NAME1,NAME2(I),ZVAL(I),I=1,5)_^1100_!CALL ZERO(BUFR,40)_^1_$CALL READIT(MSG€€1,ISIZE,8,9,BUFR,80)_^1_$IF(CHR1.EQ.E)GOTO 900_^1_$K=EVALU8(BUFR,80,J)_^1_$IF((K.LT.1).OR.(K.GT.5))GOTO 20_^1_$J=J+1_^1_$CALL REFORM(BUFR,STNG)_^1_$CALL EVAL(STNG,J,Z)_^1_$IF(Z.LT.0.0)GOTO 20_^1_$ZVAL(K)=Z_^1_$GOTO 10_^120_"ISIZE=-ISIZE_^1_$GOTO 100_^1_]_^1900_!CALL BLANK(BUFR,42)_^1C_#ADDITIVE CONSTANT TO AVOID ENCODE PROBLEM_^1_$DO 910 I=1,5_^1_$IPZ=ALOG(ZVAL(I))/ALOG(10.0)_^1910€€_!ZVAL(I)=ZVAL(I)+5.0*10.0**(IPZ-4)_^1_$CALL ENCODE(BUFR,IFORM,5,ZVAL)_^1_$CALL UPDREC(IBUFR,BUFR,IDUM)_^1_$RETURN_^19000 FORMAT(5E10.3)_^19100 FORMAT('[',I1,']',3X,A2,A1,A2,3X,E10.3)_^1_$END_]_^1_$SUBROUTINE GETMN(IBUFR,M,N)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER LIST(2),BUFR(42)_^1_$CALL REEDR(IBUFR,BUFR,4,IDUM)_^1_$ASSIGN 9000 TO IFORM_^1_$CALL DECODE(BUFR,IFOR€€M,2,LIST)_^1_$M=LIST(1)_^1_$N=LIST(2)_^1_$RETURN_^19000 FORMAT(18X,I2,8X,I2)_^1_$END_]_^1_$SUBROUTINE XTRACT(BUFR,J,IZ)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER BUFR(1)_^1_$I=(J-1)/2+1_^1_$IF(J.EQ.(J/2)*2)GOTO 100_^1_$MASK=$FF00_^1_$MULT=$100_^110_"IZ=AND(BUFR(I),MASK)/MULT_^1_$RETURN_^1100_!MASK=$00FF_^1_$MULT=1_^1_$GOTO 10_^1_$END_]_^1_$SUBROUTINE REFORM(IN,OUT)_^1€€_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER IN,OUT_^1_$ASSIGN 9000 TO IFORM_^1_$CALL DECODE(IN,IFORM,80,OUT)_^1_$RETURN_^19000 FORMAT(80R1)_^1_$END_]_^1_$SUBROUTINE FCHNG(IBUFR)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$INTEGER IPROPT(3),PRIM(3),DUAL(3),ITEMP(4),BUFR(42),EVALU8_^1_$INTEGER NAME(2,2),LIST(10),MSG1(19)_^1_$EQUIVALENCE (LIST(1),IPROPT(1)),(LIST(4),Z),(L€€IST(6),M),_^1_#*_+(LIST(7),N),(LIST(8),I1),(LIST(9),MVCD),_^1_#*_+(LIST(10),MAXNIT)_^1_$DATA PRIM/'PRIMAL'/,_^1_#*_#DUAL/'DUAL '/_^1_$DATA MSG1/'ENTER [INDEX]/[NEW VALUE], E FOR EXIT'/_^1_$DATA NAME/'MIN','MAX'/_^1_$BYTE(ICHR1,BUFR(1)(15=8))_^1_$ISIZE=39_^1_$CALL REEDR(IBUFR,BUFR,4,IDUM)_^1_$ASSIGN 9000 TO IFORM_^1_$CALL DECODE(BUFR,IFORM,9,LIST)_^110_"CALL SCRNCL_^1_$WRITE(5,9100€€)_^1_$WRITE(5,9200) (IPROPT(I),I=1,3)_^1_$J=1_]_^1_$IF(Z.EQ.-1)J=2_^1_$WRITE(5,9250) (NAME(I,J),I=1,2)_^1_$WRITE(5,9300) MVCD_^1_$WRITE(5,9400) MAXNIT_^115_"CALL ZERO(BUFR,40)_^1_$CALL READIT(MSG1,ISIZE,9,10,BUFR,80)_^1_$IF(ICHR1.EQ.$0045)GOTO 400_^1_$K=EVALU8(BUFR,80,J)_^1_$IF((K.LT.1).OR.(K.GT.4))GOTO 20_^1_$GOTO (100,200,300,300),K_^120_"ISIZE=-ISIZE_^1_$GOTO 15_^1100_!J=J+1€€_^1_$CALL MUSH(BUFR,J,ITEMP,6)_^1_$L=MAX0(4,BUFR(41)-J+1)_^1_$IF(COMPAR(ITEMP,PRIM,6))110,150,110_^1110_!IF(COMPAR(ITEMP,DUAL,L))20,140,20_^1140_!ITEMP(3)=$2020_^1150_!DO 160 L=1,3_^1160_!IPROPT(L)=ITEMP(L)_^1_$GOTO 10_^1200_!J=J+1_^1_$CALL MUSH(BUFR,J,ITEMP,4)_^1_$IF((ITEMP(1).NE.$4D49).OR.(AND(ITEMP(2),$FF00).NE.$4E00))GOTO 210_^1_$Z=1.0_^1_$GOTO 10_^1210_!IF((ITEMP(1).NE.$4D41).€€OR.(AND(ITEMP(2),$FF00).NE.$5800))GOTO 20_^1_$Z=-1.0_^1_$GOTO 10_^1300_!J=J+1_^1_$CALL BLANK(ITEMP,4)_^1_$CALL MUSH(BUFR,J,ITEMP,3)_^1_$L=EVALU8(ITEMP,3,IDUM)_^1_$IF(K.EQ.4)GOTO 350_^1_$CALL GETMN(IBUFR,M,N)_^1_$IF((L.LT.0).OR.(L.GT.M-1))GOTO 20_^1_$MVCD=L_^1_$GOTO 10_^1350_!MAXNIT=L_^1_$GOTO 10_^1400_!CALL BLANK(BUFR,42)_^1_$CALL ENCODE(BUFR,IFORM,9,LIST)_^1_$CALL UPDREC(IBUFR,BUF€€R,IDUM)_^1_$RETURN_^19000 FORMAT(3A2,F4.1,5I10)_^19200 FORMAT('[1', '] IPROPT ',3A2)_^19250 FORMAT('[2', '] TREND ',2A2)_^19300 FORMAT('[3', '] MVCD_!',I3)_^19400 FORMAT('[4', '] MAXNIT ',I3)_^19100 FORMAT('FIRST CARD PARAMETERS'//)_^1_$END_]_^1_$SUBROUTINE MUSH(IN,ISTART,IOUT,N)_^1_#*_>/COPYRIGHT CONTROL DATA CORP., 1978_^1_$DIMENSION IN(1),ITMP(80),IOUT(1)_^1_$ASSI€ŒGN 9000 TO IFORM_^1_$CALL DECODE(IN,IFORM,80,ITMP)_^1_$CALL ENCODE(IOUT,IFORM,N,ITMP(ISTART))_^1_$RETURN_^19000 FORMAT(80R1)_^1_$END_]_^__ Œ END/ P30 CALL READIT(MSG2,24,$0003,$1403,ITREND,3) 00099PP IF((ITREND(1).NE.IMIN(1)).OR.(L2.NE.LMIN))GOTO 35 00100PP TREND=1.0 00101PP GOTO 40 00102PP35 IF((ITREND(1).NE.IMAX(1)).OR.(L2.NE.LMAX))GOTO 30 00103PP TREND=-1.0 00104PPC 00105PPC GET NUMBER OF CONSTRAINTS (EQUATIONS) 00106PPC 00107PP40 ITEMP(1)=0 00108PP CALL READIT(MSG3,30,$0005,$1705,ITEMP,2) 00109PP M=EVALU8(ITEMP,2,IDUM) 00110PP IF((M.LT.1).OR.(M.GT.50))GOTO 40 00111PPC 00112PPC GET NUMBER OF UNKNOWNS 00113PPC 00114PP50 ITEMP(1)=0 00115PP CALL READIT(MSG4,28,$0007,$1507,ITEMP,2) 00116PP N=EVALU8(ITEMP,2,IDUM) 00117PP IF((N.LT.1).OR.(N.GT.50))GOTO 50 00118PP MAX=2500 00119PP+ MAXIMUM NUMBER OF VECTORS ON DISK 00120PP MVCD=N-1 00121PPC 00122PPC GET MAX NUMBER OF ITERATIONS 00123PPC 00124PP MAXNIT=30 00125PP+ DEFAULT VALUE 00126PP60 CALL READIT(MSG5,60,$0009,$3409,IANS,1) 00127PP IF(AND(IANS,$FF00).NE.AND(YES,$FF00))GOTO 70 00128PP65 ITREND(1)=0 00129PP ITREND(2)=0 00130PP CALL READIT(MSG6,14,$000B,$0A0B,ITREND,3) 00131PP MAXNIT=EVALU8(ITREND,3,IDUM) 00132PP IF((MAXNIT.LT.1).OR.(MAXNIT.GT.999))GOTO 65 00133PPC 00134PPC GET ZERO TOLERANCE 00135PPC 00136PP70 CALL READIT(MSG7,47,$000D,$160D,TEMP,10) 00137PP ASSIGN 9910 TO IFORM 00138PP CALL DECODE(TEMP,IFORM,10,LTEMP) 00139PP J=1 00140PP IPTOL=ALOG(TOL)/ALOG(10.0) 00141PP TOL=TOL+1.1**(IPTOL-4) 00142PP CALL EVAL(LTEMP,J,TOL) 00143PP IF(TOL.LT.0.0)GOTO 70 00144PP TOL1=TOL 00145PP TOL2=TOL 00146PP TOL3=TOL 00147PP TOL4=TOL 00148PP TOL5=TOL 00149PPC GET MAX NUMBER OF VECTORS THAT CAN BE DROPPED 00150PP II=M-M/10*10 00151PP JJ=M/10*10 00152PP MSG9(29)=(JJ+$30)*$100+(II+$30) 00153PP80 ITEMP(1)=0 00154PP CALL READIT(MSG9,58,$000F,$330F,ITEMP,2) 00155PP MVCD=EVALU8(ITEMP,2,IDUM) 00156PP IF((MVCD.LT.1).OR.(MVCD.GT.M-1))GOTO 80 00157PPC 00158PPC MOVE FIRST TWO DATA CARDS TO FILE 00159PPC 00160PP ASSIGN 9200 TO IFORM 00161PP CALL MOVEC(IBUFR,IFORM,LIST,9) 00162PP ASSIGN 9300 TO IFORM 00163PP CALL MOVEC(IBUFR,IFORM,LIST1,5) 00164PP. 00165PPC 00166PPC READ MATRIX 00167PPC 00168PP CALL SCRNCL 00169PP+ CLEAR SCREEN 00170PP CALL READMT(M,N,XMAT,IBUFR) 00171PPC 00172PPC READ RIGHT HAND SIDE 00173PPC 00174PP CALL SCRNCL 00175PP WRITE(5,9700) 00176PP J=0 00177PP IXY=$0005 00178PP ASSIGN 9600 TO IFORM 00179PP100 CALL BLANK(LTEMP,40) 00180PP CALL READIT(BLANKS,80,IXY,IXY,LTEMP,80) 00181PP CALL PARSE(XMAT( 1,1),LTEMP,J) 00182PP IF(J.EQ.M)GOTO 120 00183PP K=J-M 00184PP IF(K.GT.0)GOTO 110 00185PP IXY=IXY+$0001 00186PP GOTO 100 00187PP110 WRITE(5,9500)K 00188PP120 DO 130 K=1,M,8 00189PP KK=MIN0(8,M-K+1) 00190PP130 CALL MOVEC(IBUFR,IFORM,XMAT(K,1 ),KK) 00191PPC 00192PPC READ PRICE EQUATION 00193PPC 00194PP CALL SCRNCL 00195PP WRITE(5,9400) 00196PP IXY=$0005 00197PP J=0 00198PP200 CALL BLANK(LTEMP,40) 00199PP CALL READIT(BLANKS,80,IXY,IXY,LTEMP,80) 00200PP CALL PARSE(XMAT( 1,1),LTEMP,J) 00201PP IF(J.EQ.N)GOTO 220 00202PP K=J-N 00203PP IF(K.GT.0)GOTO 210 00204PP IXY=IXY+$0001 00205PP GOTO 200 00206PP210 WRITE(5,9500)K 00207PP220 DO 230 K=1,N,8 00208PP KK=MIN0(8,N-K+1) 00209PP230 CALL MOVEC(IBUFR,IFORM,XMAT(K,1 ),KK) 00210PPC 00211PPC READ LOGICAL OPERATORS 00212PPC 00213PP CALL SCRNCL 00214PP WRITE(5,9800) 00215PP IXY=$0005 00216PP J=0 00217PP ASSIGN 9900 TO IFORM 00218PP300 CALL BLANK(LTEMP,40) 00219PP CALL READIT(BLANKS,80,IXY,IXY,LTEMP,80) 00220PP CALL TRANSP(LTEMP,M,XTEMP(J+1),0,J) 00221PP IF(J.EQ.M)GOTO 320 00222PP K=J-M 00223PP IF(K.GT.0)GOTO 310 00224PP IXY=IXY+$0001 00225PP GOTO 300 00226PP310 WRITE(5,9500)K 00227PP320 DO 330 K=1,M,20 00228PP KK=MIN0(20,M-K+1) 00229PP330 CALL MOVEC(IBUFR,IFORM,XTEMP(K),KK) 00230PPC 00231PPC PUT LAST LINE OF JCL IN FILE 00232PPC 00233PP CALL PUTS(IBUFR,JCL4,1,IDUM) 00234PP GOTO 8000 00235PP+ EXIT 00236PP. 00237PPC 00238PPC THE EDITOR SECTION 00239PPC 00240PP1000 CALL MNUPRO(IBLOCK,IVAL) 00241PP K=0 00242PP IF(ICODE.EQ.E)GOTO 8000 00243PP IF(ICODE.EQ.D)CALL DISPLA(IBUFR,K,1) 00244PP IF(ICODE.EQ.C)CALL CHANGE(IBUFR) 00245PP IF(ICODE.EQ.Z)CALL ZCHNG(IBUFR) 00246PP IF(ICODE.EQ.P)CALL PCHNG(IBUFR) 00247PP IF(ICODE.EQ.R)CALL RCHNG(IBUFR) 00248PP IF(ICODE.EQ.L)CALL LCHNG(IBUFR) 00249PP GOTO 1000 00250PPC 00251PPC EXIT 00252PPC 00253PP8000 CALL CLOSFL(IBUFR,IDUM) 00254PP CALL PGMOUT 00255PPC 00256PPC FORMATS 00257PPC 00258PP9000 FORMAT(A2) 00259PP9100 FORMAT(A2,'LP17 LINEAR PROGRAMMING PACKAGE PREPROCESSOR') 00260PP9200 FORMAT(3A2,F4.1,5I10) 00261PP9300 FORMAT(5(E10.3)) 00262PP9400 FORMAT('ENTER THE PRICE COEFFICIENTS SEPERATED BY SLASHES') 00263PP9500 FORMAT(I2,' EXTRA VALUES IGNORED') 00264PP9600 FORMAT(8F10.4) 00265PP9700 FORMAT(/'ENTER RIGHT HAND SIDE COEFFICIENTS, SEPERATE BY SLASHES') 00266PP9800 FORMAT(//'ENTER ALL THE LOGICAL OPERATORS (>=<) WITH NO SEPARATORS 00267PP * BETWEEN THEM') 00268PP9900 FORMAT(20F4.1) 00269PP9910 FORMAT(80R1) 00270PP9920 FORMAT(4(5X,Z4)) 00271PP END 00272PP INTEGER FUNCTION EVALU8(STRING,N,I) 00273PP INTEGER STRING(1),ITEMP(80) 00274PP NUM=0 00275PP CALL ZERO(ITEMP,80) 00276PP ASSIGN 100 TO IFORM 00277PP CALL DECODE(STRING,IFORM,N,ITEMP) 00278PP DO 20 I=1,N 00279PP IF(ITEMP(I).NE.$20)GOTO 15 00280PP IF(NUM.NE.0)GOTO 50 00281PP GOTO 20 00282PP15 IDIG=ITEMP(I)-$30 00283PP IF((IDIG.LT.0).OR.(IDIG.GT.9))GOTO 50 00284PP NUM=NUM*10+IDIG 00285PP20 CONTINUE 00286PP50 EVALU8=NUM 00287PP RETURN 00288PP100 FORMAT(80R1) 00289PP END 00290PP SUBROUTINE READEQ(IBUFR,IXY,I) 00291PP DIMENSION IBUFR(41),MSG(20) 00292PP DATA IPOSN/$1B31/ 00293PP DATA MSG/'ENTER COEFFICIENTS SEPARATED BY SLASHES'/ 00294PP IXY1=IXY+$0001 00295PP10 WRITE(5,9000)I 00296PP DO 20 J=1,40 00297PP20 IBUFR(J)=$2020 00298PP CALL WTREAD(5,IXY,MSG,39,IXY1,IBUFR,80,ITC) 00299PP IF(ITC.NE.$ 4)RETURN 00300PP NXY=IXY-$0001 00301PP WRITE(5,9100)IPOSN,NXY 00302PP GOTO 10 00303PP9000 FORMAT('EQUATION',I3) 00304PP9100 FORMAT(2A2) 00305PP END 00306PP SUBROUTINE OPEN(IBUFR,IBLOCK,NEW) 00307PP DIMENSION IBUFR(24),IBLOCK(15) 00308PP BYTE(NOFILE,ISTAT(1=1)),(IBUSY,ISTAT(0=0)) 00309PP10 CALL OPENFL(IBUFR,IBLOCK,ISTAT) 00310PP NEW=0 00311PP IF(ISTAT.EQ.0)GOTO 900 00312PP IF(NOFILE.EQ.1)NEW=1 00313PP IF(IBUSY.NE.1)GOTO 900 00314PP DO 100 I=1,500 00315PP100 K=I 00316PP GOTO 10 00317PP900 RETURN 00318PP END 00319PP SUBROUTINE PARSE(VECTOR,ICHAR,IPOS) 00320PP DIMENSION VECTOR(50),ICHAR(41),IBUF(80),IT(2) 00321PP DATA I1,I2/0,1/ 00322PP EQUIVALENCE(X,IT(1)) 00323PP ASSIGN 9000 TO IFORM 00324PP I=1 00325PP CALL DECODE(ICHAR,IFORM,80,IBUF) 00326PP10 CALL EVAL(IBUF,I,X) 00327PP IF((IT(1).EQ.I1).AND.(IT(2).EQ.I2))GOTO 100 00328PP IPOS=IPOS+1 00329PP VECTOR(IPOS)=X 00330PP GOTO 10 00331PP100 RETURN 00332PP9000 FORMAT(80R1) 00333PP END 00334PP SUBROUTINE EVAL(STRING,IPOS,RETN) 00335PP INTEGER STRING(80),TERM, E,PT,PL,MI,EFLAG,IT(2) 00336PP EQUIVALENCE (TEMP,IT(1)) 00337PP DATA TERM,E,PT,PL,MI,IT /1R/,1RE,1R.,1R+,1R-,0,1/ 00338PP IFLAG=0 00339PP RETN=0 00340PP EXP=0 00341PP DFLAG=0 00342PP NFLAG=1 00343PP EFLAG=0 00344PP NEFLAG=1 00345PP10 IF(IPOS.GT.80)GOTO 900 00346PP IF(STRING(IPOS).EQ.TERM)GOTO 900 00347PP IF(STRING(IPOS).EQ.$20)GOTO 600 00348PP IF(STRING(IPOS).EQ.PT)GOTO 200 00349PP IF(STRING(IPOS).EQ.PL)GOTO 300 00350PP IF(STRING(IPOS).EQ.MI)GOTO 400 00351PP IF(STRING(IPOS).GE.$30)GOTO 100 00352PP GOTO 900 00353PPC 00354PP100 IF(STRING(IPOS).GT.$39)GOTO 500 00355PP IF(EFLAG.EQ.1)GOTO 150 00356PP DFLAG=DFLAG*10.0 00357PP RETN=RETN*10.0+(STRING(IPOS)-$30) 00358PP IPOS=IPOS+1 00359PP IFLAG=1 00360PP GOTO 10 00361PPC 00362PP150 EXP=EXP*10+(STRING(IPOS)-$30) 00363PP IPOS=IPOS+1 00364PP GOTO 10 00365PPC 00366PP200 IF(DFLAG.EQ.1)GOTO 900 00367PP DFLAG=1 00368PP IPOS=IPOS+1 00369PP IFLAG=1 00370PP GOTO 10 00371PPC 00372PP300 IF(RETN.NE.0)GOTO 350 00373PP IPOS=IPOS+1 00374PP GOTO 10 00375PP350 IF(EXP.NE.0)GOTO 950 00376PP IPOS=IPOS+1 00377PP GOTO 10 00378PPC 00379PP400 IF(RETN.NE.0)GOTO 450 00380PP NFLAG=-1 00381PP IPOS=IPOS+1 00382PP IFLAG=1 00383PP GOTO 10 00384PP450 IF(EXP.NE.0)GOTO 950 00385PP NEFLAG=-1 00386PP IPOS=IPOS+1 00387PP IFLAG=1 00388PP GOTO 10 00389PPC 00390PP500 IF(STRING(IPOS).NE.E)GOTO 950 00391PP EFLAG=1 00392PP IPOS=IPOS+1 00393PP GOTO 10 00394PPC 00395PP600 IF((RETN.NE.0.0).OR.(EXP.NE.0.0))GOTO 900 00396PP IPOS=IPOS+1 00397PP GOTO 10 00398PPC 00399PP800 RETN=TEMP 00400PP GOTO 990 00401PP900 IF((IFLAG.EQ.0).AND.(IPOS.GT.80))GOTO 800 00402PP IPOS=IPOS+1 00403PP IF(RETN.EQ.0)GOTO 990 00404PP950 RETN=(RETN*NFLAG)*10.0**(EXP*EFLAG*NEFLAG) 00405PP IF(DFLAG.NE.0)RETN=RETN/DFLAG 00406PP990 RETURN 00407PP END 00408PP SUBROUTINE TRANSP(CHARS,M,NUMS,FLG,J) 00409PP INTEGER CHARS(40),TCHAR(80),FLG,LT,GT,EQ 00410PP REAL NUMS(50) 00411PP DATA LT,GT,EQ/1R<,1R>,1R=/ 00412PP IF(FLG.EQ.1)GOTO 500 00413PP ASSIGN 9000 TO IFORM 00414PP CALL DECODE(CHARS,IFORM,M,TCHAR) 00415PP K=M-J 00416PP DO 100 I=1,K 00417PP IF((TCHAR(I).NE.EQ).AND.(TCHAR(I).NE.LT).AND.(TCHAR(I).NE.GT)) 00418PP * GOTO 100 00419PP J=J+1 00420PP IF(TCHAR(I).EQ.LT)NUMS(I)=1.0 00421PP IF(TCHAR(I).EQ.EQ)NUMS(I)=0.0 00422PP IF(TCHAR(I).EQ.GT)NUMS(I)=-1.0 00423PP100 CONTINUE 00424PP GOTO 900 00425PPC 00426PP500 ASSIGN 9000 TO IFORM 00427PP DO 510 I=1,M 00428PP IF(NUMS(I))501,502,503 00429PP501 TCHAR(I)=GT 00430PP GOTO 510 00431PP502 TCHAR(I)=EQ 00432PP GOTO 510 00433PP503 TCHAR(I)=LT 00434PP510 CONTINUE 00435PP CALL ENCODE(CHARS,IFORM,M,TCHAR) 00436PP900 RETURN 00437PP9000 FORMAT(80R1) 00438PP END 00439PP FUNCTION COMPAR(V1,V2,N) 00440PP INTEGER V1(1),V2(1) 00441PP COMPAR=0 00442PP N1=IFIX(FLOAT(N)/2.0+.90) 00443PP DO 10 I=1,N1 00444PP IF(V1(I).EQ.V2(I))GOTO 10 00445PP COMPAR=-1 00446PP10 CONTINUE 00447PP RETURN 00448PP END 00449PP SUBROUTINE ERROR(IBLOK,ISTAT) 00450PP DIMENSION IBLOK (15) 00451PP WRITE(5,9000)(IBLOK(I),I=1,4),ISTAT 00452PP CALL PGMOUT 00453PP9000 FORMAT('ERROR TRYING TO OPEN '4A2,' STATUS $',Z4) 00454PP END 00455PP INTEGER FUNCTION MIN0(I,J) 00456PP MIN0=I 00457PP IF(I.GT.J)MIN0=J 00458PP RETURN 00459PP END 00460PP SUBROUTINE SCRNCL 00461PP DIMENSION BUFR(2) 00462PP CALL READIT($2018,2,0,0,BUFR,0) 00463PP RETURN 00464PP END 00465PP SUBROUTINE READIT(MSG,N,IPOS1,IPOS2,IBUF,N2) 00466PP10 CALL WTREAD(5,IPOS1,MSG,N,IPOS2,IBUF,N2,ITC) 00467PP IF(ITC.EQ.4)GOTO 10 00468PP+ IF A RUBOUT WAS THE TERMINATOR 00469PPC READ IT AGAIN 00470PP IF((IBUF(N2+1).EQ.0).AND.(N2.NE.0))GOTO 10 00471PP+ NO CHARACTERS WERE ENTERED SO 00472PPC DONT RETURN 00473PP RETURN 00474PP END 00475PP SUBROUTINE ZERO(IARRAY,N) 00476PP DIMENSION IARRAY(1) 00477PP DO 10 I=1,N 00478PP10 IARRAY(I)=0 00479PP RETURN 00480PP END 00481PP SUBROUTINE MOVE(IFROM,ITO,N) 00482PP DIMENSION IFROM(1),ITO(1) 00483PP DO 10 I=1,N 00484PP10 ITO(I)=IFROM(I) 00485PP RETURN 00486PP END 00487PP FUNCTION MAX0(N1,N2) 00488PP MAX0=N1 00489PP IF(N1.LT.N2)MAX0=N2 00490PP RETURN 00491PP END 00492PP SUBROUTINE MOVEC(IBUFR,IFORM,ISTR,NUM) 00493PP INTEGER BUFR(42) 00494PP CALL BLANK(BUFR,42) 00495PP CALL ENCODE(BUFR,IFORM,NUM,ISTR) 00496PP CALL PUTS(IBUFR,BUFR,1,IDUM) 00497PP RETURN 00498PP END 00499PP SUBROUTINE READMT(M,N,XMAT,IBUFR) 00500PP DIMENSION XMAT(51,50),XTEMP(8),LTEMP(42) 00501PP IXY=$0002 00502PP INC=$0003 00503PP DO 10 I=1,50 00504PP10 CALL ZERO(XMAT(1,I),102) 00505PP DO 100 I=1,M 00506PP J=0 00507PP20 CALL ZERO(LTEMP,42) 00508PP CALL READEQ(LTEMP,IXY,I) 00509PP IXY=IXY+INC 00510PP CALL PARSE(XMAT(1,I),LTEMP,J) 00511PP IF(J.EQ.N)GOTO 40 00512PP IF(J.GT.N)GOTO 30 00513PP IF(IXY.LT.$0014)GOTO 20 00514PP CALL SCRNCL 00515PP IXY=$0002 00516PP GOTO 20 00517PP30 K=J-N 00518PP WRITE(5,9500)K 00519PP IXY=IXY+$0002 00520PP40 IF(IXY.LT.$0014)GOTO 100 00521PP CALL SCRNCL 00522PP IXY=$0002 00523PP100 CONTINUE 00524PP ASSIGN 9600 TO IFORM 00525PP DO 200 I=1,N 00526PP CALL ZERO(XTEMP,16) 00527PP DO 200 K=1,M,8 00528PP DO 150 J=1,8 00529PP KK=K+J-1 00530PP150 XTEMP(J)=XMAT(I,KK) 00531PP KK=MIN0(8,M-K+1) 00532PP200 CALL MOVEC(IBUFR,IFORM,XTEMP,KK) 00533PP RETURN 00534PP 00535PP9500 FORMAT(I2,' EXTRA VALUES IGNORED') 00536PP9600 FORMAT(8F10.4) 00537PP END 00538PP SUBROUTINE BLANK(IARRAY,N) 00539PP DIMENSION IARRAY(1) 00540PP DO 10 I=1,N 00541PP10 IARRAY(I)=$2020 00542PP RETURN 00543PP END 00544PP SUBROUTINE MNUPRO(IBLOCK,IVAL) 00545PP DIMENSION IVAL(2),MSG1(3),MSG2(3),MSG3(11),MSG4(11),MSG5(8), 00546PP * IANS(2),MSG6(13),MSG7(12),MSG8(15),MSG9(13),MSG10(16) 00547PP DATA MSG1/'FILE:'/, 00548PP * MSG2/'ENTER:'/, 00549PP * MSG3/'D - DISPLAY CONSTRAINT'/, 00550PP * MSG4/'C - CHANGE CONSTRAINT'/, 00551PP * MSG5/'E - EXIT LPPREP'/ 00552PP DATA MSG6/'Z - CHANGE ZERO TOLERANCES'/, 00553PP * MSG7/'P - CHANGE PRICE VECTOR'/, 00554PP * MSG8/'R - CHANGE REQUIREMENTS VECTOR'/, 00555PP * MSG9/'L - CHANGE LOGICAL VECTOR'/, 00556PP DATA IANS/'[ ]'/ 00557PP CALL SCRNCL 00558PP CALL READIT(MSG1,5,0,0,IDUM,0) 00559PP CALL READIT(IBLOCK,8,$0600,0,IDUM,0) 00560PP CALL READIT(MSG2,6,3,0,IDUM,0) 00561PP CALL READIT(MSG3,22,5,0,IDUM,0) 00562PP CALL READIT(MSG4,21,6,0,IDUM,0) 00563PP CALL READIT(MSG6,26,7,0,IDUM,0) 00564PP CALL READIT(MSG7,23,8,0,IDUM,0) 00565PP CALL READIT(MSG8,30,9,0,IDUM,0) 00566PP CALL READIT(MSG9,25,10,0,IDUM,0) 00567PP CALL READIT(MSG5,15,12,0,IDUM,0) 00568PP CALL READIT(IANS,3,14,$010D,IVAL,1) 00569PP RETURN 00570PP END 00571PP SUBROUTINE DISPLA(IBUFR,K,IFLAG) 00572PP INTEGER BUFR(42),LIST(2),NUM(2),A,FLYFRM(40),EVALU8 00573PP DIMENSION MSG1(16),MSG2(4),TEMP(50),TEMP1(5),LIST2(13) 00574PP EQUIVALENCE (MSG1(16),M1),(LIST(1),M),(LIST(2),N),(LIST2(4),TEMP1) 00575PP DATA MSG1/'ENTER CONSTRAINT NUMBER [ ] < '/, 00576PP * MSG2/'READY???'/,ILB/$7B/,IRB/$7D/ 00577PP CALL GETMN(IBUFR,M,N) 00578PP M1=M+$30 00579PP IF(M.GT.9)M1=M1+$3000 00580PP IF(K.NE.0)GOTO 15 00581PP10 CALL ZERO(BUFR,42) 00582PP CALL SCRNCL 00583PP CALL READIT(MSG1,32,2,$1902,BUFR,2) 00584PP K=EVALU8(BUFR,2,IDUM) 00585PP15 IF((K.LT.1).OR.(K.GT.M))GOTO 10 00586PP LSEG=M/8+1 00587PP LEQY=(K-1)/8 00588PP LEQX=K-(LEQY*8) 00589PP IEND=LSEG*(N-1)+1 00590PP A=(LEQX-1)*5+1 00591PP DO 20 I=1,IEND,LSEG 00592PP CALL REEDR(IBUFR,BUFR,5+I+LEQY,IDUM) 00593PP II=(I-1)/LSEG+1 00594PP20 CALL GETNUM(BUFR,A,TEMP(II)) 00595PP ASSIGN 9200 TO IFORM 00596PP IXY=3 00597PP DO 30 I=1,N,5 00598PP CALL MOVE(TEMP(I),TEMP1,10) 00599PP LIST2(1)=ILB 00600PP LIST2(2)=I 00601PP LIST2(3)=IRB 00602PP CALL ENCODE(BUFR,IFORM,8,LIST2) 00603PP KK=MIN0(5,N-I+1)*12+4 00604PP CALL READIT(BUFR,KK,IXY,0,IDUM,0) 00605PP30 IXY=IXY+1 00606PP IF(IFLAG.EQ.1)CALL READIT(MSG2,8,IXY,IXY+$0900,BUFR,1) 00607PP RETURN 00608PP 00609PP9000 FORMAT(18X,I2,8X,I2) 00610PP9200 FORMAT(R1,I2,R1,5(2X,F10.4)) 00611PP 00612PP END 00613PP SUBROUTINE CHANGE(IBUFR) 00614PP DIMENSION MSG(17),ITEMP(2),MSG1(27),LIST(2) 00615PP INTEGER BUFR(42),BLANKS(40),BUFR2(42),STRING(80),E,EVALU8 00616PP EQUIVALENCE (LIST(1),M),(LIST(2),N) 00617PP DATA E/'E'/, 00618PP * MSG/'WHICH CONSTRAINT? [ ], E FOR EXIT'/, 00619PP * MSG1/'ENTER: [UNKNOWN # ]/[NEW VALUE], E FOR NEW CONSTRAINT'/ 00620PP * ,BLANKS/40*$2020/ 00621PP CALL SCRNCL 00622PP10 ITEMP(1)=0 00623PP CALL READIT(MSG,34,2,$1302,ITEMP,2) 00624PP IF(AND(ITEMP(1),$FF00).EQ.AND(E,$FF00))GOTO 900 00625PP K=EVALU8(ITEMP,2,IDUM) 00626PP15 CALL DISPLA(IBUFR,K,0) 00627PP20 CALL READIT(MSG1,53,15,16,IDUM,0) 00628PP CALL ZERO(BUFR,42) 00629PP CALL READIT(BLANKS,80,16,16,BUFR,80) 00630PP IF(AND(BUFR(1),$FF00).EQ.AND(E,$FF00))GOTO 10 00631PP KK=EVALU8(BUFR,80,I) 00632PP CALL REFORM(BUFR,STRING) 00633PP I=I+1 00634PP CALL EVAL(STRING,I,X) 00635PP CALL GETMN(IBUFR,M,N) 00636PP IF((KK.LT.1).OR.(KK.GT.N))GOTO 20 00637PP ICARD=(M/8+1)*(KK-1)+(K-1)/8+6 00638PP ASSIGN 9200 TO IFORM 00639PP CALL ENCODE(BUFR2,IFORM,1,X) 00640PP IPOS=((K-((K-1)/8)*8)-1)*5+1 00641PP CALL REEDR(IBUFR,BUFR,ICARD,IDUM) 00642PP CALL MOVE(BUFR2,BUFR(IPOS),5) 00643PP CALL UPDREC(IBUFR,BUFR,IDUM) 00644PP GOTO 15 00645PP 00646PP900 RETURN 00647PP 00648PP9000 FORMAT(80R1) 00649PP9100 FORMAT(18X,I2,8X,I2) 00650PP9200 FORMAT(F10.4) 00651PP 00652PP END 00653PP SUBROUTINE REEDR(IBUFR,IRECB,IRECNO,IDUM) 00654PP DIMENSION NUMBER(2),IRECB(40) 00655PP NUMBER(1)=0 00656PP NUMBER(2)=IRECNO 00657PP CALL READR(IBUFR,IRECB,NUMBER,IDUM) 00658PP RETURN 00659PP END 00660PP SUBROUTINE GETNUM(BUFR,A,VAL) 00661PP INTEGER BUFR(1),A,TEMP(5) 00662PP CALL MOVE(BUFR(A),TEMP,5) 00663PP ASSIGN 9000 TO IFORM 00664PP CALL DECODE(TEMP,IFORM,1,VAL) 00665PP RETURN 00666PP9000 FORMAT(F10.4) 00667PP END 00668PP SUBROUTINE LCHNG(IBUFR) 00669PP REAL LOG(50) 00670PP INTEGER BUFR(42),E,CHR1,MSG1(26),EQ,LT,GT,LIST(3),SYMB,EVALU8 00671PP BYTE(E,IE(15=8)),(CHR1,BUFR(1)(15=8)),(EQ,LIST(1)(15=8)), 00672PP * (LT,LIST(2)(15=8)),(GT,LIST(3)(15=8)),(SYMB,IZ(7=0)) 00673PP DATA LIST,IE/'=','<','>','E'/, 00674PP * MSG1/'ENTER [LOGICAL SYMBOL NO.]/[NEW SYMBOL], E FOR EXIT'/ 00675PP CALL GETMN(IBUFR,M,N) 00676PP ICARD=(N+1)*((M-1)/8+1)+6+(N-1)/8+1 00677PP K=ICARD 00678PP ASSIGN 9000 TO IFORM 00679PP DO 10 I=1,M,20 00680PP CALL REEDR(IBUFR,BUFR,K,IDUM) 00681PP K=K+1 00682PP L=MIN0(20,M-I+1) 00683PP10 CALL DECODE(BUFR,IFORM,L,LOG(I)) 00684PP20 CALL SCRNCL 00685PP CALL BLANK(BUFR,42) 00686PP CALL TRANSP(BUFR,M,LOG,1,IDUM) 00687PP WRITE(5,9100) 00688PP MM=M/2 00689PP DO 30 I=1,MM,3 00690PP K=(I-1)*2+1 00691PP J=MIN0(M-I+1,I+2) 00692PP30 WRITE(5,9200)K,(BUFR(L),L=I,J) 00693PP40 CALL ZERO(BUFR,42) 00694PP CALL READIT(MSG1,51,15,16,BUFR,80) 00695PP IF(CHR1.EQ.E)GOTO 900 00696PP I=EVALU8(BUFR,80,J) 00697PP IF((I.LT.1).OR.(I.GT.M))GOTO 40 00698PP J=J+1 00699PP CALL XTRACT(BUFR,J,IZ) 00700PP Z=-4.0 00701PP IF(SYMB.EQ.LT)Z=1.0 00702PP IF(SYMB.EQ.EQ)Z=0.0 00703PP IF(SYMB.EQ.GT)Z=-1.0 00704PP IF(Z.EQ.-4.0)GOTO 40 00705PP LOG(I)=Z 00706PP GOTO 20 00707PP 00708PP900 DO 910 I=1,M,20 00709PP J=MIN0(M-I+1,20) 00710PP CALL REEDR(IBUFR,BUFR,ICARD,IDUM) 00711PP ICARD=ICARD+1 00712PP CALL ENCODE(BUFR,IFORM,J,LOG(I)) 00713PP910 CALL UPDREC(IBUFR,BUFR,IDUM) 00714PP RETURN 00715PP9000 FORMAT(20F4.1) 00716PP9100 FORMAT('LOGICAL VECTOR'//) 00717PP9200 FORMAT('[',I2,']',3(2XA2)) 00718PP END 00719PP SUBROUTINE PCHNG(IBUFR) 00720PP INTEGER BUFR(42),E,CHR1,MSG1(21),EVALU8,STRING(80) 00721PP DIMENSION PRICE(50) 00722PP BYTE (E,IE(15=8)),(CHR1,BUFR(1)(15=8)) 00723PP DATA IE/'E'/, 00724PP * MSG1/'ENTER [PRICE NO.]/[NEW VALUE], E FOR EXIT'/ 00725PP CALL GETMN(IBUFR,M,N) 00726PP ICARD=(N+1)*((M-1)/8+1)+6 00727PP K=ICARD 00728PP ASSIGN 9100 TO IFORM 00729PP DO 10 I=1,N,8 00730PP CALL REEDR(IBUFR,BUFR,K,IDUM) 00731PP K=K+1 00732PP L=MIN0(8,N-I+1) 00733PP10 CALL DECODE(BUFR,IFORM,L,PRICE(I)) 00734PP20 CALL SCRNCL 00735PP WRITE(5,9200) 00736PP DO 30 I=1,N,5 00737PP J=MIN0(I+4,N) 00738PP30 WRITE(5,9300)I,(PRICE(K),K=I,J) 00739PP40 CALL ZERO(BUFR,42) 00740PP CALL READIT(MSG1,41,15,16,BUFR,80) 00741PP IF(CHR1.EQ.E)GOTO 900 00742PP I=EVALU8(BUFR,80,J) 00743PP IF((I.LT.1).OR.(I.GT.N))GOTO 40 00744PP J=J+1 00745PP CALL REFORM(BUFR,STRING) 00746PP CALL EVAL(STRING,J,Z) 00747PP PRICE(I)=Z 00748PP GOTO 20 00749PP 00750PP900 DO 910 I=1,N,8 00751PP CALL REEDR(IBUFR,BUFR,ICARD,IDUM) 00752PP ICARD=ICARD+1 00753PP J=MIN0(8,M-I+1) 00754PP CALL ENCODE(BUFR,IFORM,J,PRICE(I)) 00755PP910 CALL UPDREC(IBUFR,BUFR,IDUM) 00756PP RETURN 00757PP9100 FORMAT(8F10.4) 00758PP9200 FORMAT('PRICE VECTOR'//) 00759PP9300 FORMAT('[',I2,']',5(3X,F10.4)) 00760PP END 00761PP SUBROUTINE RCHNG(IBUFR) 00762PP INTEGER BUFR(42),E,CHR1,MSG1(24),EVALU8,STRING(80) 00763PP DIMENSION REQ(50) 00764PP BYTE(E,IE(15=8)),(CHR1,BUFR(1)(15=8)) 00765PP DATA IE/'E'/, 00766PP * MSG1/'ENTER [REQUIREMENT NO.]/[NEW VALUE], E FOR EXIT'/ 00767PP CALL GETMN(IBUFR,M,N) 00768PP ICARD=N*((M-1)/8+1)+6 00769PP K=ICARD 00770PP ASSIGN 9100 TO IFORM 00771PP DO 10 I=1,M,8 00772PP CALL REEDR(IBUFR,BUFR,K,IDUM) 00773PP K=K+1 00774PP L=MIN0(8,M-I+1) 00775PP10 CALL DECODE(BUFR,IFORM,L,REQ(I)) 00776PP20 CALL SCRNCL 00777PP WRITE(5,9200) 00778PP DO 30 I=1,M,5 00779PP J=MIN0(I+4,M) 00780PP30 WRITE(5,9300)I,(REQ(K),K=I,J) 00781PP40 CALL ZERO(BUFR,42) 00782PP CALL READIT(MSG1,47,15,16,BUFR,80) 00783PP IF(CHR1.EQ.E)GOTO 900 00784PP I=EVALU8(BUFR,80,J) 00785PP IF((I.LT.1).OR.(I.GT.M))GOTO 40 00786PP J=J+1 00787PP CALL REFORM(BUFR,STRING) 00788PP CALL EVAL(STRING,J,Z) 00789PP REQ(I)=Z 00790PP GOTO 20 00791PP 00792PP900 DO 910 I=1,M,8 00793PP CALL REEDR(IBUFR,BUFR,ICARD,IDUM) 00794PP ICARD=ICARD+1 00795PP J=MIN0(8,M-I+1) 00796PP CALL ENCODE(BUFR,IFORM,J,REQ(I)) 00797PP910 CALL UPDREC(IBUFR,BUFR,IDUM) 00798PP RETURN 00799PP9100 FORMAT(8F10.4) 00800PP9200 FORMAT('REQUIREMENTS VECTOR'//) 00801PP9300 FORMAT('[',I2,']',5(3X,F10.4)) 00802PP END 00803PP SUBROUTINE ZCHNG(IBUFR) 00804PP DIMENSION ZVAL(5),MSG1(26) 00805PP INTEGER BUFR(42),TEMP(10),NAME1(2),NAME2(5),CHR1,E,EVALU8,STNG(80) 00806PP BYTE (E,IE(15=8)),(CHR1,BUFR(1)(15=8)) 00807PP DATA IE/'E'/,NAME1/'TOL'/, 00808PP * NAME2/'BV','DJ','PV','ZE','ER'/, 00809PP * MSG1/'ENTER [TOLERANCE ID NUMBER]/[NEW VALUE], E FOR EXIT'/ 00810PP CALL REEDR(IBUFR,BUFR,5,IDUM) 00811PP ASSIGN 9000 TO IFORM 00812PP J=1 00813PP CALL REFORM(BUFR,STNG) 00814PP DO 5 I=1,5 00815PP5 CALL EVAL(STNG,J,ZVAL(I)) 00816PP10 CALL SCRNCL 00817PP WRITE(5,9100)(I,NAME1,NAME2(I),ZVAL(I),I=1,5) 00818PP20 CALL ZERO(BUFR,42) 00819PP CALL READIT(MSG1,51,8,9,BUFR,80) 00820PP IF(CHR1.EQ.E)GOTO 900 00821PP K=EVALU8(BUFR,80,J) 00822PP IF((K.LT.1).OR.(K.GT.5))GOTO 20 00823PP J=J+1 00824PP CALL REFORM(BUFR,STNG) 00825PP CALL EVAL(STNG,J,Z) 00826PP ZVAL(K)=Z 00827PP GOTO 10 00828PP 00829PP900 CALL BLANK(BUFR,42) 00830PP CALL ENCODE(BUFR,IFORM,5,ZVAL) 00831PP CALL UPDREC(IBUFR,BUFR,IDUM) 00832PP RETURN 00833PP9000 FORMAT(5E10.3) 00834PP9100 FORMAT('[',I1,']',3X,A2,A1,A2,3X,E10.3) 00835PP END 00836PP SUBROUTINE GETMN(IBUFR,M,N) 00837PP INTEGER LIST(2),BUFR(42) 00838PP CALL REEDR(IBUFR,BUFR,4,IDUM) 00839PP ASSIGN 9000 TO IFORM 00840PP CALL DECODE(BUFR,IFORM,2,LIST) 00841PP M=LIST(1) 00842PP N=LIST(2) 00843PP RETURN 00844PP9000 FORMAT(18X,I2,8X,I2) 00845PP END 00846PP SUBROUTINE XTRACT(BUFR,J,IZ) 00847PP INTEGER BUFR(1) 00848PP I=(J-1)/2+1 00849PP IF(J.EQ.(J/2)*2)GOTO 100 00850PP MASK=$FF00 00851PP MULT=$100 00852PP10 IZ=AND(BUFR(I),MASK)/MULT 00853PP RETURN 00854PP100 MASK=$00FF 00855PP MULT=1 00856PP GOTO 10 00857PP END 00858PP SUBROUTINE REFORM(IN,OUT) 00859PP INTEGER IN,OUT 00860PP ASSIGN 9000 TO IFORM 00861PP CALL DECODE(IN,IFORM,80,OUT) 00862PP RETURN 00863PP9000 FORMAT(80R1) 00864PP END 00865PP SUBROUTINE FCHNG(IBUFR) 00866PP INTEGER IPROPT(3),PRIM(3),DUAL(2),ITEMP(4),BUFR(42),EVALU8 00867PP INTEGER NAME(2,2),LIST(10) 00868PP EQUIVALENCE (LIST(1),IPROPT(1)),(LIST(4),Z),(LIST(6),M), 00869PP * (LIST(7),N),(LIST(8),I1),(LIST(9),MVCD), 00870PP * (LIST(10),MAXNIT) 00871PP DATA PRIM/'PRIMAL'/, 00872PP * DUAL/'DUAL'/ 00873PP DATA NAME/'MIN','MAX'/ 00874PP BYTE(ICHR1,BUFR(1)(15=8)) 00875PP CALL REEDR(IBUFR,BUFR,4,IDUM) 00876PP ASSIGN 9000 TO IFORM 00877PP CALL DECODE(BUFR,IFORM,9,LIST) 00878PP10 CALL SCRNCL 00879PP WRITE(5,9100) 00880PP WRITE(5,9200) (IPROPT(I),I=1,3) 00881PP J=1 00882PP IF(Z.EQ.-1)J=2 00883PP WRITE(5,9250) (NAME2(I,J),I=1,2) 00884PP WRITE(5,9300) MVCD 00885PP WRITE(5,9400) MAXNIT 00886PP20 CALL ZERO(BUFR,42) 00887PP CALL READIT(MSG1,00,7,8,BUFR,80) 00888PP IF(ICHR1.EQ.$0045)GOTO 400 00889PP K=EVALU8(BUFR,80,J) 00890PP IF((K.LT.1).OR.(K.GT.4))GOTO 20 00891PP GOTO (100,200,300,300),K 00892PP100 J=J+1 00893PP CALL MUSH(BUFR,J,ITEMP,6) 00894PP L=MAX0(4,BUFR(41)) 00895PP IF(COMPAR(ITEMP,PRIM,6))110,150,110 00896PP110 IF(COMPAR(ITEMP,DUAL,L))20,140,20 00897PP140 ITEMP(3)=$2020 00898PP150 DO 160 L=1,3 00899PP160 IPROPT(I)=ITEMP(I) 00900PP GOTO 10 00901PP200 J=J+1 00902PP CALL MUSH(BUFR,J,ITEMP,4) 00903PP IF((ITEMP(1).NE.$4D49).OR.(AND(ITEMP(2),$FF00).NE.$4E00))GOTO 210 00904PP Z=1.0 00905PP GOTO 10 00906PP210 IF((ITEMP(1).NE.$4D41).OR.(AND(ITEMP(2),$FF00).NE.$5800))GOTO 20 00907PP Z=-1.0 00908PP GOTO 10 00909PP300 J=J+1 00910PP L=EVALU8(BUFR,3,IDUM) 00911PP IF(K.EQ.4)GOTO 350 00912PP CALL GETMN(IBUFR,M,N) 00913PP IF((L.LT.1).OR.(L.GT.M-1))GOTO 20 00914PP MVCD=L 00915PP GOTO 10 00916PP350 MAXNIT=L 00917PP GOTO 10 00918PP400 CALL BLANK(BUFR,42) 00919PP CALL ENCODE(BUFR,IFORM,9,LIST) 00920PP CALL UPDREC(IBUFR,BUFR,IDUM) 00921PP RETURN 00922PP9000 FORMAT(3A2,F4.1,5I10) 00923PP9200 FORMAT('[1', '] IPROPT ',3A2) 00924PP9250 FORMAT('[2', '] TREND ',2A2) 00925PP9300 FORMAT('[3', '] MVCD ',I3) 00926PP9400 FORMAT('[4', '] MAXNIT ',I3) 00927PP9100 FORMAT('FIRST CARD PARAMETERS'//) 00928PP END 00929PP SUBROUTINE MUSH(IN,ISTART,IOUT,N) 00930PP DIMENSION IN(1),ITMP(80),IOUT(1) 00931PP ASSIGN 9000 TO IFORM 00932PP CALL DECODE(IN,IFORM,80,ITMP) 00933PP CALL ENCODE(IOUT,IFORM,N,ITMP(ISTART)) 00934PP RETURN 00935PP9000 FORMAT(80R1) 00936PP END 00937PP 00938P MON ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? P*B 'IGETCF' ' DECK-ID 15F FORTRAN 3.3B' PP*B 'PACK' ' DECK-ID 09F FORTRAN 3.3B' PP*B 'RDLABL' ' DECK-ID 10A FORTRAN 3.3B' PP*B 'STORE' ' DECK-ID 11F FORTRAN 3.3B' PP*B 'SYMBOL' ' DECK-ID 03A FORTRAN 3.3B' PP*B 'ENDDO' ' DECK-ID 29A FORTRAN 3.3B' PP*B 'GNST' ' DECK-ID 05A FORTRAN 3.3B' PP*B 'HEADER' ' DECK-ID 36F FORTRAN 3.3B' PP*B 'OPTION' ' DECK-ID 16F FORTRAN 3.3B' PP*B 'OUTENT' ' DECK-ID 06A FORTRAN 3.3B' PP*B 'PLABEL' ' DECK-ID 08A FORTRAN 3.3B' PP*B 'STCHAR' ' DECK-ID 11A FORTRAN 3.3B' PP*B 'TYPE' ' DECK-ID 12A FORTRAN 3.3B' PP*B 'SAVEID' ' DECK-ID 13A FORTRAN 3.3B' PP*B 'LOCLA5' ' DECK-ID 24F FORTRAN 3.3B' PP*B 'DUMYA5' ' DECK-ID 25F FORTRAN 3.3B' PP*B 'BDOPR' ' DECK-ID 33A FORTRAN 3.3B' PP*B 'CKIVC' ' DECK-ID 35A FORTRAN 3.3B' PP*B 'IOSPR' ' DECK-ID 37A FORTRAN 3.3B' PP*B 'PEQVS' ' DECK-ID 25A FORTRAN 3.3B' PP*B 'PRNTNM' ' DECK-ID 26A FORTRAN 3.3B' PP*B 'SYMSCN' ' DECK-ID 28A FORTRAN 3.3B' PP*B 'ENDLOC' ' DECK-ID 17F FORTRAN 3.3B' PP*T PP*K,I8 PP*N,FTN3A5,,,B PP*K,I6 PP*P PP*B 'FTN33B' ' DECK-ID 01F FORTRAN 3.3B' PP*B 'GOB' ' DECK-ID 26F FORTRAN 3.3B' PP*B 'PHASEB' ' DECK-ID 21B FORTRAN 3.3B' PP*B 'IOPRBB' ' DECK-ID 27F FORTRAN 3.3B' PP*B 'Q8PRMS' ' DECK-ID 10F FORTRAN 3.3B' PP*B 'CNVT' ' DECK-ID 01A FORTRAN 3.3B' PP*B 'DUMMY' ' DECK-ID 01B FORTRAN 3.3B' PP*B 'FCMSTK' ' DECK-ID 02B FORTRAN 3.3B' PP*B 'GETSYM' ' DECK-ID 07F FORTRAN 3.3B' PP*B 'KCPART' ' DECK-ID 03B FORTRAN 3.3B' PP*B 'KOUTPT' ' DECK-ID 04B FORTRAN 3.3B' PP*B 'KPCSTK' ' DECK-ID 05B FORTRAN 3.3B' PP*B 'KPC3PR' ' DECK-ID 06B FORTRAN 3.3B' PP*B 'KSYMGN' ' DECK-ID 07B FORTRAN 3.3B' PP*B 'LABKPC' ' DECK-ID 08B FORTRAN 3.3B' PP*B 'LABLER' ' DECK-ID 09B FORTRAN 3.3B' PP*B 'PUNT' ' DECK-ID 10B FORTRAN 3.3B' PP*B 'CONV' ' DECK-ID 03F FORTRAN 3.3B' PP*B 'STOREB' ' DECK-ID 34F FORTRAN 3.3B' PP*B 'SYMBOL' ' DECK-ID 11B FORTRAN 3.3B' PP*B 'TSALOC' ' DECK-ID 12B FORTRAN 3.3B' PP*B 'ARAYSZ' ' DECK-ID 42A FORTRAN 3.3B' PP*B 'ASSEM' ' DECK-ID 13B FORTRAN 3.3B' PP*B 'BANANA' ' DECK-ID 14B FORTRAN 3.3B' PP*B 'BGINDO' ' DECK-ID 15B FORTRAN 3.3B' PP*B 'END' ' DECK-ID 16B FORTRAN 3.3B' PP*B 'ENTCOD' ' DECK-ID 17B FORTRAN 3.3B' PP*B 'HELEN' ' DECK-ID 18B FORTRAN 3.3B' PP*B 'INXRST' ' DECK-ID 19B FORTRAN 3.3B' PP*B 'NOPROC' ' DECK-ID 20B FORTRAN 3.3B' PP*B 'READIR' ' DECK-ID 22B FORTRAN 3.3B' PP*B 'SUBFUN' ' DECK-ID 23B FORTRAN 3.3B' PP*B 'SYMSCN' ' DECK-ID 28A FORTRAN 3.3B' PP*B 'ACP' ' DECK-ID 24B FORTRAN 3.3B' PP*B 'AFIDL' ' DECK-ID 25B FORTRAN 3.3B' PP*B 'ASUPER' ' DECK-ID 26B FORTRAN 3.3B' PP*B 'CGOTO' ' DECK-ID 27B FORTRAN 3.3B' PP*B 'FINK' ' DECK-ID 28B FORTRAN 3.3B' PP*B 'INTRAM' ' DECK-ID 29B FORTRAN 3.3B' PP*B 'PARTSB' ' DECK-ID 30B FORTRAN 3.3B' PP*B 'SUBPR1' ' DECK-ID 31B FORTRAN 3.3B' PP*B 'SUBPR2' ' DECK-ID 32B FORTRAN 3.3B' PP*B 'SUBPR3' ' DECK-ID 33B FORTRAN 3.3B' PP*B 'ARITHR' ' DECK-ID 34B FORTRAN 3.3B' PP*B 'ENDLOC' ' DECK-ID 17F FORTRAN 3.3B' PP*T PP*K,I8 PP*N,FTN3B1,,,B PP*K,I6 PP*P PP*B 'FTN33B' ' DECK-ID 01F FORTRAN 3.3B' PP*B 'GOC' ' DECK-ID 28F FORTRAN 3.3B' PP*B 'PHASEC' ' DECK-ID 13C FORTRAN 3.3B' PP*B 'IOPRBC' ' DECK-ID 29F FORTRAN 3.3B' PP*B 'Q8PRMS' ' DECK-ID 10F FORTRAN 3.3B' PP*B 'BKDWN' ' DECK-ID 01C FORTRAN 3.3B' PP*B 'BLDUP' ' DECK-ID 02C FORTRAN 3.3B' PP*B 'BSS' ' DECK-ID 03C FORTRAN 3.3B' PP*B 'CHKWD' ' DECK-ID 04C FORTRAN 3.3B' PP*B 'CHOP' ' DECK-ID 05C FORTRAN 3.3B' PP*B 'CL12' ' DECK-ID 06C FORTRAN 3.3B' PP*B 'CON' ' DECK-ID 07C FORTRAN 3.3B' PP*B 'COUNT' ' DECK-ID 08C FORTRAN 3.3B' PP*B 'DATAST' ' DECK-ID 09C FORTRAN 3.3B' PP*B 'GETSYM' ' DECK-ID 10C FORTRAN 3.3B' PP*B 'INOUT' ' DECK-ID 11C FORTRAN 3.3B' PP*B 'IXOPT' ' DECK-ID 12C FORTRAN 3.3B' PP*B 'LABEL' ' DECK-ID 14C FORTRAN 3.3B' PP*B 'LABIN' ' DECK-ID 15C FORTRAN 3.3B' PP*B 'QXLD' ' DECK-ID 16C FORTRAN 3.3B' PP*B 'REED' ' DECK-ID 17C FORTRAN 3.3B' PP*B 'SKIP' ' DECK-ID 18C FORTRAN 3.3B' PP*B 'SYMSCN' ' DECK-ID 19C FORTRAN 3.3B' PP*B 'ENDLOC' ' DECK-ID 17F FORTRAN 3.3B' PP*T PP*K,I8 PP*N,FTN3C1,,,B PP*K,I6 PP*P PP*B 'FTN33B' ' DECK-ID 01F FORTRAN 3.3B' PP*B 'GOOD' ' DECK-ID 30F FORTRAN 3.3B' PP*B 'PHASE6' ' DECK-ID 14D FORTRAN 3.3B' PP*B 'IOPRBD' ' DECK-ID 31F FORTRAN 3.3B' PP*B 'Q8PRMS' ' DECK-ID 10F FORTRAN 3.3B' PP*B 'AMOUT' ' DECK-ID 01D FORTRAN 3.3B' PP*B 'ADMAX' ' DECK-ID 02D FORTRAN 3.3B' PP*B 'BEGINO' ' DECK-ID 03D FORTRAN 3.3B' PP*B 'BKDWN' ' DECK-ID 04D FORTRAN 3.3B' PP*B 'COUNT' ' DECK-ID 05D FORTRAN 3.3B' PP*B 'FINISH' ' DECK-ID 06D FORTRAN 3.3B' PP*B 'GETSYM' ' DECK-ID 10C FORTRAN 3.3B' PP*B 'IACON' ' DECK-ID 07D FORTRAN 3.3B' PP*B 'IHCON' ' DECK-ID 08D FORTRAN 3.3B' PP*B 'INDEX' ' DECK-ID 09D FORTRAN 3.3B' PP*B 'LABOUT' ' DECK-ID 10D FORTRAN 3.3B' PP*B 'NP2OUT' ' DECK-ID 11D FORTRAN 3.3B' PP*B 'NPUNCH' ' DECK-ID 12D FORTRAN 3.3B' PP*B 'NWRITE' ' DECK-ID 13D FORTRAN 3.3B' PP*B 'PACK' ' DECK-ID 09F FORTRAN 3.3B' PP*B 'RBDX' ' DECK-ID 15D FORTRAN 3.3B' PP*B 'RBPK' ' DECK-ID 16D FORTRAN 3.3B' PP*B 'SYMSCN' ' DECK-ID 17D FORTRAN 3.3B' PP*B 'TABDEC' ' DECK-ID 18D FORTRAN 3.3B' PP*B 'UNPUNC' ' DECK-ID 19D FORTRAN 3.3B' PP*B 'CONV' ' DECK-ID 33F FORTRAN 3.3B' PP*B 'ENDLOC' ' DECK-ID 17F FORTRAN 3.3B' PP*T PP*K,I8 PP*N,FTN3D1,,,B PP*K,I6 PP*P PP*B 'FTN33B' ' DECK-ID 01F FORTRAN 3.3B' PP*B 'GOE' ' DECK-ID 32F FORTRAN 3.3B' PP*B 'PHASE6' ' DECK-ID 14E FORTRAN 3.3B' PP*B 'IOPRBD' ' DECK-ID 31F FORTRAN 3.3B' PP*B 'Q8PRMS' ' DECK-ID 10F FORTRAN 3.3B' PP*B 'AMOUT' ' DECK-ID 01E FORTRAN 3.3B' PP*B 'ADMAX' ' DECK-ID 02E FORTRAN 3.3B' PP*B 'BEGINO' ' DECK-ID 03E FORTRAN 3.3B' PP*B 'BKDWN' ' DECK-ID 04E FORTRAN 3.3B' PP*B 'CONV' ' DECK-ID 33F FORTRAN 3.3B' PP*B 'COUNT' ' DECK-ID 05E FORTRAN 3.3B' PP*B 'FINISH' ' DECK-ID 06E FORTRAN 3.3B' PP*B 'GETSYM' ' DECK-ID 10C FORTRAN 3.3B' PP*B 'IACON' ' DECK-ID 07E FORTRAN 3.3B' PP*B 'IHCON' ' DECK-ID 08E FORTRAN 3.3B' PP*B 'INDEX' ' DECK-ID 09E FORTRAN 3.3B' PP*B 'LABOUT' ' DECK-ID 10E FORTRAN 3.3B' PP*B 'NP2OUT' ' DECK-ID 11E FORTRAN 3.3B' PP*B 'NPUNCH' ' DECK-ID 12E FORTRAN 3.3B' PP*B 'NWRITE' ' DECK-ID 13E FORTRAN 3.3B' PP*B 'PACK' ' DECK-ID 09F FORTRAN 3.3B' PP*B 'RBDX' ' DECK-ID 15E FORTRAN 3.3B' PP*B 'RBPK' ' DECK-ID 16E FORTRAN 3.3B' PP*B 'SETPRT' ' DECK-ID 17E FORTRAN 3.3B' PP*B 'SYMSCN' ' DECK-ID 17D FORTRAN 3.3B' PP*B 'TABDEC' ' DECK-ID 18E FORTRAN 3.3B' PP*B 'UNPUNC' ' DECK-ID 19E FORTRAN 3.3B' PP*B 'ENDLOC' ' DECK-ID 17F FORTRAN 3.3B' PP*T PP*K,I8 PP*N,FTN3E1,,,B PP*K,I6 PP*P PP*B 'FTN33B' ' DECK-ID 01F FORTRAN 3.3B' PP*B 'GOF' ' DECK-ID 38F FORTRAN 3.3B' PP*B 'SYMSCN' ' DECK-ID 28A FORTRAN 3.3B' PP*B 'PHASEF' ' DECK-ID 01G FORTRAN 3.3B' PP*B 'Q8PRMS' ' DECK-ID 10F FORTRAN 3.3B' PP*B 'GETSYM' ' DECK-ID 02G FORTRAN 3.3B' PP*B 'ACON' ' DECK-ID 03G FORTRAN 3.3B' PP*B 'HCON' ' DECK-ID 04G FORTRAN 3.3B' PP*B 'LWRITE' ' DECK-ID 05G FORTRAN 3.3B' PP*B 'MATCH' ' DECK-ID 06G FORTRAN 3.3B' PP*B 'SORT' ' DECK-ID 07G FORTRAN 3.3B' PP*B 'IREPAK' ' DECK-ID 08G FORTRAN 3.3B' PP*B 'CONV' ' DECK-ID 03F FORTRAN 3.3B' PP*B 'GETSYR' ' DECK-ID 39F FORTRAN 3.3B' PP*B 'TITLE' ' DECK-ID 40F FORTRAN 3.3B' PP*B 'IFOVPF' ' DECK-ID 41F FORTRAN 3.3B' PP*B 'PACK' ' DECK-ID 09F FORTRAN 3.3B' PP*B 'IOPRBD' ' DECK-ID 31F FORTRAN 3.3B' PP*B 'ENDLOC' ' DECK-ID 17F FORTRAN 3.3B' PP*T PP*K,I8 PP*N,FTN3F1,,,B PP*K,I6 PP*P PP*B 'FTN33B' ' DECK-ID 01F FORTRAN 3.3B' PP*B 'ERRMSG' ' DECK-ID 42F FORTRAN 3.3B' PP*B 'IOPRBD' ' DECK-ID 31F FORTRAN 3.3B' PP*B 'ENDLOC' ' DECK-ID 17F FORTRAN 3.3B' PP*T PP*K,I8 PP*N,FTN3ER,,,B PP*K,I6 PP*L,READ PP*B 'FORTN' ' DECK-ID F01 FTN 3.3 RUNTIME' PP*L,Q8PREP PP*B 'Q8PRMS' ' DECK-ID G01 FTN 3.3 RUNTIME' PP*L,Q8QF2I PP*B 'Q8QF2I' ' DECK-ID G02 FTN 3.3 RUNTIME' PP*L,ABS PP*B 'ABS' ' DECK-ID G03 FTN 3.3 RUNTIME' PP*L,SQRT PP*B 'SQRT' ' DECK-ID G04 FTN 3.3 RUNTIME' PP*L,SIGN PP*B 'SIGN' ' DECK-ID G05 FTN 3.3 RUNTIME' PP*L,FLOAT PP*B 'FIXFLT' ' DECK-ID G06 FTN 3.3 RUNTIME' PP*L,EXP PP*B 'EXP' ' DECK-ID G07 FTN 3.3 RUNTIME' PP*L,ALOG PP*B 'ALOG' ' DECK-ID G08 FTN 3.3 RUNTIME' PP*L,TANH PP*B 'TANH' ' DECK-ID G09 FTN 3.3 RUNTIME' PP*L,SIN PP*B 'SINCOS' ' DECK-ID G10 FTN 3.3 RUNTIME' PP*L,ATAN PP*B 'ATAN' ' DECK-ID G11 FTN 3.3 RUNTIME' PP*L,PARABS PP*B 'PARABN' ' DECK-ID G12 FTN 3.3 RUNTIME' PP*L,Q8IFRM PP*B 'Q8IFRM' ' DECK-ID H01 FTN 3.3 RUNTIME' PP*L,Q8FS PP*B 'Q8FS' ' DECK-ID H02 FTN 3.3 RUNTIME' PP*L,Q8TRAN PP*B 'Q8TRAN' ' DECK-ID H03 FTN 3.3 RUNTIME' PP*L,Q8QINI PP*B 'Q8QINI' ' DECK-ID H04 FTN 3.3 RUNTIME' PP*L,Q8QEND PP*B 'Q8QEND' ' DECK-ID H05 FTN 3.3 RUNTIME' PP*L,Q8CMP0 PP*B 'Q8CMP' ' DECK-ID H06 FTN 3.3 RUNTIME' PP*L,Q8RWBU PP*B 'Q8RWBU' ' DECK-ID H07 FTN 3.3 RUNTIME' PP*L,Q8ERRM PP*B 'Q8ERRM' ' DECK-ID H08 FTN 3.3 RUNTIME' PP*L,Q8DFNF PP*B 'Q8DFIO' ' DECK-ID H09 FTN 3.3 RUNTIME' PP*L,Q8QX PP*B 'Q8QX' ' DECK-ID H10 FTN 3.3 RUNTIME' PP*L,Q8QUN1 PP*B 'Q8QUNI' ' DECK-ID H11 FTN 3.3 RUNTIME' PP*L,Q8FGET PP*B 'Q8FGET' ' DECK-ID H12 FTN 3.3 RUNTIME' PP*L,Q8MAGT PP*B 'Q8MAGT' ' DECK-ID H13 FTN 3.3 RUNTIME' PP*L,EOF PP*B 'TAPCON' ' DECK-ID H14 FTN 3.3 RUNTIME' PP*L,IOCK PP*B 'IOCK' ' DECK-ID H15 FTN 3.3 RUNTIME' PP*L,Q8PSE PP*B 'PSSTOP' ' DECK-ID H16 FTN 3.3 RUNTIME' PP*L,Q8PAND PP*B 'Q8PAND' ' DECK-ID H17 FTN 3.3 RUNTIME' PP*L,Q8EXP1 PP*B 'Q8EXP1' ' DECK-ID H18 FTN 3.3 RUNTIME' PP*L,Q8EXP9 PP*B 'Q8EXP9' ' DECK-ID H19 FTN 3.3 RUNTIME' PP*L,SETBFR PP*B 'Q8QGTX' ' DECK-ID H20 FTN 3.3 RUNTIME' PP*L,ENCODE PP*B 'IOCODE' ' DECK-ID J01 FTN 3.3 RUNTIME' PP*L,COMMON PP*B 'PSUEDO' ' DECK-ID J02 FTN 3.3 RUNTIME' PP*L,IGETCH PP*B 'IGETCH' ' DECK-ID J03 FTN 3.3 RUNTIME' PP*L,IPACK PP*B 'IPACK' ' DECK-ID J04 FTN 3.3 RUNTIME' PP*L,UPDATE PP*B 'UPDATN' ' DECK-ID J05 FTN 3.3 RUNTIME' PP*L,DECPL PP*B 'DECPL' ' DECK-ID J06 FTN 3.3 RUNTIME' PP*L,INTGR PP*B 'INTGR' ' DECK-ID J07 FTN 3.3 RUNTIME' PP*L,SPACEX PP*B 'SPACEN' ' DECK-ID J08 FTN 3.3 RUNTIME' PP*L,HOLRTH PP*B 'HOLRTH' ' DECK-ID J09 FTN 3.3 RUNTIME' PP*L,DCHX PP*B 'DCHX' ' DECK-ID J10 FTN 3.3 RUNTIME' PP*L,HXASC PP*B 'HXASC' ' DECK-ID J11 FTN 3.3 RUNTIME' PP*L,AFRMOT PP*B 'AFRMOT' ' DECK-ID J12 FTN 3.3 RUNTIME' PP*L,RFRMOT PP*B 'RFRMOT' ' DECK-ID J13 FTN 3.3 RUNTIME' PP*L,AFRMIN PP*B 'AFRMIN' ' DECK-ID J14 FTN 3.3 RUNTIME' PP*L,RFRMIN PP*B 'RFRMIN' ' DECK-ID J15 FTN 3.3 RUNTIME' PP*L,ASCHX PP*B 'ASCHX' ' DECK-ID J16 FTN 3.3 RUNTIME' PP*L,HXDC PP*B 'HXDC' ' DECK-ID J17 FTN 3.3 RUNTIME' PP*L,FLOTIN PP*B 'FLOTIN' ' DECK-ID J18 FTN 3.3 RUNTIME' PP*L,FOUT PP*B 'FOUT' ' DECK-ID J19 FTN 3.3 RUNTIME' PP*L,EOUT PP*B 'EOUT' ' DECK-ID J20 FTN 3.3 RUNTIME' PP*L,EWRITE PP*B 'EWRITE' ' DECK-ID J21 FTN 3.3 RUNTIME' PP*L,INITL1 PP*B 'INITL1' ' DECK-ID J22 FTN 3.3 RUNTIME' PP*L,FORMTR PP*B 'FORMTN' ' DECK-ID J23 FTN 3.3 RUNTIME' PP*L,Q8QFI PP*B 'Q8QFI' ' DECK-ID J24 FTN 3.3 RUNTIME' PP*L,Q8QFL PP*B 'Q8QFL' ' DECK-ID J25 FTN 3.3 RUNTIME' PP*L,Q8QFX PP*B 'Q8QFX' ' DECK-ID J26 FTN 3.3 RUNTIME' PP*L,HEXASC PP*B 'HEXASC' ' DECK-ID J27 FTN 3.3 RUNTIME' PP*L,HEXDEC PP*B 'HEXDEC' ' DECK-ID J28 FTN 3.3 RUNTIME' PP*L,ASCII PP*B 'ASCII' ' DECK-ID J29 FTN 3.3 RUNTIME' PP*L,DECHEX PP*B 'DECHEX' ' DECK-ID J30 FTN 3.3 RUNTIME' PP*L,AFORM PP*B 'AFORM' ' DECK-ID J31 FTN 3.3 RUNTIME' PP*L,RFORM PP*B 'RFORM' ' DECK-ID J32 FTN 3.3 RUNTIME' PP*L,FLOATG PP*B 'FLOATG' ' DECK-ID J33 FTN 3.3 RUNTIME' PP*L,FLOT PP*B 'FLOTN' ' DECK-ID G14 FTN 3.3 RUNTIME' PP*L,OPERND PP*B 'COMNFP' ' DECK-ID G15 FTN 3.3 RUNTIME' PP*L,Q8DXP1 PP*B 'DBLDMY' ' DECK-ID K19 FTN 3.3 RUNTIME' PP*V DEBUGGING AND CHECKOUT PP*K,I6 PP*L,TRACE PP*B 'TRACE' ' DECK-ID O53 MSOS 5.0' PP*K,I6 PP*K,P8 PP*P,F PP*B 'SETBR1' ' DECK-ID M91 MSOS 5.0' PP*T PP*K,I8 PP*N,BPST,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'TERMI1' ' DECK-ID M92 MSOS 5.0' PP*T PP*K,I8 PP*N,BPCLR,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'ENTCO1' ' DECK-ID M93 MSOS 5.0' PP*T PP*K,I8 PP*N,BPLOAD,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'RESUM1' ' DECK-ID M94 MSOS 5.0' PP*T PP*K,I8 PP*N,BPEND,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'PRTRE1' ' DECK-ID M95 MSOS 5.0' PP*T PP*K,I8 PP*N,BPRLST,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'SETAQ1' ' DECK-ID M96 MSOS 5.0' PP*T PP*K,I8 PP*N,BPRSET,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'CORDM1' ' DECK-ID M97 MSOS 5.0' PP*T PP*K,I8 PP*N,BPDMPC,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'JUMPR1' ' DECK-ID M98 MSOS 5.0' PP*T PP*K,I8 PP*N,BPJMP,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'LUCHG1' ' DECK-ID M99 MSOS 5.0' PP*T PP*K,I8 PP*N,BPBPLU,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'BPTAP1' ' DECK-ID N02 MSOS 5.0' PP*T PP*K,I8 PP*N,BPTAPC,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'MASDM1' ' DECK-ID N03 MSOS 5.0' PP*T PP*K,I8 PP*N,BPMASS,,,B PP*V SYSTEM UTILITY PROGRAMS PP*K,I6 PP*L,LULIST PP*B 'LULIST' ' DECK-ID N87 MSOS 5.0' PP*L,LISTR PP*B 'LISTR' ' DECK-ID N86 MSOS 5.0' PP*L,OPSORT PP*B 'OPSORT' ' DECK-ID N88 MSOS 5.0' PP*L,EESORT PP*B 'EESORT' ' DECK-ID O28 MSOS 5.0' PP*L,COSY PP*B 'COSY' ' DECK-ID O27 MSOS 5.0' PP*L,LCOSY PP*B 'LCOSY' ' DECK-ID N85 MSOS 5.0' PP*L,CYFT PP*B 'CYFT' ' DECK-ID N84 MSOS 5.0' PP*L,IOUP PP*B 'IOUP' ' DECK-ID N82 MSOS 5.0' PP*K,P8 PP*P,F PP*B 'IOUP' ' DECK-ID N82 MSOS 5.0' PP*B 'IOUPV4' ' DECK-ID N83 MSOS 5.0' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,IOUPV4,,,B PP*K,I6 PP*K,P8 PP*L,MTUP PP*B 'MTUP' ' DECK-ID U01 MAG TAPE UTILITY' PP*P,F,,TAPUTL PP*B 'MTUP' ' DECK-ID U01 MAG TAPE UTILITY' PP*B 'TAPUTL' ' DECK-ID U02 MAG TAPE UTILITY' PP*B 'FNN' ' DECK-ID U03 MAG TAPE UTILITY' PP*B 'SCAN' ' DECK-ID U04 MAG TAPE UTILITY' PP*B 'OPENIO' ' DECK-ID U05 MAG TAPE UTILITY' PP*B 'RDWTR' ' DECK-ID U06 MAG TAPE UTILITY' PP*B 'LIOC' ' DECK-ID U07 MAG TAPE UTILITY' PP*B 'COPY' ' DECK-ID U08 MAG TAPE UTILITY' PP*B 'EXIT' ' DECK-ID U09 MAG TAPE UTILITY' PP*B 'PRINT' ' DECK-ID U10 MAG TAPE UTILITY' PP*B 'VERIFY' ' DECK-ID U11 MAG TAPE UTILITY' PP*B 'SELECT' ' DECK-ID U12 MAG TAPE UTILITY' PP*B 'PRINTI' ' DECK-ID U13 MAG TAPE UTILITY' PP*B 'DUMP' ' DECK-ID U14 MAG TAPE UTILITY' PP*B 'INIT' ' DECK-ID U15 MAG TAPE UTILITY' PP*B 'STNLAB' ' DECK-ID U16 MAG TAPE UTILITY' PP*B 'CVASEB' ' DECK-ID U19 MAG TAPE UTILITY' PP*B 'ALCBUF' ' DECK-ID U18 MAG TAPE UTILITY' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,MTUPFL,,,B PP*K,I6 PP*L,DTLP PP*B 'DTLP' ' DECK-ID O63 MSOS 5.0' PP*K,P8 PP*P,F PP*B 'DSKTAP' ' DECK-ID N90 MSOS 5.0' PP*B 'DSKEQC' ' DECK-ID N91 MSOS 5.0' PP*B 'DSKDHX' ' DECK-ID O68 MSOS 5.0' PP*B 'DSKCDR' ' DECK-ID D11 PERIPH. DRIVERS 1.1C SUMMARY' PP*B 'DTLCT9' ' DECK-ID C46 PERIPH. DRIVERS 1.1C SUMMARY' PP*B 'MDRSMD' ' DECK-ID C94 PERIPH. DRIVERS 1.2C SUMMARY' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,DSKTAP,,,B PP*K,I6 PP*L,SETPV4 PP*B 'SPCALL' ' DECK-ID N92 MSOS 5.0' PP*K,P8 PP*P,F PP*B 'SPOLY1' ' DECK-ID N93 MSOS 5.0' PP*B 'STPV4' ' DECK-ID N94 MSOS 5.0' PP*B 'IERROR' ' DECK-ID N95 MSOS 5.0' PP*B 'MCTDK' ' DECK-ID N96 MSOS 5.0' PP*B 'GETPAG' ' DECK-ID N97 MSOS 5.0' PP*B 'CONPRT' ' DECK-ID N98 MSOS 5.0' PP*B 'REDCON' ' DECK-ID N99 MSOS 5.0' PP*B 'CONDEC' ' DECK-ID O01 MSOS 5.0' PP*B 'ORDERM' ' DECK-ID O02 MSOS 5.0' PP*B 'IREAD' ' DECK-ID O03 MSOS 5.0' PP*B 'ASCOUT' ' DECK-ID O04 MSOS 5.0' PP*B 'PARAMS' ' DECK-ID O05 MSOS 5.0' PP*B 'DISKIO' ' DECK-ID O06 MSOS 5.0' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,STP1V4,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'SPOLY2' ' DECK-ID O07 MSOS 5.0' PP*B 'SUP' ' DECK-ID O08 MSOS 5.0' PP*B 'IERROR' ' DECK-ID N95 MSOS 5.0' PP*B 'GETPAG' ' DECK-ID N97 MSOS 5.0' PP*B 'BTOA' ' DECK-ID O09 MSOS 5.0' PP*B 'ISTAT' ' DECK-ID O10 MSOS 5.0' PP*B 'SCIO' ' DECK-ID O11 MSOS 5.0' PP*B 'SCRD' ' DECK-ID O12 MSOS 5.0' PP*B 'REDCON' ' DECK-ID N99 MSOS 5.0' PP*B 'ICAT' ' DECK-ID O13 MSOS 5.0' PP*B 'BUFIN' ' DECK-ID O14 MSOS 5.0' PP*B 'MOVE' ' DECK-ID O15 MSOS 5.0' PP*B 'IREAD' ' DECK-ID O03 MSOS 5.0' PP*B 'ASCOUT' ' DECK-ID O04 MSOS 5.0' PP*B 'PARAMS' ' DECK-ID O05 MSOS 5.0' PP*B 'DISKIO' ' DECK-ID O06 MSOS 5.0' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,STP2V4,,,B PP*V INSTALL LIBRARY BUILDER PP*K,I6 PP*L,LIBILD PP*B 'LIBILD' ' DECK-ID O29 MSOS 5.0' PP*K,P8 PP*P,F PP*B 'LIBIDO' ' DECK-ID O30 MSOS 5.0' PP*B 'CONVRS' ' DECK-ID O38 MSOS 5.0' PP*B 'MESSY' ' DECK-ID O31 MSOS 5.0' PP*B 'LJA2B' ' DECK-ID O37 MSOS 5.0' PP*B 'MOVECH' ' DECK-ID O32 MSOS 5.0' PP*B 'PICKUP' ' DECK-ID O33 MSOS 5.0' PP*B 'IOSUB' ' DECK-ID O34 MSOS 5.0' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,LIBIDO,,,B PP*K,I6 PP*K,P8 PP*P,F PP*B 'HELPER' ' DECK-ID O35 MSOS 5.0' PP*B 'MOVECH' ' DECK-ID O32 MSOS 5.0' PP*B 'HELP0' ' DECK-ID O39 MSOS 5.0' PP*B 'HELP1' ' DECK-ID O40 MSOS 5.0' PP*B 'HELP2' ' DECK-ID O41 MSOS 5.0' PP*B 'HELP3' ' DECK-ID O42 MSOS 5.0' PP*B 'HELP4' ' DECK-ID O43 MSOS 5.0' PP*B 'HELP5' ' DECK-ID O44 MSOS 5.0' PP*B 'HELP8' ' DECK-ID O45 MSOS 5.0' PP*B 'HELP9' ' DECK-ID O46 MSOS 5.0' PP*B 'HELP10' ' DECK-ID O47 MSOS 5.0' PP*B 'HELP11' ' DECK-ID O48 MSOS 5.0' PP*B 'HELP12' ' DECK-ID O49 MSOS 5.0' PP*B 'HELP13' ' DECK-ID O50 MSOS 5.0' PP*B 'HELP14' ' DECK-ID O36 MSOS 5.0' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,HELPER,,,B PP*V INSTALL SKELETON EDITOR PP*K,I6 PP*L,SKED PP*B 'SKED' ' DECK-ID O51 MSOS 5.0' PP*K,P8 PP*P,F PP*B 'SKFILE' ' DECK-ID O52 MSOS 5.0' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,SKFILE,,,B PP*V SYSTEM INITIALIZER PP*K,I6 PP*L,SILP PP*B 'SILP' ' DECK-ID O64 MSOS 5.0' PP*K,P8 PP*P,F PP*B 'CONTRL' ' DECK-ID M06 ITOS 1.1' PP*B 'ILOAD' ' DECK-ID O18 MSOS 5.0' PP*B 'LDRTBL' ' DECK-ID O19 MSOS 5.0' PP*B 'I1' ' DECK-ID O20 MSOS 5.0' PP*B 'I2' ' DECK-ID M07 ITOS 1.1' PP*B 'Q1810' ' DECK-ID C28 PERIPH. DRIVERS 1.0C SUMMARY' PP*B 'Q1827' ' DECK-ID D06 PERIPH. DRIVERS 1.1C SUMMARY' PP*B 'IDRIV' ' DECK-ID O23 MSOS 5.0' PP*B 'QMLCT9' ' DECK-ID C44 PERIPH. DRIVERS 1.1C SUMMARY' PP*B 'MDRIV' ' DECK-ID O22 MSOS 5.0' PP*B 'Q18331' ' DECK-ID D72 PERIPH. DRIVERS 1.2C SUMMARY' PP*B 'QCDDMY' ' DECK-ID C49 PERIPH. DRIVERS 1.1C SUMMARY' PP*B 'QPTDMY' ' DECK-ID D05 PERIPH. DRIVERS 1.1C SUMMARY' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,SI,,,B PP*K,I6 PP*L,SMDMPI PP*B 'SMDMPI' ' DECK-ID C92 PERIPH. DRIVERS 1.2C SUMMARY' PP*K,P8 PP*P PP*B 'SMDINT' ' DECK-ID C93 PERIPH. DRIVERS 1.2C SUMMARY' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,MPSMDI,,,B PP*K,I6 PP*L,SMDMPT PP*B 'SMDMPT' ' DECK-ID C91 PERIPH. DRIVERS 1.2C SUMMARY' PP*K,P8 PP*P PP*B 'SMDTGS' ' DECK-ID C95 PERIPH. DRIVERS 1.2C SUMMARY' PP*B 'NXTLOC' ' NEXT AVAILABLE LOCATION' PP*T PP*K,I8 PP*N,MPSMDT,,,B PP*V I T O S PROGRAM LIBRARY PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'TSLOG' ' DECK-ID A30 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'FMCALL' ' DECK-ID A32 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*T PP*K,I8 PP*N,TSLOG,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'ULBUFF' ' DECK-ID A34 ITOS 1.1' PP*T PP*K,I8 PP*N,ULBUFF,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'FUNSEL' ' DECK-ID A35 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*T PP*K,I8 PP*N,MNUPRO,,,B PP*K,I6 PP*L,SUBRCM PP*B 'SUBRCM' ' DECK-ID A50 ITOS 1.1' PP*L,GETCHR PP*B 'CHGTPT' ' DECK-ID A37 ITOS 1.1' PP*L,CREATE PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*N,USERID,,,A PP*B 'USERID' PP*N,SYMSGF,,,A PP*B 'SYMSGF' PP*N,SYMENU,,,A PP*B 'SYMENU' PP*N,PROCED,,,A PP*B 'PROCED' PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'UTSTRT' ' DECK-ID B12 ITOS 1.1' PP*T PP*K,I8 PP*N,UTIL,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTINIT' ' DECK-ID B13 ITOS 1.1' PP*B 'INIT' ' DECK-ID C04 ITOS 1.1' PP*B 'CNVRT' ' DECK-ID C05 ITOS 1.1' PP*B 'MVCHAR' ' DECK-ID C06 ITOS 1.1' PP*B 'DFLOTN' ' DECK-ID K12 FTN 3.3 RUNTIME' PP*B 'SGLDBL' ' DECK-ID K03 FTN 3.3 RUNTIME' PP*B 'FIXFLT' ' DECK-ID G06 FTN 3.3 RUNTIME' PP*B 'PARABN' ' DECK-ID G12 FTN 3.3 RUNTIME' PP*B 'FLOTN' ' DECK-ID G14 FTN 3.3 RUNTIME' PP*B 'COMNFP' ' DECK-ID G15 FTN 3.3 RUNTIME' PP*T PP*K,I8 PP*N,UTINIT,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GETDEF' ' DECK-ID B14 ITOS 1.1' PP*B 'DEFINE' ' DECK-ID C07 ITOS 1.1' PP*B 'ERPROC' ' DECK-ID C08 ITOS 1.1' PP*B 'CNVRT' ' DECK-ID C05 ITOS 1.1' PP*B 'DFLOTN' ' DECK-ID K12 FTN 3.3 RUNTIME' PP*B 'SGLDBL' ' DECK-ID K03 FTN 3.3 RUNTIME' PP*B 'FIXFLT' ' DECK-ID G06 FTN 3.3 RUNTIME' PP*B 'PARABN' ' DECK-ID G12 FTN 3.3 RUNTIME' PP*B 'FLOTN' ' DECK-ID G14 FTN 3.3 RUNTIME' PP*B 'COMNFP' ' DECK-ID G15 FTN 3.3 RUNTIME' PP*T PP*K,I8 PP*N,UTDEFI,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTSTAT' ' DECK-ID B15 ITOS 1.1' PP*B 'STATUS' ' DECK-ID C09 ITOS 1.1' PP*B 'FDWMTH' ' DECK-ID F36 ITOS 1.1' PP*B 'NDWMTH' ' DECK-ID A36 ITOS 1.1' PP*B 'CONVER' ' DECK-ID C10 ITOS 1.1' PP*B 'CLRSCR' ' DECK-ID C16 ITOS 1.1' PP*B 'Q8QINI' ' DECK-ID H04 FTN 3.3 RUNTIME' PP*B 'Q8QEND' ' DECK-ID H05 FTN 3.3 RUNTIME' PP*B 'Q8CMP' ' DECK-ID H06 FTN 3.3 RUNTIME' PP*B 'Q8RWBU' ' DECK-ID H07 FTN 3.3 RUNTIME' PP*B 'Q8ERRM' ' DECK-ID H08 FTN 3.3 RUNTIME' PP*B 'Q8DFIO' ' DECK-ID H09 FTN 3.3 RUNTIME' PP*B 'Q8QX' ' DECK-ID H10 FTN 3.3 RUNTIME' PP*B 'Q8QUNI' ' DECK-ID H11 FTN 3.3 RUNTIME' PP*B 'Q8FGET' ' DECK-ID H12 FTN 3.3 RUNTIME' PP*B 'Q8MAGT' ' DECK-ID H13 FTN 3.3 RUNTIME' PP*B 'TAPCON' ' DECK-ID H14 FTN 3.3 RUNTIME' PP*B 'PSSTOP' ' DECK-ID H16 FTN 3.3 RUNTIME' PP*B 'Q8PAND' ' DECK-ID H17 FTN 3.3 RUNTIME' PP*B 'PARABN' ' DECK-ID G12 FTN 3.3 RUNTIME' PP*B 'Q8IFRM' ' DECK-ID H01 FTN 3.3 RUNTIME' PP*B 'Q8FS' ' DECK-ID H02 FTN 3.3 RUNTIME' PP*B 'Q8TRAN' ' DECK-ID H03 FTN 3.3 RUNTIME' PP*B 'Q8EXP1' ' DECK-ID H18 FTN 3.3 RUNTIME' PP*B 'Q8EXP9' ' DECK-ID H19 FTN 3.3 RUNTIME' PP*B 'FLOTN' ' DECK-ID G14 FTN 3.3 RUNTIME' PP*B 'COMNFP' ' DECK-ID G15 FTN 3.3 RUNTIME' PP*B 'DBLDMY' ' DECK-ID K19 FTN 3.3 RUNTIME' PP*T PP*K,I8 PP*N,UTSTAT,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTDUMP' ' DECK-ID B16 ITOS 1.1' PP*B 'DMPFIL' ' DECK-ID C11 ITOS 1.1' PP*B 'ERPROC' ' DECK-ID C08 ITOS 1.1' PP*T PP*K,I8 PP*N,UTDUMP,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTCOPY' ' DECK-ID B17 ITOS 1.1' PP*B 'COPY' ' DECK-ID C12 ITOS 1.1' PP*B 'MVCHAR' ' DECK-ID C06 ITOS 1.1' PP*T PP*K,I8 PP*N,UTCOPY,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GETDEL' ' DECK-ID B18 ITOS 1.1' PP*B 'DELET' ' DECK-ID C13 ITOS 1.1' PP*T PP*K,I8 PP*N,UTDELE,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTCLEA' ' DECK-ID B19 ITOS 1.1' PP*B 'CLEER' ' DECK-ID C14 ITOS 1.1' PP*B 'ERPROC' ' DECK-ID C08 ITOS 1.1' PP*T PP*K,I8 PP*N,UTCLEA,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTLIST' ' DECK-ID B20 ITOS 1.1' PP*B 'LIST' ' DECK-ID C15 ITOS 1.1' PP*B 'ASCEBC' ' DECK-ID B21 ITOS 1.1' PP*B 'CLRSCR' ' DECK-ID C16 ITOS 1.1' PP*B 'FDWMTH' ' DECK-ID F36 ITOS 1.1' PP*B 'NDWMTH' ' DECK-ID A36 ITOS 1.1' PP*B 'CONVER' ' DECK-ID C10 ITOS 1.1' PP*B 'Q8QINI' ' DECK-ID H04 FTN 3.3 RUNTIME' PP*B 'Q8QEND' ' DECK-ID H05 FTN 3.3 RUNTIME' PP*B 'Q8CMP' ' DECK-ID H06 FTN 3.3 RUNTIME' PP*B 'Q8RWBU' ' DECK-ID H07 FTN 3.3 RUNTIME' PP*B 'Q8ERRM' ' DECK-ID H08 FTN 3.3 RUNTIME' PP*B 'Q8DFIO' ' DECK-ID H09 FTN 3.3 RUNTIME' PP*B 'Q8QX' ' DECK-ID H10 FTN 3.3 RUNTIME' PP*B 'Q8QUNI' ' DECK-ID H11 FTN 3.3 RUNTIME' PP*B 'Q8FGET' ' DECK-ID H12 FTN 3.3 RUNTIME' PP*B 'Q8MAGT' ' DECK-ID H13 FTN 3.3 RUNTIME' PP*B 'TAPCON' ' DECK-ID H14 FTN 3.3 RUNTIME' PP*B 'PSSTOP' ' DECK-ID H16 FTN 3.3 RUNTIME' PP*B 'Q8PAND' ' DECK-ID H17 FTN 3.3 RUNTIME' PP*B 'PARABN' ' DECK-ID G12 FTN 3.3 RUNTIME' PP*B 'Q8IFRM' ' DECK-ID H01 FTN 3.3 RUNTIME' PP*B 'Q8FS' ' DECK-ID H02 FTN 3.3 RUNTIME' PP*B 'Q8TRAN' ' DECK-ID H03 FTN 3.3 RUNTIME' PP*B 'Q8EXP1' ' DECK-ID H18 FTN 3.3 RUNTIME' PP*B 'Q8EXP9' ' DECK-ID H19 FTN 3.3 RUNTIME' PP*B 'FLOTN' ' DECK-ID G14 FTN 3.3 RUNTIME' PP*B 'COMNFP' ' DECK-ID G15 FTN 3.3 RUNTIME' PP*B 'DBLDMY' ' DECK-ID K19 FTN 3.3 RUNTIME' PP*T PP*K,I8 PP*N,UTLIST,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTRENA' ' DECK-ID B22 ITOS 1.1' PP*B 'RENAM' ' DECK-ID C17 ITOS 1.1' PP*B 'ERPROC' ' DECK-ID C08 ITOS 1.1' PP*T PP*K,I8 PP*N,UTRENA,,,B PP*K,I6 PP*K,P8 PP*P,F,2,COMAND PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'COMAND' ' DECK-ID B23 ITOS 1.1' PP*B 'CLRSCR' ' DECK-ID C16 ITOS 1.1' PP*T PP*K,I8 PP*N,UTCOMM,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTMOUN' ' DECK-ID B24 ITOS 1.1' PP*B 'MOUNT' ' DECK-ID C18 ITOS 1.1' PP*T PP*K,I8 PP*N,UTMOUN,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTDISM' ' DECK-ID B25 ITOS 1.1' PP*B 'DSMOUN' ' DECK-ID C19 ITOS 1.1' PP*T PP*K,I8 PP*N,UTDISM,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTSAVE' ' DECK-ID B26 ITOS 1.1' PP*B 'SAVE' ' DECK-ID C20 ITOS 1.1' PP*B 'MMCOPY' ' DECK-ID B27 ITOS 1.1' PP*T PP*K,I8 PP*N,UTSAVE,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTLOAD' ' DECK-ID B28 ITOS 1.1' PP*B 'LOAD' ' DECK-ID C21 ITOS 1.1' PP*B 'REDREC' ' DECK-ID B29 ITOS 1.1' PP*B 'MVCHAR' ' DECK-ID C06 ITOS 1.1' PP*B 'ASCEBC' ' DECK-ID B21 ITOS 1.1' PP*T PP*K,I8 PP*N,UTLOAD,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTPURG' ' DECK-ID B30 ITOS 1.1' PP*B 'PURGE' ' DECK-ID C22 ITOS 1.1' PP*T PP*K,I8 PP*N,UTPURG,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTBATC' ' DECK-ID B31 ITOS 1.1' PP*B 'BATCH' ' DECK-ID C23 ITOS 1.1' PP*B 'JCLS' ' DECK-ID C24 ITOS 1.1' PP*B 'JCLE' ' DECK-ID C25 ITOS 1.1' PP*B 'MVCHAR' ' DECK-ID C06 ITOS 1.1' PP*B 'CNTCHR' ' DECK-ID B32 ITOS 1.1' PP*T PP*K,I8 PP*N,UTBATC,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTCOMP' ' DECK-ID B33 ITOS 1.1' PP*B 'COMPRE' ' DECK-ID C26 ITOS 1.1' PP*T PP*K,I8 PP*N,UTCOMP,,,B PP*K,I6 PP*K,P8 PP*P,F,2,MARKER PP*B 'FMULOD' ' DECK-ID B01 ITOS 1.1' PP*B 'FMUTEX' ' DECK-ID B02 ITOS 1.1' PP*B 'SEKVIT' ' DECK-ID B03 ITOS 1.1' PP*B 'REDLAB' ' DECK-ID B04 ITOS 1.1' PP*B 'TODAY' ' DECK-ID C02 ITOS 1.1' PP*B 'NXTVOL' ' DECK-ID B05 ITOS 1.1' PP*B 'COMSEK' ' DECK-ID B06 ITOS 1.1' PP*B 'MOVEL' ' DECK-ID B07 ITOS 1.1' PP*B 'MOVER' ' DECK-ID B08 ITOS 1.1' PP*B 'GETFLD' ' DECK-ID B09 ITOS 1.1' PP*B 'MMSIZ' ' DECK-ID B10 ITOS 1.1' PP*B 'GETVIT' ' DECK-ID B11 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'IOLUNT' ' DECK-ID A31 ITOS 1.1' PP*B 'ERCHK' ' DECK-ID C03 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'BINASC' ' DECK-ID A24 ITOS 1.1' PP*B 'Q8PRMA' ' DECK-ID A25 ITOS 1.1' PP*B 'GTRELO' ' DECK-ID B34 ITOS 1.1' PP*B 'RELOAD' ' DECK-ID C27 ITOS 1.1' PP*B 'ERPROC' ' DECK-ID C08 ITOS 1.1' PP*B 'MVCHAR' ' DECK-ID C06 ITOS 1.1' PP*T PP*K,I8 PP*N,UTRELO,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'GOEDIT' ' DECK-ID D01 ITOS 1.1' PP*B 'EDITCM' ' DECK-ID E02 ITOS 1.1' PP*B 'EDITZR' ' DECK-ID D02 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'IO' ' DECK-ID D03 ITOS 1.1' PP*B 'LOCAL' ' DECK-ID D04 ITOS 1.1' PP*B 'SET' ' DECK-ID E03 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'EBEGIN' ' DECK-ID D05 ITOS 1.1' PP*B 'INITLE' ' DECK-ID E04 ITOS 1.1' PP*B 'EDITOS' ' DECK-ID D06 ITOS 1.1' PP*B 'AUTPRO' ' DECK-ID E05 ITOS 1.1' PP*B 'CHAPRO' ' DECK-ID E06 ITOS 1.1' PP*B 'CLEPRO' ' DECK-ID E07 ITOS 1.1' PP*B 'CTAPRO' ' DECK-ID E08 ITOS 1.1' PP*B 'DELPRO' ' DECK-ID E09 ITOS 1.1' PP*B 'GETPRO' ' DECK-ID E10 ITOS 1.1' PP*B 'LINPRO' ' DECK-ID E11 ITOS 1.1' PP*B 'LSTPRO' ' DECK-ID E12 ITOS 1.1' PP*B 'RSQPRO' ' DECK-ID E13 ITOS 1.1' PP*B 'SEAPRO' ' DECK-ID E14 ITOS 1.1' PP*B 'SEQPRO' ' DECK-ID E35 ITOS 1.1' PP*B 'STAPRO' ' DECK-ID E15 ITOS 1.1' PP*B 'CLRMEM' ' DECK-ID E16 ITOS 1.1' PP*B 'CLRSVM' ' DECK-ID E17 ITOS 1.1' PP*B 'DECHEX' ' DECK-ID D08 ITOS 1.1' PP*B 'ELNSCN' ' DECK-ID E18 ITOS 1.1' PP*B 'FNDEND' ' DECK-ID E19 ITOS 1.1' PP*B 'FNDNXT' ' DECK-ID E20 ITOS 1.1' PP*B 'FNDSLI' ' DECK-ID E21 ITOS 1.1' PP*B 'GETAFD' ' DECK-ID E22 ITOS 1.1' PP*B 'GETNAM' ' DECK-ID E23 ITOS 1.1' PP*B 'GETNUM' ' DECK-ID E24 ITOS 1.1' PP*B 'GETONE' ' DECK-ID E25 ITOS 1.1' PP*B 'GETSTR' ' DECK-ID E26 ITOS 1.1' PP*B 'HEXDEC' ' DECK-ID E27 ITOS 1.1' PP*B 'LOCATE' ' DECK-ID E28 ITOS 1.1' PP*B 'SETAUT' ' DECK-ID E29 ITOS 1.1' PP*B 'SETTAB' ' DECK-ID E30 ITOS 1.1' PP*B 'SLIBLD' ' DECK-ID E31 ITOS 1.1' PP*B 'STRMCH' ' DECK-ID E32 ITOS 1.1' PP*B 'UPNREC' ' DECK-ID E33 ITOS 1.1' PP*B 'UPOREC' ' DECK-ID E34 ITOS 1.1' PP*B 'ENDLOC' ' DECK-ID D09 ITOS 1.1' PP*T PP*K,I8 PP*N,EDITOR,,,B PP*K,I6 PP*K,P8 PP*P,F,2,R9BEGN PP*B 'R9CNTR' ' DECK-ID R32 ITOS 1.1' PP*B 'R9ROOM' ' DECK-ID S20 ITOS 1.1' PP*B 'R9RPRT' ' DECK-ID S22 ITOS 1.1' PP*B 'R9SAVE' ' DECK-ID S25 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'STRACE' ' DECK-ID S65 ITOS 1.1' PP*B 'R9CHAR' ' DECK-ID R22 ITOS 1.1' PP*B 'R9CKXF' ' DECK-ID R24 ITOS 1.1' PP*B 'R9ENTS' ' DECK-ID R47 ITOS 1.1' PP*PAGE PP*B 'R9ELOC' ' DECK-ID R45 ITOS 1.1' PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9BEG1' ' DECK-ID R08 ITOS 1.1' PP*B 'R9INTL' ' DECK-ID R68 ITOS 1.1' PP*B 'R9OPNV' ' DECK-ID S04 ITOS 1.1' PP*B 'R9SAV1' ' DECK-ID S26 ITOS 1.1' PP*B 'R9DUM1' ' DECK-ID R41 ITOS 1.1' PP*B 'R9SWCH' ' DECK-ID S44 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'R9BINP' ' DECK-ID R16 ITOS 1.1' PP*B 'R9CLRC' ' DECK-ID R27 ITOS 1.1' PP*B 'R9FILR' ' DECK-ID R50 ITOS 1.1' PP*B 'R9FLDL' ' DECK-ID R52 ITOS 1.1' PP*B 'R9FNBG' ' DECK-ID R54 ITOS 1.1' PP*B 'R9GETS' ' DECK-ID R59 ITOS 1.1' PP*B 'R9IDMX' ' DECK-ID R62 ITOS 1.1' PP*B 'R9INTA' ' DECK-ID R67 ITOS 1.1' PP*B 'R9IOCL' ' DECK-ID R70 ITOS 1.1' PP*B 'R9IPBG' ' DECK-ID R71 ITOS 1.1' PP*B 'R9ITLP' ' DECK-ID R73 ITOS 1.1' PP*B 'R9LEL' ' DECK-ID R77 ITOS 1.1' PP*B 'R9LOAD' ' DECK-ID R79 ITOS 1.1' PP*B 'R9LOCL' ' DECK-ID R80 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVBX' ' DECK-ID R92 ITOS 1.1' PP*B 'R9MVTA' ' DECK-ID R93 ITOS 1.1' PP*B 'R9OPNF' ' DECK-ID S03 ITOS 1.1' PP*B 'R9PACK' ' DECK-ID S11 ITOS 1.1' PP*B 'R9SPTP' ' DECK-ID S39 ITOS 1.1' PP*B 'R9STH0' ' DECK-ID S41 ITOS 1.1' PP*B 'R9TSTN' ' DECK-ID S52 ITOS 1.1' PP*B 'R9UNPK' ' DECK-ID S55 ITOS 1.1' PP*B 'R9OTMG' ' DECK-ID S06 ITOS 1.1' PP*B 'R9XRSD' ' DECK-ID S59 ITOS 1.1' PP*B 'OPEN01' ' DECK-ID U01 ITOS 1.1' PP*B 'OPEN02' ' DECK-ID U02 ITOS 1.1' PP*B 'OPEN03' ' DECK-ID U03 ITOS 1.1' PP*B 'OPEN04' ' DECK-ID U04 ITOS 1.1' PP*B 'READ09' ' DECK-ID U05 ITOS 1.1' PP*B 'READ10' ' DECK-ID U06 ITOS 1.1' PP*B 'READ11' ' DECK-ID U07 ITOS 1.1' PP*B 'READ12' ' DECK-ID U08 ITOS 1.1' PP*B 'READ13' ' DECK-ID U09 ITOS 1.1' PP*B 'ROOT43' ' DECK-ID U24 ITOS 1.1' PP*B 'ROOT44' ' DECK-ID U25 ITOS 1.1' PP*B 'ROOT45' ' DECK-ID U26 ITOS 1.1' PP*B 'ERRO46' ' DECK-ID S75 ITOS 1.1' PP*B 'NTAP48' ' DECK-ID U39 ITOS 1.1' PP*B 'NTAP49' ' DECK-ID U27 ITOS 1.1' PP*B 'NTAP52' ' DECK-ID U28 ITOS 1.1' PP*B 'NTAP53' ' DECK-ID U29 ITOS 1.1' PP*B 'NTAP54' ' DECK-ID U30 ITOS 1.1' PP*B 'NTAP55' ' DECK-ID U31 ITOS 1.1' PP*B 'NTAP57' ' DECK-ID U32 ITOS 1.1' PP*B 'NTAP58' ' DECK-ID U33 ITOS 1.1' PP*B 'R9ENDL' ' DECK-ID R46 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGMU1,,,B PP*K,I6 PP*K,P8 PP*P,F,2,R9BEGN PP*B 'R9CNTR' ' DECK-ID R32 ITOS 1.1' PP*B 'R9ROOM' ' DECK-ID S20 ITOS 1.1' PP*B 'R9RPRT' ' DECK-ID S22 ITOS 1.1' PP*B 'R9SAVE' ' DECK-ID S25 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'STRACE' ' DECK-ID S65 ITOS 1.1' PP*B 'R9CHAR' ' DECK-ID R22 ITOS 1.1' PP*B 'R9CKXF' ' DECK-ID R24 ITOS 1.1' PP*B 'R9ENTS' ' DECK-ID R47 ITOS 1.1' PP*PAGE PP*B 'R9ELOC' ' DECK-ID R45 ITOS 1.1' PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9BEG2' ' DECK-ID R09 ITOS 1.1' PP*B 'R9IPUT' ' DECK-ID R72 ITOS 1.1' PP*B 'R9INTV' ' DECK-ID R69 ITOS 1.1' PP*B 'R9CLBG' ' DECK-ID R25 ITOS 1.1' PP*B 'R9OTBG' ' DECK-ID S05 ITOS 1.1' PP*B 'R9SAV2' ' DECK-ID S27 ITOS 1.1' PP*B 'R9DUM1' ' DECK-ID R41 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'R9ASQR' ' DECK-ID R05 ITOS 1.1' PP*B 'R9BINP' ' DECK-ID R16 ITOS 1.1' PP*B 'R9CHIN' ' DECK-ID R23 ITOS 1.1' PP*B 'R9CLRC' ' DECK-ID R27 ITOS 1.1' PP*B 'R9CMOV' ' DECK-ID R31 ITOS 1.1' PP*B 'R9CRIN' ' DECK-ID R34 ITOS 1.1' PP*B 'R9DMND' ' DECK-ID R38 ITOS 1.1' PP*B 'R9FILR' ' DECK-ID R50 ITOS 1.1' PP*B 'R9FLDL' ' DECK-ID R52 ITOS 1.1' PP*B 'R9FLOW' ' DECK-ID R53 ITOS 1.1' PP*B 'R9FNBG' ' DECK-ID R54 ITOS 1.1' PP*B 'R9GETS' ' DECK-ID R59 ITOS 1.1' PP*B 'R9ICTL' ' DECK-ID R61 ITOS 1.1' PP*B 'R9IDMX' ' DECK-ID R62 ITOS 1.1' PP*B 'R9INDM' ' DECK-ID R63 ITOS 1.1' PP*B 'R9INIT' ' DECK-ID R65 ITOS 1.1' PP*B 'R9INMV' ' DECK-ID R66 ITOS 1.1' PP*B 'R9IOCL' ' DECK-ID R70 ITOS 1.1' PP*B 'R9LAHD' ' DECK-ID R74 ITOS 1.1' PP*B 'R9LCAE' ' DECK-ID R76 ITOS 1.1' PP*B 'R9LEL' ' DECK-ID R77 ITOS 1.1' PP*B 'R9LOAD' ' DECK-ID R79 ITOS 1.1' PP*B 'R9LOCL' ' DECK-ID R80 ITOS 1.1' PP*B 'R9LRCK' ' DECK-ID R81 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MMOV' ' DECK-ID R84 ITOS 1.1' PP*B 'R9MTWK' ' DECK-ID R89 ITOS 1.1' PP*B 'R9MVBX' ' DECK-ID R92 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9NSQR' ' DECK-ID R97 ITOS 1.1' PP*B 'R9NXFL' ' DECK-ID R99 ITOS 1.1' PP*B 'R9NXRC' ' DECK-ID S01 ITOS 1.1' PP*B 'R9PACK' ' DECK-ID S11 ITOS 1.1' PP*B 'R9RCAD' ' DECK-ID S17 ITOS 1.1' PP*B 'R9RDEN' ' DECK-ID S18 ITOS 1.1' PP*B 'R9SETN' ' DECK-ID S35 ITOS 1.1' PP*B 'R9STH0' ' DECK-ID S41 ITOS 1.1' PP*B 'R9TRAL' ' DECK-ID S48 ITOS 1.1' PP*B 'R9TSTN' ' DECK-ID S52 ITOS 1.1' PP*B 'R9UNPK' ' DECK-ID S55 ITOS 1.1' PP*B 'R9OTMG' ' DECK-ID S06 ITOS 1.1' PP*B 'R9XRSD' ' DECK-ID S59 ITOS 1.1' PP*B 'READ09' ' DECK-ID U05 ITOS 1.1' PP*B 'READ10' ' DECK-ID U06 ITOS 1.1' PP*B 'READ12' ' DECK-ID U08 ITOS 1.1' PP*B 'READ13' ' DECK-ID U09 ITOS 1.1' PP*B 'SETL33' ' DECK-ID U18 ITOS 1.1' PP*B 'ROOT43' ' DECK-ID U24 ITOS 1.1' PP*B 'ROOT44' ' DECK-ID U25 ITOS 1.1' PP*B 'ROOT45' ' DECK-ID U26 ITOS 1.1' PP*B 'ERRO46' ' DECK-ID S75 ITOS 1.1' PP*B 'R9NOMT' ' DECK-ID R95 ITOS 1.1' PP*B 'R9ENDL' ' DECK-ID R46 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGMU2,,,B PP*K,I6 PP*K,P8 PP*P,F,2,R9BEGN PP*B 'R9CNTR' ' DECK-ID R32 ITOS 1.1' PP*B 'R9ROOM' ' DECK-ID S20 ITOS 1.1' PP*B 'R9RPRT' ' DECK-ID S22 ITOS 1.1' PP*B 'R9SAVE' ' DECK-ID S25 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'STRACE' ' DECK-ID S65 ITOS 1.1' PP*B 'R9CHAR' ' DECK-ID R22 ITOS 1.1' PP*B 'R9CKXF' ' DECK-ID R24 ITOS 1.1' PP*B 'R9ENTS' ' DECK-ID R47 ITOS 1.1' PP*PAGE PP*B 'R9ELOC' ' DECK-ID R45 ITOS 1.1' PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9BEG3' ' DECK-ID R10 ITOS 1.1' PP*B 'R9CALC' ' DECK-ID R20 ITOS 1.1' PP*B 'R9OPCD' ' DECK-ID S02 ITOS 1.1' PP*B 'R9SAV3' ' DECK-ID S28 ITOS 1.1' PP*B 'R9ADSB' ' DECK-ID R03 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'R9ATON' ' DECK-ID R06 ITOS 1.1' PP*B 'R9BINT' ' DECK-ID R17 ITOS 1.1' PP*B 'R9BITF' ' DECK-ID R18 ITOS 1.1' PP*B 'R9BITN' ' DECK-ID R19 ITOS 1.1' PP*B 'R9CHAN' ' DECK-ID R21 ITOS 1.1' PP*B 'R9CLRC' ' DECK-ID R27 ITOS 1.1' PP*B 'R9CLRE' ' DECK-ID R28 ITOS 1.1' PP*B 'R9CMBD' ' DECK-ID R30 ITOS 1.1' PP*B 'R9COMP' ' DECK-ID R33 ITOS 1.1' PP*B 'R9CRIN' ' DECK-ID R34 ITOS 1.1' PP*B 'R9DEBG' ' DECK-ID R35 ITOS 1.1' PP*B 'R9DIVD' ' DECK-ID R37 ITOS 1.1' PP*B 'R9DSPY' ' DECK-ID R39 ITOS 1.1' PP*B 'R9EXIT' ' DECK-ID R49 ITOS 1.1' PP*B 'R9FILR' ' DECK-ID R50 ITOS 1.1' PP*B 'R9FLDL' ' DECK-ID R52 ITOS 1.1' PP*B 'R9FLOW' ' DECK-ID R53 ITOS 1.1' PP*B 'R9FNBG' ' DECK-ID R54 ITOS 1.1' PP*B 'R9FORC' ' DECK-ID R55 ITOS 1.1' PP*B 'R9GETS' ' DECK-ID R59 ITOS 1.1' PP*B 'R9GOTO' ' DECK-ID R60 ITOS 1.1' PP*B 'R9IDMX' ' DECK-ID R62 ITOS 1.1' PP*B 'R9INDM' ' DECK-ID R63 ITOS 1.1' PP*B 'R9IOCL' ' DECK-ID R70 ITOS 1.1' PP*B 'R9LCAE' ' DECK-ID R76 ITOS 1.1' PP*B 'R9LEL' ' DECK-ID R77 ITOS 1.1' PP*B 'R9LKUP' ' DECK-ID R78 ITOS 1.1' PP*B 'R9LOCL' ' DECK-ID R80 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MOVA' ' DECK-ID R85 ITOS 1.1' PP*B 'R9MOVE' ' DECK-ID R86 ITOS 1.1' PP*B 'R9MOVZ' ' DECK-ID R87 ITOS 1.1' PP*B 'R9MTRN' ' DECK-ID R88 ITOS 1.1' PP*B 'R9MULT' ' DECK-ID R90 ITOS 1.1' PP*B 'R9MVBX' ' DECK-ID R92 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9NRMX' ' DECK-ID R96 ITOS 1.1' PP*B 'R9NTOA' ' DECK-ID R98 ITOS 1.1' PP*B 'R9PACK' ' DECK-ID S11 ITOS 1.1' PP*B 'R9PRCL' ' DECK-ID S14 ITOS 1.1' PP*B 'R9PUTS' ' DECK-ID S16 ITOS 1.1' PP*B 'R9READ' ' DECK-ID S19 ITOS 1.1' PP*B 'R9RSLT' ' DECK-ID S23 ITOS 1.1' PP*B 'R9RSTS' ' DECK-ID S24 ITOS 1.1' PP*B 'R9SETF' ' DECK-ID S34 ITOS 1.1' PP*B 'R9SETN' ' DECK-ID S35 ITOS 1.1' PP*B 'R9SHFT' ' DECK-ID S36 ITOS 1.1' PP*B 'R9SQRT' ' DECK-ID S40 ITOS 1.1' PP*B 'R9STH0' ' DECK-ID S41 ITOS 1.1' PP*B 'R9STLL' ' DECK-ID S42 ITOS 1.1' PP*B 'R9STON' ' DECK-ID S43 ITOS 1.1' PP*B 'R9TIME' ' DECK-ID S46 ITOS 1.1' PP*B 'R9TSTB' ' DECK-ID S51 ITOS 1.1' PP*B 'R9TSTN' ' DECK-ID S52 ITOS 1.1' PP*B 'R9TSTZ' ' DECK-ID S53 ITOS 1.1' PP*B 'R9UNPK' ' DECK-ID S55 ITOS 1.1' PP*B 'R9XCPT' ' DECK-ID S57 ITOS 1.1' PP*B 'R9XFOT' ' DECK-ID S58 ITOS 1.1' PP*B 'R9OTMG' ' DECK-ID S06 ITOS 1.1' PP*B 'R9XRSD' ' DECK-ID S59 ITOS 1.1' PP*B 'R9ZADS' ' DECK-ID S61 ITOS 1.1' PP*B 'READ09' ' DECK-ID U05 ITOS 1.1' PP*B 'WRIT17' ' DECK-ID U10 ITOS 1.1' PP*B 'WRIT18' ' DECK-ID U11 ITOS 1.1' PP*B 'WRIT20' ' DECK-ID U13 ITOS 1.1' PP*B 'WRIT21' ' DECK-ID U14 ITOS 1.1' PP*B 'WRIT23' ' DECK-ID U15 ITOS 1.1' PP*B 'SETL33' ' DECK-ID U18 ITOS 1.1' PP*B 'ROOT43' ' DECK-ID U24 ITOS 1.1' PP*B 'ROOT44' ' DECK-ID U25 ITOS 1.1' PP*B 'ROOT45' ' DECK-ID U26 ITOS 1.1' PP*B 'ERRO46' ' DECK-ID S75 ITOS 1.1' PP*B 'R9NOMT' ' DECK-ID R95 ITOS 1.1' PP*B 'R9ENDL' ' DECK-ID R46 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGMU3,,,B PP*K,I6 PP*K,P8 PP*P,F,2,R9BEGN PP*B 'R9CNTR' ' DECK-ID R32 ITOS 1.1' PP*B 'R9ROOM' ' DECK-ID S20 ITOS 1.1' PP*B 'R9RPRT' ' DECK-ID S22 ITOS 1.1' PP*B 'R9SAVE' ' DECK-ID S25 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'STRACE' ' DECK-ID S65 ITOS 1.1' PP*B 'R9CHAR' ' DECK-ID R22 ITOS 1.1' PP*B 'R9CKXF' ' DECK-ID R24 ITOS 1.1' PP*B 'R9ENTS' ' DECK-ID R47 ITOS 1.1' PP*PAGE PP*B 'R9ELOC' ' DECK-ID R45 ITOS 1.1' PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9BEG4' ' DECK-ID R11 ITOS 1.1' PP*B 'R9OTPT' ' DECK-ID S08 ITOS 1.1' PP*B 'R9WOTV' ' DECK-ID S56 ITOS 1.1' PP*B 'R9SAV4' ' DECK-ID S29 ITOS 1.1' PP*B 'R9DUM1' ' DECK-ID R41 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'R9BDPR' ' DECK-ID R07 ITOS 1.1' PP*B 'R9BINT' ' DECK-ID R17 ITOS 1.1' PP*B 'R9CLRC' ' DECK-ID R27 ITOS 1.1' PP*B 'R9CLRE' ' DECK-ID R28 ITOS 1.1' PP*B 'R9CMBD' ' DECK-ID R30 ITOS 1.1' PP*B 'R9CRIN' ' DECK-ID R34 ITOS 1.1' PP*B 'R9DETP' ' DECK-ID R36 ITOS 1.1' PP*B 'R9ECOD' ' DECK-ID R42 ITOS 1.1' PP*B 'R9EDCN' ' DECK-ID R43 ITOS 1.1' PP*B 'R9EDIT' ' DECK-ID R44 ITOS 1.1' PP*B 'R9EXCP' ' DECK-ID R48 ITOS 1.1' PP*B 'R9FILR' ' DECK-ID R50 ITOS 1.1' PP*B 'R9FLDL' ' DECK-ID R52 ITOS 1.1' PP*B 'R9FLOW' ' DECK-ID R53 ITOS 1.1' PP*B 'R9FMAL' ' DECK-ID S98 ITOS 1.1' PP*B 'R9FNBG' ' DECK-ID R54 ITOS 1.1' PP*B 'R9FTOV' ' DECK-ID R58 ITOS 1.1' PP*B 'R9IDMX' ' DECK-ID R62 ITOS 1.1' PP*B 'R9INDM' ' DECK-ID R63 ITOS 1.1' PP*B 'R9IOCL' ' DECK-ID R70 ITOS 1.1' PP*B 'R9LCAE' ' DECK-ID R76 ITOS 1.1' PP*B 'R9LEL' ' DECK-ID R77 ITOS 1.1' PP*B 'R9LOCL' ' DECK-ID R80 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVBX' ' DECK-ID R92 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9OTMV' ' DECK-ID S07 ITOS 1.1' PP*B 'R9OVOP' ' DECK-ID S09 ITOS 1.1' PP*B 'R9OV50' ' DECK-ID S10 ITOS 1.1' PP*B 'R9PACK' ' DECK-ID S11 ITOS 1.1' PP*B 'R9PAGE' ' DECK-ID S12 ITOS 1.1' PP*B 'R9POSS' ' DECK-ID S13 ITOS 1.1' PP*B 'R9PRFN' ' DECK-ID S15 ITOS 1.1' PP*B 'R9PUTS' ' DECK-ID S16 ITOS 1.1' PP*B 'R9SETN' ' DECK-ID S35 ITOS 1.1' PP*B 'R9SKIP' ' DECK-ID S37 ITOS 1.1' PP*B 'R9SPAC' ' DECK-ID S38 ITOS 1.1' PP*B 'R9STH0' ' DECK-ID S41 ITOS 1.1' PP*B 'R9TP40' ' DECK-ID S47 ITOS 1.1' PP*B 'R9TSTN' ' DECK-ID S52 ITOS 1.1' PP*B 'R9TTOP' ' DECK-ID S54 ITOS 1.1' PP*B 'R9UNPK' ' DECK-ID S55 ITOS 1.1' PP*B 'R9OTMG' ' DECK-ID S06 ITOS 1.1' PP*B 'R9YCOD' ' DECK-ID S60 ITOS 1.1' PP*B 'R9ZCOD' ' DECK-ID S62 ITOS 1.1' PP*B 'WRIT17' ' DECK-ID U10 ITOS 1.1' PP*B 'WRIT18' ' DECK-ID U11 ITOS 1.1' PP*B 'WRIT20' ' DECK-ID U13 ITOS 1.1' PP*B 'WRIT21' ' DECK-ID U14 ITOS 1.1' PP*B 'WRIT23' ' DECK-ID U15 ITOS 1.1' PP*B 'UPDT25' ' DECK-ID U16 ITOS 1.1' PP*B 'UPDT26' ' DECK-ID U17 ITOS 1.1' PP*B 'ROOT43' ' DECK-ID U24 ITOS 1.1' PP*B 'ROOT45' ' DECK-ID U26 ITOS 1.1' PP*B 'ERRO46' ' DECK-ID S75 ITOS 1.1' PP*B 'R9NOMT' ' DECK-ID R95 ITOS 1.1' PP*B 'R9ENDL' ' DECK-ID R46 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGMU4,,,B PP*K,I6 PP*K,P8 PP*P,F,2,R9BEGN PP*B 'R9CNTR' ' DECK-ID R32 ITOS 1.1' PP*B 'R9ROOM' ' DECK-ID S20 ITOS 1.1' PP*B 'R9RPRT' ' DECK-ID S22 ITOS 1.1' PP*B 'R9SAVE' ' DECK-ID S25 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'STRACE' ' DECK-ID S65 ITOS 1.1' PP*B 'R9CHAR' ' DECK-ID R22 ITOS 1.1' PP*B 'R9CKXF' ' DECK-ID R24 ITOS 1.1' PP*B 'R9ENTS' ' DECK-ID R47 ITOS 1.1' PP*PAGE PP*B 'R9ELOC' ' DECK-ID R45 ITOS 1.1' PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9BEG5' ' DECK-ID R12 ITOS 1.1' PP*B 'R9FINS' ' DECK-ID R51 ITOS 1.1' PP*B 'R9CLSV' ' DECK-ID R29 ITOS 1.1' PP*B 'R9SAV5' ' DECK-ID S30 ITOS 1.1' PP*B 'R9DUM1' ' DECK-ID R41 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'R9BINT' ' DECK-ID R17 ITOS 1.1' PP*B 'R9CLOS' ' DECK-ID R26 ITOS 1.1' PP*B 'R9CLRE' ' DECK-ID R28 ITOS 1.1' PP*B 'R9CMBD' ' DECK-ID R30 ITOS 1.1' PP*B 'R9FILR' ' DECK-ID R50 ITOS 1.1' PP*B 'R9FLDL' ' DECK-ID R52 ITOS 1.1' PP*B 'R9IOCL' ' DECK-ID R70 ITOS 1.1' PP*B 'R9IPBG' ' DECK-ID R71 ITOS 1.1' PP*B 'R9LEL' ' DECK-ID R77 ITOS 1.1' PP*B 'R9LOCL' ' DECK-ID R80 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVBX' ' DECK-ID R92 ITOS 1.1' PP*B 'R9PUTS' ' DECK-ID S16 ITOS 1.1' PP*B 'R9STH0' ' DECK-ID S41 ITOS 1.1' PP*B 'R9TBOT' ' DECK-ID S45 ITOS 1.1' PP*B 'R9UNPK' ' DECK-ID S55 ITOS 1.1' PP*B 'R9OTMG' ' DECK-ID S06 ITOS 1.1' PP*B 'WRIT17' ' DECK-ID U10 ITOS 1.1' PP*B 'WRIT18' ' DECK-ID U11 ITOS 1.1' PP*B 'WRIT19' ' DECK-ID U12 ITOS 1.1' PP*B 'WRIT20' ' DECK-ID U13 ITOS 1.1' PP*B 'WRIT21' ' DECK-ID U14 ITOS 1.1' PP*B 'WRIT23' ' DECK-ID U15 ITOS 1.1' PP*B 'CLOS35' ' DECK-ID U20 ITOS 1.1' PP*B 'CLOS36' ' DECK-ID U21 ITOS 1.1' PP*B 'CLOS37' ' DECK-ID U22 ITOS 1.1' PP*B 'CLOS38' ' DECK-ID U23 ITOS 1.1' PP*B 'ROOT43' ' DECK-ID U24 ITOS 1.1' PP*B 'ROOT45' ' DECK-ID U26 ITOS 1.1' PP*B 'ERRO46' ' DECK-ID S75 ITOS 1.1' PP*B 'NTAP48' ' DECK-ID U39 ITOS 1.1' PP*B 'NTAP49' ' DECK-ID U27 ITOS 1.1' PP*B 'NTAP52' ' DECK-ID U28 ITOS 1.1' PP*B 'NTAP53' ' DECK-ID U29 ITOS 1.1' PP*B 'NTAP54' ' DECK-ID U30 ITOS 1.1' PP*B 'NTAP55' ' DECK-ID U31 ITOS 1.1' PP*B 'NTAP57' ' DECK-ID U32 ITOS 1.1' PP*B 'NTAP58' ' DECK-ID U33 ITOS 1.1' PP*B 'R9ENDL' ' DECK-ID R46 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGMU5,,,B PP*K,I6 PP*K,P8 PP*P,F,2,R9BEGN PP*B 'R9CNTR' ' DECK-ID R32 ITOS 1.1' PP*B 'R9ROOM' ' DECK-ID S20 ITOS 1.1' PP*B 'R9RPRT' ' DECK-ID S22 ITOS 1.1' PP*B 'R9SAVE' ' DECK-ID S25 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'STRACE' ' DECK-ID S65 ITOS 1.1' PP*B 'R9CHAR' ' DECK-ID R22 ITOS 1.1' PP*B 'R9CKXF' ' DECK-ID R24 ITOS 1.1' PP*B 'R9ENTS' ' DECK-ID R47 ITOS 1.1' PP*PAGE PP*B 'R9ELOC' ' DECK-ID R45 ITOS 1.1' PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9DUM0' ' DECK-ID R40 ITOS 1.1' PP*PAGE PP*B 'R9BEG6' ' DECK-ID R13 ITOS 1.1' PP*B 'R9IPUT' ' DECK-ID R72 ITOS 1.1' PP*B 'R9INTV' ' DECK-ID R69 ITOS 1.1' PP*B 'R9OPCD' ' DECK-ID S02 ITOS 1.1' PP*B 'R9WOTV' ' DECK-ID S56 ITOS 1.1' PP*B 'R9SAV6' ' DECK-ID S31 ITOS 1.1' PP*B 'R9ADSB' ' DECK-ID R03 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'R9ASQR' ' DECK-ID R05 ITOS 1.1' PP*B 'R9ATON' ' DECK-ID R06 ITOS 1.1' PP*B 'R9BDPR' ' DECK-ID R07 ITOS 1.1' PP*B 'R9BINP' ' DECK-ID R16 ITOS 1.1' PP*B 'R9BINT' ' DECK-ID R17 ITOS 1.1' PP*B 'R9BITF' ' DECK-ID R18 ITOS 1.1' PP*B 'R9BITN' ' DECK-ID R19 ITOS 1.1' PP*B 'R9BGCL' ' DECK-ID R14 ITOS 1.1' PP*B 'R9CALC' ' DECK-ID R20 ITOS 1.1' PP*B 'R9CHAN' ' DECK-ID R21 ITOS 1.1' PP*B 'R9CHIN' ' DECK-ID R23 ITOS 1.1' PP*B 'R9CLRC' ' DECK-ID R27 ITOS 1.1' PP*B 'R9CLRE' ' DECK-ID R28 ITOS 1.1' PP*B 'R9CMBD' ' DECK-ID R30 ITOS 1.1' PP*B 'R9CMOV' ' DECK-ID R31 ITOS 1.1' PP*B 'R9COMP' ' DECK-ID R33 ITOS 1.1' PP*B 'R9CRIN' ' DECK-ID R34 ITOS 1.1' PP*B 'R9DEBG' ' DECK-ID R35 ITOS 1.1' PP*B 'R9DETP' ' DECK-ID R36 ITOS 1.1' PP*B 'R9DIVD' ' DECK-ID R37 ITOS 1.1' PP*B 'R9DMND' ' DECK-ID R38 ITOS 1.1' PP*B 'R9DSPY' ' DECK-ID R39 ITOS 1.1' PP*B 'R9ECOD' ' DECK-ID R42 ITOS 1.1' PP*B 'R9EDCN' ' DECK-ID R43 ITOS 1.1' PP*B 'R9EDIT' ' DECK-ID R44 ITOS 1.1' PP*B 'R9EXCP' ' DECK-ID R48 ITOS 1.1' PP*B 'R9EXIT' ' DECK-ID R49 ITOS 1.1' PP*B 'R9FILR' ' DECK-ID R50 ITOS 1.1' PP*B 'R9FLDL' ' DECK-ID R52 ITOS 1.1' PP*B 'R9FLOW' ' DECK-ID R53 ITOS 1.1' PP*B 'R9FMAL' ' DECK-ID S98 ITOS 1.1' PP*B 'R9FNBG' ' DECK-ID R54 ITOS 1.1' PP*B 'R9FORC' ' DECK-ID R55 ITOS 1.1' PP*B 'R9FTOV' ' DECK-ID R58 ITOS 1.1' PP*B 'R9GETS' ' DECK-ID R59 ITOS 1.1' PP*B 'R9GOTO' ' DECK-ID R60 ITOS 1.1' PP*B 'R9ICTL' ' DECK-ID R61 ITOS 1.1' PP*B 'R9IDMX' ' DECK-ID R62 ITOS 1.1' PP*B 'R9INDM' ' DECK-ID R63 ITOS 1.1' PP*B 'R9INIT' ' DECK-ID R65 ITOS 1.1' PP*B 'R9INMV' ' DECK-ID R66 ITOS 1.1' PP*B 'R9IOCL' ' DECK-ID R70 ITOS 1.1' PP*B 'R9LAHD' ' DECK-ID R74 ITOS 1.1' PP*B 'R9LCAE' ' DECK-ID R76 ITOS 1.1' PP*B 'R9LEL' ' DECK-ID R77 ITOS 1.1' PP*B 'R9LKUP' ' DECK-ID R78 ITOS 1.1' PP*B 'R9LOAD' ' DECK-ID R79 ITOS 1.1' PP*B 'R9LOCL' ' DECK-ID R80 ITOS 1.1' PP*B 'R9LRCK' ' DECK-ID R81 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MMOV' ' DECK-ID R84 ITOS 1.1' PP*B 'R9MOVA' ' DECK-ID R85 ITOS 1.1' PP*B 'R9MOVE' ' DECK-ID R86 ITOS 1.1' PP*B 'R9MOVZ' ' DECK-ID R87 ITOS 1.1' PP*B 'R9MTRN' ' DECK-ID R88 ITOS 1.1' PP*B 'R9MTWK' ' DECK-ID R89 ITOS 1.1' PP*B 'R9MULT' ' DECK-ID R90 ITOS 1.1' PP*B 'R9MVBX' ' DECK-ID R92 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9NRMX' ' DECK-ID R96 ITOS 1.1' PP*B 'R9NSQR' ' DECK-ID R97 ITOS 1.1' PP*B 'R9NTOA' ' DECK-ID R98 ITOS 1.1' PP*B 'R9NXFL' ' DECK-ID R99 ITOS 1.1' PP*B 'R9NXRC' ' DECK-ID S01 ITOS 1.1' PP*B 'R9OTMV' ' DECK-ID S07 ITOS 1.1' PP*B 'R9BGOT' ' DECK-ID R15 ITOS 1.1' PP*B 'R9OTPT' ' DECK-ID S08 ITOS 1.1' PP*B 'R9OVOP' ' DECK-ID S09 ITOS 1.1' PP*B 'R9OV50' ' DECK-ID S10 ITOS 1.1' PP*B 'R9PACK' ' DECK-ID S11 ITOS 1.1' PP*B 'R9PAGE' ' DECK-ID S12 ITOS 1.1' PP*B 'R9POSS' ' DECK-ID S13 ITOS 1.1' PP*B 'R9PRCL' ' DECK-ID S14 ITOS 1.1' PP*B 'R9PRFN' ' DECK-ID S15 ITOS 1.1' PP*B 'R9PUTS' ' DECK-ID S16 ITOS 1.1' PP*B 'R9RCAD' ' DECK-ID S17 ITOS 1.1' PP*B 'R9RDEN' ' DECK-ID S18 ITOS 1.1' PP*B 'R9READ' ' DECK-ID S19 ITOS 1.1' PP*B 'R9RSLT' ' DECK-ID S23 ITOS 1.1' PP*B 'R9RSTS' ' DECK-ID S24 ITOS 1.1' PP*B 'R9SETF' ' DECK-ID S34 ITOS 1.1' PP*B 'R9SETN' ' DECK-ID S35 ITOS 1.1' PP*B 'R9SHFT' ' DECK-ID S36 ITOS 1.1' PP*B 'R9SKIP' ' DECK-ID S37 ITOS 1.1' PP*B 'R9SPAC' ' DECK-ID S38 ITOS 1.1' PP*B 'R9SQRT' ' DECK-ID S40 ITOS 1.1' PP*B 'R9STH0' ' DECK-ID S41 ITOS 1.1' PP*B 'R9STLL' ' DECK-ID S42 ITOS 1.1' PP*B 'R9STON' ' DECK-ID S43 ITOS 1.1' PP*B 'R9TIME' ' DECK-ID S46 ITOS 1.1' PP*B 'R9TP40' ' DECK-ID S47 ITOS 1.1' PP*B 'R9TRAL' ' DECK-ID S48 ITOS 1.1' PP*B 'R9TSTB' ' DECK-ID S51 ITOS 1.1' PP*B 'R9TSTN' ' DECK-ID S52 ITOS 1.1' PP*B 'R9TSTZ' ' DECK-ID S53 ITOS 1.1' PP*B 'R9TTOP' ' DECK-ID S54 ITOS 1.1' PP*B 'R9UNPK' ' DECK-ID S55 ITOS 1.1' PP*B 'R9XCPT' ' DECK-ID S57 ITOS 1.1' PP*B 'R9XFOT' ' DECK-ID S58 ITOS 1.1' PP*B 'R9OTMG' ' DECK-ID S06 ITOS 1.1' PP*B 'R9XRSD' ' DECK-ID S59 ITOS 1.1' PP*B 'R9YCOD' ' DECK-ID S60 ITOS 1.1' PP*B 'R9ZADS' ' DECK-ID S61 ITOS 1.1' PP*B 'R9ZCOD' ' DECK-ID S62 ITOS 1.1' PP*B 'READ09' ' DECK-ID U05 ITOS 1.1' PP*B 'READ10' ' DECK-ID U06 ITOS 1.1' PP*B 'READ11' ' DECK-ID U07 ITOS 1.1' PP*B 'READ12' ' DECK-ID U08 ITOS 1.1' PP*B 'READ13' ' DECK-ID U09 ITOS 1.1' PP*B 'WRIT17' ' DECK-ID U10 ITOS 1.1' PP*B 'WRIT18' ' DECK-ID U11 ITOS 1.1' PP*B 'WRIT20' ' DECK-ID U13 ITOS 1.1' PP*B 'WRIT19' ' DECK-ID U12 ITOS 1.1' PP*B 'WRIT21' ' DECK-ID U14 ITOS 1.1' PP*B 'WRIT23' ' DECK-ID U15 ITOS 1.1' PP*B 'UPDT25' ' DECK-ID U16 ITOS 1.1' PP*B 'UPDT26' ' DECK-ID U17 ITOS 1.1' PP*B 'SETL33' ' DECK-ID U18 ITOS 1.1' PP*B 'ROOT43' ' DECK-ID U24 ITOS 1.1' PP*B 'ROOT44' ' DECK-ID U25 ITOS 1.1' PP*B 'ROOT45' ' DECK-ID U26 ITOS 1.1' PP*B 'ERRO46' ' DECK-ID S75 ITOS 1.1' PP*B 'NTAP48' ' DECK-ID U39 ITOS 1.1' PP*B 'NTAP49' ' DECK-ID U27 ITOS 1.1' PP*B 'NTAP52' ' DECK-ID U28 ITOS 1.1' PP*B 'NTAP53' ' DECK-ID U29 ITOS 1.1' PP*B 'NTAP54' ' DECK-ID U30 ITOS 1.1' PP*B 'NTAP55' ' DECK-ID U31 ITOS 1.1' PP*B 'NTAP57' ' DECK-ID U32 ITOS 1.1' PP*B 'NTAP58' ' DECK-ID U33 ITOS 1.1' PP*B 'R9ENDL' ' DECK-ID R46 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGMU6,,,B PP*K,I6 PP*K,P8 PP*P,F,,R9BASE PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM0,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIIH' ' DECK-ID T01 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM1,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIIF' ' DECK-ID T02 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM2,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIIE' ' DECK-ID T03 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM3,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIIL' ' DECK-ID T04 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM4,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIII' ' DECK-ID T05 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM5,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIIC' ' DECK-ID T06 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM6,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIIO' ' DECK-ID T07 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM7,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIIA' ' DECK-ID T08 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM8,,,B PP*K,I6 PP*P,F,,OVLYPT PP*B 'RPG' ' DECK-ID R01 ITOS 1.1' PP*B 'RPGDMY' ' DECK-ID T11 ITOS 1.1' PP*B 'R9LBY' ' DECK-ID R75 ITOS 1.1' PP*B 'R9SBY' ' DECK-ID S32 ITOS 1.1' PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*B 'R9MIB' ' DECK-ID R82 ITOS 1.1' PP*B 'R9MVB' ' DECK-ID R91 ITOS 1.1' PP*B 'R9ARG' ' DECK-ID R04 ITOS 1.1' PP*B 'RPGROT' ' DECK-ID T10 ITOS 1.1' PP*B 'RPGIIM' ' DECK-ID T09 ITOS 1.1' PP*T PP*K,I8 PP*N,RPGSM9,,,B PP*K,I6 PP*L,RPGII PP*B 'RPGII' ' DECK-ID R02 ITOS 1.1' PP*L,CATLOG PP*B 'CATLOG' ' DECK-ID S71 ITOS 1.1' PP*L,R9CNTR PP*B 'R9CNTR' ' DECK-ID R32 ITOS 1.1' PP*L,R9ROOT PP*B 'R9ROOT' ' DECK-ID S21 ITOS 1.1' PP*L,R9RPRT PP*B 'R9RPRT' ' DECK-ID S22 ITOS 1.1' PP*L,R9SAVE PP*B 'R9SAVE' ' DECK-ID S25 ITOS 1.1' PP*L,R9FLOW PP*B 'R9FLOW' ' DECK-ID R53 ITOS 1.1' PP*L,STRACE PP*B 'STRACE' ' DECK-ID S65 ITOS 1.1' PP*L,SYSMSG PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*L,READR PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*L,R9EXIT PP*B 'R9EXIT' ' DECK-ID R49 ITOS 1.1' PP*L,R9XFCK PP*B 'R9CKXF' ' DECK-ID R24 ITOS 1.1' PP*L,R9FSTL PP*B 'R9FSTL' ' DECK-ID R56 ITOS 1.1' PP*L,R9ELOC PP*B 'R9ELOC' ' DECK-ID R45 ITOS 1.1' PP*L,R9TRCE PP*B 'R9TRCE' ' DECK-ID S49 ITOS 1.1' PP*L,R9TROT PP*B 'R9TROT' ' DECK-ID S50 ITOS 1.1' PP*L,R9INDM PP*B 'R9INDM' ' DECK-ID R63 ITOS 1.1' PP*L,R9LEL PP*B 'R9LEL' ' DECK-ID R77 ITOS 1.1' PP*L,R9MIW PP*B 'R9MIW' ' DECK-ID R83 ITOS 1.1' PP*L,R9MVBX PP*B 'R9MVBX' ' DECK-ID R92 ITOS 1.1' PP*L,R9MVW PP*B 'R9MVW' ' DECK-ID R94 ITOS 1.1' PP*L,R9FTNX PP*B 'R9FTNX' ' DECK-ID R57 ITOS 1.1' PP*L,CVASEB PP*B 'CVASEB' ' DECK-ID S91 ITOS 1.1' PP*L,R9FLDL PP*B 'R9FLDL' ' DECK-ID R52 ITOS 1.1' PP*L,R9999B PP*B 'R9999B' ' DECK-ID S63 ITOS 1.1' PP*L,R9UNPK PP*B 'R9UNPK' ' DECK-ID S55 ITOS 1.1' PP*L,SUBRFL PP*B 'SUBRFL' ' DECK-ID S92 ITOS 1.1' PP*L,SUBRED PP*B 'SUBRED' ' DECK-ID S96 ITOS 1.1' PP*L,SUBRMV PP*B 'SUBRMV' ' DECK-ID S93 ITOS 1.1' PP*L,SUBRIN PP*B 'SUBRIN' ' DECK-ID S95 ITOS 1.1' PP*L,SUBRAJ PP*B 'SUBRAJ' ' DECK-ID S94 ITOS 1.1' PP*L,Q8PREP PP*B 'Q8PRMS' ' DECK-ID S76 ITOS 1.1' PP*K,P8 PP*P,F,,CATSEG PP*B 'CATLOG' ' DECK-ID S71 ITOS 1.1' PP*B 'CATFIL' ' DECK-ID S83 ITOS 1.1' PP*B 'CATGET' ' DECK-ID S70 ITOS 1.1' PP*B 'CATSKL' ' DECK-ID S72 ITOS 1.1' PP*B 'CATOBJ' ' DECK-ID S85 ITOS 1.1' PP*B 'CATERR' ' DECK-ID S82 ITOS 1.1' PP*B 'CATMSG' ' DECK-ID S84 ITOS 1.1' PP*B 'FORTN' ' DECK-ID S74 ITOS 1.1' PP*B 'Q8PRMS' ' DECK-ID S76 ITOS 1.1' PP*T PP*K,I8 PP*N,CATFIL,,,B PP*K,I6 PP*P,F,2 PP*B 'SWITCH' ' DECK-ID S81 ITOS 1.1' PP*B 'R9SWCH' ' DECK-ID S44 ITOS 1.1' PP*T PP*K,I8 PP*N,SWITCH,,,B PP*K,I6 PP*L,RBDPCH PP*B 'RBDPCH' ' DECK-ID S78 ITOS 1.1' PP*K,P8 PP*P,F,,RBDSEG PP*B 'RBDPCH' ' DECK-ID S78 ITOS 1.1' PP*B 'RBDFIL' ' DECK-ID S87 ITOS 1.1' PP*B 'RBPERR' ' DECK-ID S88 ITOS 1.1' PP*B 'GETLPG' ' DECK-ID S86 ITOS 1.1' PP*B 'SECGET' ' DECK-ID S80 ITOS 1.1' PP*B 'FORTN' ' DECK-ID S74 ITOS 1.1' PP*B 'Q8PRMS' ' DECK-ID S76 ITOS 1.1' PP*T PP*K,I8 PP*N,RBDFIL,,,B PP*K,I6 PP*P,,2 PP*B 'MOUNT' ' DECK-ID U35 ITOS 1.1' PP*B 'IO00WR' ' DECK-ID U34 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'ROOT43' ' DECK-ID U24 ITOS 1.1' PP*B 'CM00PT' ' DECK-ID U36 ITOS 1.1' PP*B 'CM02IN' ' DECK-ID U37 ITOS 1.1' PP*B 'CM03GO' ' DECK-ID U38 ITOS 1.1' PP*T PP*K,I8 PP*N,MOUNT,,,B PP*K,I6 PP*P,F,2 PP*B 'TRACER' ' DECK-ID S90 ITOS 1.1' PP*B 'R9SWCH' ' DECK-ID S44 ITOS 1.1' PP*T PP*K,I8 PP*N,TRACER,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'SMCLNK' ' DECK-ID H01 ITOS 1.1' PP*B 'FMENTP' ' DECK-ID F58 ITOS 1.1' PP*B 'SYSMSG' ' DECK-ID A33 ITOS 1.1' PP*B 'DSORT' ' DECK-ID H02 ITOS 1.1' PP*T PP*K,I8 PP*N,DSORT,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'SMCMON' ' DECK-ID H03 ITOS 1.1' PP*T PP*K,I8 PP*N,SMCMON,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'SMCEDT' ' DECK-ID H04 ITOS 1.1' PP*T PP*K,I8 PP*N,SMCEDT,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'SMCSRT' ' DECK-ID H05 ITOS 1.1' PP*T PP*K,I8 PP*N,SMCSRT,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'SMCIMG' ' DECK-ID H06 ITOS 1.1' PP*T PP*K,I8 PP*N,SMCIMG,,,B PP*K,I6 PP*K,P8 PP*P,F,2 PP*B 'SMCFMG' ' DECK-ID H07 ITOS 1.1' PP*T PP*K,I8 PP*N,SMCFMG,,,B PP*Z PP*K,I10,P11,L9 PP*CTO, MSOS 5.0 INSTALLATION COMPLETED - YOU MAY AUTOLOAD PP*Z P