Trailing-Edge
-
PDP-10 Archives
-
tops10v704_auxft
-
10,7/aux/361kl.ddt
There are no other files named 361kl.ddt in the archive.
""BAC STOPCODES AND CORRUPTED HISEGS"
VMSER:
NREM17+3/PAT<PUSHJ P,WSCHED1>
:
""CHANGE STRUCTURE"
ONCMOD:
GETSTX<LDB T1,UNYLUN
PUSHJ P,CMPLOG1>
:
""CI DISK FAILOVER"
FLPUDB+5/CAIN T1,UNVPIM
""DVPHY. UUO"
UUOCON:
DVSDVT/SKIPN F,DDBTAB(T1)
HLRZ F,DEVLST
JUMPE F,CPOPJ
DVSDV1:SKIPE T2,DEVNAM(F)
TLNN T2,-1
JRST . 4
LDB T2,PDVTYP
CAIN T2,(T1)
JRST CPOPJ1
DVSDV2:PUSHJ P,NXDDB
JUMPE F,CPOPJ
JRST DVSDV1
:
""LOST IPCF ACKS"
IPCSER:
IPFR14/JUMPGE P1,IPFR15
PUSHJ P,IPCULK
IPFR15+10/PAT<PUSHJ P,IPCULK1>
:
""SLEEP PROBLEM FOR RCNATC"
UUOCON:
HSLEEP 3/PAT<PUSHJ P,SAVT1>
:
""UNL STOPCODES"
VMSER:
STVRT3 15/<SKIPN .USWLP1>
PAGIM7 15/<SKIPN .USWLP
JRST X1#
HRRZ T4,T2
HRLI T4,3
SKIPA T4,MEMTAB(T4)
MT.DAD
TDNN T4,.-1
JRST X1
TLZ T2,(PM.WRT)
AOS .USWLP
X1:1>
PAGIM1 30/JFCL
SCHED1:
RTNDSP/<TLNE T1,(SL.ERR+SL.CHN)
POPJ P,
TLNE T1,(SL.IPC)
JRST RTNDSP 4
>
:
""[FTCIDSK] LDMP"
FILIO:
SETLST+11/PAT<LDB T1,UNYBPT
SKIPL KONMX(J)1>
SETSWP/PAT<TRZE T3,3
ADDI T3,41>
:
PATSIZ/MOVEI T1,PAT