TAG      PROC  P,2                                                      SG$00010
SG$GTVER NAME                                                           SG$00020
//I      JSET  &P(1)+1                                                  SG$00030
//       GO    .LAB&I                                                   SG$00040
//.LAB1  NOP                                                            SG$00050
//&TAG   JSET  &P(2,1)                                                  SG$00060
//       GO    .PROCEND                                                 SG$00070
//.LAB2  NOP                                                            SG$00080
//&TAG   JSET  &P(2,2)                                                  SG$00090
//       GO    .PROCEND                                                 SG$00100
//.LAB3  NOP                                                            SG$00110
//&TAG   JSET  &P(2,3)                                                  SG$00120
//       GO    .PROCEND                                                 SG$00130
//.LAB4  NOP                                                            SG$00140
//&TAG   JSET  &P(2,4)                                                  SG$00150
//       GO    .PROCEND                                                 SG$00160
//.LAB5  NOP                                                            SG$00170
//&TAG   JSET  &P(2,5)                                                  SG$00180
//       GO    .PROCEND                                                 SG$00190
//.LAB6  NOP                                                            SG$00200
//&TAG   JSET  &P(2,6)                                                  SG$00210
//       GO    .PROCEND                                                 SG$00220
//.LAB7  NOP                                                            SG$00230
//&TAG   JSET  &P(2,7)                                                  SG$00240
//       GO    .PROCEND                                                 SG$00250
//.LAB8  NOP                                                            SG$00260
//&TAG   JSET  &P(2,8)                                                  SG$00270
//       GO    .PROCEND                                                 SG$00280
//.LAB9  NOP                                                            SG$00290
//&TAG   JSET  &P(2,9)                                                  SG$00300
//.PROCEND NOP                                                          SG$00310
         END                                                            SG$00320
