Build DECUUO.

src/sys/decdfs.5

@@ -0,0 +1,302 @@
+;.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 .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
+DEF RUN=:47000000035
+DEF SETUWP=:47000000036
+DEF REMAP=:47000000037
+DEF GETSEG=:47000000040
+DEF GETTAB=:47000000041
+DEF SPY=:47000000042
+DEF SETNAM=:47000000043
+DEF TMPCOR=:47000000044
+DEF DSKCHR=:47000000045
+DEF SYSSTR=:47000000046
+DEF JOBSTR=:47000000047
+DEF STRUUO=:47000000050
+DEF SYSPHY=:47000000051
+DEF FRECHN=:47000000052
+DEF DEVTYP=:47000000053
+DEF DEVSTS=:47000000054
+DEF DEVPPN=:47000000055
+DEF SEEK=:47000000056
+DEF RTTRP=:47000000057
+DEF LOCK=:47000000060
+DEF JOBSTS=:47000000061
+DEF LOCATE=:47000000062
+DEF WHERE=:47000000063
+DEF DEVNAM=:47000000064
+DEF CTLJOB=:47000000065
+DEF GOBSTR=:47000000066
+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
+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
+DEF DISK.=:47000000121
+DEF DVRST.=:47000000122
+DEF DVURS.=:47000000123
+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
+DEF SCHED.=:47000000150
+DEF ENQ.=:47000000151
+DEF DEQ.=:47000000152
+DEF ENQC.=:47000000153
+DEF TAPOP.=:47000000154
+DEF FILOP.=:47000000155
+DEF CAL78.=:47000000156
+DEF NODE.=:47000000157
+DEF ERRPT.=:47000000160
+DEF ALLOC.=:47000000161
+DEF PERF.=:47000000162
+TERMIN