c c c TESTCD c MINIMAL CD DRIVER TEST PROGRAM C MAKE SURE SOME LISTENER ON THE other side (E.G. RCVLUP) C Is listening on PTC 1 C Author: Peter Heinicke C Date: September 24, 1984 C INTEGER*2 CDNAME(4),PTCBLK(4) DATA CDNAME/3RCD ,0,0,0/ PTCBLK/1,1,0,0/ I1=IFETCH(CDNAME) I2=IGETC() I3=LOOKUP(I2,CDNAME) TYPE *,I1,I2,I3 IF(MIN0(I1,I2,I3).LT.0) STOP 'INIT ERR' 20 IX=IWRITW(8,CDNAME,IADDR(PTCBLK),I2) IF(IX.LT.0) TYPE *,IX IF(PTCBLK(3).NE.1) TYPE *,PTCBLK GOTO 20 END