/
/
/
/COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/

/VERSION=V1 (D.H.)
/
/THIS PARAMETER FILE WAS AUTOMATICALLY PRODUCED USEING SYSGEN
/FROM THE RTS/8,V3 RELEASE
/TO REPRODUCE:
/ 1. RUN SYSGEN
/ 2. SELECT RX.MA,LPT.MA, AND OS8F.MA SYSTEM TASKS
/ 3. INSERT USER TASKS SPLTTY,SPLOS8, AND SPOOLR
/
/A PARAMETER FILE IDENTICAL TO PDEFLT WILL BE PRODUCED
/TOGETHER WITH "RX8A.MA", A SHORT FLOPPY CONTROL FILE.
/
RX8A=001
LPT=002
OS8F=003
SPLTTY=004
SPOOLR=005
SPLOS8=006
NTASKS=006
PDP8A=1
MQSV=1
NFLDS=4.
RTFLD=3.
AC7776=	CLL STA RAL
AC7775=	CLL STA RTL
AC4000=	CLA STL RAR
AC3777=	CLL STA RAR
AC2000=	CLA STL RTR
AC0002=	CLA STL RTL
AC5777=	CLL STA RTR
CAL=	JMS	20
POSTDS=JMP I	24
WAITM=	JMS I	25
SEND=	0
RECEIV=1
WAITE=	2
RUN=	3
SUSPND=4
POST=	5
SKPINS=6
DERAIL=7
BLKARG=10
SENDW=	11
UNBARG=12
RESCHD=13
WAITX=	14
FREE=	4000
IFDEF	UDC	<
AO=0
DO=0
DI=2
GC=3
EC=4
RC=5
DC=6
ECT=7
CS=10
DCT=11
AI=12>
NONRWT=4000
EFWT=	2000
RUNWT=	1000
SWPWT=	0400
EORMWT=0200
USERWT=0100
ENABWT=0040
MSGWT=	0020
NETWT=	0010
DNEWT=	0001
NOPACK=4000
NOCRLF=2000
IND=1000
NOLINE=400
ASSGN=200
KL8ALINE=100
IFDEF	CLOCK	<
MARKTIME=0
SCHEDULE=1000
TIMOUT=2000
PERIODICALLY=3000
REMOTE=4000
CANCEL=7000>
IFNDEF NFLDS	<NFLDS=4>
SLASHK=NFLDS-1
IFDEF	OS8	<
IFNDEF	OSBASE	<OSBASE=NFLDS-OSFLDS>
IFZERO NFLDS-OSBASE-OSFLDS <SLASHK=NFLDS-OSFLDS>>
IFNDEF BKTCDV	<BKTCDV=0>
IFNDEF	SUNIT	<SUNIT=	0>
HGHFLD=NFLDS-1
HGHFLD=<<HGHFLD&7^10>+<HGHFLD&10%2>+<HGHFLD&20^4>>
IFNDEF	PDP8E	<PDP8E=0>
IFNDEF PDP8A	<PDP8A=0>
IFNDEF	PDP12	<PDP12=0>
IFNDEF VT78	<VT78=0>
OMNI=PDP8E+PDP8A+VT78
IFNDEF	EAESV	<EAESV=0>
IFNDEF	EAE	<EAE=0>
IFNDEF	MQSV	<MQSV=0>
IFNDEF	MQ	<MQ=0>
IFNDEF	PWRFAL	<PWRFAL=0>
IFNDEF	KL8A	<KL8A=0>
IFNDEF KT8A	<KT8A=0>
IFNZRO EAESV	<MQSV=1>
IFNZRO EAE	<MQ=1>
IFZERO EAE	<EAESV=0>
IFZERO MQ	<MQSV=0>
IFDEF CLOCK	<
IFNDEF CLKQLN	<CLKQLN=20>
IFNDEF	SHERTZ	<SHERTZ=12>
IFNDEF	CLKLRM	<CLKLRM=0>
IFNDEF CLKTYP	<
CLKTYP=3
IFNZRO PDP8A	<CLKTYP=2>
IFNZRO VT78	<CLKTYP=2>
IFNZRO PDP12	<CLKTYP=1>
IFNZRO	PDP8E	<CLKTYP=0>
>
IFNZRO CLKTYP&1 <HERTZ=1750>
IFZERO CLKTYP	<HERTZ=170>
IFZERO CLKTYP-2 <HERTZ=144>
IFNZRO HERTZ%SHERTZ^SHERTZ-HERTZ <_ERROR>
IFZERO SHERTZ-301&4000 <_ERROR_>
>
IFNDEF	RTFLD	<RTFLD=0>
.RSECT	RTS8
FIELD	RTFLD
IFNZRO	KT8A	<
KTFLDS=40	
RACA=6175	
RACB=6176	
RACC=6177	
>
EJECT
	.PUSH	.LISTWD
	.NOLIST
	.NOLIST MD
	.MACRO	.TASK	TSKNUM,TSKNAM,STRTAD,STATUS,VERSON
	.PUSH	.LISTWD
	.NOLIST	ME
	.LIST	MEB
	.IF NB	TSKNUM	<..TASK=TSKNUM>
	.IF BL	TSKNUM	<..TASK=TASK>
	TASK=..TASK
	;$TASK=.
	.IF ABS	$TASK	<$$TASK=.FLD>
	;.LIST ME
	.DSECT	TSTABX
	.NOLIST ME
	;*..TASK-1^<4+EAESV>
	.IF NB	STRTAD	<$TASK=STRTAD>
	.IF BL	STRTAD	<
	IFDEF	START	<$TASK=START>
	>
	.IF ABS $TASK	<
	;<$$TASK&70%10^11>+<$$TASK&4^240>+<$$TASK&100^24>
	>
	.IF REL $TASK	<
	;<<EDF $TASK>&70%10^11>+<<EDF $TASK>&4^240>+<<EDF $TASK>&100^24>
	>
	;$TASK
	0
	.IF NB VERSON	<
	VERSON
	>
	.IF BL	VERSON	<
	IFDEF	VERS	<
	VERS
	>
	IFNDEF	VERS	<
	0
	>
	>
	.IF NEQ	EAESV	<
	0
	>
	.SECT	*
	;.LIST ME
	.DSECT	TFTABX
	.NOLIST ME
	;*..TASK-1
	.IF NB	STATUS	<
	STATUS
	>
	.IF BL	STATUS	<
	IFDEF	INIWT	<
	INIWT
	>
	IFNDEF	INIWT	<
	0
	>
	>
	.SECT	*
	;.LIST ME
	.DSECT	NMTBLX
	.NOLIST ME
	.PUSH	.ENABWD
	.DISABLE FILL
	.MACRO	.SIX	ARG1,ARG2
	.IF NB ARG1[1]	<
	;TEXT	"ARG1[1:6]"
	>
	.IF BL ARG1[1]	<
	;TEXT	"ARG2[1:6]"
	>
	.ENDM
	.NOLIST ME
	*..TASK-1^3
	.SIX	"TSKNAM      ","TSKNUM      "
	.SECT	*
	.POP	.ENABWD
	.POP	.LISTWD
	.ENDM	.TASK
	.NOLIST MD
	.MACRO .NONRES	MCHECK,MWRITE
	.PUSH	.LISTWD
	.NOLIST ME
	.LIST	MEB
	IFDEF	SWAP	<
	.EXTERNAL	SWPTAB
	.ENTRY	.E\TASK
.E\TASK,	0
	.IF BL MCHECK <..C=0>
	.IF NB MCHECK <..C=MCHECK>
	IFNZRO ..C <..C=2>
	.IF BL MWRITE <..W=0>
	.IF NB MWRITE <..W=MWRITE>
	IFNZRO ..W <..W=1>
	.GLOBAL	..L\TASK
	..L\TASK=.LEVEL
	.DSECT	RESTBL
	*TASK-SWAP^2-2
	..L\TASK&160%4+SWPTAB+..C+..W^<..L\TASK+160%200>
	-1-<..L\TASK&17>
	.SECT	*
	>
	.POP	.LISTWD
	.ENDM
	.POP	.LISTWD