C C THIS PROGRAM LOADS THE MIOP WITH AN APPROPRIATE CORE LOAD C COMMON /RSX11M/IA(256) !CONTAINS THE CORE LOAD DO 20 ICHAN=0,15 DO 10 IREG=1,8 10 CALL WRF(ICHAN,IREG,0) !CLEAR ALL FILE REGISTERS CALL WRF(ICHAN,9,"100367) !SET PSR TO EXIT STATEMENT 20 CONTINUE DO 40 I = 0,255 CALL RDM(I,IDAT) !GET OLD LOAD CALL WRM(I,0) IF(IDAT .EQ. IA(I+1)) GO TO 40 IERR = IERR + 1 40 CONTINUE IF( IERR .NE. 0) WRITE(1,1005)IERR DO 50 I = 0,255 50 CALL WRM(I,IA(I+1)) DO 100 I = 0,255 CALL RDM(I,J) !READ BACK WORD TO CHECK IF( J.EQ. IA(I+1)) GO TO 100 !IS OK WRITE(1,1000) I,IA(I+1),J CALL EXIT 100 CONTINUE WRITE(1,1001) 1001 FORMAT(' OK!'/) 1000 FORMAT(' ERROR IN LOCATION' O4' EXPECTED='O7' ACTUAL='O7/) 1005 FORMAT(' ****'I6' ERRORS IN OLD MIOP CORELOAD') END