         PROC                                                           SG$00010
SG$RDH   NAME                                                           SG$00020
//GU100  JSET  &DU100++&DDCT1000                                        SG$00030
//GU100  JSET  &GU100++&DU200                                           SG$00040
//GU100  JSET  &GU100++&DUNISCOPE                                       SG$00050
//G1004  JSET  &D1004++&D9200                                           SG$00060
//G1004  JSET  &G1004++&D9300                                           SG$00070
//G1004  JSET  &G1004++&D1004EM                                         SG$00080
//GDCT2000     JSET     &DDCT2000++&DDCT2EM                             SG$00090
//GBSC   JSET  0+&DBSC                                                  SG$00100
//GDCT500 JSET &DDCT500++&DTTY                                          SG$00110
//GDCT500 JSET &GDCT500++&DDCT524                                       SG$00120
//GDCT500      JSET  &GDCT500++&DDCT475                                 SG$00130
//       NOP                                                            SG$00140
//DEVICES JSET &GBSC                                                    SG$00150
//X      JSET  &GDCT500*2                                               SG$00160
//DEVICES JSET &DEVICES++&X                                             SG$00170
//X      JSET  &GDCT2000*4                                              SG$00180
//DEVICES JSET &DEVICES++&X                                             SG$00190
//X      JSET  &GU100*8                                                 SG$00200
//DEVICES JSET &DEVICES++&X                                             SG$00210
//X      JSET  &G1004*16                                                SG$00220
//DEVICES JSET &DEVICES++&X                                             SG$00230
// NOP                                                                  SG$00240
// NOP                                  BSC HANDLER SELECT              SG$00250
//       IF    ('&GBSC' EQ '0').LAB49                                   SG$00260
//Y      JSET  0                                                        SG$00270
//.LAB40 IF    ('&T2780' EQ '').LAB41                                   SG$00280
//X      JSET  &Y+1                                                     SG$00290
//.LAB41 IF    ('&TBSC' EQ '').LAB43                                    SG$00300
//X      JSET  &Y+2                                                     SG$00310
//       IF    ('&DBSCTOGGLE' EQ '').LAB43                              SG$00320
//X      JSET  3                                                        SG$00330
//.LAB43 IF    ('&FDEBUG' EQ '').LAB43A                                 SG$00340
//X      JSET  &X+3                                                     SG$00350
//.LAB43A      NOP                                                      SG$00360
         INCLUDE   TZ$B0&X,NEWOBJ                                       SG$00370
//.LAB49 NOP                                                            SG$00380
// NOP                                  DCT2000 HANDLER SELECT          SG$00390
//       IF    ('&GDCT2000' EQ '0').LAB54                               SG$00400
//X      JSET  0                                                        SG$00410
//       IF    ('&DDC929&DDCT2EM' EQ '').LAB50                          SG$00420
//X      JSET  3                                                        SG$00430
//.LAB50 IF    ('&DDCT2000' EQ '').LAB50A                               SG$00440
//X      JSET  &X+1                                                     SG$00450
//       IF    ('&X' EQ '4').LAB51                                      SG$00460
//.LAB50A IF   ('&TAX1' EQ '').LAB51                                    SG$00470
//X      JSET  &X+1                                                     SG$00480
//.LAB51 IF    ('&FDEBUG' EQ '').LAB52                                  SG$00490
//X      JSET  &X+4                                                     SG$00500
//.LAB52 NOP                                                            SG$00510
         INCLUDE   TZ$E0&X,NEWOBJ                                       SG$00520
