From bc8742fb5cf0efcc2a3a2695e2a167703ceded8e Mon Sep 17 00:00:00 2001 From: Jim Date: Wed, 21 Mar 2007 00:00:00 -0400 Subject: [PATCH] removed syscom/ directory, clock auto-sets via VCP interface + SVC always fault - no more emulation of Primos II added support for 102.4 and 3.2us clock ticks --- em.c | 77 +++--- emdev.h | 74 ++++-- os.c | 4 +- syscom/errd.ins.cc | 540 --------------------------------------- syscom/keys.ins.cc | 618 --------------------------------------------- 5 files changed, 97 insertions(+), 1216 deletions(-) delete mode 100644 syscom/errd.ins.cc delete mode 100644 syscom/keys.ins.cc diff --git a/em.c b/em.c index 798c095..caa137c 100644 --- a/em.c +++ b/em.c @@ -89,8 +89,6 @@ OK: #include #include #include -#include "syscom/keys.ins.cc" -#include "syscom/errd.ins.cc" /* In SR modes, Prime CPU registers are mapped to memory locations 0-'37, but only 0-7 are user accessible. In the post-P300 @@ -141,6 +139,9 @@ typedef unsigned int pa_t; /* physical address */ else if (*(int *)(crs+FLTH) == 0) \ crs[KEYS] |= 0100; +/* this is probably incorrect - needs to test 16 more bits for denomalized + doubles */ + #define SETCC_D SETCC_F /* XEXPC is a dummy to indicate that the C-bit may not be set correctly */ @@ -177,13 +178,13 @@ typedef unsigned int pa_t; /* physical address */ /* these macros are for the VI-mode branch insructions */ -#define BCLT if (crs[KEYS] & 0200) RPL = iget16(RP); else RPL++ -#define BCLE if (crs[KEYS] & 0300) RPL = iget16(RP); else RPL++ -#define BCEQ if (crs[KEYS] & 0100) RPL = iget16(RP); else RPL++ +#define BCLT if (crs[KEYS] & 0200) RPL = iget16(RP); else RPL++ +#define BCLE if (crs[KEYS] & 0300) RPL = iget16(RP); else RPL++ +#define BCEQ if (crs[KEYS] & 0100) RPL = iget16(RP); else RPL++ #define BCNE if (!(crs[KEYS] & 0100)) RPL = iget16(RP); else RPL++ #define BCGE if (!(crs[KEYS] & 0200)) RPL = iget16(RP); else RPL++ #define BCGT if (!(crs[KEYS] & 0300)) RPL = iget16(RP); else RPL++ -#define BLS if (crs[KEYS] & 020000) RPL = iget16(RP); else RPL++ +#define BLS if (crs[KEYS] & 020000) RPL = iget16(RP); else RPL++ #define BXNE if (crs[X] != 0) RPL = iget16(RP); else RPL++ #define BYNE if (crs[Y] != 0) RPL = iget16(RP); else RPL++ @@ -310,7 +311,7 @@ char gen0nam[][5] = { */ int traceflags=0; /* each bit is a trace flag */ -int savetraceflags=0; /* see ITLB */ +int savetraceflags=0; int traceuser=0; /* OWNERL to trace */ int numtraceprocs=0; #define MAXTRACEPROCS 2 @@ -335,7 +336,7 @@ unsigned short sswitch = 014114; /* sense switches, set with -ss & -boot*/ unsigned short cpuid = 27; /* STPM CPU model, set with -cpuid */ -unsigned long instcount=0; /* global instruction count */ +unsigned long instcount=0; /* global instruction count */ unsigned short inhcount = 0; /* number of instructions to stay inhibited */ @@ -344,7 +345,7 @@ unsigned int instpermsec = 2000; /* initial assumption for inst/msec */ jmp_buf jmpbuf; /* for longjumps to the fetch loop */ /* The standard Prime physical memory limit on early machines is 8MB. - Later machines have higher memory capacities, up to 1GB, using + Later machines have higher memory capacities, up to 512M, using 32-bit page tables. NOTE: rev 20 is limited to 32MB on all machines. */ @@ -2129,6 +2130,11 @@ pxregsave(unsigned short wait) { if (crs[OWNERL] == 0 || (crs[KEYS] & 1)) return; + /* NB: I think hardware might save the base registers in a predictable + location in the PCB register save area, rather than compressed in a + random order, because IIRC, Primos sometimes looks at a waiting + process' PB to see where it is waiting */ + pcbp = *(unsigned int *)(crs+OWNER); regp = pcbp+PCBREGS; mask = 0; @@ -4085,7 +4091,8 @@ irtn: case 000505: /* SVC */ TRACE(T_FLOW, " SVC\n"); - svc(); + fault(SVCFAULT, 0, 0); + fatal("Returned from SVC fault"); continue; case 000111: /* CEA */ @@ -4438,8 +4445,8 @@ irtn: long delayusec, actualmsec; /* for BDX *-1 loop (backstop process mainly), we want to change - this to a 10ms sleep so that the emulation host doesn't peg the - CPU. + this to a 10ms sleep so that the emulation host's CPU isn't + pegged the whole time the emulator is running. So first, check to see if any device times expire sooner than this, and if so, limit the sleep time to the lowest expiration @@ -6018,7 +6025,7 @@ keys = 14200, modals=100177 case 01002: if (crs[KEYS] & 010000) { /* V/I mode */ - //traceflags = ~TB_MAP; + TRACE(T_FLOW|T_PCL, " PCL %s\n", searchloadmap(ea, 'e')); //TRACE(T_FLOW|T_PCL, "#%d %o/%o: PCL %o/%o\n", instcount, RPH, RPL-2, ea>>16, ea&0xFFFF); if (numtraceprocs > 0 && TRACEUSER) for (i=0; i> 14; + func = (inst >> 6) & 017; + device = inst & 077; + TRACE(T_INST, " pio, class=%d, func='%o, device='%o\n", class, func, device); + devmap[device](class, func, device); +} + + +#if 0 /* Handle SVC instruction. For real hardware emulation on an R-mode such as the P300, SVC would interrupt (JST*) through location '75 (in vectored mode) or would fault on the P400. @@ -7115,23 +7141,4 @@ badsvc: printf(" halting on bad svc, class=%o, func=%o\n", class, func); fatal(NULL); } - - - -/* here for PIO instructions: OCP, SKS, INA, OTA. The instruction - word is passed in as an argument to handle EIO (Execute I/O) in - V-mode. -*/ - -pio(unsigned int inst) { - int class; - int func; - int device; - - RESTRICT(); - class = inst >> 14; - func = (inst >> 6) & 017; - device = inst & 077; - TRACE(T_INST, " pio, class=%d, func='%o, device='%o\n", class, func, device); - devmap[device](class, func, device); -} +#endif diff --git a/emdev.h b/emdev.h index 21af376..4b1e5bf 100644 --- a/emdev.h +++ b/emdev.h @@ -260,12 +260,17 @@ int devasr (int class, int func, int device) { static int needflush; /* true if data has been written but not flushed */ static struct termios terminfo; static fd_set fds; + static short vcptime[8] = {7*0, 1}; + static short vcptimeix; + struct timeval timeout; unsigned char ch; int newflags; int n; int doblock; - + time_t unixtime; + struct tm *tms; + doblock = BLOCKIO; switch (class) { @@ -364,9 +369,9 @@ int devasr (int class, int func, int device) { case 2: TRACE(T_INST, " INA '%02o%02o\n", func, device); - TRACE(T_INST, "INA, RPH=%o, RPL=%o, [RP]=%o, [RP+1]=%o, BLOCKIO=%d\n", RPH, RPL, iget16(RP), iget16(RP+1),BLOCKIO); + //TRACE(T_INST, "INA, RPH=%o, RPL=%o, [RP]=%o, [RP+1]=%o, BLOCKIO=%d\n", RPH, RPL, iget16(RP), iget16(RP+1),BLOCKIO); if (func == 0 || func == 010) { /* read a character */ - if (BLOCKIO) + if (doblock) newflags = ttyflags & ~O_NONBLOCK; else newflags = ttyflags | O_NONBLOCK; @@ -375,7 +380,7 @@ int devasr (int class, int func, int device) { fatal(NULL); } ttyflags = newflags; - if (needflush) { + if (doblock && needflush) { if (fflush(stdout) == 0) { needflush = 0; devpoll[device] = 0; @@ -430,8 +435,10 @@ readasr: } else if (func == 012) { /* read control word */ crs[A] = 04110; IOSKIP; - } else if (func == 017) { /* read xmit interrupt vector */ - crs[A] = 0; + } else if (func == 017) { /* read xmit interrupt vector -OR- clock */ + crs[A] = vcptime[vcptimeix++]; + if (vcptimeix > 7) + vcptimeix = 0; IOSKIP; } else { printf("Unimplemented INA '04 function '%02o\n", func); @@ -481,8 +488,27 @@ readasr: } else if (func == 013) { /* NOTE: does this in rev 20 on settime command (set clock on VCP?) */ IOSKIP; + } else if (func == 017) { - /* NOTE: 9950 does this in rev 20, others don't */ + if (crs[A] == 0) { + + /* setup to read VCP battery backup clock (only on certain models); + all words are 2 BCD digits */ + +#define BCD2(i) ((((i)/10)<<4) | ((i)%10)) + + unixtime = time(NULL); + tms = localtime(&unixtime); + vcptime[0] = BCD2(tms->tm_year); + vcptime[1] = BCD2(tms->tm_mon+1); + vcptime[2] = BCD2(tms->tm_mday); + vcptime[3] = BCD2(tms->tm_wday); + vcptime[4] = BCD2(tms->tm_hour); + vcptime[5] = BCD2(tms->tm_min); + vcptime[6] = BCD2(tms->tm_sec); + vcptime[7] = 0; + vcptimeix = 0; + } IOSKIP; } else { printf("Unimplemented OTA device '%02o function '%02o, A='%o\n", device, func, crs[A]); @@ -494,7 +520,8 @@ readasr: /* tty output is blocking, even under Primos, which means that writes and fflush can hang the entire system, eg, if XOFF - happens while writing to the console) */ + happens while writing to the console). Console output should + be changed to non-blocking one of these days... */ if (needflush) { if (fflush(stdout) == 0) @@ -1121,7 +1148,7 @@ int devmt (int class, int func, int device) { TRACE(T_TIO, " CPU interrupt to vector '%o\n", mtvec); intvec = mtvec; } - /* HACK: keep interrupting because of Primos race bug */ + /* HACK: keep interrupting because of Primos/controller race bug */ devpoll[device] = 100; } } @@ -1173,7 +1200,7 @@ int devmt (int class, int func, int device) { /* initclock sets Primos' real-time clock variable */ -initclock(datnowea) { +initclock(ea_t datnowea) { int datnow, i; time_t unixtime; struct tm *tms; @@ -1187,8 +1214,9 @@ initclock(datnowea) { int devcp (int class, int func, int device) { static short enabled = 0; - static unsigned short clkvec; - static short clkpic = 0; + static unsigned short clkvec = 0; + static short clkpic = 947; + static float clkrate = 3.2; static unsigned long ticks = -1; static unsigned long absticks = -1; static struct timeval start_tv; @@ -1200,7 +1228,7 @@ int devcp (int class, int func, int device) { unsigned long elapsedms,targetticks; int i; -#define SETCLKPOLL devpoll[device] = instpermsec*(-clkpic*3.2)/1000; +#define SETCLKPOLL devpoll[device] = instpermsec*(-clkpic*clkrate)/1000; switch (class) { @@ -1259,7 +1287,6 @@ int devcp (int class, int func, int device) { TRACE(T_INST, " INA '%02o%02o\n", func, device); if (func == 011) { /* input ID */ crs[A] = 020; /* this is the Option-A board */ - crs[A] = 0220; /* VCP board? */ crs[A] = 0120; /* this is the SOC board */ //traceflags = ~TB_MAP; } else if (func == 016) { @@ -1280,6 +1307,11 @@ int devcp (int class, int func, int device) { TRACE(T_INST, "Clock PIC interval set to %d\n", clkpic); } else if (func == 07) { TRACE(T_INST, "Clock control register set to '%o\n", crs[A]); + if (crs[A] & 020) + clkrate = 100.0; /* 102.4 on real SOC, but not good for RT clock */ + else + clkrate = 3.2; + SETCLKPOLL; } else if (func == 013) { clkvec = crs[A]; TRACE(T_INST, "Clock interrupt vector address = '%o\n", clkvec); @@ -1318,7 +1350,7 @@ int devcp (int class, int func, int device) { initclock(datnowea); } elapsedms = (tv.tv_sec-start_tv.tv_sec-1)*1000 + (tv.tv_usec+1000000-start_tv.tv_usec)/1000; - targetticks = elapsedms/(-clkpic*3.2/1000); + targetticks = elapsedms/(-clkpic*clkrate/1000); #if 0 absticks++; if (absticks%1000 == 0) @@ -2905,6 +2937,9 @@ int devpnc (int class, int func, int device) { /* PNC transmit: + NOTE: most of this stuff needs to be moved to poll, because + it may not be possible to start/complete a transmit here! + get a physical pointer to the xmit buffer, which can't cross a page boundary, then xmit the buffer. Since PNC packets have a specific size of either 512, 1024, or 2048 bytes, and @@ -2924,7 +2959,8 @@ int devpnc (int class, int func, int device) { TRACE(T_INST|T_RIO, " xmit: dmaword = '%o/%d [%03o %03o]\n", dmaword, *(short *)&dmaword, dmaword>>8, dmaword&0xff); /* broadcast packets are "I am up" msgs and are simply "eaten" - here, as this is handled later in the devpnc poll code */ + here, as this is handled later in the devpnc poll code. + XXX: should check that this really is the "I am up" msg */ if (xmit.toid == 255) { regs.sym.regdmx[xmit.dmareg+1] += xmit.dmanw; /* bump xmit address */ @@ -3003,10 +3039,8 @@ xmitdone: myid = crs[A] & 0xFF; pncstat = (pncstat & 0xFF00) | myid; TRACE(T_INST|T_RIO, " my node id is %d\n", myid); - if (ni[myid].fd != -1) { - printf("PNC: my node id of %d is in ring.cfg\n", myid); - fatal(NULL); - } + if (ni[myid].cfg) + fprintf(stderr, "Warning: my node id of %d is in ring.cfg\n", myid); strcpy(ni[myid].ip, "127.0.0.1"); ni[myid].port = nport; ni[myid].myremid = myid; diff --git a/os.c b/os.c index 510a06e..3d3ff9a 100644 --- a/os.c +++ b/os.c @@ -11,8 +11,6 @@ #include #include "os.h" -#include "syscom/keys.ins.cc" -#include "syscom/errd.ins.cc" os_init() { @@ -76,7 +74,7 @@ os_exit() { os_erkl$$(short *key, short *erasech, short *killch, short *code) { - if (*key == k$read) { + if (*key == 1) { /* k$read */ *erasech = 0210; *killch = 0377; *code = 0; diff --git a/syscom/errd.ins.cc b/syscom/errd.ins.cc deleted file mode 100644 index 8888ce9..0000000 --- a/syscom/errd.ins.cc +++ /dev/null @@ -1,540 +0,0 @@ -/* ERRD.INS.CC, SYSCOM, PRIMOS GROUP, 01/15/92 - Mnemonic error codes for Primos file system (CC) - Copyright (c) 1991, Prime Computer, Inc., Natick, MA 01760 */ -/* All Rights Reserved */ - -/* Description: - - Abnormal conditions: - - Implementation: - Adding a code requires changes to: ERRD.INS.@@, ERRD.DEF.MOD, KS>ERRCOM.PMA. - ERRD.INS.CC and ERRD.INS.PASCAL are built from this file, so all - definitions must by contained on ONE line and all symbols should - be lower case (CC is case sensitive). - - WARNING: error code definitions MUST start in column 1 not span more - than one line. Reason: syscom.build.cpl depends on these - two things. - - Modifications: - Date Programmer Description of modification - 01/15/92 A. Griffith Added error codes E$PNIR, E$FDER, and E$FDIR for - On_Line Fix_Disk Gates. - 11/18/91 Sager Added E$METL for message 512 support - 06/21/91 Gorton Added E$PWRU and E$CPLE for CHG$PW. - 06/13/91 RLove Added E$ACDD for ASNDE$. - 06/12/91 RLove Added E$ACPG for ASSIGN_DISK. - 06/11/91 Peterson Added e$bfmt. - 02/20/91 A. Griffith Added E$DNTA for RAS$RA_TO_PATH. - 12/07/90 Snay Added E$NDSM for disk tracking project. - 10/02/90 Tung Added error codes E$NOWR, E$ICUT and E$IANL - for UT$COPY. - 09/04/90 A. Conte Added E$UNLI, E$MULI, E$CWAT, E$UBW - 08/30/90 Hunt Added E$APSM for Acl Protected Memory. - 08/21/90 Nakano Realigned e$xxx definitions to start in column 1 - 06/20/90 Slutz Added e$ernf. - 05/24/90 Slutz Added e$nd1s, e$umle. - 04/17/89 Huber Added error codes for the Name Service: E$RXMH, - E$NNET, E$MTPT, E$RPMH, E$MNSH, E$IPTR, E$PTHU, - E$IGMT, E$IROO, E$NEWF, E$BPOR, E$PRVT. - 10/21/88 Fisher Added e$nadm. - 06/15/88 Cook Converted to SPL. - 12/21/87 Roper Added e$zero. - 11/03/87 Van Seters Added e$ista. - 10/06/87 Ng Added comment on ERRD.DEF.MOD. - 09/15/87 Slutz Added e$bmpc. - 09/03/87 Y.K.Yang Added e$dnts and e$snts. - 07/22/87 Tsang Added e$ok. - 07/08/87 Dossett Added E$GPON and E$NGPW. - 06/02/87 Hornbaker Added e$bchk and e$expd. - 05/06/87 A. Conte Added e$itlb, e$ips, e$dpar, and e$pns. - 04/02/87 Tsang Added e$rmln. - 02/02/87 Tsang Added e$lna, e$ldes and e$lny. - 01/20/87 Magnan Add E$LNP Line Not Present - 11/10/86 Rosenstock Removed e$nasu. - [11/03/86] - 11/10/86 Rosenstock Removed e$no_nts. - [10/23/86] - 11/10/86 A. Conte Added e$nba, e$lnow. - [09/16/86] - 07/21/86 Simon Added E$NPDA. - 07/21/86 Phillips (UK) Added E$NINT. - 07/14/86 M. Sadigh Added a new error code E$REIU for EPF$UNREG. - 07/09/86 Leblang Rev 21 integrations comprised of: - James R. Ward Added e$ variants of Iguana error codes. - James R. Ward Added e$ntsh. - Kiefer Added declaration for e$nxcb, e$doqf, e$lnoc,e$rqf, - e$crej, e$ctmo, e$lhdn, e$ltdn - James R. Ward (Pacer Software, Inc.) added NSS and NTS codes: - e$nsni, e$nsnc, e$nsac, n$nthn, e$ntns, - e$ntst, e$ntcf, e$ntlc, e$ntdl, e$ntin, - e$plaa, e$llaa, e$naso, e$nasu, e$ncfg - 07/08/86 Becker/Conte Add messages for AS$Get/AS$Set/AS$Lin: e$blin, - e$bbuf, e$bpro, e$lnus, e$bfus, e$irbf, e$iabf, - e$nnts, e$iasd, e$iasp, e$ilod. - 07/07/86 Milne Added e$ismr. - 04/06/86 Fichter Added e$nown, e$blok, e$area. - 03/11/86 JBall Added e$ndrb and e$cqpt for Q_UPDT use. - 12/30/85 Sadigh/Ng Added for EPF II: e$ireg, e$inai, e$illn, e$buid, - e$inre, e$npsg, e$uinf, e$ivpt, e$snal, e$natf, - e$nd3s, e$bsmt, e$ialn, e$bptr, e$idbt, e$bdtr, - e$lunr, e$enrg. - 12/27/85 Pinkoski Added codes for Primix: e$ilus, e$nchd, e$int, e$xshdn, - e$nopx, e$nous, e$incom - 12/17/85 Wright Added e$nres. - 11/27/85 Moore Added e$imem and e$ifcb for CAM file support. - 11/01/85 Dossett/Yang Added for Search Rules: e$list, e$rule, e$ntop, - e$nest, e$admn, e$eol, e$adrl. - 02/22/85 Cook Made all definitions occur in lower case on one - line so we can generate ERRD.INS.CC and - ERRD.INS.PASCAL from this file. Added e$aele. - 02/13/85 Hornbaker Added e$aele. - 02/05/85 Bloom Added e$nrfc. - 01/31/85 Abelli Added e$cpovfl, e$ioovfl, e$bhovfl. - 01/29/85 Chan Added E$NOPD. - 01/29/85 Bogardus Added E$RSHD. - 11/15/84 Pinkoski Added E$ATNS for dtc/dta support. - 07/06/84 JBall Added codes for reomte ipc, E$NSLV & E$RSIN. - 04/16/84 Rees Added E$EXMF, E$BKIO, E$AWER, E$RAMC, E$RIER for - contiguous file, block mode, roam support. - 11/30/83 WD Smith Added e$insufficient_dam_levels & e$past_EOF. - Slutz Added e$fidc and e$uafu. - 10/20/83 Kazin Added E$ALSZ, E$FRER, E$HPER, E$EPFT, E$EPFS, E$ILTD, - E$ILTE, E$ECEB, E$EPFL, E$NTA, E$SWPS, E$SWPR, and - E$ADCM for EPF support. - 09/25/83 HANTMAN Added E$BLEF and E$BLET. - 04/29/83 Abelli-Raizen Added E$UDMA and E$UDMC. - 04/18/83 JBall Added E$NACC (Not accessable) for IPC support [osi 1566] - 01/21/83 HANTMAN added the error code E$NSB for decttion of a NSB - labelled tape by MAGNET,MAGLIB and LABEL. - 11/20/82 HChen Added E$IDNF(Slave ID not found). - 11/16/82 Goggin Added NAMELIST error codes for library error processing. - 10/29/82 HChen Added E$MNPX (Illegal multiple hops in NPX). - 09/10/82 Kroczak Added E$RESF (Improper access to a restricted file). - 04/22/82 HChen Added E$WSLV, E$VCGC and E$MSLV. - 04/04/82 HChen Added E$APND (for R$BGIN) and E$BVCC. - 03/24/82 Weinberg Added E$NFAS (not found in attach scan). - 12/14/81 Huber changed T$GPPI error codes to match rev 18. To do - this changed E$RSNU from 137 to 140 and filled in - the previously held codes with E$CTPR, E$DFPR, E$DLPR. - 11/06/81 Weinberg changed codes for ACL rewrite. - 10/26/81 Hornbaker added F$IO error codes. - 10/22/81 HChen used the spare one, 137, for E$RSNU. - 05/22/81 Detroy add T$GPPI error codes. - 04/07/81 Cecchin merged new errors for Acls (for Ben Crocker). - 03/25/81 Cecchin added NPX error codes from 18 to fix mismatch - between 18 and 19. Also added spare 18 error codes - as a temporary solution. - ********************************************************************/ - - - -/* */ -/* CODE DEFINITIONS */ -/* */ - -#define e$ok 0 /* NORMAL RETURN */ -#define e$eof 1 /* END OF FILE PE */ -#define e$bof 2 /* BEGINNING OF FILE PG */ -#define e$unop 3 /* UNIT NOT OPEN PD,SD */ -#define e$uius 4 /* UNIT IN USE SI */ -#define e$fius 5 /* FILE IN USE SI */ -#define e$bpar 6 /* BAD PARAMETER SA */ -#define e$natt 7 /* NO UFD ATTACHED SL,AL */ -#define e$fdfl 8 /* UFD FULL SK */ -#define e$dkfl 9 /* DISK FULL DJ */ -#define e$disk_full 9 /* alias to E$DKFL */ -#define e$nrit 10 /* NO RIGHT SX */ -#define e$fdel 11 /* FILE OPEN ON DELETE SD */ -#define e$ntud 12 /* NOT A UFD AR */ -#define e$ntsd 13 /* NOT A SEGDIR -- */ -#define e$dire 14 /* IS A DIRECTORY -- */ -#define e$fntf 15 /* (FILE) NOT FOUND SH,AH */ -#define e$fnts 16 /* (FILE) NOT FOUND IN SEGDIR SQ */ -#define e$bnam 17 /* ILLEGAL NAME CA */ -#define e$exst 18 /* ALREADY EXISTS CZ */ -#define e$dnte 19 /* DIRECTORY NOT EMPTY -- */ -#define e$shut 20 /* BAD SHUTDN (FAM ONLY) BS */ -#define e$disk 21 /* DISK I/O ERROR WB */ -#define e$bdam 22 /* BAD DAM FILE (FAM ONLY) SS */ -#define e$ptrm 23 /* PTR MISMATCH (FAM ONLY) PC,DC,AC */ -#define e$rec_hdr_ptr_mismatch 23 /* alias to E$PTRM */ -#define e$bpas 24 /* BAD PASSWORD (FAM ONLY) AN */ -#define e$bcod 25 /* BAD CODE IN ERRVEC -- */ -#define e$btrn 26 /* BAD TRUNCATE OF SEGDIR -- */ -#define e$oldp 27 /* OLD PARTITION -- */ -#define e$bkey 28 /* BAD KEY -- */ -#define e$bunt 29 /* BAD UNIT NUMBER -- */ -#define e$bsun 30 /* BAD SEGDIR UNIT SA */ -#define e$suno 31 /* SEGDIR UNIT NOT OPEN -- */ -#define e$nmlg 32 /* NAME TOO LONG -- */ -#define e$sder 33 /* SEGDIR ERROR SQ */ -#define e$bufd 34 /* BAD UFD -- */ -#define e$bfts 35 /* BUFFER TOO SMALL -- */ -#define e$fitb 36 /* FILE TOO BIG -- */ -#define e$null 37 /* (NULL MESSAGE) -- */ -#define e$irem 38 /* ILL REMOTE REF -- */ -#define e$dviu 39 /* DEVICE IN USE -- */ -#define e$rldn 40 /* REMOTE LINE DOWN -- */ -#define e$fuiu 41 /* ALL REMOTE UNITS IN USE -- */ -#define e$dns 42 /* DEVICE NOT STARTED -- */ -#define e$tmul 43 /* TOO MANY UFD LEVELS -- */ -#define e$fbst 44 /* FAM - BAD STARTUP -- */ -#define e$bsgn 45 /* BAD SEGMENT NUMBER -- */ -#define e$fifc 46 /* INVALID FAM FUNCTION CODE -- */ -#define e$tmru 47 /* MAX REMOTE USERS EXCEEDED -- */ -#define e$nass 48 /* DEVICE NOT ASSIGNED -- */ -#define e$bfsv 49 /* BAD FAM SVC -- */ -#define e$semo 50 /* SEM OVERFLOW -- */ -#define e$ntim 51 /* NO TIMER -- */ -#define e$fabt 52 /* FAM ABORT -- */ -#define e$fonc 53 /* FAM OP NOT COMPLETE -- */ -#define e$npha 54 /* NO PHANTOMS AVAILABLE - */ -#define e$room 55 /* NO ROOM -- */ -#define e$wtpr 56 /* DISK WRITE-PROTECTED JF */ -#define e$itre 57 /* ILLEGAL TREENAME FE */ -#define e$famu 58 /* FAM IN USE -- */ -#define e$tmus 59 /* MAX USERS EXCEEDED -- */ -#define e$ncom 60 /* NULL_COMLINE -- */ -#define e$nflt 61 /* NO_FAULT_FR -- */ -#define e$stkf 62 /* BAD STACK FORMAT -- */ -#define e$stks 63 /* BAD STACK ON SIGNAL -- */ -#define e$noon 64 /* NO ON UNIT FOR CONDITION -- */ -#define e$crwl 65 /* BAD CRAWLOUT -- */ -#define e$crov 66 /* STACK OVFLO DURING CRAWLOUT -- */ -#define e$crun 67 /* CRAWLOUT UNWIND FAIL -- */ -#define e$cmnd 68 /* BAD COMMAND FORMAT -- */ -#define e$rchr 69 /* RESERVED CHARACTER -- */ -#define e$nexp 70 /* CANNOT EXIT TO COMMAND PROC -- */ -#define e$barg 71 /* BAD COMMAND ARG -- */ -#define e$csov 72 /* CONC STACK OVERFLOW -- */ -#define e$nosg 73 /* SEGMENT DOES NOT EXIST -- */ -#define e$trcl 74 /* TRUNCATED COMMAND LINE -- */ -#define e$ndmc 75 /* NO SMLC DMC CHANNELS -- */ -#define e$dnav 76 /* DEVICE NOT AVAILABLE DPTX */ -#define e$datt 77 /* DEVICE NOT ATTACHED -- */ -#define e$bdat 78 /* BAD DATA -- */ -#define e$blen 79 /* BAD LENGTH -- */ -#define e$bdev 80 /* BAD DEVICE NUMBER -- */ -#define e$qlex 81 /* QUEUE LENGTH EXCEEDED -- */ -#define e$nbuf 82 /* NO BUFFER SPACE -- */ -#define e$inwt 83 /* INPUT WAITING -- */ -#define e$ninp 84 /* NO INPUT AVAILABLE -- */ -#define e$dfd 85 /* DEVICE FORCIBLY DETACHED -- */ -#define e$dnc 86 /* DPTX NOT CONFIGURED -- */ -#define e$sicm 87 /* ILLEGAL 3270 COMMAND -- */ -#define e$sbcf 88 /* BAD 'FROM' DEVICE -- */ -#define e$vkbl 89 /* KBD LOCKED -- */ -#define e$via 90 /* INVALID AID BYTE -- */ -#define e$vica 91 /* INVALID CURSOR ADDRESS -- */ -#define e$vif 92 /* INVALID FIELD -- */ -#define e$vfr 93 /* FIELD REQUIRED -- */ -#define e$vfp 94 /* FIELD PROHIBITED -- */ -#define e$vpfc 95 /* PROTECTED FIELD CHECK -- */ -#define e$vnfc 96 /* NUMERIC FIELD CHECK -- */ -#define e$vpef 97 /* PAST END OF FIELD -- */ -#define e$virc 98 /* INVALID READ MOD CHAR -- */ -#define e$ivcm 99 /* INVALID COMMAND -- */ -#define e$dnct 100 /* DEVICE NOT CONNECTED -- */ -#define e$bnwd 101 /* BAD NO. OF WORDS -- */ -#define e$sgiu 102 /* SEGMENT IN USE -- */ -#define e$nesg 103 /* NOT ENOUGH SEGMENTS (VINIT$) -- */ -#define e$sdup 104 /* DUPLICATE SEGMENTS (VINIT$) -- */ -#define e$ivwn 105 /* INVALID WINDOW NUMBER -- */ -#define e$wain 106 /* WINDOW ALREADY INITIATED -- */ -#define e$nmvs 107 /* NO MORE VMFA SEGMENTS -- */ -#define e$nmts 108 /* NO MORE TEMP SEGMENTS -- */ -#define e$ndam 109 /* NOT A DAM FILE -- */ -#define e$nova 110 /* NOT OPEN FOR VMFA -- */ -#define e$necs 111 /* NOT ENOUGH CONTIGUOUS SEGMENTS */ -#define e$nrcv 112 /* REQUIRES RECEIVE ENABLED -- */ -#define e$unrv 113 /* USER NOT RECEIVING NOW -- */ -#define e$ubsy 114 /* USER BUSY, PLEASE WAIT -- */ -#define e$udef 115 /* USER UNABLE TO RECEIVE MESSAGES */ -#define e$uadr 116 /* UNKNOWN ADDRESSEE -- */ -#define e$prtl 117 /* OPERATION PARTIALLY BLOCKED -- */ -#define e$nsuc 118 /* OPERATION UNSUCCESSFUL -- */ -#define e$nrob 119 /* NO ROOM IN OUTPUT BUFFER -- */ -#define e$nete 120 /* NETWORK ERROR ENCOUNTERED -- */ -#define e$shdn 121 /* DISK HAS BEEN SHUT DOWN FS */ -#define e$unod 122 /* UNKNOWN NODE NAME (PRIMENET) */ -#define e$ndat 123 /* NO DATA FOUND -- */ -#define e$enqd 124 /* ENQUED ONLY -- */ -#define e$phna 125 /* PROTOCOL HANDLER NOT AVAIL DPTX */ -#define e$iwst 126 /* E$INWT ENABLED CONFIG DPTX */ -#define e$bkfp 127 /* BAD KEY FOR THIS PROTOCOL DPTX */ -#define e$bprh 128 /* BAD PROTOCOL HANDLER (TAT) DPTX */ -#define e$abti 129 /* I/O ABORT IN PROGRESS DPTX */ -#define e$ilff 130 /* ILLEGAL DPTX FILE FORMAT DPTX */ -#define e$tmed 131 /* TOO MANY EMULATE DEVICES DPTX */ -#define e$danc 132 /* DPTX ALREADY CONFIGURED DPTX */ -#define e$nenb 133 /* REMOTE MODE NOT ENABLED NPX */ -#define e$nsla 134 /* NO NPX SLAVE AVAILABLE --- */ -#define e$pntf 135 /* PROCEDURE NOT FOUND R$CALL */ -#define e$sval 136 /* SLAVE VALIDATION ERROR R$CALL */ -#define e$iedi 137 /* I/O error or device interrupt (GPPI) */ -#define e$wmst 138 /* Warm start happened (GPPI) */ -#define e$dnsk 139 /* A pio instruction did not skip (GPPI) */ -#define e$rsnu 140 /* REMOTE SYSTEM NOT UP R$CALL */ -#define e$s18e 141 - -/* */ -/* New error codes for REV 19 begin here: */ -/* */ - -#define e$nfqb 142 /* NO FREE QUOTA BLOCKS -- */ -#define e$mxqb 143 /* MAXIMUM QUOTA EXCEEDED -- */ -#define e$max_quota_exceeded 143 /* alias to E$MXQB */ -#define e$noqd 144 /* NOT A QUOTA DISK (RUN VFIXRAT) */ -#define e$qexc 145 /* SETTING QUOTA BELOW EXISTING USAGE */ -#define e$imfd 146 /* Operation illegal on MFD */ -#define e$nacl 147 /* Not an ACL directory */ -#define e$pnac 148 /* Parent not an ACL directory */ -#define e$ntfd 149 /* Not a file or directory */ -#define e$iacl 150 /* Entry is an ACL */ -#define e$ncat 151 /* Not an access category */ -#define e$lrna 152 /* Like reference not available */ -#define e$cpmf 153 /* Category protects MFD */ -#define e$acbg 154 /* ACL too big */ -#define e$acnf 155 /* Access category not found */ -#define e$lrnf 156 /* Like reference not found */ -#define e$bacl 157 /* BAD ACL */ -#define e$bver 158 /* BAD VERSION */ -#define e$ninf 159 /* NO INFORMATION */ -#define e$catf 160 /* Access category found (Ac$rvt) */ -#define e$adrf 161 /* ACL directory found (Ac$rvt) */ -#define e$nval 162 /* Validation error (nlogin) */ -#define e$logo 163 /* Logout (code for fatal$) */ -#define e$nutp 164 /* No unit table available. (PHANT$) */ -#define e$utar 165 /* Unit table already returned. (UTDALC) */ -#define e$uniu 166 /* Unit table not in use. (RTUTBL) */ -#define e$nfut 167 /* No free unit table. (GTUTBL) */ -#define e$uahu 168 /* User already has unit table. (UTALOC) */ -#define e$panf 169 /* Priority ACL not found. */ -#define e$misa 170 /* Missing argument to command. */ -#define e$sccm 171 /* System console command only. */ -#define e$brpa 172 /* Bad remote password R$CALL */ -#define e$dtns 173 /* Date and time not set yet. */ -#define e$spnd 174 /* REMOTE PROCEDURE CALL STILL PENDING */ -#define e$bcfg 175 /* NETWORK CONFIGURATION MISMATCH */ -#define e$bmod 176 /* Illegal access mode (AC$SET) */ -#define e$bid 177 /* Illegal identifier (AC$SET) */ -#define e$st19 178 /* Operation illegal on pre-19 disk */ -#define e$ctpr 179 /* Object is category-protected (Ac$chg) */ -#define e$dfpr 180 /* Object is default-protected (Ac$chg) */ -#define e$dlpr 181 /* File is delete-protected (Fil$dl) */ -#define e$blue 182 /* Bad LUBTL entry (F$IO) */ -#define e$ndfd 183 /* No driver for device (F$IO) */ -#define e$wft 184 /* Wrong file type (F$IO) */ -#define e$fdmm 185 /* Format/data mismatch (F$IO) */ -#define e$fer 186 /* Bad format (F$IO) */ -#define e$bdv 187 /* Bad dope vector (F$IO) */ -#define e$bfov 188 /* F$IOBF overflow (F$IO) */ -#define e$nfas 189 /* Top-level dir not found or inaccessible*/ -#define e$apnd 190 /* Asynchronous procedure still pending */ -#define e$bvcc 191 /* Bad virtual circuit clearing */ -#define e$resf 192 /* Improper access to a restricted file */ -#define e$mnpx 193 /* Illegal multiple hops in NPX. */ -#define e$synt 194 /* SYNTanx error */ -#define e$ustr 195 /* Unterminated STRing */ -#define e$wns 196 /* Wrong Number of Subscripts */ -#define e$ireq 197 /* Integer REQuired */ -#define e$vng 198 /* Variable Not in namelist Group */ -#define e$sor 199 /* Subscript Out of Range */ -#define e$tmvv 200 /* Too Many Values for Variable */ -#define e$esv 201 /* Expected String Value */ -#define e$vabs 202 /* Variable Array Bounds or Size */ -#define e$bclc 203 /* Bad Compiler Library Call */ -#define e$nsb 204 /* NSB tape was detected */ -#define e$wslv 205 /* Slave's ID mismatch */ -#define e$vcgc 206 /* The virtual circuit got cleared. */ -#define e$mslv 207 /* Exceeds max number of slaves per user */ -#define e$idnf 208 /* Slave's ID not found */ -#define e$nacc 209 /* Not accessible */ -#define e$udma 210 /* Not Enough DMA channels */ -#define e$udmc 211 /* Not Enough DMC channels */ -#define e$blef 212 /* Bad tape record length and EOF */ -#define e$blet 213 /* Bad tape record length and EOT */ -#define e$alsz 214 /* Allocate request too small */ -#define e$frer 215 /* Free request with invalid pointer */ -#define e$hper 216 /* User storage heap is corrupted */ -#define e$epft 217 /* Invalid EPF type */ -#define e$epfs 218 /* Invalid EPF search type */ -#define e$iltd 219 /* Invalid EPF LTD linkage descriptor */ -#define e$ilte 220 /* Invlaid EPF LTE linkage discriptor */ -#define e$eceb 221 /* Exceeding command environment breadth */ -#define e$epfl 222 /* EPF file exceeds file size limit */ -#define e$nta 223 /* EPF file not active for this user */ -#define e$swps 224 /* EPF file suspended within program session */ -#define e$swpr 225 /* EPF file suspended within this process */ -#define e$adcm 226 /* System administrator command ONLY */ -#define e$uafu 227 /* Unable to allocate file unit */ -#define e$unable_to_allocate_file_unit 227 /* alias to E$UAFU */ -#define e$fidc 228 /* File inconsistent data count */ -#define e$file_inconsistent_data_count 228 /* alias to e$fidc */ -#define e$indl 229 /* alias to e$insufficient_dam_level */ -#define e$insufficient_dam_levels 229 /* Not enough dam index levels as needed */ -#define e$peof 230 /* alias to e$past_EOF */ -#define e$past_eof 230 /* Past End Of File */ -#define e$exmf 231 /* Extent map full */ -#define e$bkio 232 /* Unit open for block mode i/o */ -#define e$awer 233 /* Asynchronous write error */ -#define e$ramc 234 /* R0AM access mode conflict */ -#define e$rier 235 /* R0AM internal error */ -#define e$nslv 236 /* Process not a slave */ -#define e$rsin 237 /* Remote system has initialized. */ -#define e$atns 238 /* Attribute not supported */ -#define e$rshd 239 /* Remote disk has been shut down. */ -#define e$nopd 240 /* No paging device defined. */ -#define e$nrfc 241 /* Specified reverse flow control on AMLC */ -#define e$cpovfl 242 /* PX$SVTIM overflow of CPU seconds */ -#define e$ioovfl 243 /* PX$SVTIM overflow of I/O seconds */ -#define e$bhovfl 244 /* PX$SVTIM overflow both CPU & I/O sec.s */ -#define e$aele 245 /* Attempt to execute non-executable library */ -#define e$list 246 /* Search list not found or invalid. */ -#define e$rule 247 /* Search rule not found or invalid. */ -#define e$ntop 248 /* Search rule was not an optional rule. */ -#define e$nest 249 /* Template files were nested too deeply--probably circular reference. */ -#define e$admn 250 /* Illegal attempt to change administrator rule. */ -#define e$eol 251 /* End of list reached. */ -#define e$adrl 252 /* Error in administrator rules. */ -#define e$ifcb 253 /* Insufficient free contiguous blocks. */ -#define e$imem 254 /* Insufficient memory for extent map. */ -#define e$nres 255 /* No resources available for request. */ -#define e$ilus 256 /* Illegal use of Primix gate */ -#define e$nchd 257 /* No child found for this process. */ -#define e$int 258 /* Wait terminated by interrupt */ -#define e$xshdn 259 /* Can NOT initialize Primix when running */ -#define e$nopx 260 /* Can NOT shutdown Primix when NOT running */ -#define e$nous 261 /* Primix process table has no users when it should have users. */ -#define e$incom 262 /* Primix process table returned is incomplete */ -#define e$ireg 263 /* Illegal EPF Registration */ -#define e$inai 264 /* Invalid number of args. in initialization routine */ -#define e$illn 265 /* Illegal link at registration */ -#define e$buid 266 /* Bad user id */ -#define e$inre 267 /* Invalid request */ -#define e$npsg 268 /* Not enough per-user DATR1 segments */ -#define e$uinf 269 /* User Id not found */ -#define e$ivpt 270 /* An invalid block pointer was given */ -#define e$snal 271 /* Segment not allocated */ -#define e$natf 272 /* Not able to free storage */ -#define e$nd3s 273 /* No Dtar 3 Segments available */ -#define e$bsmt 274 /* Null smt_ptr or bad field within SMT */ -#define e$ialn 275 /* Illegal alias name */ -#define e$bptr 276 /* Bad pointer (within SMT?) */ -#define e$idbt 277 /* Illegal database */ -#define e$bdtr 278 /* Bad DTAR */ -#define e$lunr 279 /* Library unregistered */ -#define e$enrg 280 /* EPF has not been registered */ -#define e$ndrb 281 /* No directory block for unit. */ -#define e$cqpt 282 /* Circular Quota parent thread. */ -#define e$area 283 /* Corrupted area encountered. */ -#define e$nown 284 /* Not owner of resource. */ -#define e$blok 285 /* Bad block encountered. */ -#define e$ismr 286 /* Invalid static mode resume. */ -#define e$blin 287 /* Bad line number. */ -#define e$bbuf 288 /* Bad buffer number */ -#define e$bprotocol 289 /* Bad protocol */ -#define e$line_in_use 290 /* Line in use */ -#define e$buf_in_use 291 /* Buffer in use */ -#define e$invalid_rem_buf_use 292 /* Invalid use of remote buffer */ -#define e$invalid_asline_buf_use 293 /* Invalid use of assign line buffer */ -#define e$invalid_asd_use 294 /* Invalid ASD use */ -#define e$invalid_asd_sample_speed 295 /* Invalid sample speed for ASD */ -#define e$invalid_dislog_use 296 /* Invalid use of DISLOG */ -#define e$nsni 297 /* nss database not initialized */ -#define e$nsnc 298 /* nss database naming conflict */ -#define e$nsac 299 /* nss database address conflict */ -#define e$nthn 300 /* nts host not configured */ -#define e$ntns 301 /* nts not started */ -#define e$ntst 302 /* nts already started */ -#define e$ntcf 303 /* not an nts configuration file */ -#define e$ntlc 304 /* LHC is unconfigured */ -#define e$ntin 305 /* nts database is uninitialized */ -#define e$ntdl 306 /* LHC is not down-line loaded */ -#define e$plaa 307 /* primos line already assoc */ -#define e$llaa 308 /* lts line already assoc */ -#define e$naso 309 /* not associated */ -#define e$ncfg 310 /* not configured */ -#define e$nxcb 311 /* XCB unavailable for request */ -#define e$doqf 312 /* Device output queue full */ -#define e$lnoc 313 /* Line not connected */ -#define e$rqf 314 /* Request queue full */ -#define e$crej 315 /* Connection rejected */ -#define e$ctmo 316 /* Connection request timed out */ -#define e$lhdn 317 /* LHC down */ -#define e$ltdn 318 /* LTS down */ -#define e$ntsh 319 /* NTS shutdown */ -#define e$qful 320 /* Queue is full */ -#define e$qemp 321 /* Queue is empty */ -#define e$noq 322 /* No queue for queue operation */ -#define e$val 323 /* Validation error */ -#define e$comm 324 /* Command illegal for this operation */ -#define e$awir 325 /* Page is already wired */ -#define e$iwir 326 /* Page is not wired */ -#define e$npda 327 /* No password directories allowed */ -#define e$nint 328 /* System not initialized */ -#define e$reiu 329 /* Registered EPF is in-use. */ -#define e$nba 330 /* No Buffers Available */ -#define e$lnow 331 /* Line Not Owned By You */ -#define e$lnp 332 /* Line Not Present on System */ -#define e$lna 333 /* Lock not allocated */ -#define e$ldes 334 /* Lock has been destroyed */ -#define e$lny 335 /* Lock is not yours */ -#define e$rmln 336 /* Illegal operation on remote line. */ -#define e$itlb 337 /* Invalid use of terminal line buffer. */ -#define e$ips 338 /* Invalid parameter setting. */ -#define e$dpar 339 /* Duplicate parameter. */ -#define e$pns 340 /* Parameter not settable. */ -#define e$bchk 341 /* Bad checksum */ -#define e$expd 342 /* Software has expired */ -#define e$dnts 343 /* Density not selected. */ -#define e$snts 344 /* Speed not selected. */ -#define e$bmpc 345 /* Magtape controller hung. */ -#define e$gpon 346 /* Generated Passwords ON. */ -#define e$ngpw 347 /* No Generated PassWords (they're not on).*/ -#define e$ista 348 /* Invalid state */ -#define e$zero 349 /* Uninitialized block on robust part */ -#define e$nadm 350 /* System Not Admitting Users */ -#define e$rxmh 351 /* Multiple NPX hop on ext dir entry(root)*/ -#define e$nnet 352 /* The Network isn't running */ -#define e$mtpt 353 /* Operation illegal on Mount-Point */ -#define e$rpmh 354 /* Multiple NPX hop on portals */ -#define e$mnsh 355 /* Multiple name space hop */ -#define e$iptr 356 /* Null pointer given. */ -#define e$pthu 357 /* Pathname unavailable. */ -#define e$igmt 358 /* Inconsistent GMTs on different machines*/ -#define e$iroo 359 /* Operation illegal on root directory. */ -#define e$newf 360 /* Primos rev on remote machine too old. */ -#define e$bpor 361 /* Target node of portal is not remote. */ -#define e$prvt 362 /* Remote reference to a private disk. */ -#define e$nd1s 363 /* No Dtar 1 Segments available */ -#define e$umle 364 /* Unexpected GetMutexLock error */ -#define e$ernf 365 /* EPF registration level not found */ -#define e$apsm 366 /* Acat currently protecting shared memory*/ -#define e$unli 367 /* Specified user not logged in. */ -#define e$muli 368 /* Multiple users logged in */ -#define e$cwat 369 /* Can not watch. */ -#define e$ubw 370 /* User being watched another user. */ -#define e$icut 371 /* Incompatible unit table entry type. */ -#define e$ianl 372 /* Initial attach point is not local. */ -#define e$nowr 373 /* Not open for write. */ -#define e$ndsm 374 /* No dsm msg required, see proposal 62 */ -#define e$dnta 375 /* Invalid physical disk number (off_line)*/ -#define e$bfmt 376 /* Format not supported on this drive */ -#define e$acpg 377 /* Cannot assign active paging disk */ -#define e$acdd 378 /* Cannot assign active crash dump disk */ -#define e$pwru 379 /* Password recently used. */ -#define e$cple 380 /* Change Password Limit Exceeded. */ -#define e$metl 381 /* Messages on remote system limited .. */ -#define e$pnir 382 /* OnLine Disk Part. NOT being Fix_Disked */ -#define e$fder 383 /* Fatal error del file info, OnLine Fix_D*/ -#define e$fdir 384 /* OnLine Fix_Disk Internal error */ -#define e$last 384 /* THIS ***MUST*** BE LAST -- */ - -/* */ -/* The value of E$LAST must equal the last error code. */ -/* */ - -/* End of ERRD.INS.CC */ diff --git a/syscom/keys.ins.cc b/syscom/keys.ins.cc deleted file mode 100644 index 4810b40..0000000 --- a/syscom/keys.ins.cc +++ /dev/null @@ -1,618 +0,0 @@ -/* KEYS.INS.PL1, SYSCOM, PRIMOS GROUP, 11/18/91 - Mnemonic keys for Primos file system (CC) - Copyright (c) 1982, Prime Computer, Inc., Natick, MA 01760 */ - -/* */ -/**** ****/ -/**** IMPORTANT: Values in this file MUST be in decimal. ****/ -/**** Bit strings, octal, or hex are no good! ****/ -/**** ****/ -/**** All comments should have a ****/ -/**** for each line of the comment. ****/ -/**** Multi-line comments break the conversion ****/ -/**** utilities in syscomsrc. ****/ -/**** The length of the keyname+length of value****/ -/**** should not be more than 19 characters. ****/ -/* MODIFICATIONS: - Date Programmer Description of modification - 11/18/91 Sager Added K$ENCR, K$DSCR, K$MLEN, K$CRLF, K$ENSH, - and K$ENLG for Message 512 support. - 04/11/91 Gorton Added K$CHPR, K$ENCP, K$ENPW, K$DSCP, K$DSPW for - for CHANGE_PROJECT. - 12/07/90 Snay Added k$cra_mismatch, - k$set_dta_dtm, and k$rtnrec_error for disk - error tracking. - 12/04/90 RRM added K$elng for long entry(point)names k$elng - 09/04/90 A. Conte Added k$getf, k$getn, k$gmyw, k$setw, k$strt, and - k$stop. - 08/30/90 Hunt Added K$INT0 and K$DATA for APM. - 08/10/90 J.Pascucci Fixed comments that broke the .IBAS conversion. - and added warning. - 04/10/90 Morin Added K$NTLK for PRWF$$ key option mode. - 03/12/90 Slutz Chagned k$nmnt from 32 to 128. - 10/19/89 Tung Added K$PEOF for prwf$$ and K$FACR for sgdr$$. - 05/03/89 RRM Added new key K$NULF for OPSRS$/SRSFX$ null first - search. [4039718] -Rich Malloy - 04/17/89 Huber Added K$NMNT key for srch$$. - 12/26/88 Slutz Readded K$RW & K$RWX for VINIT$ - K$VMRW for SRCH$$ & VINIT$. - 11/02/88 Snay Added registered_epf support: - Added k$force and k$relax. - Added k$some and k$spublic0. - k$public3_one and k$public0_one. - Added k$public_all, k$public_one, k$public3_one - and k$public0_one. - Added keys k$comm and k$prcd. - Added key k$initreg. - Added K$PUBLIC keys for EPFs. - 09/23/88 A. Conte Added K$GTAL for As$Lst gate. - 08/16/88 Vergin Added new keys for BKP$OP and BKP$SATR. - 06/15/88 Cook Converted to SPL. - 05/16/88 Phyfe Added K$URI key for CHBK$$ (for DMD DCM - project - the Bayer Cache). - 02/23/88 Allen Added k$qual to indicate qualified pathnames only - for tnchk$(). - 12/18/87 Poh Added k$brief and k$long to indicate brief or long - prompt. It is used in CL$MSG. - 07/17/87 Roper Remove k$rrsv from search rule keys (unused) - 03/18/87 M. Sadigh Changed k$reinit_all_reg to K$reinit_ref_libs. - 01/12/87 A. Conte Added K$SLS and K$PLST for As$Set gate. - 07/14/86 M. Sadigh Added a new key K$FRC_UNREG EPF$UNREG. - 07/05/86 Jones Rev 21.0 integration of: - Tate [developed: 05/01/86] - Added comment, (new) SNCHK$'s uses xxCHK$ keys. - 06/16/86 Kazin Deleted dynamic storage manager keys. [SPAR 3019441] - 05/22/86 M. Sadigh Added k$reinit_all_reg which used when calling - EPF$INIT to re-intialize all referneced libraries. - 02/05/86 Silveira Added K$WIRE for wired class dynamic storage. - 02/04/86 Dossett Changed keys K$UNKN, K$RRSV, K$ACAT, K$FILE, - K$SDIR, K$DIR - from hexadecimal values to decimal to make the - build program for SYSCOM>KEYS.INS.@ happy. - 02/03/86 Moore Revert the values of K$INB and K$OUTB. Fix in TTY$RS. - 12/19/85 M. Sadigh Added k$reinit_reg for EPF$INIT. Also added K$unreg - .................. to unregister a registered epf. - 11/27/85 Moore Changed K$NCNT to K$NCAM. - 11/25/85 Moore [3015705] Added RRS fix to keys k$inb, k$outb. - 11/01/85 Dossett/Yang Added K$(TEXT HMDR ORDR RFDR KEYW ANYTYPE UNKN - RRSV ACAT FILE SDIR DIR) for Search Rules primitives - (SR$NEXTR, SR$EXSTR, OPSR$ and OPSRS$). - 01/03/85 JBall Added K$CMWR, K$CMRD for IPC$CM. - 11/16/84 Pinkoski Added K$BKUP for SRCH$$, K$DTA & K$DTC for SATR$$. - 10/15/84 JSheehan Added K$LINE, K$LINC, K$LINS, and K$LINU for - DS$ASY; and added K$NEXT for DS$UNI. - 08/06/84 RMorris Added k$inb and k$outb for TTY$RS. - 07/06/84 Sadigh Added K$COMO to gpath$ - 04/16/84 Rees Added K$NCNT, K$BKIO to SRCH$$ keys. - Added K$WAIT,K$SAVE CHBK$$ keys. - 01/16/84 JBall Added K$MINE for IPC$GU, also added low water key - (K$IPCB) for IPC$ST. - 01/12/84 JBall K$MMSG no longer defined for IPC. - 08/10/83 Kazin Added k$segn key for GPATH$, added K$NO_FRC_DEL and - K$FRC_DEL for DELEPF$, added mods to EPF keys, - added K$SPRC for subsystem process class dynamic - storage and removed K$VMRW. - 07/14/83 Kroczak Changed k$dtls (date/time last saved) to - dtb (date/time backed-up). - 04/18/83 JBall Added keys for IPC support. [osi 1566] - 01/27/83 Kazin Added K$SPEC to VINIT$ keys. [OSINFO 1362] - 01/24/83 Kazin Added keys for dynamic storage manager. [OSI 1329] - 11/15/82 Kroczak Added k$trun key to satr$$ - 10/11/82 Kroczak Added k$dtls key to satr$$. - 09/10/82 Kroczak Added k$ltyp key to satr$$ and k$resv key to srch$$ - 07/28/82 Kazin Deleted K$RW, K$RWX, and K$GATE from VINIT$ keys. - 07/03/82 Weinberg Added keys for DIR$CR. - 06/17/82 Kazin Added K$DUPL for vinit$. - 05/21/82 Goggin Added k$st$s, k$st$n, k$nlop, and k$lonp for - ........ event logging module LGINI$.PLP. - 04/29/82 Kazin Added keys for SW$INT. - 12/02/81 Kazin Got rid of VINIT$ keys k$pref, k$spec, and k$dtar. - 11/18/81 Curreri Added keys for log_init to turn logging - ........ or net logging on or off. - 11/12/81 Weinberg Added k$grp key for Idchk$. - 11/09/81 Weinberg Removed non-standard ERROR code definitions from - ........ MGSET$ section; added keys for R/W locks in SATR$$. - 10/06/81 Weinberg Removed initial attach point keys for ATCH$$, - ........ ACL keys for RDEN$$; added keys for DIR$RD. - 07/24/81 Kazin Added allocate consecutive segment keys for GETSN$. - 07/16/81 Weinberg Added keys for LDISK$. - 06/17/81 Weinberg Added keys for FNCHK$ and friends. - 04/24/81 Weinberg Added K$INIA to GPATH$ keys. - 03/11/81 Cecchin added EPF keys. - */ - -/* key definitions */ - -/* *********************** prwf$$ *********************** */ - -/* ******** rwkey ******** */ - -#define k$read 1 /* read */ -#define k$writ 2 /* write */ -#define k$posn 3 /* position only */ -#define k$trnc 4 /* truncate */ -#define k$rpos 5 /* read current position */ - -/* ******** poskey ******** */ - -#define k$prer 0 /* pre-position relative */ -#define k$prea 8 /* pre-position absolute */ -#define k$posr 16 /* post-position relative */ -#define k$posa 24 /* post-position absolute */ -#define k$peof 128 /* pre-position to eof */ - -/* ******** mode ******** */ - -#define k$conv 256 /* convenient number of words */ -#define k$frcw 16384 /* forced write to disk */ -#define k$ntlk 8192 /* Avoid taking tran lock for writing */ - -/* *********************** srch$$ *********************** */ - -/* ******** action ******** */ - -/* k$read 1#define open for read (k$read) */ - -/* k$writ 2#define open for write (k$writ) */ - -#define k$rdwr 3 /* open for read & write */ -#define k$clos 4 /* close file */ -#define k$dele 5 /* delete file */ -#define k$exst 6 /* check file's existence */ -#define k$bkup 7 /* open for read BY BACKUP utility */ -#define k$vmr 16 /* open for vmfa read */ -#define k$vmrw 48 /* open for vmfa read/write */ -#define k$bkio 8192 /* open for block mode */ -#define k$getu 16384 /* system returns unit number */ -#define k$resv -32768 /* reserved bit */ - -/* ******** ref ******** */ - -#define k$iufd 0 /* file entry is in ufd */ -#define k$iseg 64 /* file entry is in segment directory */ -#define k$nmnt 128 /* don't cross mount points */ -#define k$cacc 512 /* change access */ - -/* ******** newfil ******** */ - -#define k$nsam 0 /* new sam file */ -#define k$ndam 1024 /* new dam file */ -#define k$nsgs 2048 /* new sam segment directory */ -#define k$nsgd 3072 /* new dam segment directory */ -#define k$ncam 4096 /* new contiguous file */ -#define k$curr -1 /* currently attached ufd */ - -/* *********************** vinit$ *********************** */ - -#define k$any 0 /* any segment(s) acceptable */ -#define k$spec 1 /* use specified segments */ -#define k$dupl 16 /* duplicate segs requested */ -#define k$cnsc 8 /* consecutive segments required */ -#define k$r 2 /* Read access on segment (^= k$read!) */ -#define k$rx 6 /* Read/execute access */ -#define k$rw 3 /* Read/write access on segment */ -#define k$rwx 7 /* Read/write/execute access */ - -/* *********************** getsn$, find_seg ************* */ - -#define k$down 0 /* Allocate decreasing segment #'s */ -#define k$up 1 /* Allocate increasing segment #'s */ -#define k$upc 2 /* Allocate increas. consec. segs. */ -#define k$dwnc 4 /* Allocate decreas. consec. segs. */ - -/* *********************** atch$$ *********************** */ - -/* ******** key ******** */ - -#define k$imfd 0 /* ufd is in mfd */ -#define k$icur 2 /* ufd is in current ufd */ - -/* ******** keymod ******** */ - -#define k$setc 0 /* set current ufd (do not set home) */ -#define k$seth 1 /* set home ufd (as well as current) */ - -/* ******** name ******** */ - -#define k$home 0 /* return to home ufd (key=k$imfd) */ - -/* ******** ldisk ******** */ - -#define k$alld -32768 /* search all disks */ - -/* k$curr -1#define search mfd of current disk (k$curr) */ - -/* *********************** ac$set *********************** */ - -/* k$any 0#define Do it regardless */ - -#define k$crea 1 /* Create new ACL (error if already exists) */ -#define k$rep 2 /* Replace existing ACL (error if does not exist)*/ - -/* *********************** sgdr$$ *********************** */ - -/* ******** key ******** */ - -#define k$spos 1 /* position to entry number in segdir */ -#define k$gond 2 /* position to end of segdir */ -#define k$gpos 3 /* return current entry number */ -#define k$msiz 4 /* make segdir given nr of entries */ -#define k$mvnt 5 /* move file entry to different position */ -#define k$full 6 /* position to next non-empty position */ -#define k$free 7 /* position to next free entry */ -#define k$facr 11 /* find next free entry and create file */ - -/* *********************** rden$$ *********************** */ - -/* ******** key ******** */ - -/* k$read 1#define read next entry (k$read) */ - -#define k$rsub 2 /* read next sub-entry */ - -/* k$gpos 3#define return current pos in ufd (k$gpos) */ - -#define k$upos 4 /* position in ufd */ -#define k$name 5 /* read entry specified BY name */ - -/* ******************************* dir$rd */ - -/* k$read 1#define Read next entry */ - -#define k$init 2 /* Initialize directory (read header */ - -/* *********************** satr$$ *********************** */ - -/* ******** key ******** */ - -#define k$prot 1 /* set protection */ -#define k$dtim 2 /* set datetime modified */ -#define k$dmpb 3 /* set dumped bit */ -#define k$rwlk 4 /* set per file read/write lock */ -#define k$sown 5 /* set OWNER field */ -#define k$sdl 6 /* set ACL/DELETE switch */ -#define k$ltyp 7 /* set logical type */ -#define k$dtb 8 /* set date/time backed-up */ -#define k$trun 9 /* set truncated BY FIX_DISK bit */ -#define k$dta 10 /* set date/time last accessed */ -#define k$dtc 11 /* set date/time created */ - -/* ****** rwlock ****** */ - -#define k$dflt 0 /* Use system default value */ -#define k$excl 1 /* N readers OR one writer */ -#define k$updt 2 /* N readers AND one writer */ -#define k$none 3 /* N readers AND N writers */ - -/* *********************** errpr$ *********************** */ - -/* ******** key ******** */ - -#define k$nrtn 0 /* never return to user */ -#define k$srtn 1 /* return after start command */ -#define k$irtn 2 /* immediate return to user */ - -/* *********************** limit$ ************************ */ - -/* ******** key ******** */ - -/* k$read 1#define returns information */ - -/* k$writ 2#define sets information */ - -/* ******** subkey ******** */ - -#define k$cplm 256 /* CPU time in seconds */ -#define k$lglm 512 /* login time in minutes */ - -/* *********************** gpath$ ************************ */ - -/* ******** key ******** */ - -#define k$unit 1 /* pathname of unit returned */ -#define k$cura 2 /* pathname of current attach point */ -#define k$homa 3 /* pathname of home attach point */ -#define k$inia 4 /* pathname of initial attach point */ -#define k$segn 5 /* pathname of segment returned */ -#define k$como 6 /* pathname of comoutput file - - ************************** ds$uni *************************** */ -/* ds$uni uses keys declared for gpath$ plus: */ - -#define k$next -1 /* pathname of next open unit */ - -/* *********************** mgset$/msg$st ***************** */ - -/* ******** key ******** */ - -#define k$acpt 0 /* m -accept */ -#define k$defr 1 /* m -defer */ -#define k$rjct 2 /* m -reject */ -#define k$encr 3 /* Enable CRLF */ -#define k$dscr 4 /* Disable CRLF messages */ -#define k$ensh 5 /* Enable 80 character messages*/ -#define k$enlg 6 /* Enable MAX character messages*/ -#define k$crlf 7 /* query crlf state */ -#define k$mlen 8 /* Query maax message length*/ - -/* ******************************* fnsid$ ***************************** */ - -#define k$list 1 /* List enabled nodes */ -#define k$add 2 /* Add to existing list */ -#define k$srch 3 /* Search for specific node */ - -/* ********************************************************************** */ - -/* ******************* keys for resume functionality for epfs *********** */ - -/* ************************ str$al, str$fr ****************************** */ - -#define k$proc 1 /* storage types: per process storage */ -#define k$level 2 /* per level */ -#define k$prog 3 /* per program */ -#define k$syst 4 /* per system */ -#define k$frblk 5 /* free a blk of storage */ -#define k$anywhere -1 /* base the storage block anywhere */ -#define k$zero 0 /* base the block at word zero */ - -/* ********************* epf$map, epf$init, epf$allc ************************* - ********************* epf$run, epf$invk, epf$del ************************* - ********************* delepf$ ******************************************* */ - -#define k$copy 1 /* copy epf file into temp segs */ -#define k$dbg 2 /* map dbg info into memory from epf */ -#define k$initall 1 /* init all of the linkage areas */ -#define k$reinit 2 /* only reinit linkage areas */ -#define k$invk 0 /* invoke and do not delete epf from memory */ -#define k$invk_del 2 /* invoke and delete EPF */ -#define k$restore_only 1 /* restore but do not invoke EPF */ -#define k$reinit_all_reg 3 /* re-initialize per-user linkage - of registered EPF and all - its referenced libraries */ -#define k$reinit_reg 4 /* re-initalize only the registerd - library */ -#define k$initreg 5 /* initialize registered EPF */ -#define k$frc_del 1 /* force terminate EPF */ -#define k$duct 4 /* decrement user count on registered epf */ -#define k$unreg 5 /* unregister the EPF. */ -#define k$frc_unreg 6 /* force unregister the EPF. */ -#define k$no_frc_del 0 /* do not force terminate EPF */ -#define k$nonregister 0 /* do not register this EPF*/ -#define k$public 1 /* register as ring 3 non-system class EPF */ -#define k$spublic0 2 /* register as ring 0 system class EPF */ -#define k$comm 1 /* dynamic linking to common */ -#define k$prcd 2 /* dynamic linking to proc */ -#define k$some 1 /* report only matches */ -#define k$force 1 /* force register an epf */ -#define k$relax 2 /* do not force register an epf */ - -/* **************** fnchk$, tnchk$, idchk$, pwchk$, snchk$ **************** */ - -#define k$uprc 1 /* Mask to uppercase */ -#define k$wldc 2 /* Allow wildcards (not pwchk$, snchk$) */ -#define k$null 4 /* Allow null names */ -#define k$num 8 /* Allow numeric names (fnchk$ only) */ -#define k$grp 8 /* Check group name (idchk$) */ -#define k$qual 16 /* Allow qualified names only (tnchk$ only) */ -#define k$elng 32 /* Allow long entry(point)names (fnchk$ only) */ - -/* ******************************** q$set ********************************* */ - -#define k$smax 1 /* Set max quota */ - -/* ******************************* LGINI$ *****************************/ - -#define k$lof 0 /* logging off */ -#define k$nlof 1 /* net logging off */ -#define k$lon 2 /* logging on, use today's date */ -#define k$nlon 3 /* net logging on, use today's dt */ -#define k$lonp 4 /* turn sys logging on, use */ - -/* saved logging file date */ - -#define k$nlop 5 /* turn net logging on, use */ - -/* saved logging file date */ - -#define k$st$s 6 /* return status of sys logging */ -#define k$st$n 7 /* return status of net logging */ - -/* ******************************* ldisk$ ********************************* */ - -#define k$all 0 /* Return all disks */ -#define k$locl 1 /* Local disks only */ -#define k$rem 2 /* Remote disks only */ -#define k$sys 3 /* Disks from specified system only */ - -/* ******************************* sw$int ********************************* */ - -/* k$read 1#define Read present status */ - -#define k$on 2 /* Turn on interrupt(s) */ -#define k$off 3 /* Turn off interrupt(s) */ -#define k$rdon 4 /* Read present status and - turn on interrupt(s) */ -#define k$rdof 5 /* Read present status and - turn off interrupt(s) */ -#define k$rdal 6 /* Read present status of all - interrupts */ -#define k$alon 7 /* Turn on all interrupts */ -#define k$alof 8 /* Turn off all interrupts */ -#define k$raon 9 /* Read present status and - turn on all interrupts */ -#define k$raof 10 /* Read present status and - turn off all interrupts */ - -/* ******************************* dir$cr ********************************* */ - -#define k$same 0 /* Create directory of parent's type */ -#define k$pwd 1 /* Create password directory */ - -/* ********************************** ipc ********************************** */ - -/* ******************************** ipc_ckac ******************************** */ - -/* k$any 0#define Check mailbox user ID for any access */ - -/* k$read 1#define Check mailbox user ID for read access */ - -/* k$writ 2#define Check mailbox user ID for write access */ - -#define k$semt 3 /* Check for semaphore type open */ -#define k$intt 4 /* Check for interrupt type open */ - -/* ******************************** ipc$cm ********************************** */ - -#define k$cmwr 1 /* change mode to write only */ -#define k$cmrd 2 /* change mode to read only */ - -/* ******************************** ipc$gu ********************************** */ - -/* k$read 1#define Get user IDs for reading */ - -/* k$writ 2#define Get user IDs for writing */ - -/* k$rdwr 3#define Get user IDs for reading and writing */ - -#define k$mine 4 /* Get my mailbox user ID */ - -/* ******************************** ipc$o *********************************** */ - -/* ********** mode key **********/ - -/* k$read 1#define Open mailbox for reading */ - -/* k$writ 2#define Open mailbox for writing */ - -/* k$rdwr 3#define Open mailbox for reading and writing */ - -/* ********** notify key ********/ - -#define k$nfin 1 /* Notify with interrupts for msg waiting */ -#define k$nfsm 2 /* Notify semaphore for message waiting */ - -/* ************************** ipc$r, ipc$ra ********************************* */ - -/* k$read 1#define Read without waiting */ - -#define k$rdwt 2 /* Read and wait if no data */ - -/* ******************************** ipc$st ********************************** */ - -#define k$ipcb 2 /* First key for IPC$ST */ - -/* k$mmsg 1#define Get maximum msgs per mailbox (obsolete) */ - -#define k$nmsg 2 /* Get number of msgs waiting for this user */ -#define k$mrom 3 /* Get maximum space allowed for mailbox msgs*/ -#define k$room 4 /* Get remaining space available in mailbox */ -#define k$nusr 5 /* Get number of users attached to mailbox */ -#define k$nfys 6 /* Notify IPC$SEM database lock (for debug) */ -#define k$ipce 6 /* Make this last for debug */ - - -/* ******************************* chbk$$ ********************************** */ - -#define k$awwt 2 /* wait for completion */ -#define k$save 4 /* retain error info */ -#define k$uri 8 /* check uri for any user */ - -/***************************** tty$rs **** ********************************* */ - -#define k$outb -32768 /* Clear output buffer */ -#define k$inb 16384 /* Clear input buffer */ - -/******************************** ds$asy *********************************** */ - -#define k$lins 1 /* return summary of all async lines */ -#define k$line 2 /* return info for a specified async line */ -#define k$linu 3 /* return info for all async lines in use */ -#define k$linc 4 /* return info for all configured async lines */ - -/************************** sr$nextr & sr$exstr ******************************/ - -#define k$bgn 268369920 /* binary value of null pointer */ -#define k$end 268369920 /* binary value of null pointer */ -#define k$text 1 /* the search rule is text. */ -#define k$hmdr 2 /* the rule is [HOME_DIR] */ -#define k$ordr 3 /* the rule is [ORIGIN_DIR] */ -#define k$rfdr 4 /* the rule is [REFERENCING_DIR] */ -#define k$keyw 8 /* the rule is a keyword. */ -#define k$anyt -1 /* find a rule regardless of its type. */ -#define k$anytype -1 /* find a rule regardless of its type. */ -#define k$public_all 9 /* the rule is -PUBLIC */ -#define k$public_one 10 /* the rule is -PUBLIC */ -#define k$public3_one 11 /* the rule is for ring 3 */ -#define k$public0_one 12 /* the rule is for ring 0 */ - -/************************** opsr$ & opsrs$ ***********************************/ - -#define k$unkn 0 /* unknown type */ -#define k$acat 4096 /* access category */ -#define k$file 8192 /* file */ -#define k$sdir 16384 /* segment directory */ -#define k$dir -32768 /* directory */ -#define k$nulf 256 /* for opsrs$, and srsfx$, to search for the */ - /* null suffix first */ - -/***************************** As$Set/As$Lst **********************************/ - -#define k$sls 0 /* system login settings */ -#define k$plst 1 /* parameter list */ -#define k$gtal 2 /* get all parameters */ - -/***************************** Show$/Watch$ ***********************************/ - -#define k$getf 0 /* get first user I am watching */ -#define k$getn 1 /* get next user I am watching */ -#define k$gmyw 2 /* get user watching me */ -#define k$setw 3 /* set watch access */ -#define k$strt 4 /* start watch session */ -#define k$stop 5 /* stop watch session */ - -/******************************** cl$msg **************************************/ - -#define k$long 0 /* long prompt indicator */ -#define k$brief -32768 /* brief prompt indicator */ - -/***************************** bkp$op *********************************/ - -/* k$bkup 7#define do not update dta when close */ -#define k$obj 8 /* access and possibly open named object*/ -#define k$incr 16 /* incremental backup */ -#define k$bufr 32 /* open for prwf$$ I/O (buffered I/O) */ - /* the following keys are used during */ - /* incr backups to indicate how to */ - /* determine if an object should be */ - /* opened (i.e. saved): */ -#define k$dbit 128 /* check the dumped bit */ -#define k$fdtb 256 /* compare the dtb and dtm */ -#define k$udtb 512 /* cmp the dtm and a user supplied date */ - -/*********************** bkp$satr *********************************************/ - -/* k$dmpb 3#define set the dumped bit */ -/* k$dtb 8#define set the dtb */ -#define k$unam 2048 /* set attributes on the named object */ -#define k$uunt 4096 /* set attributes on the open object */ - -/*******************************mm$share_apm *********************************/ - -#define k$int0 0 /* segment initialized to zero */ -#define k$data 1 /* reserved for future */ - -/************************* disk tracking *************************************/ - -#define k$cra_mismatch 1 /* cra mismatch detected on icop read */ -#define k$set_dta_dtm 2 /* bad set dta/dtm request */ -#define k$rtn_rec_error 3 /* error on rtn_rec attempt */ - -/************************* chprj$ and change_project *************************/ - -#define k$chpr 0 /* Change project */ -#define k$encp 1 /* Enable CHPRJ$ and CHANGE_PROJECT */ -#define k$dscp 2 /* Disable CHPRJ$ and CHANGE_PROJECT */ -#define k$enpw 3 /* Enable passwords during CP */ -#define k$dspw 4 /* Disable passwords during CP */ - -/* End of insert file KEYS.INS.CC */