;
;  [1,2]TAXSTART.SAT
;
;	VERSION 88-08-18 - LABAN+
;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
.;
.;**************************************TESTA ATT FILEN K\RS R[TT ********
.;
	.IFNDF $VFS .SETT $VFS
	'IF'.IF <UIC> NE "[1,54]"
		'IF'.IF <UIC> NE "[1,2]"
			.DISABLE QUIET
			; EJ TILL]TET K\RA UNDER ANNAT UIC [N 1,54 ELLER 1,2
			.GOSUB FEL
		'ENDIF'
	'ENDIF'
.;
	.TESTDEVICE TI:
	.PARSE <EXSTRI> "," VAR1 VAR2
	'IF'.IF VAR1 NE "TT0:"
		.DISABLE QUIET
		; EJ TILL]TET K\RA FR]N ANNAT H]LL [N FR]N KONSOLEN
		.GOSUB FEL
	'ENDIF'
.;
.;	G\R INSTALL P] OCH STARTAR TAX
.;	ANROPAR DUMINS.CMD OCH TRATTTINS.CMD
.;	ANROPAS FR]N STARTUP.CMD
.;
;
.;******************** INSTALLERA DUMMYTASKAR ]T TAX *******************
.;
	.SETS UIC <UIC>
	SET /UIC=[110,231]
	VFU LB:DYNINS.RAF/EN:11299
	.IFT $VFS .IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX001/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX002/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX003/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX004/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX005/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX006/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX007/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX008/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX009/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00A/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00B/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00C/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00D/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00E/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00F/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00G/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00H/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00I/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00J/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:DUMMY/TASK=XXX00K/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
.;
.;***************************** STARTA LIO **********************
.;
	INS LB:RESTAX/IOP=NO/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	RUN RESTAX/EST=NO		!L[S TCB-entries och minns
	.IF <EXSTAT> NE 1 .GOSUB FEL
.;
	.IFNINS LIU INS $LIU/IOP=NO
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.IFNINS LIOERR INS LB:LIOERR/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	INS LB:TAXERP/CKP=YES
	.IF <EXSTAT> NE 1 .GOSUB FEL
	PIP LB:[110,227]/NV=LB:LIONOD.TSK
	.IF <EXSTAT> NE 1 .GOSUB FEL
	PIP LB:[110,227]LIONOD.TSK/PU/LD
	INS LB:LIO/PAR=GEN/PRI=140./PMD=YES/IOP=NO/UIC=[10,1]
	.IF <EXSTAT> NE 1 .GOSUB FEL
	LIU /CR
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.DELAY 5S
	FIX LIO
	.IF <EXSTAT> NE 1 .GOSUB FEL
	RUN LIO/UIC=[10,1]/EST=NO
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.DELAY 10S
	.IF <SYSTEM> EQ 6 FIX LIONOD/REG
	.IF <EXSTAT> NE 1 .GOSUB FEL
	LIU /CL
	.IF <EXSTAT> NE 1 .GOSUB FEL
.;
.;********************************************************
.;
	LIU /DR			!DELETE REGION ON EXIT
	.IF <EXSTAT> NE 1 .GOSUB FEL
.;
	.IF <EXSTAT> NE 1 .GOSUB FEL
	PIP LB:[110,227]POOLEXT.DAT/PU/LD/NM
.;
.;********* INSTALLERA TRATTTEN ***************************
.;
.;
	.IFINS TRATTT REM TRATTT
	INS GE:[166,300]TRATTT/CKP=YES			!STORA TRATTEN
	.IF <EXSTAT> NE 1 .GOSUB FEL
	.;INS LB:[110,231]TRATTT/CKP=YES		!SYSTEMTRATTEN
	LIU /TK:TRATTT/RE				!NEJ, TY ALLTID I LIONOD
	LIU /TK:TRATTT/IN/FX				!FIXA I LIONOD
	REM TRATTT
.;
	.IFINS NA0010 REM NA0010
	INS GE:[166,300]NX0010/TASK=NA0010/CKP=YES	!UB TASKBYTESTASK
	.IF <EXSTAT> NE 1 .GOSUB FEL
	LIU /TK:NA0010/RE
	LIU /TK:NA0010/IN/FX				!FIXA I LIONOD
	REM NA0010
.;
	.IFINS NX0020 REM NX0020
	INS GE:[166,300]NX0020/CKP=YES			!TRATT-KOPIAN
	.IF <EXSTAT> NE 1 .GOSUB FEL
	LIU /TK:NX0020/RE
	LIU /TK:NX0020/IN/FX				!FIXA I LIONOD
	REM NX0020
.;
	.IFINS TAXCNT REM TAXCNT
	INS GE:[166,300]TAXCNT/CKP=YES			!TAX CONTROL
	.IF <EXSTAT> NE 1 .GOSUB FEL
	LIU /TK:TAXCNT/RE
	LIU /TK:TAXCNT/IN/FX				!FIXA I LIONOD
	REM TAXCNT
.;
.;
	REM ...LIU
	.IF <EXSTAT> NE 1 .GOSUB FEL
	SET /UIC='UIC'
	.EXIT
;
.FEL:
	.DISABLE QUIET
	;FEL I TAXSTART.CMD
	LRM 224
	.PAUSE
	.RETURN
;
;  <EOF> TAXSTART.CMD
;