File DSPLX.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
	DIMENSION BUFF(480)
	CALL CLRPLT(320,BUFF)
	APOS=FLOAT(ITMP+IDIM)
  5	DO 10 I=1,ITMP,7
	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,Y)
	Y=PRSN(I)
	CALL SCALE(1.,-512.,APOS,2560.)
  10	CALL PLOT(1,X,Y)
	DO 20 I=1,IDIM,7
	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,Y)
	Y=PRSX(I)
	CALL SCALE(1.,-512.,APOS,2560.)
  20	CALL PLOT(1,X,Y)
	IPOS=ITMP+IDIM
	DO 25 I=1,IPOS,14
	X=I
	CALL SCALE(1,-512.,APOS,2560.)
	CALL PLOT(1,X,0.0)
	CALL PLOT(1,X,2048.)
  25	CONTINUE
	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(320,BUFF)
	RETURN
  50	IPOS=1
	CALL CLRPLT(320,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