C C SETRP---SET TRAP ROUTINE TO SET BREAK POINT TRAPS(OCTAL 3'S) IN CORE. C C INPUTS: LOCATION AT WHICH TO SET THE TRAP AT. C C SUBROUTINE SETRP(IADD) INTEGER TASKNM(2),ITERM,IDSW,RECDAT(9),ITASK(2),IADD,IERR COMMON/IONODE/ TASKNM,ITERM,IDSW,RECDAT,ITASK RECDAT(3)=5 RECDAT(4)=IADD RECDAT(5)=2 RECDAT(6)=3 CALL SNDREC(IERR,2) RETURN END