File: DATEST.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1

(Source file text) 

---

10	READ(0,200) MASK,IDATA
	IDUMMY=DAC(1,MASK,IERR,IDATA)
	WRITE(0,100) MASK,IERR,IDATA,IDUMMY
	GOTO 10
100	FORMAT(4I8)
200	FORMAT(2I4)
C15	DO 20 J=1,512
C	A=511.*SIN((J-1)*3.14159/512.)
C	DUMMY=DAC(1,4095,IERR,A)
C20	CONTINUE
C	GOTO 15
	END

---