//.LAB54 NOP                                                            SG$00530
// NOP                                  DCT500 HANDLER SELECT           SG$00540
//       IF    ('&GDCT500' EQ '0').LAB59                                SG$00550
//X      JSET  1                                                        SG$00560
//       IF    ('&FTRAN' NE '').LAB58                                   SG$00570
//DDCT500AUTO JSET  0+&DDCT500AUTO                                      SG$00580
//DDCT500AUTO  JSET  &DDCT500AUTO++&DDCT524AUTO                         SG$00590
//BAUDOT JSET  &MTTY28++&MTTY32                                         SG$00600
//X      JSET  &MTTY33++&MTTY35                                         SG$00610
//Y      JSET  &MTTY37++&MTTY38                                         SG$00620
//ASCII  JSET  &X++&Y                                                   SG$00630
//ASCII  JSET  &ASCII++&MTTY                                            SG$00635
//ASCII  JSET  &ASCII++&DDCT500TTY                                      SG$00640
//ASCII  JSET  &ASCII++&DDCT524TTY                                      SG$00650
//ASCII  JSET  &ASCII++&DDCT475                                         SG$00660
//       NOP                                                            SG$00670
//.LAB55 IF    ('&TAX4&TAX5&DDCT500AUTO&ASCII&BAUDOT' NE '010').LAB56   SG$00680
//X      JSET  6                                                        SG$00690
//FRD6   JSET  1                   SET IF TZ$F06                        SG$00700
//       IF    (&GBSC&GDCT2000&GU100&G1004&FBASIC NE 00001).LAB58       SG$00710
//BASIC  JSET  1                                                        SG$00720
//X      JSET  2                   BASIC HANDLER                        SG$00730
//       GO    .LAB58                                                   SG$00740
//.LAB56 IF    ('&DDCT500AUTO&ASCII&BAUDOT' NE '001').LAB57             SG$00750
//X      JSET  3                                                        SG$00760
//FRD3   JSET  1                   SET IF TZ$F03                        SG$00770
//       GO    .LAB58                                                   SG$00780
//.LAB57 IF    ('&DDCT500AUTO&ASCII&BAUDOT' NE '110').LAB57A            SG$00790
//X      JSET  4                                                        SG$00800
//       GO    .LAB58                                                   SG$00810
//.LAB57A      NOP                                                      SG$00820
//X      JSET  5                                                        SG$00830
//.LAB58 NOP                                                            SG$00840
         INCLUDE   TZ$F0&X,NEWOBJ                                       SG$00850
//.LAB59 NOP                                                            SG$00860
// NOP                                  U100 HANDLER SELECT             SG$00870
//       IF    ('&GU100' EQ '0').LAB69                                  SG$00880
//X      JSET  1                                                        SG$00890
//       IF    ('&FTRAN' NE '').LAB67                                   SG$00900
//       IF    ('&DDCT1000BATCH' EQ '').LAB60                           SG$00910
//X      JSET  12                  DCT1000 BATCH                        SG$00920
//       GO    .LAB66                                                   SG$00930
//.LAB60 IF    ('&DDCT1000' EQ '').LAB61                                SG$00940
//X      JSET  &X+5                                                     SG$00950
//       GO    .LAB66                                                   SG$00960
//.LAB61 IF    ('&TAX3' EQ '').LAB62                                    SG$00970
//X      JSET  &X+4                                                     SG$00980
//       GO    .LAB66                                                   SG$00990
//.LAB62 IF    ('&TAX2' EQ '').LAB63                                    SG$01000
//X      JSET  &X+3                                                     SG$01010
//       GO    .LAB66                                                   SG$01020
//.LAB63 IF    ('&GBSC&GDCT500&GDCT2000&G1004' EQ '0000').LAB64         SG$01030
//X      JSET  &X+2                                                     SG$01040
//HRD3   JSET  1                                                        SG$01050
//       GO    .LAB66                                                   SG$01060
//.LAB64 NOP                                                            SG$01070
//X      JSET  &X+1                                                     SG$01080
//       IF    ('&FBASIC' NE '')BASIC                                   SG$01090
//X      JSET  &X+1                                                     SG$01100
//       GO    .LAB66                                                   SG$01110
//BASIC  JSET  1                                                        SG$01120
//.LAB66 IF    ('&FDEBUG' EQ '').LAB67                                  SG$01130
//X      JSET  &X+1                                                     SG$01140
//       IF    (&X GT 9).LAB68                                          SG$01150
//X      JSET  &X+4                                                     SG$01160
//.LAB67 IF    (&X GT 9).LAB68                                          SG$01170
//       NOP                                                            SG$01180
//X      JSET  0&X                                                      SG$01190
//.LAB68 NOP                                                            SG$01200
         INCLUDE   TZ$H&X,NEWOBJ                                        SG$01210
//.LAB69 NOP                                                            SG$01220
// NOP                                  1004 HANDLER SELECT             SG$01230
//       IF    ('&G1004' EQ '0').LAB74                                  SG$01240
         INCLUDE   TZ$T01,NEWOBJ                                        SG$01250
         INCLUDE   TZ$T02,NEWOBJ                                        SG$01260
         INCLUDE   TZ$T03,NEWOBJ                                        SG$01270
//       IF    ('&D1004EM' EQ '').LAB74                                 SG$01280
//Y      JSET  1                                                        SG$01290
//       IF    ('&FDEBUG' EQ '').LAB69A                                 SG$01300
//Y      JSET  2                                                        SG$01310
//.LAB69A      NOP                                                      SG$01320
         INCLUDE   TZ$Y0&Y,NEWOBJ                                       SG$01330
