C PROGRAM: LIST.SUB LIST PARAMETERS C C THE PURPOSE OF THIS SUBROUTINE IS TO DISPLAY THE CURRENT C PARAMETER VALUES. C SUBROUTINE LIST(UNIT,PARAM,IO) C BYTE * ERROR ! C INTEGER * UNIT, !OUTPUT UNIT # * PARAM(2,20), ! * FILETYPE(6), !FILETYPES * DMPFMT(6), !DUMP FORMATS * IO, ! * IN, ! * OUT, ! * FT, ! * RS, ! * BS, ! * DF, ! * SW, ! * RW, ! * RC, ! * TMOVE, ! * TCNT, ! * DC ! C C DATA IN,OUT/2,1/ DATA RS,FT,DF,BS,NULL1,RC,SW,TMOVE,TCNT,DC,LI/ * 1,2,3,4,5,6,7,8,9,10,11/ C DATA FILETYPE/'BI','AS','EB',' ',' ',' '/ DATA DMPFMT/'BI','AS','HX','OT','WO',' '/ C GO TO (100,102), IO C 100 WRITE(UNIT,101) 101 FORMAT(' Default output switches are:') GO TO 110 C 102 WRITE(UNIT,103) 103 FORMAT(' Default input switches are:') C C PROCESS EACH SWITCH. C 110 CONTINUE C C FILETYPE C WRITE(UNIT,111)FILETYPE(PARAM(IO,FT)) 111 FORMAT(3X,'/FT:',A2) C C SHOW DEFAULT RECORD COUNT. C WRITE(UNIT,112)PARAM(IO,RC) 112 FORMAT(3X,'/RC:',I5) C C RECORD SIZE, BLOCKSIZE. C WRITE(UNIT,120) PARAM(IO,RS), PARAM(IO,BS) 120 FORMAT(3X,'/RS:',I5,':',I5) IF(IO.EQ.0) GO TO 130 C C DUMP FORMAT. C IF(IO .EQ. IN)GOTO 130 WRITE(UNIT,121)DMPFMT(PARAM(IO,DF)) 121 FORMAT(3X,'/DF:',A2) C C SWAPPED BYTES C 130 CONTINUE IF(PARAM(IO,SW) .NE. O) WRITE(UNIT,131) 131 FORMAT(3X,'/SW') C RETURN END