0                          SUBROUTINE LINKAGES                                                            PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   SUBROUTINE LINKAGES
  103                ORG   1                                                                  0001
  104         X3     EQU   99                                                          0099
  105         N      EQU   3                   THREE TIMES NUMBER OF PARAMETERS        0003
  106         ENTER  SBR   *+14                STORE NSI                            4  0001  H 018
  107                SBR   EXIT-1,0+X3         SAVE X3                              7  0005  H 032 0?0
  108                SBR   X3,*                STORE NSI INTO X3                    7  0012  H 099 018
  109                SBR   EXIT+3,N+X3         STORE RETURN                         7  0019  H 036 0?3
  110         * DO STUFF HERE.
  111                SBR   X3,*                                                     7  0026  H 099 032
  112         EXIT   B     *                                                        4  0033  B 036
  113                END   0                                                                 / 000 080
1                          SUBROUTINE LINKAGES                                                            PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 ENTER       1    EXIT       33    N           3    X3         99