Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 INS 1/1	;16C1
	; *** Edit 604 to WATCH.MAC by EVANS on 20-Nov-86, for SPR #21255
	; Calculate RP20 pages correctly.
	; *** Edit 603 to WATCH.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 30/2	;16C2
		EXTERN OFLT,ONUM,PRIREC,SYSHED,CACBUF,OCACHE
 WIT
	;**;[603] Change 1 line at EXTERN OFLT		JDM	18-Nov-86
		EXTERN OFLT,ONUM,PRIREC,SYSHED,CACBUF,OCACHE,ODSPC ;[603]
 REP 21/12	;16C3
		SETOM T2		;YES, MAKE IT A FULL WORD
		MOVX T3,<FLD(2,NO%COL)!FLD(^D8,NO%RDX)>	;OUTPUT IN 2 COLS
 WIT
	;**;[603] Replace 2 lines with 10. at DSKOU0: + 9. L	JDM	18-Nov-86
		IFSKP.			;[603]YES.
		 LFMSG < >		;[603]OUTPUT A SPACE
		 TXNE F,ODATFL		;[603]TEST IF USING DATA FILE
		 CALL ODSPC		;[603]()YES, OUTPUT A SPACE TO IT
		 LOAD T2,DOP%K2,DSKCKU(T4) ;[603]GET CONTROLLER NUMBER BACK
		 MOVX T3,<FLD(2,NO%COL)!FLD(^D10,NO%RDX)> ;[603]OUTPUT IN 2 COLS
		ELSE.			;[603]IF POSITIVE
		 SETOM T2		;[603]MAKE IT A FULL WORD
		 MOVX T3,<FLD(3,NO%COL)!FLD(^D10,NO%RDX)> ;[603]OUTPUT IN 3 COLS
		ENDIF.			;[603]
 REP 26/12	;16C4
		MOVX T3,<FLD(3,NO%COL)!FLD(^D8,NO%RDX)>	;OUTPUT IN 3 COLS
 WIT
	;**;[603] Add 1 line at DSKOU0: + 22. L	JDM	18-Nov-86
		MOVX T3,<FLD(3,NO%COL)!FLD(^D10,NO%RDX)> ;[603]OUTPUT IN 3 COLS
 INS 42/12	;16C5
	;**:[604] Add two lines at DSK1:+3L		DEE	20-NOV-86
		MOVE T3,0(P)		;[604] GET SINGULAR INDEX
		IDIV T2,DEVSPP(T3)	;[604] FIGURE PAGES
 INS 51/12	;16C6
	;**:[604] Add two lines at DSK2:+3L		DEE	20-NOV-86
		MOVE T3,0(P)		;[604] GET SINGULAR INDEX
		IDIV T2,DEVSPP(T3)	;[604] FIGURE PAGES
 INS 1/21	;16C7

 SUM 130604