{-*-.=6454}
const	RH=777777b;
	LH=777777000000b;
      t1=1; {jsys ACs}
      t2=2;
      t3=3;
      t4=4;
      ticbk=0;
      ticca=1;
      ticcb=2;
      ticcc=3;
      ticcd=4;
      ticce=5;
      ticcf=6;
      ticcg=7;
      ticch=8;
      ticci=9;
      ticcj=10;
      ticck=11;
      ticcl=12;
      ticcm=13;
      ticcn=14;
      ticco=15;
      ticcp=16;
      ticcq=17;
      ticcr=18;
      ticcs=19;
      ticct=20;
      ticcu=21;
      ticcv=22;
      ticcw=23;
      ticcx=24;
      ticcy=25;
      ticcz=26;
      tices=27;
      ticrb=28;
      ticsp=29;
      ticrf=30;
      ticti=31;
      ticto=32;
      priin=100B;
      priou=101B;
      cttrm=777777B;
      LOGIN=1B;
      CRJOB=2B;
      LGOUT=3B;
      CACCT=4B;
      EFACT=5B;
      SMON=6B;
      TMON=7B;
      GETAB=10B;
      ERSTR=11B;
      GETER=12B;
      GJINF=13B;
      TIME=14B;
      RUNTM=15B;
      SYSGT=16B;
      GNJFN=17B;
      GTJFN=20B;
	 gjnew=1;
         gjold=2;
	 gjmsg=3;
	 gjcfm=4;
	 gjtmp=5;
	 gjifg=11;
	 gjofg=12;
	 gjfns=16;
	 gjsht=17;
      OPENF=21B;
	ofrd=19;
	ofwr=20;
	ofthw=25;
      CLOSF=22B;
      RLJFN=23B;
      GTSTS=24B;
      STSTS=25B;
      DELF=26B;
      SFPTR=27B;
      JFNS=30B;
      jsdev=2;
      jsdir=5;
      jsnam=8;
      jstyp=11;
      FFFFP=31B;
      RDDIR=32B;	{OBSOLETE}
      CPRTF=33B;
      CLZFF=34B;
      RNAMF=35B;
      SIZEF=36B;
      GACTF=37B;
      STDIR=40B;	{OBSOLETE}
      DIRST=41B;
      BKJFN=42B;
      RFPTR=43B;
      CNDIR=44B;
      RFBSZ=45B;
      SFBSZ=46B;
      SWJFN=47B;
      BIN=50B;
      BOUT=51B;
      SIN=52B;
      SOUT=53B;
      RIN=54B;
      ROUT=55B;
      PMAP=56B;
      pmcnt=0;
      pmrd=2;	(* pm%rd - read access *)
      pmwr=3;
      pmcpy=9;
      pmpld=5; (* pm%pld - preload the page *)
      RPACS=57B;
      SPACS=60B;
      RMAP=61B;
      SACTF=62B;
      GTFDB=63B;
      CHFDB=64B;
      DUMPI=65B;
      DUMPO=66B;
      DELDF=67B;
      ASND=70B;
      RELD=71B;
      CSYNO=72B;
      PBIN=73B;
      PBOUT=74B;
      PSIN=75B;
      PSOUT=76B;
      MTOPR=77B;
      CFIBF=100B;
      CFOBF=101B;
      SIBE=102B;
      SOBE=103B;
      DOBE=104B;
      GTABS=105B;	{OBSOLETE}
      STABS=106B;	{OBSOLETE}
      RFMOD=107B;
      SFMOD=110B;
      RFPOS=111B;
      RFCOC=112B;
      SFCOC=113B;
      STI=114B;
      DTACH=115B;
      ATACH=116B;
      DVCHR=117B;
      STDEV=120B;
      DEVST=121B;
      MOUNT=122B;	{OBSOLETE}
      DSMNT=123B;		{OBSOLETE}
      INIDR=124B;	{OBSOLETE}
      SIR=125B;
      EIR=126B;
      SKPIR=127B;
      DIR=130B;
      AIC=131B;
      IIC=132B;
      DIC=133B;
      RCM=134B;
      RWM=135B;
      DEBRK=136B;
      ATI=137B;
      DTI=140B;
      CIS=141B;
      SIRCM=142B;
      RIRCM=143B;
      RIR=144B;
      GDSTS=145B;
      SDSTS=146B;
{     RESET=147B;  This jsys messes up the pascal reset statement}
      RPCAP=150B;
      EPCAP=151B;
      CFORK=152B;
      KFORK=153B;
      FFORK=154B;
      RFORK=155B;
      RFSTS=156B;
      SFORK=157B;
      SFACS=160B;
      RFACS=161B;
      HFORK=162B;
      WFORK=163B;
      GFRKH=164B;
      RFRKH=165B;
      GFRKS=166B;
      DISMS=167B;
      fhslf=400000B;
      fhinf=-4;
      HALTF=170B;
      GTRPW=171B;
      GTRPI=172B;
      RTIW=173B;
      STIW=174B;
      SOBF=175B;
      RWSET=176B;
      GETNM=177B;
      XGET=200B;	{ GET conflicts with pascal get}
      SFRKV=201B;
      SAVE=202B;
      SSAVE=203B;
      SEVEC=204B;
      GEVEC=205B;
      GPJFN=206B;
      SPJFN=207B;
      SETNM=210B;
      FFUFP=211B;
      DIBE=212B;
      FDFRE=213B;
      GDSKC=214B;
      LITES=215B;	{OBSOLETE}
      TLINK=216B;
      STPAR=217B;
      ODTIM=220B;
      IDTIM=221B;
      ODCNV=222B;
      IDCNV=223B;
      NOUT=224B;
      NIN=225B;
      STAD=226B;
      GTAD=227B;
      ODTNC=230B;
      IDTNC=231B;
      FLIN=232B;
      FLOUT=233B;
      DFIN=234B;
      DFOUT=235B;

      CRDIR=240B;
      GTDIR=241B;
      DSKOP=242B;
      SPRIW=243B;
      DSKAS=244B;
      SJPRI=245B;
      STO=246B;

      ASNDP=260B;
      RELDP=261B;
      ASNDC=262B;
      RELDC=263B;
      STRDP=264B;
      STPDP=265B;
      STSDP=266B;
      RDSDP=267B;
      WATDP=270B;

      GTHST=273B;	      {TOPS20AN}
      ATNVT=274B;	      {TOPS20AN}
      CVSKT=275B;	      {TOPS20AN}
      CVHST=276B;	      {TOPS20AN}
      FLHST=277B;	      {TOPS20AN}

      GCVEC=300B;
      SCVEC=301B;
      STTYP=302B;
      GTTYP=303B;
      BPT=304B;	{OBSOLETE}
      GTDAL=305B;
      WAIT=306B;
      HSYS=307B;
      USRIO=310B;
      PEEK=311B;
      MSFRK=312B;
      ESOUT=313B;
      SPLFK=314B;
      ADVIS=315B;
      JOBTM=316B;
      DELNF=317B;
      SWTCH=320B;	{OBSOLETE}
      TFORK=321B;
         tfset=0;
	 tfral=1;
	 tfrtp=2;
	 tfsps=3;
      RTFRK=322B;
      UTFRK=323B;
      SCTTY=324B;

      SETER=336B;

      
      {NEW (NOT IN BBN TENEX) JSYS'S ADDED STARTING AT 500}

      RSCAN=500B;
      rsini=0;
      HPTIM=501B;
      CRLNM=502B;
      INLNM=503B;
      LNMST=504B;
      RDTXT=505B;	{OBSOLETED BY RDTTY AND TEXTI}
      SETSN=506B;
      GETJI=507B;
      MSEND=510B;
      MRECV=511B;
      MUTIL=512B;
      ENQ=513B;
      enqbl=0;
      enqaa=1;
      DEQ=514B;
      deqdr=0;
      ENQC=515B;
      SNOOP=516B;
      SPOOL=517B;
      ALLOC=520B;
      CHKAC=521B;
      TIMER=522B;
      RDTTY=523B;
      rdrie=7;
      rdrai=10;
      TEXTI=524B;
      UFPGS=525B;
      SFPOS=526B;
      SYERR=527B;
      DIAG=530B;
      SINR=531B;
      SOUTR=532B;
      RFTAD=533B;
      SFTAD=534B;
      TBDEL=535B;
      XTBADD=536B;	(* Since the pascmd package uses TBADD *)
      TBLUK=537B;
      STCMP=540B;
      SETJB=541B;
      GDVEC=542B;
      SDVEC=543B;
      COMND=544B;
      cmesc=0;
      cmrpt=3;
      cmwkf=8;
      PRARG=545B;
      GACCT=546B;
      LPINI=547B;
      GFUST=550B;
      SFUST=551B;
      ACCES=552B;
      RCDIR=553B;
      RCUSR=554B;
      MSTR=555B;
      STPPN=556B;
      PPNST=557B;
      PMCTL=560B;
      PLOCK=561B;
      BOOT=562B;
      UTEST=563B;
      USAGE=564B;

      { HOLE - SLOT 565 AVAILABLE }

      VACCT=566B;
      XNODE=567B; { renamed to avoid domain conflict }
      ADBRK=570B;
      SINM=571B;
      SOUTM=572B;
      SKED=577B;
      SWTRP=573B;
      XRIR=601B;
      XSIR=602B;
      XSFRK=605B; {extended SFORK jsys}
      XGVEC=606B;
      XSVEC=607B;
      XRMAP=611B;
      XGTPW=612B;
      GTBLT=634B;		{[15]}

      {TEMPORARY JSYS DEFINITIONS}

      SNDIN=754B;	      {TOPS20AN	}
      RCVIN=755B;	      {TOPS20AN	}
      ASNIQ=756B;	      {TOPS20AN	}
      RELIQ=757B;	      {TOPS20AN	}

      SMAP=767B;

      THIBR=770B;
      TWAKE=771B;
      MRPAC=772B;
      SETPV=773B;
      MTALN=774B;
      TTMSG=775B
.