.ENABLE SUBSTITUTION
TIM
! DN 11 DRIVER INDIRECT FILE
!
!   *************************************************************************
!   * DN 11 AUTO-CALL DEVICE HANDLER. PLEASE READ INSTRUCTIONS CAREFULLY!   *
!   *                                                                       *
!   *************************************************************************
!
.ASK GO TO CONTINUE TYPE CARRIAGE RETURN
!
!
!
!
!
! THIS FILE WILL ASSEMBLE THE DRIVER FOR THE NUMBER OF PORTS DESIRED.
! THIS FILE MUST BE EXECUTED FROM A PRIVILEDGED UIC.
! THE SOURCE FILES FOR THIS DRIVER ARE TO BE PLACED IN UIC [11,10].
! THE OBJECTS ARE PLACED IN UIC [11,24], LIST FILES IN UIC [11,34]
! IF YOU WISH TO PLACE THEM IN ANOTHER UIC YOU MUST EDIT THIS FILE,
! CHANGING UIC REFERENCES TO THE DESIRED UIC.
! USING THIS COMMAND LINE CREATE DESIRED UIC ON YOUR LB: DEVICE ...
! MCR> UFD [group,member] (carriage return)
!
! ******* NOTE: STANDARD (SUPPLIED) UIC'S ALREADY EXIST ON RSX MAPPED SYSTEMS!
! *******       The DN 11 Driver users manual is loaded to UIC [11,34]
!		on the system disk.
!
.ASK GO TO CONTINUE TYPE CARRIAGE RETURN
!
!		If you encounter a problem contact:
!
!			B. Hazard Automation Products Co.
!			Austin, Texas 512-258-1651 ex 218
!
!	THE FOLLOWING SUPPLIED INSTRUCTIONS FOR "INCORPORATING A USER WRITTEN
!	RESIDENT DRIVER" SHOULD BE FOLLOWED IF NO CHANGES WERE MADE TO THIS 
!	FILE PRIOR TO PHASE II OF SYSGEN. THIS PROCEDURE ASSUMES YOU ANSWERED
!	YES TO QUESTION 25 IN SYSGEN PHASE I (DO YOU INTEND TO INCLUDE A USER-
!	WRITTEN DRIVER?). IF YOU FAILED TO DO THIS CHANGE THE ANSWER FILE
!	SYSSAVED.DAT TO REFLECT USER WRITTEN DRIVER INCLUSION PRIOR TO RUNNING
!	SYSGEN PHASE II. REFERENCE SYSGEN MANUAL APPENDIX A. (SYMBOL $UWD).
!
!	1. EXECUTE THIS FILE TO LOAD FILES FROM TAPE THEN ASSEMBLE DRIVER AND
!	   DATA STRUCTURES (USRTB) BY ANSWERING YES TO ASSEMBLEY QUESTIONS.
!
!	2. RUN SYSGEN2.CMD (UIC = [200,200])
!	   CAREFULLY FOLLOW INSTRUCTIONS FOR INCLUSION OF RESIDENT DRIVERS.
!	   REMEMBER YOUR DRIVER OBJ'S ARE IN UIC [11,24] NOT [200,200]!
!
!
.ASK EDIT DO YOU WISH TO EDIT THIS FILE OR A CREATE UFD 
.IFF EDIT .GOTO 500
!PAUSING TO ALLOW YOU TO EXECUTE ONE OF THE ABOVE.
.PAUSE
!WELCOME BACK 
.ASK MORE DO YOU WISH TO CONTINUE
.IFF MORE .GOTO EXIT
.500:
.ASK FLX HAVE YOU COPIED THE DISTRIBUTION FROM TAPE
.IFT FLX .GOTO 600
.ASKS MAG WHAT IS YOUR MAG-TAPE SYSTEM DEVICE NAME (MM:/MT:)
.SETS MGT "'MAG'"
.ASKS DEV WHAT IS YOUR SYSTEM DEVICE NAME ie... DK:,DL:,DR: etc.
.SETS SDV "'DEV'"
FLX 'SDV'[11,34]/RS='MGT'[311,1]README.MAN/DO
FLX 'SDV'[11,10]/RS='MGT'[311,1]*.*/DO
.600:
.ASK ASM ...DO YOU WISH TO ASSEMBLE THE DN11 DRIVER...
.IFT ASM .ASK LST ...DO YOU WISH A LISTING OF THE DRIVER.........
.IFT ASM .ASK OB ...DO YOU WISH TO CREATE THE OBJECT MODULE..
.ASK AST ...DO YOU WISH TO ASSEMBLE THE DN11 TABLES...
.IFT AST .ASK LSS ...DO YOU WISH A LISTING OF THE USER TABLES..
.IFT AST .ASK OBT ...DO YOU WISH TO CREATE THE OBJECT MODULE...
.IFT AST .GOTO 700
.IFF ASM .GOTO EXIT
.700:
.ASKN NO [2:4.:2]...HOW MANY PORTS WILL YOU HAVE............
.OPEN [11,10]DNPRE.MAC;1
.DATA DN$$04 == 'NO'
.CLOSE [11,10]DNPRE.MAC
.IFT ASM .GOTO 200
.IFF AST .GOTO 300
.200: .SETS LSA ""
.SETS LSB ""
.SETS OBA ""
.SETS OBB ""
.OPEN DNASM.CMD;1
.IFF ASM .GOTO 400
.IFT OB .SETS OBA "[11,24]DNDRV;1"
.IFT LST .SETS LSA ",[11,34]DNDRV"
.DATA 'OBA''LSA'=[1,1]EXEMC/ML,[11,10]RSXMC,DNPRE,DNDRV
.400: .IFF AST .GOTO 100
.IFT LSS .SETS LSB ",[11,34]USRTB"
.IFT OBT .SETS OBB "[11,24]USRTB;1"
.DATA 'OBB''LSB'=[1,1]EXEMC/ML,[11,10]RSXMC,DNPRE,USRTB
.100: .SETT ASS
.CLOSE DNASM.CMD
.300: 
.IFT ASS MAC @DNASM
.EXIT:
/