         PROC                                                           SG$00010
SG$TICAM NAME                                                           SG$00020
//NTCBS  JSET  0                                                        SG$00030
//NFILES JSET  1                                                        SG$00040
         INCLUDE   TZ$TLOD,NEWOBJ                                       SG$00050
         INCLUDE   TZ$ACT3,NEWOBJ                                       SG$00060
         INCLUDE   TZ$PTRIA,NEWOBJ                                      SG$00070
//       IF    ('&FOPCOM' EQ '').LAB1                                   SG$00080
         INCLUDE   TZ$TOPCM,NEWOBJ                                      SG$00090
//.LAB1  NOP                                                            SG$00100
         ENTER     TM#TROOT                                             SG$00110
         OVERLAY   AREA1,BDAREA                                         SG$00120
//                                                              NOP     SG$00130
//X      JSET  1                                                        SG$00140
//       IF    ('&BTHR' EQ '').LAB2                                     SG$00150
//X      JSET  2                                                        SG$00160
//.LAB2  IF    (&STAT EQ 0).LAB2A                                       SG$00170
//X      JSET  &X+4                                                     SG$00180
//.LAB2A NOP                                                            SG$00190
//                                                              NOP     SG$00200
         INCLUDE   TZ$BPS&X,NEWOBJ                                      SG$00210
         OVERLAY   AREA1,BDOVER                                         SG$00220
         INCLUDE   TZ$TBLD,NEWOBJ                                       SG$00230
         REGION    AREA2                                                SG$00240
         INCLUDE   TZ$TCOM3,NEWOBJ                                      SG$00250
         OVERLAY   AREA2                                                SG$00260
         INCLUDE   TZ$TCOM4,NEWOBJ                                      SG$00270
         INCLUDE   TZ$TCNC,NEWOBJ                                       SG$00280
         OVERLAY   AREA2                                                SG$00290
//                                                              NOP     SG$00300
//       IF    ('&DDCT500' EQ '').LAB3                                  SG$00310
         INCLUDE   TZ$F01,NEWOBJ                                        SG$00320
//       GO    .LAB4                                                    SG$00330
//.LAB3  NOP                                                            SG$00340
         INCLUDE   TZ$H01,NEWOBJ                                        SG$00350
//.LAB4  NOP                                                            SG$00360
//                                                              NOP     SG$00370
         OVERLAY   AREA2                                                SG$00380
         INCLUDE   TZ$S5,NEWOBJ                                         SG$00390
         OVERLAY   AREA2,DUST                                           SG$00400
         INCLUDE   TZ$TOVL,NEWOBJ                                       SG$00410
         INCLUDE   TZ$PIODU,NEWOBJ                                      SG$00420
//                                                              NOP     SG$00430
//DUSTOVL JSET TRN                                                      SG$00440
//DUSTINC JSET TOV                                                      SG$00450
//       SG$DUST                                                        SG$00460
KL$OCPR  EQU       TZ$TLOD                                              SG$00470
         END                                                            SG$00480
