ASMB,R,L,C
      NAM SWAP,7  92413-16018A  760329
      ENT SWAP,SWPRT
      EXT EXEC
*     SOURCE: 92413-18018  REV A
*     RELOC:  92413-16018  REV A
* 
* 
* 
* 
* SWAP IS A ROUTINE THAT ALLOWS THE CALLING OF A
* SEGMENT AND RETURNING TO THE MAIN IMMEDIATELY 
* THE SEGMENT CAN THEN BE TRATED LIKE A SUBROUTINE
* 
* CALLING SEQUENCE: 
* 
*     LDA <ADDRESS OF SEG NAME BUFFER>
*     JSB SWAP
*     <RETURN POINT>
* 
* 
SWAP  NOP 
      STA SEGAD 
      JSB EXEC
      DEF *+3 
      DEF D8
SEGAD NOP 
SWPRT JMP SWAP,I
* 
D8    DEC 8 
      END 
                                                                                                                                                                                              