*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