//.LAB74 NOP                                                            SG$01340
// NOP                                  NTR HANDLER SELECT              SG$01350
//       IF    ('&FNTR' EQ '').LAB79                                    SG$01360
//X      JSET  1                                                        SG$01370
//       IF    ('&FDEBUG' EQ '').LAB75                                  SG$01380
//X      JSET  2                                                        SG$01390
//.LAB75 NOP                                                            SG$01400
         INCLUDE   TZ$X0&X,NEWOBJ                                       SG$01410
//.LAB79 NOP                                                            SG$01420
// NOP                                  COMMON ROUTINES SELECT          SG$01430
//       IF    ('&DRDHA&DRDHB&DRDHC&DRDHD' EQ '').LAB73A                SG$01440
//DEVICES JSET 255                                                      SG$01450
//       IF    ('&DRDHA' EQ '').LAB71                                   SG$01460
         INCLUDE   RDHA,NEWOBJ                                          SG$01470
//.LAB71 IF    ('&DRDHB' EQ '').LAB72                                   SG$01480
         INCLUDE   RDHB,NEWOBJ                                          SG$01490
//.LAB72 IF    ('&DRDHC' EQ '').LAB73                                   SG$01500
         INCLUDE   RDHC,NEWOBJ                                          SG$01510
//.LAB73 IF    ('&DRDHD' EQ '').LAB73A                                  SG$01520
         INCLUDE   RDHD,NEWOBJ                                          SG$01530
//.LAB73A      NOP                                                      SG$01540
//       NOP                                                            SG$01550
//       NOP                            COMMON ROUTINES SELECT          SG$01560
//       IF    ('&BASIC' NE '').LAB20F                                  SG$01570
//       NOP   1004=16 U100=8 DCT2000=4 DCT500=2 BSC=1                  SG$01580
         INCLUDE   TZ$G1,NEWOBJ                                         SG$01590
//X      JSET  &FRD3*2                                                  SG$01600
//X      JSET  14--&X                                                   SG$01610
//X      JSET  &DEVICES**&X        011X0                                SG$01620
//       IF    (&X EQ 0).LAB20A                                         SG$01630
         INCLUDE   TZ$G2,NEWOBJ                                         SG$01640
//TZG2   JSET  1                                                        SG$01650
//.LAB20A NOP                                                           SG$01660
//X      JSET  &DEVICES**21        10101                                SG$01670
//       IF    (&X EQ 0).LAB20B                                         SG$01680
         INCLUDE   TZ$G3,NEWOBJ                                         SG$01690
//.LAB20B NOP                                                           SG$01700
//X      JSET  &DEVICES**10        01010                                SG$01710
//       IF    (&X EQ 0).LAB20C                                         SG$01720
         INCLUDE   TZ$G4,NEWOBJ                                         SG$01730
//.LAB20C NOP                                                           SG$01740
         INCLUDE   TZ$G5,NEWOBJ                                         SG$01750
//X      JSET  &HRD3*8                                                  SG$01760
//Y      JSET  &FRD3++&FRD6                                             SG$01770
//Y      JSET  &Y*2                                                     SG$01780
//X      JSET  &X++&Y                                                   SG$01790
//X      JSET  10--&X                                                   SG$01800
//X      JSET  &DEVICES**&X        0X0X0                                SG$01810
//       IF    (&X EQ 0).LAB20E                                         SG$01820
         INCLUDE   TZ$G6,NEWOBJ                                         SG$01830
//.LAB20E NOP                                                           SG$01840
//       IF    ('&FDEBUG' EQ '').LAB20F                                 SG$01850
         INCLUDE   TZ$G7,NEWOBJ                                         SG$01860
//.LAB20F NOP                                                           SG$01870
//       IF    ('&DBSCTRANSCOD' EQ '').LAB44                            SG$01880
         INCLUDE   TZ$B11,NEWOBJ                                        SG$01890
//.LAB44 IF    ('&DBSCASCII' EQ '').LAB45                               SG$01900
//X      JSET  12                                                       SG$01910
//       IF    ('&TZG2' NE '')NEXT                                      SG$01920
//X      JSET  13                                                       SG$01930
//NEXT   NOP                                                            SG$01940
         INCLUDE   TZ$B&X,NEWOBJ                                        SG$01950
//.LAB45 NOP                                                            SG$01960
         END                                                            SG$01970
