File DSPL.RM

Directory of image this file is from
This file as a plain text file

	SUBROUTINE DSPL
        COMMON IBUFF(255),DUMI(85),MANU,IBLK,CP,CV,CF
        COMMON/BLK1/VOLN(250),VOLX(250),FLON(260),FLOX(260),PRSN(250)
        COMMON/BLK2/ACCN(250),ACCX(250),PRSX(250)
        COMMON/BLK3/INEG,IPOS,IDIM,ITMP,IDIM1,IPAS,ISTOP,IREC
        COMMON/BLK4/HOLD(30),K,X,Y,APOS,J
	COMMON/BLK5/AMAT(5,5),COEF(4),COV(5,5),COR(5,5),A21(4)
	COMMON/BLK6/SD(5),A12(4),CEPT,DET,EPS,SX(5),SXY(5),SY
	DIMENSION BUFF(1400)
	CALL CLRPLT(900,BUFF)
	APOS=FLOAT(ITMP+IDIM)
  5	DO 10 I=1,ITMP
	X=I
	Y=VOLN(I)
	CALL SCALE(1.,-1024.,APOS,2048.)
	CALL PLOT(1,X,Y)
	Y=FLON(I)
	CALL SCALE(1.,-2560.,APOS,512.)
	CALL PLOT(1,X,0.0)
	CALL PLOT(1,X,Y)
	Y=PRSN(I)
	CALL SCALE(1.,-512.,APOS,2560.)
	CALL PLOT(1,X,0.0)
  10	CALL PLOT(1,X,Y)
	DO 20 I=1,IDIM
	X=ITMP+I
	Y=VOLX(I)
	CALL SCALE(1.,-1024.,APOS,2048.)
	CALL PLOT(1,X,Y)
	Y=FLOX(I)
	CALL SCALE(1.,-2560.,APOS,512.)
	CALL PLOT(1,X,0.0)
	CALL PLOT(1,X,Y)
	Y=PRSX(I)
	CALL SCALE(1.,-512.,APOS,2560.)
	CALL PLOT(1,X,0.0)
  20	CALL PLOT(1,X,Y)
	IPOS=0
	CALL SSW(5,IPOS)
	IF(IPOS.GT.0)GO TO 30
	GO TO 5
  30	IPOS=0
	CALL SSW(0,IPOS)
	IF(IPOS.GT.0)GO TO 50
  40	IPOS=0
	CALL CLRPLT(900,BUFF)
	RETURN
  50	IPOS=1
	CALL CLRPLT(900,BUFF)
	RETURN
	END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search