ASMB NAM NEWFL,7 92069-16182 REV.2013 790126 ************************************************************* * * ****************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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. ******************************************************************* * * * SOURCE: 92069-18182 * RELOC: 92069-16182 * * *****************************************************************: * * * NEWFL JUST PICKS UP ITS PARAMETERS AND CALLS DBCRT. ITS * WRITTEN IN ASMB ONLY BECAUSE IT USES AN EXTERNAL REFERENCE TO * AIRUN (THE ADDRESS OF THE RUN TABLE) AND THIS WAS NOT AVAILABLE * TO A FTN4 PROGRAM. **************************************************************** ENT NEWFL EXT AIRUN ADDRESS OF RUN TABLE AFTER DBOPN CALL EXT DBCRT EXT .ENTR ******************************************************************* LU1 NOP IDCB NOP IMODE NOP ISTAT NOP NEWFL NOP JSB .ENTR DEF LU1 JSB DBCRT DEF RTN DEF AIRUN DEF IDCB,I DEF IMODE,I DEF ISTAT,I RTN NOP JMP NEWFL,I END