Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/watdat.c16
There are no other files named watdat.c16 in the archive.
INS 1/1 ;16C1
; *** Edit 603 to WATDAT.MAC by MCCOLLUM on 18-Nov-86, for SPR #21445
; Write controllers and units in decimal. Write out 64 records in the
; DISK-I-O-STATISTICS table. Write DISK-CONTROLLER to data file with a picture
; of -99.
REP 50/2 ;16C2
.DEMAX==^D15 ;MAXIMUM NUMBER OF ENTRIS FOR DISK I/O
WIT
;**;[603] Replace 1 line with 2 at .DEMAX== JDM 18-Nov-86
.DEMAX==^D64 ;[603]MAXIMUM NUMBER OF ENTRIES FOR DISK I/O
;[603]SHOULD MATCH NDSKS IN WATCH.MAC
INS 13/23 ;16C3
SUBTTL ODSPC - OUTPUT A SPACE TO THE DATA FILE
;**;[603] Add routine ODSPC: at ORAT: + 8. L JDM 18-Nov-86
;ODSPC - OUTPUT A SPACE TO THE DATA FILE
; ODFIL
; RETURN +1: ALWAYS
;
ODSPC:: SAVEAC <T1,T2,T3,T4> ;SAVE ACCUMULATORS
MOVE T1,PTR ;GET RECORD POINTER
MOVEI T2,40 ;OUTPUT A SPACE
BOUT ;OUTPUT THE CHARACTER
ERJMP .+1 ;JUST LIVE WITH IT
MOVEM T1,PTR ;UPDATE RECORD POINTER
RET
SUM 82169