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