1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)sigtrtst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1044004Sbostic integer signal 1144004Sbostic external trap 1244004Sbostic isav = signal(8, 0, 1) 1344004Sbostic write(*,*) "1", signal(8, 0, 0) 1444004Sbostic write(*,*) "0", signal(8, trap, -1) 1544004Sbostic write(*,*) "addr", signal(8, 0, isav) 1644004Sbostic write(*,*) isav, signal(8, trap, -1) 1744004Sbostic x = 1.0/x 1844004Sbostic end 1944004Sbostic 2044004Sbostic subroutine trap(isig) 2144004Sbostic write(*,*) "Here I am." 2244004Sbostic end 23