:JOB JDMPFACL,FIELD.SUPPORT,HP32033;RESTART
:TELLOP   ** SOFTDUMP FACILITY FOR HP-IB SYSTEMS ONLY **
:COMMENT
:COMMENT  1. DELETE THE SYNTAX CHECKING SEGMENT FROM THE COMMAND
:COMMENT    INTERPRETER USL.
:COMMENT
:COMMENT  2. CREATE AN SL WHICH HAS THE NEEDED DIAGNOSTICS PROCEDURES
:COMMENT
:COMMENT  3. BUILD THE SDF UTILITY SL (SDFSL)
:COMMENT
:COMMENT******************************************************
:COMMENT*    REQUIRED 'RENAMES' FOR JDMPFACL TO WORK.        *
:COMMENT*                                                    *
:COMMENT* P00P201A.HP32201.SUPPORT -> EDITOR.PUB.SYS,        *
:COMMENT* P00P212A.HP32212.SUPPORT -> FCOPY.PUB.SYS,         *
:COMMENT* TPSTOMP.HP32231.SUPPORT -> TPSTOMP.RESEG.SUPPORT,  *
:COMMENT* UD590A.HP32231.SUPPORT -> UD590A.RESEG.SUPPORT,    *
:COMMENT* USDFUTIL.HP32231.SUPPORT -> USDFUTIL.RESEG.SUPPORT *
:COMMENT* AFTER THE RENAMES, 'JDMPFACL.HP32033.SUPPORT'.     *
:COMMENT* CAN BE STREAMED.                                   *
:COMMENT******************************************************
:PURGE DUMUSL
:PURGE SADSL
:PURGE SDFSL
:PURGE SCRUSL
:BUILD SCRUSL;TEMP;DISC=1023;CODE=USL
:FCOPY FROM=U33U033C.HP32033.SUPPORT;TO=SCRUSL
:SEGMENTER
USL SCRUSL
PURGERBM SEGMENT,SYNSEG
BUILDUSL DUMUSL,300,8
AUXUSL UD590A.RESEG.SUPPORT
COPY UNIT,CRLF
COPY UNIT,PRINT
COPY UNIT,PRINTER'
COPY UNIT,READ
COPY UNIT,HANDLEINT
COPY UNIT,TTYIN
COPY UNIT,TTYOUT
COPY UNIT,INITADCC
COPY UNIT,CLEAROFFLINE
COPY UNIT,SETOFFLINE
COPY UNIT,DUMINIT
COPY UNIT,NOTSATPROC
COPY UNIT,DOAPAGE
COPY UNIT,DOSMSK
COPY UNIT,STARTIDLE
COPY UNIT,IIX'TIMER
COPY UNIT,STOPIDLE
COPY UNIT,LYNXREAD
COPY UNIT,LYNXPRINT
COPY UNIT,LYNXINITIALIZE
COPY UNIT,LYNXIDLEREAD
COPY UNIT,LYNXINTERRUPT
COPY UNIT,CONSOLEISLYNX
COPY UNIT,LYNXSTOPIDLE
COPY UNIT,DRTR
COPY UNIT,DRTW
COPY UNIT,WIOX
COPY UNIT,LYNXREADX
COPY UNIT,LYNXHARDWAREINI
COPY UNIT,LYNXRESETMASK
COPY UNIT,LYNXCONFIGPORT
COPY UNIT,LYNXHANDLEINT
COPY UNIT,LYNXSTARTIO
COPY UNIT,LYNXREADREGISTE
COPY UNIT,LYNXPASSCC
COPY UNIT,LYNXWRITEREGIST
COPY UNIT,RIOX
COPY UNIT,LYNXSETMASK
COPY UNIT,LYNXLOGINTERRUP
BUILDSL SADSL,200,1
ADDSL SAD
LISTSL
USL USDFUTIL.RESEG.SUPPORT
BUILDSL SDFSL,300,1
ADDSL SDFUTIL
ADDSL ININ
ADDSL HELP
ADDSL UTILITY1
ADDSL SDISC
ADDSL MTDVR
ADDSL SDFDISC
LISTSL
EXIT
:COMMENT
:COMMENT CREATE THE COMMAND INTERPRETER PROGRAM FILE
:COMMENT
:PURGE HASTINGS
:PREP SCRUSL,HASTINGS;MAXDATA=15000;STACK=15000;CAP=PM;PATCH=128
:SAVE HASTINGS
:COMMENT
:COMMENT  CREATE THE COMMAND INTERPRETER MEMORY IMAGE
:COMMENT
:FILE AMIGOSL=SDFSL
:FILE AEXPSL=SADSL
:PURGE P33P033C
:FILE SDFLOAD=P33P033C
:RUN TPSTOMP.RESEG.SUPPORT,SDFGENR
HASTINGS
N
N

N
SDF
:PURGE HASTINGS
:PURGE DUMUSL
:PURGE SDFSL
:PURGE SADSL
:PURGE PINPUT
:EDITOR
ADD
HALT
DUMP
WARMSTART
//
KEEP PSDFCOM
EXIT
:TELLOP ***** SUCCESSFULL COMPLETION OF JDMPFACL *****
:EOJ
