unix/boot/spp/rpp/ratlibf/dsdump.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

subroutine dsdump (form)
      integer form
      integer mem( 1)
      common/cdsmem/mem
      integer p, t, q
      t = 2
      call remark (27H** DYNAMIC STORAGE DUMP **.)
      call putint (1, 5, 2)
      call putch (32, 2)
      call putint (2 + 1, 0, 2)
      call remark (14H words in use.)
      p = mem (t + 1)
23000 if (.not.(p .ne. 0))goto 23001
      call putint (p, 5, 2)
      call putch (32, 2)
      call putint (mem (p + 0), 0, 2)
      call remark (17H words available.)
      q = p + mem (p + 0)
23002 if (.not.(q .ne. mem (p + 1) .and. q .lt. mem (1)))goto 23003
      call dsdbiu (q, form)
      goto 23002
23003 continue
      p = mem (p + 1)
      goto 23000
23001 continue
      call remark (15H** END DUMP **.)
      return
      end