Google
 

Trailing-Edge - PDP-10 Archives - clisp - clisp/upsala/jsys-table.clisp
There are no other files named jsys-table.clisp in the archive.
;;; JSYS table for TOPS20 version 6.1

(provide "JSYS-TABLE")
(in-package 'si)

(setq *read-base-before-jsys-table* *read-base*
      *read-base* 8.)
(defvar *jsys-alist*
     '((LOGIN% .  1) (CRJOB% .  2) (LGOUT% .  3) (CACCT% .  4) (EFACT% . 5)
       (SMON%  .  6) (TMON%  .  7) (GETAB% . 10) (ERSTR% . 11) (GETER% . 12)
       (GJINF% . 13) (TIME%  . 14) (RUNTM% . 15) (SYSGT% . 16) (GNJFN% . 17)
       (GTJFN% . 20) (OPENF% . 21) (CLOSF% . 22) (RLJFN% . 23) (GTSTS% . 24)
       (STSTS% . 25) (DELF%  . 26) (SFPTR% . 27) (JFNS%  . 30) (FFFFP% . 31)
       (RDDIR% . 32) (CPRTF% . 33) (CLZFF% . 34) (RNAMF% . 35) (SIZEF% . 36)
       (GACTF% . 37) (STDIR% . 40) (DIRST% . 41) (BKJFN% . 42) (RFPTR% . 43)
       (CNDIR% . 44) (RFBSZ% . 45) (SFBSZ% . 46) (SWJFN% . 47) (BIN%   . 50)
       (BOUT%  . 51) (SIN%   . 52) (SOUT%  . 53) (RIN%   . 54) (ROUT%  . 55)
       (PMAP%  . 56) (RPACS% . 57) (SPACS% . 60) (RMAP%  . 61) (SACTF% . 62)
       (GTFDB% . 63) (CHFDB% . 64) (DUMPI% . 65) (DUMPO% . 66) (DELDF% . 67)
       (ASND%  . 70) (RELD%  . 71) (CSYNO% . 72) (PBIN%  . 73) (PBOUT% . 74)
       (PSIN%  . 75) (PSOUT% . 76) (MTOPR% . 77) (CFIBF% . 100) (CFOBF% . 101)
       (SIBE% . 102) (SOBE% . 103) (DOBE% . 104) (GTABS% . 105) (STABS% . 106)
       (RFMOD% . 107) (SFMOD% . 110) (RFPOS% . 111) (RFCOC% . 112)
       (SFCOC% . 113) (STI%   . 114) (DTACH% . 115) (ATACH% . 116)
       (DVCHR% . 117) (STDEV% . 120) (DEVST% . 121) (MOUNT% . 122)
       (DSMNT% . 123) (INIDR% . 124) (SIR% . 125) (EIR% . 126)
       (SKPIR% . 127) (DIR% . 130) (AIC% . 131) (IIC% . 132)
       (DIC% . 133) (RCM% . 134) (RWM% . 135) (DEBRK% . 136)
       (ATI% . 137) (DTI% . 140) (CIS% . 141) (SIRCM% . 142)
       (RIRCM% . 143) (RIR% . 144) (GDSTS% . 145) (SDSTS% . 146)
       (RESET% . 147) (RPCAP% . 150) (EPCAP% . 151) (CFORK% . 152)
       (KFORK% . 153) (FFORK% . 154) (RFORK% . 155) (RFSTS% . 156)
       (SFORK% . 157) (SFACS% . 160) (RFACS% . 161) (HFORK% . 162)
       (WFORK% . 163) (GFRKH% . 164) (RFRKH% . 165) (GFRKS% . 166)
       (DISMS% . 167) (HALTF% . 170) (GTRPW% . 171) (GTRPI% . 172)
       (RTIW% . 173) (STIW% . 174) (SOBF% . 175) (RWSET% . 176)
       (GETNM% . 177) (GET% . 200) (SFRKV% . 201) (SAVE% . 202)
       (SSAVE% . 203) (SEVEC% . 204) (GEVEC% . 205) (GPJFN% . 206)
       (SPJFN% . 207) (SETNM% . 210) (FFUFP% . 211) (DIBE% . 212)
       (FDFRE% . 213) (GDSKC% . 214) (LITES% . 215) (TLINK% . 216)
       (STPAR% . 217) (ODTIM% . 220) (IDTIM% . 221) (ODCNV% . 222)
       (IDCNV% . 223) (NOUT% . 224) (NIN% . 225) (STAD% . 226)
       (GTAD% . 227) (ODTNC% . 230) (IDTNC% . 231) (FLIN% . 232)
       (FLOUT% . 233) (DFIN% . 234) (DFOUT% . 235) (CRDIR% . 240)
       (GTDIR% . 241) (DSKOP% . 242) (SPRIW% . 243) (DSKAS% . 244)
       (SJPRI% . 245) (STO% . 246) (ARCF% . 247)

       (ASNDP% . 260) (RELDP% . 261) (ASNDC% . 262) (RELDC% . 263)
       (STRDP% . 264) (STPDP% . 265) (STSDP% . 266) (RDSDP% . 267)
       (WATDP% . 270) (GTNCP% . 272) (GTHST% . 273) (ATNVT% . 274)
       (CVSKT% . 275) (CVHST% . 276) (FLHST% . 277) (GCVEC% . 300)
       (SCVEC% . 301) (STTYP% . 302) (GTTYP% . 303) (BPT% . 304)
       (GTDAL% . 305) (WAIT% . 306) (HSYS% . 307) (USRIO% . 310)
       (PEEK% . 311) (MSFRK% . 312) (ESOUT% . 313) (SPLFK% . 314)
       (ADVIS% . 315) (JOBTM% . 316) (DELNF% . 317) (SWTCH% . 320)
       (TFORK% . 321) (RTFRK% . 322) (UTFRK% . 323) (SCTTY% . 324)
       (OPRFN% . 326)

       (SETER% . 336)

       (RSCAN% . 500) (HPTIM% . 501) (CRLNM% . 502) (INLNM% . 503)
       (LNMST% . 504) (RDTXT% . 505) (SETSN% . 506) (GETJI% . 507)
       (MSEND% . 510) (MRECV% . 511) (MUTIL% . 512) (ENQ% . 513)
       (DEQ% . 514) (ENQC% . 515) (SNOOP% . 516) (SPOOL% . 517)
       (ALLOC% . 520) (CHKAC% . 521) (TIMER% . 522) (RDTTY% . 523)
       (TEXTI% . 524) (UFPGS% . 525) (SFPOS% . 526) (SYERR% . 527)
       (DIAG% . 530) (SINR% . 531) (SOUTR% . 532) (RFTAD% . 533)
       (SFTAD% . 534) (TBDEL% . 535) (TBADD% . 536) (TBLUK% . 537)
       (STCMP% . 540) (SETJB% . 541) (GDVEC% . 542) (SDVEC% . 543)
       (COMND% . 544) (PRARG% . 545) (GACCT% . 546) (LPINI% . 547)
       (GFUST% . 550) (SFUST% . 551) (ACCES% . 552) (RCDIR% . 553)
       (RCUSR% . 554) (MSTR% . 555) (STPPN% . 556) (PPNST% . 557)
       (PMCTL% . 560) (LOCK% . 561) (BOOT% . 562) (UTEST% . 563)
       (USAGE% . 564) (WILD% . 565) (VACCT% . 566) (NODE% . 567)
       (ADBRK% . 570) (SINM% . 571) (SOUTM% . 572) (SWTRP% . 573)
       (GETOK% . 574) (RCVOK% . 575) (GIVOK% . 576) (SKED% . 577)
       (MTU% . 600) (XRIR% . 601) (XSIR% . 602) (PDVOP% . 603)
       (NTMAN% . 604) (XSFRK% . 605) (XGVEC% . 606) (XSVEC% . 607)
       (RSMAP% . 610) (XRMAP% . 611) (XGTPW% . 612) (XSSEV% . 613)
       (XGSEV% . 614)

       (SNDIM% . 750) (RCVIM% . 751) (ASNSQ% . 752) (RELSQ% . 753)

       (METER% . 766) (SMAP% . 767) (THIBR% . 770) (TWAKE% . 771)
       (MRPAC% . 772) (SETPV% . 773) (MTALN% . 774) (TTMSG% . 775)
       (MDDT% . 777))
  "An A-list of (JSYSNAME . VALUE)")

;;; Set values and export symbols.
(mapc #'(lambda (x)
	  (proclaim `(special ,(car x)))		;Make it special
	  (set (car x) (cdr x))				;Set it
	  (setf (get (car x) 'lisp::%constant) t)	;Make it constant
	  (export (car x)))				;and export it
      *jsys-alist*)

(setq *read-base* *read-base-before-jsys-table*)