;
;	UBAB:[361,15]CAMSERGEN.CMD
;	GENERATING TASK CAMSER
;
.ENABLE SUBSTITUTION
.ENABLE GLOBAL
;
.IFNINS MAC INS $MAC
.IFNINS MET INS $MET
.IFNINS FOR INS $FOR/INC=50000
.IFNINS PIP INS $PIP
.IFNINS TKB INS $TKB
;
;
.SETS UIC <UIC>
SET /UIC=[361,15]
.IFNDF $OT .ASKS $OT I VILKEN DISK SITTER OTS LIBRARY (DDX:)
.IFNDF $LB .ASKS $LB VILKEN [R VERKLIG SYSTEMDISK (DDX:)
.IFNDF $WI .ASKS $WI VILKEN [R VOLVO LIBRARY DISK (DDX:)
.IFNDF $SC .ASKS $SC VILKEN [R SOURCEDISKEN (DDX:)
ASN '$OT'=OT:
.IF <EXSTAT> NE 1 .PAUSE
ASN '$LB'=LB:
.IF <EXSTAT> NE 1 .PAUSE
ASN '$WI'=WI:
.IF <EXSTAT> NE 1 .PAUSE
ASN '$SC'=SC:
.IF <EXSTAT> NE 1 .PAUSE
;
;	Pre-kompilering av sk{rmbilden ...CMS
;
MET SC:CAMSER,SC:CAMSER.MLS/-SP=SC:CAMSER
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
;	Kompilering av sk{rmbilden ...CMS
;
FOR SC:CAMSER,SC:CAMSER.FLS/LI:3/-SP=SC:CAMSER
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 .PAUSE
;
;	Pre-kompilering av subrutinen f|r terminalhantering (Finns i ...CMS)
;
MET SC:TERSEQ,SC:TERSEQ.MLS/-SP=SC:TERSEQ
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
;	Kompilering av subrutinen f|r terminalhantering (Finns i ...CMS)
;
FOR SC:TERSEQ,SC:TERSEQ.FLS/LI:3/-SP=SC:TERSEQ
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 .PAUSE
;
;	Byggning av sk{rmbilden ...CMS
;
TKB @SC:CAMSER.TK6
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
;	Pre-kompilering av servertasket f|r I/O-page (GETDRV)
;
MET SC:GETDRV,SC:GETDRV.MLS/-SP=SC:GETDRV
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
;	Kompilering av servertasket f|r I/O-page (GETDRV)
;
FOR SC:GETDRV,SC:GETDRV.FLS/LI:3/-SP=SC:GETDRV
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 .PAUSE
;
;	Assemblering av subrutinen f|r I/O-page (Finns i ...CAM och GETDRV)
;
MAC SC:DRV11,SC:DRV11.MLS/-SP=SC:DRV11
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
;	Byggning av servertasket f|r I/O-page (GETDRV)
;
TKB @SC:GETDRV.TK6
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
;	Pre-kompilering av test-tasket f|r I/O-page (...CAM)
;
MET SC:CAMUS,SC:CAMUS.MLS/-SP=SC:CAMUS
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
;	Kompilering av test-tasket f|r I/O-page (...CAM)
;
FOR SC:CAMUS,SC:CAMUS.FLS/LI:3/-SP=SC:CAMUS
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 .PAUSE
;
;	Byggning av test-tasket ...CAM (Hardcopy och sk{rmbild)
;
TKB @SC:CAMUS.TK6
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
.XQT PUR SC:[361,15]*.*/LD
ASN =SC:
ASN =WI:
ASN =LB:
ASN =OT:
SET /UIC='UIC'
;
;	<EOF>
;