unix/boot/spp/rpp/rpprat/ifcode.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#-h-  ifcode			  198  local   12/01/80  15:54:10
# ifcode - generate initial code for if
   include  defs

   subroutine ifcode (lab)
   integer lab

   include COMMON_BLOCKS

   integer labgen

   xfer = NO
   lab = labgen (2)
   call ifgo (lab)
   call indent (1)
   return
   end