;.DECDF DEFINES DEC UUOS AND JOBDAT VARIABLES. .AUXIL DEFINE .DECSET XXX/ .INIT"XXX TERMIN DEFINE .DECS1 XXX/ XXX TERMIN DEFINE .DECHK XXX/ XXX IRPS XXY,,XXX XXY==:XXY .ISTOP TERMIN TERMIN ;.DECDF DEFINES ALL THE DEC SYMBOLS EXCEPT THE OBSOLETE "JOB..." SERIES. ;ALL THE SYMBOLS ARE PUT IN THE .INIT BLOCK SO THEY WON'T GO IN THE SYMTAB ;AND WILL APPEAR TO BE PREDEFINED. DEFINE .DECDF DEF IFSE [DEF],[ .DECUU .DECS1 .DEC.J .DECSE .DECTT .DECS1 .DECCL .DECS1 .DECMT .DECS1 .DECJH .DECSE .HKILL CALLI, TTCALL, MTAPE ] IFSN [DEF],[ .DECUU DEF .DEC.J DEF .DECTT DEF .DECCL DEF .DECMT DEF .DECJH DEF ] TERMIN ;THIS MACRO REPEATS OVER THE NAMES OF THE DEC UUOS. ;THE LARGE NUMBERS MAY LOOK UGLY, BUT SINCE THEY ARE ONE SYLLABLE ;THE MACRO "DEF" CAN EXTRACT THEM WITH AN IRPS. DEFINE .DECUU DEF DEF INIT=:41000000000 DEF CALLI=:47000000000 DEF OPEN=:50000000000 DEF TTCALL=:51000000000 DEF RENAME=:55000000000 DEF IN=:56000000000 DEF OUT=:57000000000 DEF SETSTS=:60000000000 DEF STATO=:61000000000 DEF GETSTS=:62000000000 DEF STATZ=:63000000000 DEF INBUF=:64000000000 DEF OUTBUF=:65000000000 DEF INPUT=:66000000000 DEF OUTPUT=:67000000000 DEF CLOSE=:70000000000 DEF RELEAS=:71000000000 DEF MTAPE=:72000000000 DEF UGETF=:73000000000 DEF USETI=:74000000000 DEF USETO=:75000000000 DEF LOOKUP=:76000000000 DEF ENTER=:77000000000 DEF UJEN=:100000000000 TERMIN ;THIS MACRO REPEATS OVER ALL THE MTAPES DEFINE .DECMT DEF DEF MTWAT.=:72000000000 DEF MTREW.=:72000000001 DEF MTEOF.=:72000000003 DEF MTSKR.=:72000000006 DEF MTBSR.=:72000000007 DEF MTEOT.=:72000000010 DEF MTUNL.=:72000000011 DEF MTBLK.=:72000000013 DEF MTSKF.=:72000000016 DEF MTBSF.=:72000000017 DEF MTDEC.=:72000000100 DEF MTIND.=:72000000101 DEF MTLTH.=:72000000200 TERMIN ;THIS MACRO DEFINES THE DEC TTCALLS. DEFINE .DECTT DEF DEF INCHRW=:51000000000 DEF OUTCHR=:51040000000 DEF INCHRS=:51100000000 DEF OUTSTR=:51140000000 DEF INCHWL=:51200000000 DEF INCHSL=:51240000000 DEF GETLCH=:51300000000 DEF SETLCH=:51340000000 DEF RESCAN=:51400000000 DEF CLRBFI=:51440000000 DEF CLRBFO=:51500000000 DEF SKPINC=:51540000000 DEF SKPINL=:51600000000 DEF IONEOU=:51640000000 TERMIN ;THIS MACRO REPEATS OVER THE LOW SEGMENT JOB DATA AREA SYMBOLS DEFINE .DEC.J DEF DEF .JBUUO=:40 DEF .JB41=:41 DEF .JBERR=:42 DEF .JBREL=:44 DEF .JBBLT=:45 DEF .JBDDT=:74 DEF .JBCN6=:106 DEF .JBPFI=:114 DEF .JBHRL=:115 DEF .JBSYM=:116 DEF .JBUSY=:117 DEF .JBSA=:120 DEF .JBFF=:121 DEF .jbpfh=:123 DEF .JBREN=:124 DEF .JBAPR=:125 DEF .JBCNI=:126 DEF .JBTPC=:127 DEF .JBOPC=:130 DEF .JBOVL=:131 DEF .JBCOR=:133 DEF .JBINT=:134 DEF .JBOPS=:135 DEF .JBCST=:136 DEF .JBVER=:137 DEF .JBDA=:140 TERMIN ;THIS MACRO REPEATS OVER THE HIGH SEGMENT JOB DATA AREA SYMBOLS. DEFINE .DECJH DEF DEF .JBHGH=:400000 DEF .JBHSA=:0 DEF .JBH41=:1 DEF .JBHCR=:2 DEF .JBHRN=:3 DEF .JBHVR=:4 DEF .JBHNM=:5 DEF .JBHSM=:6 DEF .JBHGA=:7 DEF .JBHDA=:10 TERMIN DEFINE .DECJB DEF DEF JOBUUO=:40 DEF JOB41=:41 DEF JOBERR=:42 DEF JOBREL=:44 DEF JOBBLT=:45 DEF JOBDDT=:74 DEF JOBCN6=:106 DEF JOBPFI=:114 DEF JOBHRL=:115 DEF JOBSYM=:116 DEF JOBUSY=:117 DEF JOBSA=:120 DEF JOBFF=:121 DEF JOBREN=:124 DEF JOBAPR=:125 DEF JOBCNI=:126 DEF JOBTPC=:127 DEF JOBOPC=:130 DEF .JBCHN=:131 DEF JOBCHN=:131 DEF JOBCOR=:133 DEF JOBINT=:134 DEF JOBVER=:137 DEF JOBDA=:140 TERMIN DEFINE .DECCL DEF DEF LIGHTS=:47000777777 DEF RESET=:47000000000 DEF DDTIN=:47000000001 DEF SETDDT=:47000000002 DEF DDTOUT=:47000000003 DEF DEVCHR=:47000000004 DEF DDTGT=:47000000005 DEF GETCHR=:47000000006 DEF DDTRL=:47000000007 DEF WAIT=:47000000010 DEF CORE=:47000000011 DEF EXIT=:47000000012 DEF MONRT.=:exit 1, DEF UTPCLR=:47000000013 DEF DATE=:47000000014 DEF LOGIN=:47000000015 DEF APRENB=:47000000016 DEF LOGOUT=:47000000017 DEF SWITCH=:47000000020 DEF REASSI=:47000000021 DEF TIMER=:47000000022 DEF MSTIME=:47000000023 DEF GETPPN=:47000000024 DEF TRPSET=:47000000025 DEF TRPJEN=:47000000026 DEF RUNTIM=:47000000027 DEF PJOB=:47000000030 DEF SLEEP=:47000000031 DEF SETPOV=:47000000032 DEF PEEK=:47000000033 DEF GETLIN=:47000000034 ;Last c. 1968 DEF RUN=:47000000035 DEF SETUWP=:47000000036 DEF REMAP=:47000000037 DEF GETSEG=:47000000040 DEF GETTAB=:47000000041 DEF SPY=:47000000042 DEF SETNAM=:47000000043 ;Last c. 1970 (4.50) DEF TMPCOR=:47000000044 DEF DSKCHR=:47000000045 ;Last 4.72 DEF SYSSTR=:47000000046 DEF JOBSTR=:4700000047 DEF STRUUO=:47000000050 DEF SYSPHY=:47000000051 DEF FRECHN=:47000000052 DEF DEVTYP=:47000000053 DEF DEVSTS=:47000000054 DEF DEVPPN=:47000000055 DEF SEEK=:47000000056 ;Last 5.01 DEF RTTRP=:47000000057 DEF LOCK=:47000000060 DEF JOBSTS=:47000000061 DEF LOCATE=:47000000062 DEF WHERE=:47000000063 DEF DEVNAM=:47000000064 DEF CTLJOB=:47000000065 DEF GOBSTR=:47000000066 ;Last 5.02 DEF ACTIVA=:47000000067 DEF DEACTI=:47000000070 DEF HPQ=:47000000071 DEF HIBER=:47000000072 DEF WAKE=:47000000073 DEF CHGPPN=:47000000074 DEF SETUUO=:47000000075 DEF DEVGEN=:47000000076 DEF OTHUSR=:47000000077 DEF CHKACC=:47000000100 DEF DEVSIZ=:47000000101 DEF DAEMON=:47000000102 DEF JOBPEK=:47000000103 DEF ATTACH=:47000000104 DEF DAEFIN=:47000000105 DEF FRCUUO=:47000000106 DEF DEVLNM=:47000000107 ;Last for 5.03 DEF PATH.=:47000000110 DEF METER.=:47000000111 DEF MTCHR.=:47000000112 DEF JBSET.=:47000000113 DEF POKE.=:47000000114 DEF TRMNO.=:47000000115 DEF TRMOP.=:47000000116 DEF RESDV.=:47000000117 DEF UNLOK.=:47000000120 ;Last for 5.04 DEF DISK.=:47000000121 DEF DVRST.=:47000000122 DEF DVURS.=:47000000123 ;Last for 5.05,5.06 DEF XTTSK.=:47000000124 DEF CAL11.=:47000000125 DEF MTAID.=:47000000126 DEF IONDX.=:47000000127 DEF CNECT.=:47000000130 DEF MVHDR.=:47000000131 DEF ERLST.=:47000000132 DEF SENSE.=:47000000133 DEF CLRST.=:47000000134 DEF PIINI.=:47000000135 DEF PISYS.=:47000000136 DEF DEBRK.=:47000000137 DEF PISAV.=:47000000140 DEF PIRST.=:47000000141 DEF IPCFR.=:47000000142 DEF IPCFS.=:47000000143 DEF IPCFQ.=:47000000144 DEF PAGE.=:47000000145 DEF SUSET.=:47000000146 DEF COMPT.=:47000000147 ;Last 5.07->6.01 ???? DEF SCHED.=:47000000150 DEF ENQ.=:47000000151 DEF DEQ.=:47000000152 DEF ENQC.=:47000000153 DEF TAPOP.=:47000000154 DEF FILOP.=:47000000155 DEF CAL78.=:47000000156 ;reserved as of 6.02 DEF NODE.=:47000000157 ; '' '' '' DEF ERRPT.=:47000000160 ;Last for 5.07 -> 6.02 DEF ALLOC.=:47000000161 DEF PERF.=:47000000162 def diag.=:47000000163 def dvphy.=:47000000164 def gtntn.=:47000000165 def gtxtn.=:47000000166 def acct.=:47000000167 def dte.=:47000000170 def devop.=:47000000171 ;Last for 6.03 def spprm.=:47000000172 def merge.=:47000000173 def utrp.=:47000000174 def pijbi.=:47000000175 def snoop.=:47000000176 def tsk.=:47000000177 def kdp.=:47000000200 TERMIN