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

* JSB SWAP * * * SWAP NOP STA SEGAD JSB EXEC DEF *+3 DEF D8 SEGAD NOP SWPRT JMP SWAP,I * D8 DEC 8 END