C CODE TO SHIP A BUFFER TO/FROM COMTAL C INTEGER IDATA(4096) DO 2 I = 0,4095 2 IDATA(I+1)=I C CALL COMGO(ISTAT) IF ( ISTAT .EQ. 0 )STOP 15 CONTINUE 9001 TYPE 9002 9002 FORMAT(1H ,' ENTER COMTAL TRANSFER TYPE: TO=0 , FROM=2 = ' ) READ(5,9003,ERR=9001)IDIRCT 9003 FORMAT(I5) TYPE 8001 8001 FORMAT(1H ,' ',I5 ) CONTINUE 9004 TYPE 9005 9005 FORMAT(1H ,' ENTER COMTAL DISPLAY TYPE: P-COLOR=0 , FUNCTION=1 =' ) READ(5,9006,ERR=9004)ITYPE 9006 FORMAT(I5) TYPE 8002 8002 FORMAT(1H ,' ',I5 ) CONTINUE 9007 TYPE 9008 9008 FORMAT(1H ,' ENTER COMTAL P-COLOR/FUNCTION NUMBER: 0-3 = ' ) READ(5,9009,ERR=9007)NUMBER 9009 FORMAT(I5) TYPE 8003 8003 FORMAT(1H ,' ',I5 ) ICMD = ITYPE + IDIRCT TYPE 8004 8004 FORMAT(1H ,' ',I5 ) CONTINUE 9010 TYPE 9011 9011 FORMAT(1H ,' ENTER PROCESSING MEMORY LINE NUMBER TO START=' ) READ(5,9012,ERR=9010)LINE 9012 FORMAT(I5) TYPE 8005 8005 FORMAT(1H ,' ',I5 ) CONTINUE 9013 TYPE 9014 9014 FORMAT(1H ,' ENTER NUMBER OF BYTES TO TRANSFER=' ) READ(5,9015,ERR=9013)IBYTES 9015 FORMAT(I5) C C NOW TEST FOR OUTPUT , IF SO BUILD MEMORY PATTRNS C IF ( IDIRCT .NE. 0 ) GOTO 19 IF ( ITYPE .EQ. 1 ) GOTO 21 CONTINUE 9016 TYPE 9017 9017 FORMAT(1H ,' ENTER 0 IF YOU WANT TO CLR THE TABLE =' ) READ(5,9018,ERR=9016)ICLR 9018 FORMAT(I5) IF ( ICLR .NE. 0 ) GOTO 14 DO 12 I=1,256 12 IDATA(I) = 0 GOTO 19 C 14 CONTINUE 9019 TYPE 9020 9020 FORMAT(1H ,' ENTER STARTING TABLE VALUE, 0 OR 255 =' ) READ(5,9021,ERR=9019)ISTART 9021 FORMAT(I5) IF ( ISTART .EQ. 0 ) GOTO 17 DO 16 I=1,256 16 IDATA(I) = (I-1)*2 GOTO 19 17 DO 18 I=1,256 18 IDATA(I) = 254 -(I-1)*2 GOTO 19 C 21 DO 22 I=256 22 IDATA(I) =I-1 C TYPE 8006 8006 FORMAT(1H ,'FUNCTION CODES',I5 ) TYPE 8007 8007 FORMAT(1H ,'LINEAR=0',I5 ) TYPE 8008 8008 FORMAT(1H ,'SIN(X)=1',I5 ) TYPE 8009 8009 FORMAT(1H ,'EXP(X)=2',I5 ) CONTINUE 9022 TYPE 9023 9023 FORMAT(1H ,' DO YOU WANT A LINEAR FUNCTION =' ) READ(5,9024,ERR=9022)IFUNC 9024 FORMAT(I5) GOTO ( 40,33,36),IFUNC+1 C 33 CONTINUE 9025 TYPE 9026 9026 FORMAT(1H ,'ENTER AMPLITUDE OF SIN WAVE(0-128)=' ) READ(5,9027,ERR=9025)IAMP 9027 FORMAT(I5) CONTINUE 9028 TYPE 9029 9029 FORMAT(1H ,'ENTER AMP OFFSET OF SIN WAVE(0