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 
                                                                                                                                                                            