ASMB
      HED .          TMSGN MODULE  ** SEGMENT CALLER  **
      NAM TMGSC,7 92903-16406 REV.1913  790130
      SPC 2 
*     **************************************************************
*     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
*     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
*     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
*     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
*     **************************************************************
      SPC 2 
**********************************************************************
*                                                                    *
*     NAME:   TMGSC     SEMENT CALLER                                *
*     SOURCE: &TMGSC    92903-18406                                  *
*     BINARY: %TMGSC    92903-16406    PART OF  RTMGL1               *
*                                                                    *
*     PGMR:   FRANCOIS GAULLIER                                      *
*                                                                    *
**********************************************************************
  SPC 3 
*     **************************************************
*     *                                                *
*     *                                                *
*     *     CALL SEGMENT DEFINE BY THE NAME OF THE     *
*     *     4TH FIRST CHARACTERS OF THE MAIN, THE 6TH  *
*     *     BEING A NUMBER DEFINED IN THE CALLING      *
*     *     SEQUENCE.                                  *
*     *                                                *
*     *   CALLING SEQUENCE:                            *
*     *                                                *
*     *     CALL TMGSC(SEG#,IP1,IP2,IP3,IP4,IP5)       *
*     *                                                *
*     *   WHERE:                                       *
*     *       SEG#  - SEGMENT NUMBER TO BE LOADED      *
*     *       IP1   - FIRST PARAMETERS PASSED TO THE   *
*     *               SEGMENT USING A COMMON BUFER     *
*     *               INSTEAD OF RMPAR (RTE-M COMP.)   *
*     *       IP2 THRU IP5  ARE 2ND TO 5TH PARAMETERS  *
*     *                     SAME AS THE 1ST PARAM.     *
*     *                                                *
*     *                                                *
*     **************************************************
  SPC 3 
      EXT PNAME,EXEC,.ENTR
      ENT TMGSC 
  SPC 2 
*                   DEFINE LABEL COMMON 
* 
      EXT TMGC1 
* 
      SUP 
   SPC 2
TMGSC NOP           ENTRY POINT 
      LDA .D0       SET DEFAULT PARAMETERS ADDR. TO 
      STA N         ADDRESS OF VALU 0 
      STA I 
      STA J 
      STA K 
      STA L 
      STA M 
      LDA TMGSC     RECALL ENTRY ADDR 
      STA TMGS.     TO USE .ENTR TO RETREIVE PARAMETERS 
      JMP TMGS.+1 
* 
.D0   DEF D0
D0    DEC 0 
  SPC 2 
N     NOP           SEGMENT NUMBER ADDR 
I     NOP           1 ST PARAM
J     NOP           2 ND PARAM
K     NOP           3 RD PARAM
L     NOP           4 TH PARAM
M     NOP           5 TH PARAM
TMGS. NOP           ENTRY POINT 
      JSB .ENTR 
      DEF N 
* 
      JSB PNAME     RETREIVE PROGRAM NAME 
      DEF *+2 
      DEF NAME
* 
      LDA NAME+1    GET 3RD AND 4TH LETTER
      AND =B177400  MASK OUT 4TH (COPY # IN RTE-IV) 
      IOR =B107     RESTORE 4TH LETTER WITH "G" 
      STA NAME+1
* 
      LDA N,I       RECALL SEGMENT NUMBER (DEFAULT IS 0)
      ADA =B60      CONVERT IT INTO ASCII 
      ALF,ALF       PUT IT IN LEFT BYTE 
      IOR =B40      MERGE WITH SPACE
      STA NAME+2    AND STORE IT AS 5TH-6TH CHAR OF NAME
* 
      LDA I,I       STORE SEGMENT PARAMETERS INTO 
      STA TMGC1+4     THE COMMON BUFFER 
      LDA J,I 
      STA TMGC1+4+1 
      LDA K,I 
      STA TMGC1+4+2 
      LDA L,I 
      STA TMGC1+4+3 
      LDA M,I 
      STA TMGC1+4+4 
* 
      JSB EXEC      SEGMENT CALL REQUEST
      DEF *+8 
      DEF D8        SEGMENT LOAD
      DEF NAME      SEGMENT NAME
      DEF I,I       1 ST PARAM
      DEF J,I       2 ND PARAM
      DEF K,I       3 RD PARAM
      DEF L,I       4 TH PARAM
      DEF M,I       5 TH PARAM
  SPC 2 
D8    DEC 8 
NAME  BSS 3 
      END 
                                                                                                                                                                                                                                                        