*DECK SSSCRR
IDENT SSSCRR
ENTRY SSSCRR
TITLE SSSCRR - CALL REQUESTED ROUTINE.
*COMMENT CALL REQUESTED ROUTINE.
SSSCRR SPACE 4,10
*** SSSCRR - CALL REQUESTED ROUTINE.
*
* S. H. FISCHER. 81/07/31.
SPACE 4,10
*** SSSCRR IS A ROUTINE TO PERFORM A COMPUTED RETURN JUMP. IT
* IS USED WHEN THE ADDRESS OF THE ROUTINE HAS BEEN
* KEPT IN A TABLE.
SPACE 4,10
*** SYMPL CALLING SEQUENCE.
*
* SSSCRR(ADD, P1, P2, ...PN)
*
* ADD = ADDREDSS OF ROUTINE TO CALL.
*
* P1-PN = PARAMETERS FOR ROUTINE.
*
* NOTE ENTIRE PARAMETER LIST IS PASSED INCLUDING ADD.
CRR SPACE 4,10
SSSCRR EQ *+1S17D
SA3 X1 ADDRESS OF ROUTINE
SA2 SSSCRR
BX6 X2
SA6 X3 RETURN TO CALLER OF THIS ROUTINE
SB7 X3+1
RJ CRR1 VOID STACK ON ALL CDC LOWER CYBER MACHINES
CRR1 DATA 0
JP B7
END