Retro1.org codex

*DECK NDA 
          IDENT  NDA
          COMMENT            NDA - NPU DUMP ANALYZER
          TITLE  NDA - NPU DUMP ANALYZER
          ENTRY  NDA
          ENTRY  FDMP 
          ENTRY  OUTNDAS
          ENTRY  OUTPUT 
          ENTRY  XLINP
          ENTRY  INPFIL 
          ENTRY  INPUT
          ENTRY  NDF
          ENTRY  NEUFILE
          ENTRY  ZZZZINP
          EXT    NDAS 
          SYSCOM B1 
          EJECT 
          SPACE  4
***       NDA - NPU DUMP ANALYZER.
* 
* 
*         THE FIELD LENGTH REQUIREMENT FOR *NDA* IS GIVEN IN
*         LIBDECK.  A CHANGE TO THIS FIELD LENGTH SHOULD
*         INCORPORATE A CHANGE TO THE *FL DIRECTIVE FOR *NDA* IN
*         LIBDECK.
          SPACE  4
 FDMP     FILEB  FDMPBF,3501B,(FET=8) 
 OUTNDAS  BSS    0
 OUTPUT   FILEC  BUF,BUFL,(FET=14)
 INPFIL   BSS    0
 INPUT    FILEC  IBUF,IBUFL,(FET=14)
 NDF      FILEB  NDFBUF,NDFBUFL,(FET=8) 
 NEUFILE  RFILEB BUF,BUFL,EPR,(FET=8),(IND=NEUNDX,INDEXL) 
 ZZZZINP  FILEC  ZZZZBUF,ZZZBUFL,(FET=8)
* 
* 
* 
          USE    /FDMPB/
 FDMPBF   BSS    3501B       CONTAINS 64*28 + 1 
          USE    *
 
 BUFL     EQU    3001 
 BUF      BSS    BUFL 
 IBUFL    EQU    201B 
 IBUF     BSS    IBUFL
 NDFBUFL  EQU    1001B
 NDFBUF   BSS    NDFBUFL
 INDEXL   EQU    200
 NEUNDX   BSS    INDEXL 
 ZZZBUFL  EQU    2001B
 ZZZZBUF  BSS    ZZZBUFL
          EJECT 
**    NDA - SET UP NDA FETS.
* 
*     M. E. VATCHER    81/04/21 
* 
*     THIS PROCEDURE SETS UP ALL FETS USED BY NDA.
* 
*     ENTRY  NONE.
* 
*     EXIT   NONE.
* 
*     METHOD
* 
*     DEFINE FETS AND RETURN JUMP TO NDAS.
* 
 NDA      BSS    0           START OF EXECUTION 
          RJ     NDAS        CALL SYMPL PROCEDURE 
          ENDRUN
 XLINP    CON    LINP 
          END    NDA