Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/checkd.c14
There are no other files named checkd.c14 in the archive.
INS 1/1 ;14C1
; *** Edit 2 to CHECKD.MAC by GRANT on 26-Mar-86
; Allow multiple CHECKDs to simultaneously mount structures
REP 5/2 ;14C2
;COPYRIGHT (C) BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 1976,1985
WIT
;COPYRIGHT (C) 1976,1977,1978,1979,1980,1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
REP 19/2 ;14C3
PRGEDT==VI%DEC+^D88 ;EDIT NUMBER
WIT
PRGEDT==VI%DEC+^D1 ;EDIT NUMBER
INS 20/10 ;14C4
;**;[2] Add 1 line at (JOBNO: BLOCK 1) CEG 26-Mar-86
ALINAM: BLOCK 2 ;[2] ALIAS NAME
INS 52/23 ;14C5
;**;[2] Add 9 lines at START0+36 CEG 26-Mar-86
HRROI T1,ALINAM ;[2] BP TO ALIAS NAME LOCATION
HRROI T2,[ASCII/CHK/] ;[2] BP TO FIRST PART OF ALIAS
MOVNI T3,3 ;[2] IT'S 3 CHARACTERS LONG
SOUT% ;[2] MAKE BEGINNING OF ALIAS
ERJMP .+1 ;[2]
MOVE T2,JOBNO ;[2] GET OUR JOB NUMBER
MOVE T3,[FLD(1,NO%LFL)!FLD(1,NO%ZRO)!FLD(3,NO%COL)!FLD(<^D10>,NO%RDX)] ;[2] LEADING ZEROS, 3 COLUMNS, DECIMAL
NOUT% ;[2] FINISH THE ALIAS STRING
ERJMP .+1 ;[2]
REP 9/46 ;14C6
HRROI T1,[ASCIZ /CHECKD/]
WIT
;**;[2] Change 1 line at XMNT+5 CEG 26-Mar-86
HRROI T1,ALINAM ;[2] GET STRUCTURE ALIAS
REP 23/46 ;14C7
HRROI T1,[ASCIZ /CHECKD/]
WIT
;**;[2] Change 1 line at .SET-12 CEG 26-Mar-86
HRROI T1,ALINAM ;[2] GET STRUCTURE ALIAS
REP 14/77 ;14C8
HRROI T1,[ASCIZ /CHECKD/]
WIT
;**;[2] Change 1 line at .RECRD+11 CEG 26-Mar-86
HRROI T1,ALINAM ;[2] GET STRUCTURE ALIAS
REP 14/78 ;14C9
HRROI T1,[ASCIZ /CHECKD/]
WIT
;**;[2] Change 1 line at .RECIT+11 CEG 26-Mar-86
HRROI T1,ALINAM ;[2] GET STRUCTURE ALIAS
SUM 69843