         PROC
SWXGEN1  NAME
// EXEC LIBS                                                            AUT00310
/$
          FIL       D7=$Y$RUN
         ELE.N D7,O,CF@DCN
0001
        }CF@DCN   MODULE GENERATED VIA TRANSAT           CF@DC
0002{N    K     BUFFER$  	     TYPBUF$   k    PRTBUF$ -     X1h1{/ 
0003K  1k  1d &	K1- K 11m1n 10   \0d\0j -0% - j1
0004m0;- u    / /-1D00 &1H0=    1\0qX1h -  1   -    1m
0005m"1j 10ym1ڰ1 1 1  1 1d 
 0  k 1= 0RK &      
00061  1j11 &k+&j0& .    1j& 1k-&L & 1 &&&1d 1&1d$&
00071H1    &	01      1  &
   	 01dn  1K &   &&
0008k  01<   j 11 \1                                            
0009               CD10    ]               	           
0010|  
         EOD
         ELE.N D7,P,SWXSUB1
         MACRO
         SWXSUB1 &A,&B
LOADNET  CSECT                                                          00001390
         ICSAVE LNSAVE,2                                                00001400
         STXIT OC,OCROUT,OCSAVE,OCWK,52                                 00001410
         NETREQ &A,ERRET=REQERR,LNEREQ=(NO),PASSWORD=&B
         GOBACK                                                         00001430
         LTORG                                                          00001440
LNSAVE   DC    18F'0'                                                   00001450
RELNET   CSECT                                                          00001470
         ICSAVE RELSAVE,2                                               00001480
         NETREL &A
         GOBACK                                                         00001500
         LTORG                                                          00001510
RELSAVE  DC    18F'0'                                                   00001520
         EXTRN OCSAVE,OCROUT,OCWK,REQERR
         MEND
         EOD
         ELE.N D7,P,TQ#DSCTS
         MACRO                                                          00003409
         TQ#DSCTS                                                       00003410
         TN#DSCTS                                                       00003412
         TM#DSCTS                                                       00003414
         MEND                                                           00003415
         EOD
         ELE.N D7,P,TR#USER
         MACRO
         TR#USER
         TL#USER
TERMDS   DSECT
         DS    CL4
TERMNME  DS    CL4
TERMACT  DS    CL4
TERMDACT DS    CL4
TERMSEND DS    CL4
TPRCSPT  DS    CL4
TERMRCV  DS    CL4
TRMLINE  DS    CL4
ICPFLAG  DS    CL1
ALTRFLG  DS    CL1
ACTIVE   DS    CL1
SCANFCT  DS    CL1
HIGHQNME DS    CL4
MEDQNME  DS    CL4
LOWQNME  DS    CL4
         DS    CL92
TDICE    DS    CL4
AUX1     DS    CL8
RTNADD   DS    CL4
SCANSTC  DSECT
BLCELL   DS    0F
ENTRYADD DS    CL4
TRMNM    DS    CL4
ADJSW    DS    CL1
HV       DS    XL4
HIGHPT   DS    F
MEDPT    DS    F
LOWPT    DS    F
         MEND
         EOD
         ELE.N D7,P,STDEQU
         MACRO
         STDEQU
         SUPEQU
         MEND
         EOD
         ELE.N D7,P,SLJ
         MACRO
&NAME    SLJ   &DST
*               STORE LOCATION AND JUMP MACRO
&NAME    L     15,=A(&DST)         LOAD REG 14 WITH JUMP DESTINATION
         BALR  14,15               JUMP AND STORE PRESENT LOCATION
         MEND
         EOD
         ELE.N D7,P,ICSAVE
         MACRO                                                          GEN00010
&NAME    ICSAVE &SAVE,&BASE                                             GEN00020
         USING *,15                                                     GEN00030
&NAME    STM   14,12,12(13)        STORE REGISTERS                      GEN00040
         LA    &BASE,&SAVE         LOAD NEW BASE WITH USER SAVE AREA    GEN00050
         ST    &BASE,8(13)         STORE FORWARD POINTER                GEN00060
         ST    13,4(&BASE)         STORE BACKWARD POINTER               GEN00070
         LR    13,&BASE            LOAD REG 13 WITH NEW SAVE AREA ADDR  GEN00080
         BALR  &BASE,0                                                  GEN00090
         USING *,&BASE                                                  GEN00100
         DROP  15                  DROP REG 15 USAGE                    GEN00110
         MEND                                                           GEN00120
         EOD
         ELE.N D7,P,GOBACK
         MACRO                                                          GEN00130
&NAME    GOBACK                                                         GEN00140
*               GO BACK MACRO                                           GEN00150
&NAME    L     13,4(13)            LOAD REG 13 WITH OLD SAVE AREA ADDR  GEN00160
         LM    14,12,12(13)        RESTORE CALLING PROG REGS            GEN00170
         BR    14                  RETURN TO CALLING PROG               GEN00180
         MEND                                                           GEN00190
         EOD
         ELE.N D7,P,TL#USER
         MACRO                                                          00003416
         TL#USER                                                        00003417
         TL#EQUS
         MEND                                                           00003420
         EOD
/*
         END
