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