.ASK YN ASSEMBLE DSUTIL
.IFF YN .GOTO 1
MAC DSUTIL=DSUTIL
.ASK YN CONTINUE
.IFF YN .GOTO 666
.1:
.ASK YN ASSEMBLE DSUSUB
.IFF YN .GOTO 2
MAC DSUSUB=DSUSUB
.ASK YN CONTINUE
.IFF YN .GOTO 666
.2:
.ASK YN ASSEMBLE DSUIO
.IFF YN .GOTO 3
MAC DSUIO=DSUIO
.ASK YN CONTINUE
.IFF YN .GOTO 666
.3:
.ASK YN ASSEMBLE DSUDAT
.IFF YN .GOTO 4
MAC DSUDAT=DSUDAT
.ASK YN CONTINUE
.IFF YN .GOTO 666
.4:
TKB DSUTIL/CP/PR:0=DSUTIL,DSUSUB,DSUIO,DSUDAT
.666: