Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/del.dat
There are no other files named del.dat in the archive.
TITLE TEST OF DELAY PROCEDURES 00000010
* EULER 00000020
* NARROW 00000030
* NOSTATS 00000040
L LEVEL.K=INTGRL(RATE.JK) 00000050
R RATE.KL=(DLVL-LEVEL.K)/CON 00000060
C DLVL=500 00000070
N LEVEL=100 00000080
C CON=5 00000090
L LEVEL2.K=INTGRL(RATE2.JK) 00000100
N LEVEL2=100 00000110
R RATE2.KL=(DLVL-OUT.K)/CON 00000120
EXPND DLINF1(OUT,LEVEL2,TRX) 00000130
C TRX=5 00000140
PARM DT=1 00000150
PARM START=0 00000160
PARM STOP=50 00000170
PARM PLTPER=2 00000180
PLOT LEVEL(0,1000),LEVEL2=2,DLVL 00000190