.ENABLE SUBSTITUTION
.SETF MAP
.SETF LIST
.SETS $MAP ","
.SETS $LIST ""
.SETS $SPOL ""
.SETS $SPOLM ""
.SETS UIC <UIC>
;
;
; SLDRV  Memory Resident Disk Driver
;        RX01 Emulator Version
;
;
.ASK ASSM Do you wish to assemble the source files
.IFF ASSM .GOTO 1
;
.ASK LIST Do you want listings of the driver and data base
.IFF LIST .GOTO 1
;
.ASK SPOOL Spool the listings to LP:
.IFF SPOOL .SETS $SPOL "/-SP"
.IFT SPOOL .SETS $SPOL "/SP"

.1:

;
.ASK TKB Do you wish to taskbuild the driver and database
.IFF TKB .GOTO 2
;
.ASK MAP Do you want a taskbuild map
.IFF MAP .GOTO 2
;
.ASK SPOOLM Spool the map to LP:
.IFF SPOOLM .SETS $SPOLM "/-SP"
.IFT SPOOLM .SETS $SPOLM "/SP"

.2:

;
.ASKS $LBDEV On what device will RSXMC.MAC be found
;
.ASKS $RSUIC In what UIC will RSXMC.MAC be found [ggg,nnn]
;
.IFF ASSM .GOTO 3
.SETS $FILE "SLDRV"
.IFT LIST .SETS $LIST ", '$FILE''$SPOL'"
.GOSUB ASM
;
.SETS $FILE "SLTBL"
.IFT LIST .SETS $LIST ", '$FILE''$SPOL'"
.GOSUB ASM
;

.3:

.IFF TKB .GOTO 4
.IFT MAP .SETS $MAP ", SLDRV'$SPOLM'/MA"
.OPEN SLDRVBLD.Cmd
.ENABLE DATA
;
; BUILD SEGMENT FOR DX: DRIVER
;
DXDRV/-MM/-HD'$MAP', DXDRV=
SlDRV, SLTBL
LB:[1,54]RSX11M.STB/SS
LB:[1,1]EXELIB/LB
/
STACK=0
PAR=GEN:120000:14000
/
.CLOSE
TKB @SLDRVBLD.CMD

.4:

PIP SLDRV.OBJ;*, SLTBL.OBJ;*, SLDRVBLD.CMD;*/NM/DE
PIP *.LST;*, *.MAP;*/PU
.EXIT
.;
.; ASSEMBLY SUBROUTINE -----------------------------------------------------
.;
.ASM:
PIP '$FILE'.LST;*/NM/DE
.OPEN '$FILE'.CMD
.DATA '$FILE''$LIST'=-
.DATA LB:[1,1]EXEMC.MLB/ML,-
.DATA '$LBDEV''$RSUIC'RSXMC.MAC/PA:1,-
.DATA SY:'UIC'SLPRE.MAC/PA:1,-
.DATA SY:'UIC''$FILE'.MAC
.CLOSE
MAC @'$FILE'
.IF <EXSTAT> NE 1 .GOTO BLOWIT
PIP '$FILE'.CMD;*/NM/DE
 .RETURN
.BLOWIT:
.ASK Q Do you want an error only assembly
.IFF Q .GOTO 10
.OPEN '$FILE'.CMD
.DATA =-
.DATA LB:[1,1]EXEMC.MLB/ML,-
.DATA '$LBDEV''$RSUIC'RSXMC.MAC/PA:1,-
.DATA SY:'UIC'SLPRE.MAC/PA:1,-
.DATA SY:'UIC''$FILE'.MAC
.CLOSE
MAC @'$FILE'
PIP '$FILE'.OBJ;*,'$FILE'.CMD;*/NM/DE
.EXIT
.10:
PIP '$FILE'.OBJ;*,'$FILE'.CMD;*/NM/DE
;
; An error was detected during assembly of '$FILE'.  This must be corrected
;  before attempting to taskbuild the driver.  The object file was deleted.
;
.EXIT
