C TESTMS.FT, PAGE 1 OF 1. (5/19/72 - C.M.MOORE, RICE U., HOUSTON) C C CREATES DATA FILE DUMMY.DA WHICH CAN THEN BE VIEWED BY C MAGSPY TO DEMONSTRATE THE POINT AND OCTAL NUMBER DISPLAY MODES. C C USES SUBROUTINES CONTAINED IN LIBRARY FILE LIB12.RL C SEE WRITE-UP OF DECUS 12-48 FOR THEIR EXPLANATION. C DIMENSION XFILE(2),IDAT(256) C XFILE='DUMMY ' XFILE(2)='DA' C NB=MSYS(XFILE,LMAX) IF(NB)100,100,140 C SYS NOT FOUND??? 100 CALL EXIT C CHECK SPACE AVAILABLE ON SYS 140 IF(LMAX-2)160,200,200 C NO ROOM ON SYS 160 CALL EXIT C CREATE 2 256-WORD DATA BLOCKS ON SYS C 1ST BLOCK CONTAINS INTEGERS FROM 0017 TO 7777 200 DO 300 I=1,256 300 IDAT(I)=I*16-1 CALL WSYS(2,NB,IDAT) C 2ND BLOCK CONTAINS SINE WAVES DO 400 I=1,256 X=I-1 X=1600.0*SIN(X*6.2831853/255.0)+400.0*SIN(X*6.2831853/12.75) 400 IDAT(I)=X NB=NB+1 CALL WSYS(2,NB,IDAT) CALL CSYS(2) END