1PAGE 1    DELAY TEST WITH RAMP                              (C) 1978 UND
 
     * * * * *    S O U R C E    L I S T I N G    * * * * *

     0001  TITLE DELAY TEST WITH RAMP                                              
     0002  * NARROW                                                                
     0003  * NOSTATS                                                               
     0004  * EULER                                                                 
     0005  R Q.KL=Q1+RAMP(RS,RT)                                                   
     0006  C Q1=5                                                                  
     0007  C RS=1                                                                  
     0008  C RT=5                                                                  
     0009  EXPND DELAY3(OUT,Q,DEL)                                                 
     0010+ L $L11.K=INTGRL(Q.JK-$R11.JK)                                           
     0011+ N $L11=Q*DEL/3                                                          
     0012+ R $R11.KL=$L11.K/(DEL/3)                                                
     0013+ L $L21.K=INTGRL($R11.JK-$R21.JK)                                        
     0014+ N $L21=Q*DEL/3                                                          
     0015+ R $R21.KL=$L21.K/(DEL/3)                                                
     0016+ L $L31.K=INTGRL($R21.JK-OUT.JK)                                         
     0017+ N $L31=Q*DEL/3                                                          
     0018+ R OUT.KL=$L31.K/(DEL/3)                                                 
     0019+ MEND                                                                    
     0020  NOTE TEST OF DELAY ONE                                                  
     0021  EXPND DELAY1(OUT1,Q,DEL)                                                
     0022+ L $L12.K=INTGRL(Q.JK-OUT1.JK)                                           
     0023+ N $L12=Q*DEL                                                            
     0024+ R OUT1.KL=$L12.K/DEL                                                    
     0025+ MEND                                                                    
     0026  C DEL=20                                                                
     0027  PARM DT=1                                                               
     0028  PARM START=0                                                            
     0029  PARM STOP=50                                                            
     0030  PARM PLTPER=1                                                           
     0031  PLOT OUT=3(0,60),Q=R,OUT1=1                                             
1PAGE 2    DELAY TEST WITH RAMP                              (C) 1978 UND
 
      3=OUT       R=Q         1=OUT1      
 
   1R3  0             15            30            45            60            
     0  . . .3. . . . . . . . . . . . . . . . . . . . . . . . . .  3R1   
        .    3        .             .             .             .  3R1   
        .    3        .             .             .             .  3R1   
 T      .    3        .             .             .             .  3R1   
 I      .    3        .             .             .             .  3R1   
 M      .    3        .             .             .             .  3R1   
 E      .    3R       .             .             .             .  31    
        .    3 R      .             .             .             .  31    
        .    3 R      .             .             .             .  31    
        .    3  R     .             .             .             .  31    
    10  . . .3. .R. . . . . . . . . . . . . . . . . . . . . . . .  31    
        .    3    R   .             .             .             .  31    
        .    31    R  .             .             .             .        
        .    31     R .             .             .             .        
        .    31      R.             .             .             .        
        .    3 1      R             .             .             .        
        .    3 1      .R            .             .             .        
        .    3 1      . R           .             .             .        
        .     3 1     .  R          .             .             .        
        .     3 1     .   R         .             .             .        
    20  . . . 3 .1. . . . .R. . . . . . . . . . . . . . . . . . .        
        .      3 1    .     R       .             .             .        
        .      3  1   .      R      .             .             .        
        .       3 1   .      R      .             .             .        
        .       3  1  .       R     .             .             .        
        .        3 1  .        R    .             .             .        
        .        3  1 .         R   .             .             .        
        .         3  1.          R  .             .             .        
        .         3  1.           R .             .             .        
        .          3  1            R.             .             .        
    30  . . . . . . 3 .1. . . . . . R . . . . . . . . . . . . . .        
        .           3 .1            .R            .             .        
        .            3. 1           . R           .             .        
        .             3  1          .  R          .             .        
        .             .3 1          .   R         .             .        
        .             .3  1         .    R        .             .        
        .             . 3  1        .     R       .             .        
        .             .  3 1        .      R      .             .        
        .             .   3 1       .      R      .             .        
        .             .    3 1      .       R     .             .        
    40  . . . . . . . . . .3. 1 . . . . . . .R. . . . . . . . . .        
        .             .     3  1    .         R   .             .        
        .             .      3 1    .          R  .             .        
        .             .       3 1   .           R .             .        
        .             .        3 1  .            R.             .        
        .             .         3 1 .             R             .        
        .             .          3 1.             .R            .        
        .             .           31.             . R           .        
        .             .           3 1             .  R          .        
        .             .            3.1            .   R         .        
    50  . . . . . . . . . . . . . . 3 1 . . . . . . . .R. . . . .