;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;									      ;;
;;	ZYSLIB.COM			   12:30 PM JUNE 17, 1982	      ;;
;;	GSD-MODIFIED SYSLIB LIBRARY ROUTINES COMPILE COMMAND FILE	      ;;
;;									      ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.ENABLE SUBSTITUTION
.IF P3 = "" .OR .IF P3 = "." .ENABLE QUIET
.SETF ASK
.SETF PRT
.IF <UIC> =  "[110,1]" .IF P1 = "T" .SETT ASK
.IF <UIC> =  "[110,1]" .IF P2 = "T" .SETT PRT
.IF <UIC> =  "[110,1]"              .SETS MLB "zysmac/ml,"
.IF <UIC> <> "[110,1]"              .SETF ASK
.IF <UIC> <> "[110,1]"              .SETF PRT
.IF <UIC> <> "[110,1]"              .SETS MLB ""
.100:
.SETF NOCRF
.SETS FILE "ALERR "
.GOSUB DODO
.SETS FILE "AUTO  "
.GOSUB DODO
.SETS FILE "AUTOUT"
.GOSUB DODO
.SETS FILE "ENDAT "
.GOSUB DODO
.SETS FILE "ENTRAP"
.GOSUB DODO
.SETS FILE "OVCTL "
.GOSUB DODO
.SETS FILE "OVCTR "
.GOSUB DODO
.SETS FILE "OVDAT "
.GOSUB DODO
.SETS FILE "OVRES "
.GOSUB DODO
.SETS FILE "RWGSYM"
.SETT NOCRF
.GOSUB DODO
.SETS FILE "ZZGSYM"
.SETT NOCRF
.GOSUB DODO
.IFF ASK .EXIT
.SETF ASK
.GOTO 100
.;
.; assemble and clean up routine
.;
.DODO:
.IFF ASK .GOTO DONTDO
.ASK X Do you want to assemble 'FILE' 
.IFF X .SETT 'FILE'
.RETURN
.;
.DONTDO:
.IFDF 'FILE' .RETURN
.SETS SWITCH "/-sp"
.IFF NOCRF .SETS SWITCH "/-sp/cr"
.SETF NOCRF
.IFT PRT mac 'FILE'/en:lc,'FILE''SWITCH'='MLB''FILE'
.IFF PRT mac 'FILE'='MLB''FILE'
pip 'FILE'.obj/pu
.IFT PRT pip 'FILE'.lst/pu
.RETURN