         PROC                                                           SWA00010
MA#P17   NAME  1                                                        SWA00020
M3#SWAP  NAME  2                                                        SWA00030
M3#SWAP  L     R0$,M3#WORK(RE$)         WORK AREA ADDR                  SWA00040
         LA    R1$,M3#N                 NAME OF MODULE                  SWA00050
         LOADR (1),(0),M3#E             LOAD MODULE                     SWA00060
         LR    RF$,R1$                  CALL MODULE                     SWA00070
         BR    RF$                      ENTER SM#ORT50                  SWA00080
M3#N     DC    C'SM#ORT50'                                              SWA00090
M3#E     BAL   RF$,CTOPRJ               LOAD ERROR                      SWA00100
         DC    C'VF06'                                                  SWA00110
M3#N1    EQU   0              CL8  FD 1 NAME "FROM PUB"                 SWA00120
M3#N2    EQU   M3#N1+8        CL8  LFD 2 NAME "TO PUB"                  SWA00130
M3#N3    EQU   M3#N2+8                  INSERT TO MESSAGE               SWA00140
M3#WORK  EQU   M3#N3+8        CL4  DOUBLE WORD ALIGN ADR FOR WORK       SWA00150
M3#END   EQU   M3#WORK+4           EXIT POINT AFTER SWAP IS COMPLETE    SWA00160
         END                                                            SWA00170
