Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - utilities/decdfs.mid
There are 2 other files named decdfs.mid in the archive. Click here to see a list.
;.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