Retro1.org codex

*DECK     SSOJOP
          IDENT  SSOJOP 
          ENTRY  SSOJOP 
          ENTRY  SSORTN 
          TITLE  SSOJOP - JUMP TO OVERLAY PROGRAM.
*COMMENT  JUMP TO OVERLAY PROGRAM.
 JOP      SPACE  4,10 
***       SSOJOP - JUMP TO OVERLAY PROGRAM. 
* 
*         S. H. FISCHER.     82/05/28.
          SPACE  4,10 
***       SSOJOP IS A ROUTINE TO JUMP TO THE STARTING POINT OF THE
*         OVERLAY. IT ALSO CONTAINS THE ENTRY POINT TO JUMP TO
*         ON RETURN FROM THE OVERLAY. 
          SPACE  4,10 
***       SYMPL CALLING SEQUENCE. 
* 
*         SSOJOP(ADDR); 
*                ADDR = VARIABLE CONTAINING THE ABSOLUTE ADDRESS TO JUMP
*                TO.
* 
*         SSORTN; 
*                THIS JUMP CAN ONLY BE MADE FROM AN OVERLAY WHICH WAS 
*                JUMPED TO BY THE ABOVE ENTRY POINT.
 SSOJOP   SPACE  4,10 
 SSOJOP   EQ     *+1S17D
          SA3    X1 
          SB7    X3 
          JP     B7          ENTER OVERLAY
SSORTN    SPACE  4,10 
SSORTN    NO
 +        EQ     SSOJOP      RETURN FROM OVERLAY
 
 
          END