ASMB,R,L,C
*     NAME:   RTMLG 
*     SOURCE: 91740-18045 
*     RELOC:  91740-16045 
*     PGMR:   MIKE SCHOENDORF 
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
* 
      NAM RTMLG,3,90 91740-16045 REV 1740 770912
* 
* 
*  THIS IS THE MAIN OF THE SEGMENTED GENERATOR-LOADER.
*  ITS PURPOSE IS TO CLEAR SOME FLAGS, TO DETERMINE LAST
*  WORD OF AVAILABLE MEMORY (NEEDED FOR BUILDING LOADER 
*  SYMBOL TABLE), AND TO LOAD IN SEGMENT 1 (INITIALIZATION
*  SEGMENT).
* 
*  EXTERNALS
* 
* 
      EXT FUT4,GENRT,GLWAM,GNFLG,GNSG1
      EXT LDSEG,LDSG3,LWAMG,OPT.3,SEGFL 
* 
*  DUMMY EXTERNALS TO FORCE LOAD LIBRARY MODULES
* 
      EXT RTMLC,$CON,DO#ON,RT.G1
* 
      ENT DU#MY 
* 
* 
* 
RTMLG CLA 
      STA GNSG1     WHERE RETURN FLAG 
      STA LDSG3     WHICH ENTRY IN SEGMENT 3
      STA GENRT     INITIATOR FLAG
      STA GNFLG     CONTINUATOR FLAG
      STA SEGFL     LAST SEGMENT FLAG 
      CLA,INA 
      JSB GLWAM     GET LAST WORD OF AVAILABLE MEMORY 
      STA OPT.3     SAVE FOR FIXUP TABLE
      STA LWAMG 
      ADA N3
      STA FUT4
      CLA 
      STA OPT.3,I   SET NUMBER OF FIXUPS TO ZERO
      LDA P12 
      JMP LDSEG     LOAD IN SEGMENT 1 
* 
N3    DEC -3
P12   DEC 12
* 
DU#MY NOP           DUMMY ENTRY FOR SYS GEN 
      END RTMLG 
                                                                                                                        