Trailing-Edge
-
PDP-10 Archives
-
tops20_version7_0_monitor_sources_clock
-
monitor-sources/diag.mac
There are 50 other files named diag.mac in the archive. Click here to see a list.
; UPD ID= 8502, RIP:<7.MONITOR>DIAG.MAC.3, 9-Feb-88 14:52:19 by GSCOTT
;TCO 7.1218 - Update copyright notice.
; *** Edit 7457 to DIAG.MAC by GSCOTT on 23-Apr-87, for SPR #21597
; Make SET ONLINE command work for drives connected to TM02/TM03/TM78
; UPD ID= 2063, SNARK:<6.1.MONITOR>DIAG.MAC.55, 3-Jun-85 14:29:03 by MCCOLLUM
;TCO 6.1.1406 - Update copyright notice.
; UPD ID= 2038, SNARK:<6.1.MONITOR>DIAG.MAC.54, 3-Jun-85 11:45:31 by TBOYLE
;TCO 6.1.1420 - Enhance DGEXRL and DGUNLK to check lock validity.
; UPD ID= 1871, SNARK:<6.1.MONITOR>DIAG.MAC.53, 4-May-85 11:21:25 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1816, SNARK:<6.1.MONITOR>DIAG.MAC.52, 24-Apr-85 15:26:53 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1786, SNARK:<6.1.MONITOR>DIAG.MAC.51, 23-Apr-85 12:46:00 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1724, SNARK:<6.1.MONITOR>DIAG.MAC.50, 8-Apr-85 11:04:39 by MCCOLLUM
;TCO 6.1.1238 - Fix BUG. documentation
; UPD ID= 1461, SNARK:<6.1.MONITOR>DIAG.MAC.49, 2-Feb-85 11:21:41 by GROSSMAN
;TCO 6.1.1169 - Prevent certain DIAG functions from manipulating the KLNI.
; UPD ID= 1446, SNARK:<6.1.MONITOR>DIAG.MAC.48, 1-Feb-85 13:53:27 by HAUDEL
;TCO 6.1.1168 - Set up T1 after call to CITEST in DGRLCH code.
; UPD ID= 1308, SNARK:<6.1.MONITOR>DIAG.MAC.47, 11-Jan-85 13:16:35 by GRANT
;TCO 6..1129 - In DGUDPT, check for offline. Also, change DIAG20 to DIAG21.
; UPD ID= 1014, SNARK:<6.1.MONITOR>DIAG.MAC.46, 9-Nov-84 11:47:29 by MCLEAN
;FORCE ERROR ON DUAL PORTED DISKS FOR CHANNEL RESERVATION
; UPD ID= 4867, SNARK:<6.MONITOR>DIAG.MAC.45, 24-Sep-84 16:11:59 by GRANT
;Pass reason code to PPDRPT
; UPD ID= 4860, SNARK:<6.MONITOR>DIAG.MAC.44, 20-Sep-84 12:01:08 by GRANT
;In DGPDL, if channel is CI there must be a controller number
; UPD ID= 4643, SNARK:<6.MONITOR>DIAG.MAC.43, 31-Jul-84 16:09:17 by PURRETTA
;Update copyright notice.
; UPD ID= 4410, SNARK:<6.MONITOR>DIAG.MAC.42, 2-Jul-84 07:16:50 by GRANT
;Minor changes to routine DGENBL
; UPD ID= 4396, SNARK:<6.MONITOR>DIAG.MAC.41, 27-Jun-84 17:13:53 by GRANT
;In DGENBL, set CS.OFL
; UPD ID= 4322, SNARK:<6.MONITOR>DIAG.MAC.40, 11-Jun-84 11:05:14 by HAUDEL
;More changes to CI Maintenance Data functions.
; UPD ID= 4298, SNARK:<6.MONITOR>DIAG.MAC.39, 4-Jun-84 15:25:53 by HAUDEL
;More changes to CI Maintenance Data functions.
; UPD ID= 4151, SNARK:<6.MONITOR>DIAG.MAC.38, 30-Apr-84 13:26:30 by HAUDEL
;Make changes to CI Maintenance Data functions.
; UPD ID= 4134, SNARK:<6.MONITOR>DIAG.MAC.37, 25-Apr-84 12:03:39 by HAUDEL
;Add CI Maintenance Data functions (READ/WRITE)
; UPD ID= 3992, SNARK:<6.MONITOR>DIAG.MAC.36, 28-Mar-84 09:30:47 by HAUDEL
;In DGRLCH, do an OKSKED and IOPION if a CI channel.
; UPD ID= 3848, SNARK:<6.MONITOR>DIAG.MAC.35, 5-Mar-84 12:10:57 by GRANT
;Add functions for dumping the KLIPA
; UPD ID= 3806, SNARK:<6.MONITOR>DIAG.MAC.34, 29-Feb-84 09:47:43 by HAUDEL
;More TCO 6.1546 - Change AOBJN to AOBJP
; UPD ID= 3805, SNARK:<6.MONITOR>DIAG.MAC.33, 29-Feb-84 08:22:30 by HAUDEL
;More TCO 6.1546 - Performance Counters
; UPD ID= 3791, SNARK:<6.MONITOR>DIAG.MAC.32, 28-Feb-84 15:25:30 by HAUDEL
;More TCO 6.1546 - New KLIPA Performance counter format.
;Change calls of SC.ABF to PPDGDB.
; UPD ID= 3728, SNARK:<6.MONITOR>DIAG.MAC.31, 22-Feb-84 13:53:39 by HAUDEL
;TCO 6.1980 - Allow TGHA to get 256K for new 64K memory chips.
; UPD ID= 3692, SNARK:<6.MONITOR>DIAG.MAC.30, 15-Feb-84 14:58:23 by GRANT
;Change meaning of function 104 from controlling the "poller" to
; managing the u-code.
;Enhance function 111 to take/release the CI.
; UPD ID= 3536, SNARK:<6.MONITOR>DIAG.MAC.29, 25-Jan-84 12:33:05 by HAUDEL
;More TCO 6.1546 Performace counters
; UPD ID= 3442, SNARK:<6.MONITOR>DIAG.MAC.28, 12-Jan-84 10:15:43 by HAUDEL
;More TCO 6.1546 Performance counters
; UPD ID= 2635, SNARK:<6.MONITOR>DIAG.MAC.27, 25-Jun-83 20:44:36 by MCLEAN
;TCO 6.1705 MAKE ENABLE/DISABLE CI BE WHEEL OR OPERATOR ONLY.
; UPD ID= 2593, SNARK:<6.MONITOR>DIAG.MAC.26, 20-Jun-83 10:26:27 by HALL
;TCO 6.1689 - Move fork tables to extended section
; Reference FKPGS and FKJOB through DEFSTR
; UPD ID= 2475, SNARK:<6.MONITOR>DIAG.MAC.25, 16-May-83 22:49:42 by MCLEAN
;TCO 6.1127 ADD ONLINE A DISK TO DIAG FOR KLIPA
;REMOVE AN EXTRANEOUS RET AT DGENB1+4
;TCO 6.1658 ADD A FEW NOINTS TO KLIPA CODE
; UPD ID= 2449, SNARK:<6.MONITOR>DIAG.MAC.24, 10-May-83 04:29:11 by WACHS
;TCO 6.1651 - Ask for KLIPA reload when that chan is released
; UPD ID= 2207, SNARK:<6.MONITOR>DIAG.MAC.23, 8-Apr-83 06:08:42 by WACHS
;MORE TCO 6.1569
; UPD ID= 2140, SNARK:<6.MONITOR>DIAG.MAC.22, 4-Apr-83 07:20:49 by WACHS
;TCO 6.1569 - Add performance counter functions
; UPD ID= 2009, SNARK:<6.MONITOR>DIAG.MAC.19, 16-Mar-83 08:35:37 by MILLER
;TCO 6.1546 yet again. Redo dispatch tables
; UPD ID= 2008, SNARK:<6.MONITOR>DIAG.MAC.18, 16-Mar-83 08:06:41 by MILLER
;Once more to get the assembly conditionals correct.
; UPD ID= 1999, SNARK:<6.MONITOR>DIAG.MAC.17, 15-Mar-83 17:01:45 by MILLER
;TCO 6.1546. Add DIAG function to read SERCNT
; UPD ID= 1893, SNARK:<6.MONITOR>DIAG.MAC.16, 1-Mar-83 15:08:45 by HALL
;TCO 6.1502 - Allow free space outside of section 0
; At least temporarily, make all callers request section 0
; UPD ID= 1590, SNARK:<6.MONITOR>DIAG.MAC.15, 28-Dec-82 08:00:35 by WACHS
;TCO 6.1355 - Add DIAG symbols needed for CI functions
; UPD ID= 1496, SNARK:<6.MONITOR>DIAG.MAC.14, 1-Dec-82 09:55:13 by GRANT
;TCO 6.1010 - fix the immediate mode references to CSTs
; UPD ID= 875, SNARK:<6.MONITOR>DIAG.MAC.13, 8-Jun-82 23:24:50 by MURPHY
;TCO 6.1147 - Move bugdefs from BUGS.MAC to here and put them in-line.
; UPD ID= 574, SNARK:<6.MONITOR>DIAG.MAC.12, 1-Apr-82 21:24:05 by MURPHY
;TCO 6.1074 - Revise build procedures, eliminate KLPRE, etc.
; UPD ID= 506, SNARK:<6.MONITOR>DIAG.MAC.11, 16-Mar-82 08:08:35 by MILLER
; UPD ID= 503, SNARK:<6.MONITOR>DIAG.MAC.10, 15-Mar-82 18:57:10 by MILLER
; UPD ID= 480, SNARK:<6.MONITOR>DIAG.MAC.9, 13-Mar-82 19:44:46 by MILLER
;tco 6.1066 again. Add pseudo-console code
; UPD ID= 479, SNARK:<6.MONITOR>DIAG.MAC.8, 13-Mar-82 18:42:53 by MILLER
; UPD ID= 478, SNARK:<6.MONITOR>DIAG.MAC.7, 13-Mar-82 17:08:17 by MILLER
;TCO 6.1066. ADD DIAG CONSOLE JSYS FUNCTIONS
; UPD ID= 164, SNARK:<6.MONITOR>DIAG.MAC.6, 23-Oct-81 15:41:11 by COBB
; UPD ID= 160, SNARK:<6.MONITOR>DIAG.MAC.5, 23-Oct-81 15:01:24 by COBB
; UPD ID= 131, SNARK:<6.MONITOR>DIAG.MAC.4, 19-Oct-81 15:08:18 by COBB
;TCO 6.1029 - CHANGE SE1CAL TO EA.ENT
;TCO 5.1523 - SET THE CDB BACK ONLINE AT DGPDL2
; UPD ID= 69, SNARK:<6.MONITOR>DIAG.MAC.2, 15-Sep-81 16:00:34 by PAETZOLD
;TCO 6.1010 - Move CSTs to CSTSEC - change CST0 non-mask references
; UPD ID= 1943, SNARK:<5.MONITOR>DIAG.MAC.5, 6-May-81 04:03:08 by WACHS
;TCO 5.1312 - CLOSE RACE WINDOW TO PREVENT RH2PIL BUGCHKS
; UPD ID= 1732, SNARK:<5.MONITOR>DIAG.MAC.4, 19-Mar-81 08:39:34 by WACHS
;TCO 5.1273 - RETURN CCW LIST AS WELL AS CHAN LOGOUT AREA
;TCO 5.1272 - ALLOW 2 DIAG JOBS TO COEXIST BETTER
; UPD ID= 509, SNARK:<4.1.MONITOR>DIAG.MAC.32, 6-May-80 16:13:56 by DBELL
;TCO 4.1.1155 - ALLOW SKIP STYLE CCW WORDS TO BE USED
; UPD ID= 356, SNARK:<4.1.MONITOR>DIAG.MAC.31, 26-Mar-80 11:06:18 by DBELL
;TCO 4.1.1119 - MAKE CHANGES NECESSARY FOR RP20 DISKS
;TCO 4.1.1115 - ALLOW MULTIPLE CCWS TO BE USED IN .DGSCP FUNCTION
;<4.MONITOR>DIAG.MAC.30, 25-Sep-79 11:22:05, EDIT BY DBELL
;FIX TYPO IN 4.2476
;<4.MONITOR>DIAG.MAC.29, 21-Sep-79 16:29:33, EDIT BY DBELL
;TCO 4.2476 - MAKE .DGPDL FUNCTION WORK IN GENERAL, EVEN ON TXO3'S
;<OSMAN.MON>DIAG.MAC.1, 10-Sep-79 15:21:53, EDIT BY OSMAN
;TCO 4.2412 - Move definition of BUGHLTs, BUGCHKs, and BUGINFs to BUGS.MAC
;<4.MONITOR>DIAG.MAC.27, 4-Mar-79 15:03:17, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.MONITOR>DIAG.MAC.26, 26-Feb-79 11:48:14, Edit by MCLEAN
;MAKE BLOCK TYPE CHECK FOR KDB IN DGPDL
;<4.MONITOR>DIAG.MAC.25, 22-Feb-79 12:06:29, Edit by MCLEAN
;CHANGE SE1CAL IN DGPDL TO SE1ENT
;<4.MONITOR>DIAG.MAC.24, 19-Feb-79 22:29:12, Edit by MCLEAN
;INCREMENT JB0FLG AFTER MTAJB0
;<4.MONITOR>DIAG.MAC.23, 18-Feb-79 01:21:49, Edit by MCLEAN
;FIX DGPDL TO CORRECTLY RECOGNIZE NON-EX DEVICE
;<4.MONITOR>DIAG.MAC.22, 18-Feb-79 01:08:27, Edit by MCLEAN
;FIX DGPDL TO DO CORRECT VERSION OF RESET TO CHANNEL
;<4.MONITOR>DIAG.MAC.21, 7-Feb-79 23:39:36, Edit by MCLEAN
;<4.MONITOR>DIAG.MAC.20, 7-Feb-79 18:16:20, Edit by MCLEAN
;<4.MONITOR>DIAG.MAC.19, 1-Feb-79 23:23:00, Edit by MCLEAN
;<4.MONITOR>DIAG.MAC.18, 1-Feb-79 15:39:48, Edit by MCLEAN
;CHANGE FUNCTION OF .DGPDL
;<4.MONITOR>DIAG.MAC.17, 31-Jan-79 01:07:42, Edit by MCLEAN
;MORE... DGPDL FIXES
;<4.MONITOR>DIAG.MAC.16, 28-Jan-79 21:07:56, Edit by MCLEAN
;FIX DEXIST SUBROUTINE TO DO CORRECT CHECK FOR UDB
;<4.MONITOR>DIAG.MAC.15, 28-Jan-79 16:56:10, Edit by MCLEAN
;<4.MONITOR>DIAG.MAC.14, 28-Jan-79 16:25:34, Edit by MCLEAN
;MORE .DGPDL FIXES
;<4.MONITOR>DIAG.MAC.13, 28-Jan-79 14:11:01, Edit by MCLEAN
;CHANGE DIAG11 LABEL TO DIAGZ1 SO MONSYM DOESN'T MESS THINGS UP
;<4.MONITOR>DIAG.MAC.12, 28-Jan-79 14:00:24, Edit by MCLEAN
;MORE .DGPDL CHANGES
;<4.MONITOR>DIAG.MAC.11, 28-Jan-79 13:54:59, Edit by MCLEAN
;<4.MONITOR>DIAG.MAC.10, 21-Jan-79 21:37:41, Edit by MCLEAN
;<4.MONITOR>DIAG.MAC.9, 21-Jan-79 17:56:07, Edit by MCLEAN
;ADD .DGPDL JSYS
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1976, 1988.
; ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
; TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
SEARCH PROLOG,PHYPAR,SERCOD
IFN FTKLIPA,<SEARCH SCAPAR>
TTITLE DIAG
; CODE TO SUPPORT THE DIAG JSYS FOR THE KL10
SUBTTL DIAG JSYS
EXTERN TODCLK,PPDGDB
EXTERN MAPPV,SETCST,MTRON,MTROFF,WATEPT,UNWEPT,MONCOR
HICHAN==7 ;HIGHEST POSSIBLE CHANNEL
;DIAG-THIS ROUTINE IS CALLED TO PERFORM SEVERAL DIAGNOSTIC FUNCTIONS
;THE CURRENTLY IMPLEMENTED ONES DO THE FOLLOWING:
;
; 1.RESERVE A CHANNEL FOR USE BY A DIAGNOSTIC
; 2.RELEASE THE CHANNEL FROM USE
; 3.SETUP A CHANNEL PROGRAM
; 4.GET CHANNEL STATUS
;
;CALL FORMAT:
; 1/-# OF WORDS IN ARGLIST,,ARGLIST ADDRESS
;
; DIAG
;RETURN
; +1 ;ERROR RETURN,WRONG STATE,ILLEGAL ADDRESS,BAD FORMAT
; +2 ;NORMAL RETURN
;
; ACCUMULATOR DEFINITIONS
;
; P4= ARGUMENT LIST POINTER
; Q1= FUNCTION CODE + FLAGS
; Q2= DEVICE ADDRESS
.DIAG:: MCENT
MOVX T1,SC%WHL!SC%OPR!SC%MNT ;CHECK FOR SUFFICIENT PRIVLEDGE
TDNN T1,CAPENB ;AGAINST ENABLED CAPABILITIES
RETERR(WHELX1) ;NOT GOOD ENOUGH
UMOVE P4,1 ;GET THE ARGUMENT LIST(#ARGUMENTS,,LIST ADDRESS)
UMOVE Q1,(P4) ;GET FUNCTION CODE
HRRZ T1,Q1 ;GET JUST FUNCTION CODE
CAIL T1,.DGACU ;RANGE CHECK FUNCTION CODE
CAILE T1,.DGGCS ; ...
JRST [ CAIL T1,.DGGEM ;no. is it in the other dispatch table?
CAILE T1,DGFNEN ;""
RETERR (DIAGX1) ;no. error
SUBI Q1,.DGGEM-.DGGCS-1 ;GET INDEX INTO DISPATCH
JRST DIAGZ1] ;GO DO IT
AOBJN P4,DIAG1 ;UPDATE COUNT FIELD AND CHECK IF LEGAL
DIGER: RETERR (DIAGX3) ;ARGUMENT COUNT FIELD WAS TOO SMALL
DIAG1: UMOVE Q2,(P4) ;GET DEVICE ADDRESS
LOAD T1,DG%ADT,Q2 ;GET ADDRESS TYPE
SKIPE T1 ;LEGAL?
RETERR (DIAGX4) ;ILLEGAL TYPE CODE SPECIFIED
LOAD P1,DG%DVC,Q2 ;GET DEVICE CODE
CAIL P1,.DGRH0 ;CHECK RANGE
CAILE P1,.DGRH7 ; ...
RETERR(DIAGX8) ;ILLEGAL
SUBI P1,.DGRH0 ;CONVERT TO INDEX
SKIPN P1,CHNTAB(P1) ; ...
RETERR(DIAGX8) ;NO SUCH CHANNEL
DIAGZ1: HRRZ T4,Q1 ;GET ADDRESS ONLY
CALL @DIAGFT-1(T4) ;GO PERFORM SPECIFIC FUNCTION
SMRETN ;SKIP RETURN TO USER
;DISPATCH TABLE FOR FUNCTIONS-FUNCTION CODE INDEX #
DIAGFT: IFIW!DGASDV ;1 - ASSIGN CHANNEL-DEVICE MODE(TIMED)
IFIW!DGASCU ;2 - ASSIGN CHANNEL-CONTROLLER MODE(UNTIMED)
IFIW!DGRLCH ;3 - RELEASE THE CHANNEL
IFIW!DGSTPG ;4 - SETUP CHANNEL PROGRAM
IFIW!DGRLPG ;5 - RELEASE THE CHANNEL PROGRAM
IFIW!DGGTST ;6 - GET THE CHANNEL LOGGED OUT STATUS
;WARNING! ADD FUNCTIONS HERE CAREFULLY!
;END OF CHANNEL-SPECIFIC FUNCTIONS. DEFINE NEW FORMAT FUNCTIONS
DIAGFA: IFIW!DGMEM ;100 - GET MEMORY
IFIW!DGMEM0 ;101 - RELEASE MEMORY
IFIW!DGPDL ;102 - DYNAMIC RECONFIGURATION OF CHANNEL
IFIW!DGCNSL ;103 - CONSOLE FUNCTIONS
IFN FTKLIPA,<
IFIW!DGUCOD ;104 - KLIPA U-CODE FUNCITON
IFIW!DGRSET ;105 - RESET REMOTE SYSTEM
IFIW!DGSTRT ;106 - START REMOTE SYSTEM
IFIW!COUNTR ;107 - PORT COUNTER FUNCTIONS
>
IFE FTKLIPA,<
IFIW!DGILGL ;104
IFIW!DGILGL ;105
IFIW!DGILGL ;106
IFIW!DGILGL ;107
>
IFIW!DGRSCT ;110 - Read SYSERR counter
IFIW!DGENBL ;111 - ENABLE DGASCU FOR A CI PORT
IFIW!DGSMAT ;112 - WRITE CI MAINTENANCE DATA
IFIW!DGRMAT ;113 - READ CI MAINTENANCE DATA
;end of the table. All dispatches go before this comment (this is the
;last word in DIAG dispatches!)
DGFNEN==<.-DIAGFA>-1+.DGGEM ;Last function supported
;Common routine for unimplemented functions
DGILGL: RETERR(DIAGX1)
;ASSIGN THE CHANNEL FOR USE BY THE CALLER
;
DGASDV: CALL CITEST ;(P1/T1) CI CHAN?
RETERR (DIAG17) ;YES. CAN'T DO IT
LDB T1,CSYTYP ;Get the channel type
CAIN T1,.CTNI ;Is it an NI?
RETERR (DIAGX4) ; Yes, Invalid device type
AOBJN P4,DGAS1 ;NO, UPDATE POINTER
RETERR (DIAGX3) ;COUNT FIELD BAD
DGAS1: CALL DGUGET ;GET UDB FOR THIS REQUEST
CALL DGUVAL ;VALIDATE ACCESS
CALL DGUMAP ;CHECK FOR DUAL PORTED DISK
CALL DGUDPT
CALL DGLOCK ;SIEZE DIAG INTERLOCK, GO NOINT
CALL DGEXAC ;LOCK PROGRAM AND GO NOSKED IF REQUESTED
MOVE T1,JOBNO ;GET JOB NUMBER OF REQUESTOR
SETONE DIAFL,(T1) ;REMEMBER HE HAS A RESOURCE
CALL DGUASN ;SET MAINTENANCE MODE, BLOCK IF NEEDED
CALL DGCASN ;ASSIGN CHANNEL
UMOVE T1,(P4) ;GET TIME FIELD
ADD T1,TODCLK ;AS OFFSET FROM CURRENT TIME
MOVEM T1,UDBODT(P3) ;SET AS OVERDUE TIMER
DGUIOX: MOVX T1,UIOF ;SET USER IOT IN PC
IORM T1,-1(P) ;OF JSYS CALLER
OKINT ;NOINT DONE IN DGLOCK
RET
;ASSIGN CHANNEL IN CONTROLLER MODE-UNTIMED REQUEST
DGASCU: CALL CITEST ;(P1/T1) CI CHAN?
TXNE T1,CS.DEN ;YES. IS IT ENABLED?
CAIA ;OK
RETERR (DIAG17) ;NO. LOSE
LDB T1,CSYTYP ;Get the channel type
CAIN T1,.CTNI ;Is it an NI?
RETERR (DIAGX4) ; Yes, Invalid device type
CALL DGUMAP ;MAP NEXT INSTRUCTION ONTO ALL UDB
CALL DGUVAL ;VALIDATE ACCESS
CALL DGUMAP ;VALIDATE FOR DUAL PORTED DISKS
CALL DGUDPT
CALL DGLOCK ;SIEZE DIAG LOCK, GO NOINT
CALL DGEXAC ;DO EXCLUSIVE ACCESS IF REQUESTED
MOVE T1,JOBNO ;GET JOB NUMBER OF REQUESTOR
SETONE DIAFL,(T1) ;REMEMBER HE HAS A RESOURCE
CALL DGUMAP ;NOW ASSIGN
CALL DGUASN ;...
CALL DGCASN ;ASSIGN CHANNEL
JRST DGUIOX ;RETURN SETTING IOT USER
;HERE TO TEST IF A CI CHAN.
;ACCEPTS: P1/ CDB
;RETURNS: +1 IF IT IS, T1/ CDBSTS(P1)
; +2 IF NOT
CITEST: MOVE T1,CDBSTS(P1)
TXNE T1,CS.CIP ;CI CHAN?
RET ;YES
RETSKP ;NO
;FOR EACH UNIT FOUND BY DGUMAP, SEE IF ITS STATE SHOULD PREVENT DIAG% FROM
;OWNING THE CHANNEL
DGUDPT: MOVE T1,UDBSTS(P3) ;GET CURRENT STATUS
MOVE T2,UDBST1(P3) ; AND AUX STATUS
TXNE T1,US.OFS ;UNIT OFFLINE?
RET ;YES, NO PROBLEM
TXNN T2,U1.DCD!U1.FED ;IGNORE FRONT-END AND DON'T-CARE DISKS
TXNN T1,US.2PT ;IS IT DUAL PORT?
RET ;NO
RETERR (DIAG21) ;YES, RETURN ILLEGAL
;HERE TO RELEASE A CHANNEL AND ALL DEVICES
DGRLCH::SAVEQ
CALL DGCCHK ;VERIFY CHANNEL IN MAINTENANCE MODE
CALL DGUMAP ;MAP ONTO ALL UDBS
CALL [ MOVSI T1,(US.MAI!US.MRQ) ;CHECK FOR MAINTENANCE MODE
TDNN T1,UDBSTS(P3) ; ...
RET ;NOT IN MAINTENANCE
CALLRET DGUREL] ;RELEASE
CALL DGRLPG ;RELEASE CHANNEL PROGRAM
MOVSI T3,(CS.MAI!CS.MRQ) ;SET TO RELEASE CHANNEL
HRRZ T2,CDBDSP(P1) ;GET CHANNEL DISPATCH
S0.ENT ;LOWER LEVEL RUNS IN SEC0
NOSKED
IOPIOF
ANDCAM T3,CDBSTS(P1) ;RELEASE CHANNEL
HLLOS CDBONR(P1) ; ...
SETZM CDBODT(P1) ; ...
IFN FTKLIPA,<
CALL CITEST ;(P1/T1) CI CHAN?
JRST DGRLC1 ;YES
>
LDB T1,CSYTYP ;Get the channel type
CAIN T1,.CTNI ;KLNI?
JRST DGRLC1 ; Yes, don't do disk stuff
MOVEI T1,0 ;DO CHANNEL ONLY RESET
CALL CDSRST(T2) ;RESET CHANNEL PIA, ETC.
CALL RSTSEK ;RESTART SEEKS
CALL SCHXFR ;AND ANY TRANSFER
DGRLC1: IOPION
OKSKED
SE1CAL ;BACK TO SEC1
CALL DGEXRL ;RELEASE EXCLUSIVE ACCESS IF ACQUIRED
MOVX T1,UIOF ;CLEAR IOT USER
ANDCAM T1,-5(P) ;IN JSYS CALLERS PC
CALL DGUNLK ;CLEAR DIAG LOCK
RET
;UNLOCK ANY LOCKED PAGES. LOCATION DIAGCW POINTS TO THE BLOCK OF RESIDENT
;STORAGE CONTAINING THE CCW WORDS. THE FIRST WORD OF THE BLOCK IS AN
;AOBJN POINTER TO THE ACTUAL CCW WORDS.
DGRLPG: SAVEQ ;SAVE ACCUMULATORS
CALL DGCCHK ;CHECK CHANNEL IN MAINTENANCE MODE
NOINT ;NO INTERRUPTIONS
HRRZ T1,CDBICP(P1) ;GET ICCW ADDRESS FOR THIS RH20
SETZB Q1,(T1) ;CLEAR ANY JUMP WORD AND AN AC
EXCH Q1,DIAGCW ;ZERO STORAGE POINTER AND GET OLD ONE IF ANY
JUMPE Q1,DGRLFN ;DONE IF NO STORAGE WAS ASSIGNED
SKIPN Q2,0(Q1) ;GET AOBJN POINTER TO THE CCW LIST
JRST DGRLRL ;IF NONE, JUST RELEASE STORAGE
DGRLLP: LDB T1,[POINT 13,(Q2),26] ;GET PHYSICAL CORE PAGE FROM CCW
SKIPE T1 ;WAS THERE ONE?
CALL MULKCR ;YES, UNLOCK THE PAGE
AOBJN Q2,DGRLLP ;DO FOR ALL CCW WORDS
DGRLRL: MOVE T1,Q1 ;GET ADDRESS OF BLOCK WE ARE DONE WITH
CALL RELRES ;FREE UP THE BLOCK
DGRLFN: OKINT ;INTERRUPTS ALLOWED NOW
RET ;DONE
;SETUP CHANNEL PROGRAM
;RH20 SPECIFIC BITS
CHJMP==1B1 ;JUMP
CHXFR==1B0 ;TRANSFER DATA
CHLST==1B1 ;LAST TRANSFER
CHREV==1B2 ;REVERSE
CCWMAX==^D50 ;MAXIMUM NUMBER OF CCW'S ALLOWABLE
DGSTPG: CALL DGCCHK ;CHECK CHANNEL IN MAINTENANCE MODE
CALL DGRLPG ;FIRST RELEASE OLD CCW LIST
AOBJN P4,.+2 ;MAKE SURE HAVE AT LEAST ONE CCW WORD
RETERR (DIAGX3) ;ARGUMENT LIST WAS TOO SHORT
HLRE T1,P4 ;GET NUMBER OF CCWS TO BUILD
MOVNS P5,T1 ;CREATE POSITIVE COUNT AND SAVE IN P5
CAILE T1,CCWMAX ;SPECIFYING TOO MANY WORDS?
RETERR(DIAGX6) ;YES, ILLEGAL CCW LIST
LSH T1,1 ;DOUBLE IT SO WE CAN GUARANTEE CCWS ON ONE PAGE
HRLI T1,.RESP3 ;INSERT LOWEST PRIORITY REQUEST
MOVX T2,RS%SE0!.RESGP ;ALLOCATE FROM GENERAL POOL, SECTION 0
NOINT ;MUST BE NOINT NOW
CALL ASGRES ;GRAB SOME FREE CORE
RETERR(,<OKINT>) ;FAILED, ERROR
MOVEM T1,DIAGCW ;REMEMBER ADDRESS OF FREE CORE BLOCK
MOVEI T2,1(T1) ;GET POSSIBLE STORAGE ADDRESS FOR CCWS
ANDI T2,PGSIZ-1 ;KEEP ONLY OFFSET WITHIN PAGE
ADDI T2,-1(P5) ;CREATE LAST OFFSET USED FOR CCWS
CAIGE T2,PGSIZ ;WOULD ALL OF THE CCWS FIT ON ONE PAGE?
TDZA T2,T2 ;YES, SET UP TO USE THAT AREA
MOVEI T2,-1(P5) ;NO, THEN USE OTHER HALF WHICH IS ON ONE PAGE
ADDI T2,1(T1) ;CREATE ACTUAL STORAGE ADDRESS
MOVNS P5 ;NEGATE THE CCW COUNTER
HRLZ P5,P5 ;BUILD PART OF AOBJN POINTER
HRR P5,T2 ;INSERT ADDRESS WHERE CCWS ARE TO GO
MOVEM P5,0(T1) ;SAVE POINTER TO CCWS IN FIRST WORD OF BLOCK
;NOW LOOP OVER ALL OF THE CCW WORDS SPECIFIED:
DGSTLP: UMOVE P6,(P4) ;PICKUP NEXT CCW WORD
ERJMP DGSTIL ;FAILED
JUMPGE P6,DGSTIL ;BAD CCW WORD IF NOT A TRANSFER CCW
LDB T2,[POINT 11,P6,13] ;GET BYTE COUNT
SOJL T2,DGST2 ;ALLOW EITHER 0 OR EXACTLY ONE PAGE
MOVE T3,P6 ;COPY CCW
ANDI T3,PGSIZ-1 ;GET ADDRESS WITHIN PAGE
TXNE P6,CHREV ;BACKWARDS?
MOVNS T2 ;YES, NEGATE COUNT
ADD T3,T2 ;DETERMINE TERMINATING WORD
SKIPL T3 ;WITHIN PAGE?
CAIL T3,PGSIZ ; ???
RETERR(DIAGX7,<CALL DGRLPG
OKINT>) ;CCW OVERFLOWS PAGE, GIVE ERROR
DGST2: LDB T1,[POINT 18,P6,35] ;GET THE VIRTUAL ADDRESS IN AC1
JUMPE T1,DGST3 ;IF A SKIP WORD, JUST KEEP IT AS IS
TXO T1,1B0 ;INDICATE FROM USER MODE
UMOVE T2,(T1) ;REFERENCE THE VIRTUAL PAGE TO CREATE IT
ERJMP DGSTIL ;FAILED
CALL MLKMA ;LOCK THE PAGE INTO CORE
DPB T1,[POINT 13,P6,26] ;STORE PHYSICAL PAGE INTO THE CCW
DGST3: TXO P6,CHXFR ;FORCE TRANSFER FLAG ON
MOVEM P6,0(P5) ;STORE FIXED UP CCW IN STORAGE BLOCK
AOBJN P4,.+1 ;ADVANCE USER'S POINTER
AOBJN P5,DGSTLP ;LOOP FOR ALL CCW WORDS USER WANTS
MOVX T1,CHLST ;GET FLAG READY
IORM T1,-1(P5) ;FORCE LAST TRANSFER FLAG ON IN LAST CCW WORD
MOVE T1,DIAGCW ;GET ADDRESS OF STORAGE BLOCK
HRRZ T1,0(T1) ;THEN GET ADDRESS OF FIRST CCW WORD
MAP T1,0(T1) ;FIND THE PHYSICAL ADDRESS OF THAT WORD
TLZ T1,777760 ;ZAP JUNK BITS
TXO T1,CHJMP ;BUILD A JUMP WORD TO THE CCW LIST
HRRZ T2,CDBICP(P1) ;GET ICCW ADDRESS
MOVEM T1,0(T2) ;STORE THE JUMP WORD IN THE LOGOUT AREA
SETZM 1(T2) ;CLEAR OTHER WORDS OF LOGOUT AREA
SETZM 2(T2) ; ...
OKINT ;INTERRUPTS OK AGAIN
RET ;DONE
DGSTIL: CALL DGRLPG ;RELEASE THE BLOCK
OKINT ;ALLOW INTERRUPTS
RETBAD(DIAGX6) ;SAY BAD CCW LIST FORMAT
;GET THE CURRENT CHANNEL STATUS FOR THE USER
DGGTST: MOVEI T3,1(P4) ;GET USER DESTINATION
ADD P4,BHC+3 ;INCREMENT POINTER TO TEST LENGTH
AOBJN P4,DGGT1 ;UPDATE STORE POINTER
RETERR (DIAGX3) ;POINTER WASN'T LONG ENOUGH
DGGT1: HRRZ T2,CDBICP(P1) ;GET ICCW ADDRESS
MOVEI T1,3 ;3 WORD XFER
CALL BLTMU ;TRANSFER WD0-WD2 TO USER SPACE
JUMPG P4,R ;RETURN IF THATS ALL HE WANTS
HRRZ T2,DIAGCW ;HE WANTS CCW LIST TOO - GET ITS ADDRESS
DGGT2: MOVE T1,1(T2) ;GET A CCW
UMOVEM T1,1(P4) ;TELL USER
ERJMP R ;QUIT IF FAULT
JUMPE T1,R ;RETURN AFTER STORING TERMINATING ZERO
ADDI T2,1 ;MORE - POINT AT NEXT
AOBJN P4,DGGT2 ;GIVE IT TO USER IF HE HAS THE ROOM
RET ;FILLES ARGUMENT BLOCK - RETURN
;HERE TO DO UNIT/CONTROLLER ADDITION
DGPDL: ADD P4,BHC+2 ;CHECK SIZE TO SEE IF LEGAL
AOBJP P4,DIGER ;NO -- TOO SMALL
SUB P4,BHC+3 ;RESTORE
XCTU [SKIPL T1,1(P4)] ;GET CHANNEL AND CHECK VALIDITY
CAILE T1,HICHAN ;LEGAL?
RETERR (DIAGX8) ;NO
SKIPE P1,CHNTAB(T1) ;MAKE SURE CHANNEL EXISTS
XCTU [SKIPGE Q2,2(P4)] ;GET UNIT AND SEE IF NEGATIVE
RETERR (DIAGX8) ;NO CHANNEL OR BAD UNIT
LDB T1,CSYTYP ;Get the channel type
CAIN T1,.CTNI ;KLNI?
RETERR (DIAGX4) ; Yes, this is a no no
XCTU [SKIPL P5,3(P4)] ;CHECK FOR -1 CONTROLLER
IFSKP. ;CONTROLLER IS LESS THAN 0
MOVE T2,CDBSTS(P1) ;GET CHANNEL STATUS
TXNE T2,CS.CIP ;IS IT A CI?
RETERR (DIAGX8) ;YES, MUST HAVE A CONTROLLER
SETO P5, ;NO, FORCE -1 CONTROLLER
JRST DGPDL2 ;PROCEED
ENDIF.
HLRE T1,CDBIUN(P1) ;GET NEGATIVE NUMBER OF ENTRIES
MOVN T1,T1 ;MAKE POSITIVE
CAML P5,T1 ;VERIFY CONTROLLER NUMBER
RETERR (DIAGX8) ;INVALID
IFN FTKLIPA,<
MOVX T2,CS.CIP ;CHECK FOR CI PORT
TDNN T2,CDBSTS(P1)
JRST DGPDLA ;NO CHECK AS IF NO KLIPA HERE
NOINT ;INHIBIT INTERRUPTS HERE
NOSKED ;NO SCHED TOO
IOPIOF ;AND EVERYBODY LEAVE US ALONE
MOVE T1,P5 ;GET THE NODE NUMBER
MOVE T2,Q2 ;GET UNIT NUMBER
CALL MSCOUN ;TRY TO ONLINE UNIT
JRST DGPDER ;ERROR CLEAN UP
AOS MTAJB0 ;FORCE SETSPD INCASE OF TAPES
AOS JB0FLG ;WAKE UP JOB 0
IOPION ;INTERRUPTS BACK ON
OKSKED ;SCHED TOO
OKINT ;AND INTERRUPTS
RET
DGPDER: IOPION ;ALLOW INTERRUPTS
OKSKED ;AND SCHEDULER
OKINT
RETERR ()
> ;END IFN FTKLIPA
DGPDLA: MOVE P3,CDBIUN(P1) ;GET ADDRESS OF UDB TABLE
ADD P3,P5 ;ADD TO GET PROPER ENTRY
SKIPN P3,(P3) ;POINTER EXIST?
JRST DGPDL2 ;NO, GO CREATE ONE
LDB T1,USYBKT ;GET BLOCK TYPE
CAIE T1,.BTKDB ;CHECK FOR KDB
RETERR (DIAG12) ;ERROR DEVICE NOT ON LINE
DGPDL2: HRRZ T1,CDBDSP(P1) ;GET DISPATCH TABLE
CALL CDSEXT(T1) ;SEE IF UNIT ALREADY EXISTS
IFSKP. ;[7457] If it exists, then check offline
MOVX T1,CS.OFL ;[7457] Load the offline bit for CDB
MOVX T2,US.OFS ;[7457] Load offline bit for UDB
TDNN T1,CDBSTS(P1) ;[7457] Is the CDB off line?
TDNE T2,UDBSTS(P3) ;[7457] or is the UDB off line?
IFSKP. ;[7457] If the CDB and UDB are online and exist
RETERR (DIAG11) ;[7457] then its an illegal request
ENDIF. ;[7457] Otherwise CDB and/or UDB are offline
ANDCAM T1,CDBSTS(P1) ;[7457] Clear CDB offline bit
ANDCAM T2,UDBSTS(P3) ;[7457] Clear UDB offline bit also
RET ;[7457] Return OK
ENDIF. ;[7457] End of code for unit exists
SKIPN T1 ;ILLEGAL UNIT NUMBER?
RETERR (DIAGX8) ;YES, GIVE ERROR
PUSH P,Q2 ;SAVE Q2 AND P5
PUSH P,P5
SKIPL P5 ;CHECK FOR NO CONTROLLER
EXCH Q2,P5 ;SET Q2 TO CONTROLLER, P5 TO UNIT
NOINT
SE0ENT
CALL DGUMAP ;CHECK FOR VALIDITY
CALL DGUVAL
CALL DGLOCK ;LOCK
CALL DGUMAP ;PUT IN MAI MODE
CALL DGUASN
CALL DGCASN ;ASSIGN CHANNEL
NOSKED ;NOSKED
IOPIOF ;TURN OFF CHANNEL
MOVE Q3,CDBIUN(P1) ;GET CORRECT UNIT ADDRESS
ADD Q3,Q2
CALL RH2UNS ;GO GET UNIT SETUP
SKIPN 0(Q3) ;ALREADY EXISTS?
MOVEM P3,0(Q3) ;NO STORE THE NEW FOUND ENTRY
CALL DGUMAP ;RELEASE ALL THE UNITS
CALL [ MOVSI T1,(US.MAI!US.MRQ)
TDNN T1,UDBSTS(P3)
RET ;NOT IN USE FORGET IT
CALLRET DGUREL] ;RELEASE
MOVSI T1,(CS.MAI!CS.MRQ) ;RELEASE CHANNEL
ANDCAM T1,CDBSTS(P1)
HLLOS CDBONR(P1)
HRRZ T2,CDBDSP(P1)
MOVEI T1,0 ;RESET CHANNEL
HRRZ T2,CDBDSP(P1) ;GET CHANNEL DISPATCH
CALL CDSRST(T2) ;RESET CHANNEL PIA,ETC.
CALL RSTSEK ;RESTART SEEKS
CALL SCHXFR ;AND ANY TRANSFERS
IOPION
SE1ENT
OKSKED
AOS MTAJB0 ;FORCE SETSPD TO RUN INCASE MAGTAPES
AOS JB0FLG ;START JOB 0
CALL DGUNLK ;UNLOCK AND RETURN
OKINT ;ALLOW INTERRUPTS
POP P,P5
POP P,Q2 ;RESTORE Q2
HRRZ T1,CDBDSP(P1) ;GET DISPATCH TABLE
CALL CDSEXT(T1) ;SEE IF UNIT NOW EXISTS
RETERR (DIAG12) ;NO, COMPLAIN
RET ;ALL OK
;UTILITIES
;HERE TO CHECK THAT A CHANNEL IS IN MAINTENANCE MODE
DGCCHK: MOVSI T1,(CS.MAI) ;MAINTENANCE FLAG
TDNN T1,CDBSTS(P1) ; ...
RETERR(DIAGX2) ;NO - RETURN ERROR
RET ;ALL OK
;HERE TO VALIDATE ACCESS TO A UNIT
DGUVAL: RET ;**TEMP**
; MOVSI T1,(US.MAL) ;MAINTENANCE MODE ALLOWED?
; TDNN T1,UDBSTS(P3) ; ??
; RETERR(DIAGX5) ; NO
; RET ;YES
;HERE TO ASSIGN A CHANNEL
;ASSUMES ALL UNITS ALREADY IN MAINTENANCE MODE, THEREFORE NEVER NEEDS TO BLOCK
DGCASN: MOVSI T1,(CS.MRQ) ;SET MAINTENANCE REQUEST BIT
IORM T1,CDBSTS(P1) ; ...
CALL DGUMAP ;MAP OVER ALL UNITS
CALL DGCAS1
MOVSI T1,(CS.MAI) ;ALL UNITS IDLE, SET MAINT
IORM T1,CDBSTS(P1) ; ...
MOVSI T1,(CS.MRQ) ;CLEAR REQUEST
ANDCAM T1,CDBSTS(P1) ; ...
SETZM CDBODT(P1) ;CLEAR OVERDUE TIME
HRRZ T1,FORKX ;SETUP OWNING FORK
HRRM T1,CDBONR(P1) ; ...
HRRZ T1,CDBICP(P1) ;AND CLEAR ICCW
SETZM (T1) ; ...
RET
DGCAS1: MOVSI T1,(US.ACT!US.REW) ;UNIT IDLE?
TDNN T1,UDBSTS(P3) ;?
RET ;YES
MOVS T1,P3 ;NO - MUST BLOCK
HRRI T1,DGUIDL ;WAIT FOR IDLE
PDISMS
JRST DGCAS1 ;CHECK AGAIN
;SCHEDULER TEST ROUTINE TO WAIT FOR UNIT IDLE
DGUIDL: MOVSI T2,(US.ACT!US.REW) ;UNIT IDLE?
TDNE T2,UDBSTS(T1) ; ...
JRST 0(T4)
JRST 1(T4) ;NO - UNBLOCK
;HERE TO ASSIGN A UNIT
DGUASN: MOVSI T1,(US.MRQ) ;SET REQUEST BIT
IORM T1,UDBSTS(P3) ; ...
DGUAS1: MOVSI T2,(US.ACT) ;SETUP BITS FOR PIOFF TESTS
MOVSI T3,(US.MAI) ; ...
NOSKED
IOPIOF
TDNE T2,UDBSTS(P3) ;ACTIVE?
JRST DGUAS2 ;YES - MUST BLOCK
IORM T3,UDBSTS(P3) ;NO - SET MAINTENANCE IMMEDIATELY
IOPION
OKSKED
ANDCAM T1,UDBSTS(P3) ;CLEAR MAINTENANCE REQUEST
SETZM UDBODT(P3) ;AND OVERDUE TIMER
HRRZ T1,FORKX ;SETUP OWNING FORK
HRRM T2,UDBONR(P3) ; ...
RET
DGUAS2: IOPION ;RE-ENABLE INTERRUPTS
OKSKED
MOVEI T1,DGUTST ;SCHEDULER TEST ROUTINE FOR UDB BLOCK
HRL T1,P3 ;SETUP UDB
PDISMS ;WAIT FOR BIT TO SET
MOVSI T1,(US.MRQ) ;BIT TO CLEAR
JRST DGUAS1 ;JOIN ABOVE
;SCHEDULER TEST FOR UDB IN MAINTENANCE MODE
DGUTST: MOVSI T2,(US.MAI) ;TEST MAINTENANCE BIT
TDNN T2,UDBSTS(T1) ;IN UDB
JRST 0(T4) ;NOT ON YET
JRST 1(T4) ;ON, UNBLOCK
;HERE TO RELEASE A UNIT
DGUREL: MOVSI T1,(US.MAI!US.MRQ) ;CLEAR MAINTENANCE BIT
ANDCAM T1,UDBSTS(P3) ; ...
SETZM UDBODT(P3) ;CLEAR OVERDUE TIME
HLLOS UDBONR(P3) ;RESET OWNING FORK
RET
;HERE TO GET THE UDB POINTED TO BY THE ADDRESS IN Q2
DGUGET: LDB P3,[POINT 6,Q2,29] ;GET UNIT ADDRESS
HLRE T1,CDBIUN(P1) ;WITHIN BOUNDS?
MOVNS T1
CAIL P3,(T1) ; ??
RETERR(DIAGX9) ;NO
ADDI P3,CDBUDB(P1) ;INDEX INTO UDB TABLE
SKIPN P3,(P3) ;ANYTHING THERE?
RETERR(DIAGX9) ;NO
LDB T1,USYTYP ;YES - GET UNIT TYPE
CAIE T1,.UTTM2 ;KDB?
RET ;NO - DONE
MOVE P2,P3 ;COPY
LDB P3,[POINT 6,Q2,35] ;GET SUBUNIT NUMBER
HLRE T1,KDBIUN(P2) ;BOUNDS CHECK
MOVNS T1
CAIL P3,(T1)
RETERR(DIAGX9) ;NOT LEGAL
ADDI P3,KDBUDB(P2) ;INDEX INTO KDB UDB TABLE
SKIPN P3,(P3) ;UDB PRESENT?
RETERR(DIAG10) ;NO
RET ;YES - ALL OK
;HERE TO CHECK IF EXCLUSIVE ACCESS (LOCK AND NOSKED) IS REQUIRED
;FOR THIS DIAG REQUEST
DGEXCK: CALL DGUMAP ;CHECK ALL UNITS ON THIS CHAN
CALL DGEXC1
RET
DGEXC1: SKIPL UDBSTR(P3) ;IS UNIT IN A STR?
TLO Q1,(1B0) ;SET SIGN BIT - NEED EXCLUSIVE ACCESS
RET
;HERE TO ACQUIRE EXCLUSIVE ACCESS IF REQUESTED
DGEXAC: CALL DGEXCK ;CHECK IF EXCLUSIVE ACCESS NEEDED
JUMPGE Q1,R ;NOT NEEDED, RETURN
DGEXCA: SAVEP ;YES - SAVE REGISTERS
CALL ASGPAG ;GET FREE PAGE
RETERR(MONX02) ;INSUFFICIENT RESOURCES
MOVE P2,T1 ;COPY SCRATCH PAGE ADDRESS
SETOM (T1) ;SET PAGE TO ALL ONES
HRLZ T2,T1 ;BUILD BLT POINTER
HRRI T2,1(T1) ; ...
BLT T2,PGSIZ-1(T1) ;CLEAR PAGE TO ONES
CALL MLKMA ;LOCK IN MEMORY
CALL DGEXNS ;DO NOSKED, SPECIAL TRAP ACTIONS
MOVSI P1,-PGSIZ ;LOOP OVER USER ADDRESS SPACE
DGEXA1: SKIPN UPTPGA(P1) ;USER PAGE EXIST?
JRST DGEXA2 ;NO - KEEP LOOKING
HRRZ T1,P1 ;YES - LOCK IT DOWN
LSH T1,PGSFT ;BUILD ADDRESS
TLO T1,(1B0) ;MARK USER ADDRESS
CALL MLKMA ;LOCK
MOVE T2,P2 ;BUILD INDEX INTO LOCKED PAGE LIST
ADDI T2,(P1) ; ...
MOVEM T1,(T2) ;SAVE ADDRESS
DGEXA2: AOBJN P1,DGEXA1 ;LOOP
HRLM P2,DIAGFK ;STORE TEMP PAGE ADDRESS TO RELEASE
RET
;HERE TO GO NOSKED
DGEXNS: NOSKED ;LOCK UP THE PROCESSOR
AOS PNSKDC ;SAY HAVE A NOSKED BECAUSE OF DIAG
;******SHOULD CONSIDER TRAPPING JSYS AND TRAPS HERE
RET ;DONE
;HERE TO RELEASE EXCLUSIVE ACCESS
DGEXRL: MOVE T1,DIAGFK ;CHECK IF LOCK IS OWNED
CAMN T1,[-1] ;OWNER EXISTS?
RET ;NO - THEN NOTHING TO UNLOCK
HLRZ T1,DIAGFK ;ANYTHING TO UNLOCK?
JUMPE T1,R ;NO - EXIT
SAVEP ;SAVE REGISTERS
MOVSI P1,-PGSIZ ;SETUP TO UNLOCK ALL LOCKED PAGES
HLRZ P2,DIAGFK ;GET TEMP PAGE ADDRESS
SKIPN P2 ;CHECK THERE WAS ONE
BUG.(HLT,DGZTPA,DIAG,HARD,<DIAG - Locked page list page was zero>,,<
Cause: The routine DGEXFL in the module DIAG was called to unlock any
user pages when terminating use of the DIAG JSYS. A pointer to
a list of these pages should be in the left half of location
DIAGFK. This pointer was zero. This BUGHLT should never occur,
since DGEXFL returns if the pointer is zero.
>)
DGEXR1: HRRZ T1,P1 ;WAS THIS PAGE LOCKED BY DIAG?
ADD T1,P2 ; ...
SKIPGE T1,(T1) ; ?
JRST DGEXR2 ;NO - DO NOTHING
CAML T1,MONCOR ;A REASONABLE PAGE?
CALL MULKCR ;YES - UNLOCK IT
DGEXR2: AOBJN P1,DGEXR1 ;LOOP FOR WHOLE ADDRESS SPACE
MOVE T1,P2 ;NOW UNLOCK LOCK PAGE LIST PAGE
CALL FPTA ;LACK OF MULKMA
CALL MULKPG ;UNLOCK IT
HRRZS DIAGFK ;CLEAR MEMORY OF PAGE
;****** RESTORE JSYS AND PAGE TRAP HERE
NOINT
SOS PNSKDC ;ONE LESS NOSKED BECAUSE OF RESOURCES
OKSKED ;RELESE CPU
MOVE T1,P2 ;GET VIRTUAL ADDR BACK
CALL RELPAG ;RELEASE IT
HRRZ T1,FORKX ;CHECK IF ANY TTY ACTIVITY
LOAD T1,FKJO%,(T1) ;GET JOB NUMBER
HLRE T2,JOBPT(T1) ;GET CONTROLLING TERMINAL
JUMPL T2,R ;IF DETACHED, QUIT
CALL CKINP ;SEE IF ANY TERMINAL INPUT
RET ;NOTHING
CHKINT ;USER IS TYPING. POKE SCHED
RET
;HERE TO REQUEST THE DIAG LOCK
DGLOCK: NOINT ;PREVENT INTS WHILE SETTING UP
SKIPL DIAGWT ;WAIT A WHILE IF ANOTHER JOB IS BLOCKED FOR DIAG
AOSE DIAGLK ;TEST/SET LOCK
JRST DGLK1 ;BUSY - MUST WAIT
MOVE T1,FORKX ;HAVE LOCK - IDENTIFY OWNER
MOVEM T1,DIAGFK ; ...
RET
DGLK1: OKINT ;BE OKINT WHEN BLOCKED
SETOM DIAGWT ;INDICATE WE'RE WAITING
MOVEI T1,DGLTST ;BLOCK
MDISMS ; ...
JRST DGLOCK ;TRY AGAIN
DGLTST: SKIPL DIAGLK ;LOCK FREE?
JRST 0(T4) ;NO
AOSN DIAGWT ;YES, SOME OTHER FORK WAITING?
JRST 0(T4) ;YES, LET HIM HAVE A CHANCE AT IT
JRST 1(T4) ;MAYBE, TRY TO GET IT TOO
;HERE TO RELEASE THE DIAG LOCK
DGUNLK: MOVE T1,DIAGFK ;CHECK FOR LOCK OWNER
CAMN T1,[-1] ;IS LOCK OWNED?
JRST DGUNL1 ;NO, THEN NO TEMP PAGES LOCKED.
HLRZS T1,DIAGFK ;CHECK FOR UNRELEASED TEMP PAGE
SKIPE T1 ; ...
BUG.(HLT,DGUTPG,DIAG,HARD,<DIAG - Locked page list page locked at DIAG unlock>,,<
Cause: The subroutine DGUNLK was called to release the interlock for the
DIAG JSYS. In the case that user pages were locked down, the left
half of the location DIAGFK contains the page containing a list of
the locked pages. The routine DGEXFL should have been called
previously to release this page. However, DGUNLK found that the
page was still assigned.
>)
DGUNL1: SETOM DIAGFK ;INDICATE NO OWNER
SETOM DIAGLK ;FREE LOCK
RET
;HERE TO RELEASE ALL DIAG. RESOURCES ALLOCATED TO THIS PROCESS
;CALLED FROM KSELF IF THE FORK HAS ANY ASSIGNED
DGFKIL::HRRZ T1,DIAGFK ;THIS FORK HAVE DIAG RESOURCE NOW?
CAME T1,FORKX ;??
JRST FKIL3 ;NO
SAVEPQ ;SAVE ALL ACS
MOVSI Q1,-CHNN ;BUILD AOBJN POINTER
FKIL1: SKIPN P1,CHNTAB(Q1) ;ANYTHING PRESENT?
JRST FKIL2 ;NO - ON TO NEXT
MOVSI T1,(CS.MRQ) ;MAINT REQUEST UP?
TDNE T1,CDBSTS(P1) ;?
ANDCAM T1,CDBSTS(P1) ;YES - CLEAR IT
MOVSI T1,(CS.MAI) ;YES - IS IT IN ASSIGNED?
TDNN T1,CDBSTS(P1) ; ??
JRST FKIL2 ;NO
CALL DGRLCH ;YES - RELEASE IT
FKIL2: AOBJN Q1,FKIL1 ;LOOP FOR ALL CHANNELS
FKIL3:
IFN FTKLIPA,<
MOVSI Q1,-CHNN ;BUILD AOBJN POINTER
MOVX Q2,CS.CIP ;CI PORT FLAG
FKIL4: SKIPE P1,CHNTAB(Q1) ;PORT EXIST?
TDNN Q2,CDBSTS(P1) ;YES. CI PORT?
JRST FKIL5 ;NOTHING TO DO
HRRZ Q3,CDBCTR(P1) ;OWNER OF COUNTERS ON THIS CI PORT
CAMN Q3,FORKX ;IS IT THIS FORK?
HLLOS CDBCTR(P1) ;YES. RETURN THEM
FKIL5: AOBJN Q1,FKIL4 ;CHECK ALL CHANS
>
RET ;ALL DONE
;DIAG ROUTINES FOR TGHA MEMORY CONTROL.
;MAP MEMORY. ALSO TURNS OFF PI AND ENTERS SECONDARY PROTOCOL.
;MAY ALSO TURN OFF METER
;ARGS ARE:
; FIRST USER PAGE IN MAP REGION
; FIRST REAL MEMORY ADDRESS TO MAP
; COUNT OF PAGES TO MAP
; AR/ARX TRAP ADDRESS. -1 =) NO INTERVENTION
DGMEM: STKVAR <USRPAG,MEMPAG,CNTPAG,PAGE1,PAGE2>
AOBJN P4,DGMEM1 ;GET USER ADDRESS
RETERR (DIAGX3) ;NOT ENOUGH ARGS
DGMEM1: UMOVE T1,0(P4) ;GET USER PAGE ADDRESS
SKIPL T1 ;MUST BE A VALID PAGE NUMBER
CAILE T1,777 ;AND MUST BE IN ONE SECTION
RETERR (ARGX06) ;INVALID PAGE NUMBER GIVEN
MOVEM T1,USRPAG ;SAVE USER PAGE
AOBJN P4,DGMEM2 ;GET NEXT ARG
RETERR (DIAGX3) ;NOT ENOUGH
DGMEM2: UMOVE T1,0(P4) ;GET PHYSICAL ADDRESS
CAMLE T1,NHIPG ;IS THIS PAGE EXTANT?
RETERR(PMCLX2) ;NO. GIVE ERROR THEN
MOVEM T1,MEMPAG ;SAVE IT
AOBJN P4,DGMEM3 ;GET LAST ARG
RETERR (DIAGX3) ;TOO BAD. NOT THERE
DGMEM3: UMOVE T1,0(P4) ;GET PAGE COUNT
CAILE T1,1000 ;MUST NOT BE GREATER THAN ONE SECTION
RETERR (ARGX06) ;CAN;T HAVE IT THEN
MOVEM T1,CNTPAG ;SAVE IT
;NOW SEE IF UPPER LIMITS MATCH
ADD T1,MEMPAG ;GET LAST MEMORY PAGE
SOS T1 ;ONE LESS
CAMLE T1,NHIPG ;WITHIN BOUNDS?
RETERR (PMCLX2) ;NO. CAN;T DO IT THEN
MOVE T1,CNTPAG ;GET COUNT AGAIN
ADD T1,USRPAG ;GET END OF USER SPACE
CAILE T1,1000 ;WITHIN SECTION 0
RETERR (ARGX06) ;NO. BOMB THEN
SETOM P3 ;ASSUME NO AR/ARX INTERVENTION
AOBJP P4,DGMEM6 ;IS ONE SPECIFIED?
UMOVE P3,0(P4) ;YES. GET IT
; ..
;HERE WITH ALL ARGS VALIDATED. NOW SET UP USER MAP
DGMEM6: CALL DGLOCK ;GET DIAG LOCK. NOW NOINT
MOVE T1,USRPAG ;GET USER PAGE
MOVE T2,CNTPAG ;GET COUNT
DGMEM4: SKIPE UPTPGA(T1) ;IS THIS MAP SLOT EMPTY?
RETERR (ARGX06,<CALL DGUNLK>) ;NO. CAN'T DO FUNCTION THEN
SOJLE T2,DGMEM5 ;MORE TO DO?
AOJA T1,DGMEM4 ;YES
DGMEM5: CALL ASGPAG ;GET A PAGE
RETERR (MONX02,<CALL DGUNLK>) ;NONE THERE
SKIP 0(T1) ;CREATE THE PAGE
MOVEM T1,PAGE1 ;SAVE THE PAGE
CALL ASGPAG ;GET ANOTHER PAGE
RETERR (MONX02,<CALL DGUNLK
MOVE T1,PAGE1
CALL RELPAG>) ;FREE THE PAGE
MOVE T2,PAGE1 ;GET ADDRESS OF PAGE 1
MOVEM T2,0(T1) ;SAVE IT
MOVE T2,MEMPAG ;GET FIRST MEM PAGE
MOVEM T2,2(T1) ;SAVE IT
MOVE T2,USRPAG ;GET FIRST USER PAGE
MOVEM T2,3(T1) ;SAVE IT
MOVE T2,CNTPAG ;GET COUNT OF PAGES
MOVEM T2,4(T1) ;SAVE IT
MOVEM T1,PAGE2
MOVE T2,CASHF ;CURRENT CACHE STATE
MOVEM T2,5(T1) ;SAVE IT
;USER MAP IS AVAILABLE FOR OPERATION. FIRST LOCK THE DIAGNOSTIC
;IN MEMORY
CALL DGEXCA ;LOCK THE DIAGNOSTIC. WILL BE NOSKED ON RETURN
MOVE T1,PAGE1 ;GET PAGE I.D.
CALL MLKMA ;LOCK IT IN
MOVE T1,PAGE2
HLRZ T2,DIAGFK ;SAVE LOCK PAGE
HRLM T1,DIAGFK ;REMEMBER THIS ADDRESS
MOVEM T2,1(T1) ;SAVE LOCK PAGE ADDRESS
CALL MLKMA ;LOCK THIS ONE ALSO
MOVE T1,FORKX ;GET FORK NUMBER OF THIS PROCESS
LOAD T1,FKUP%,(T1) ;GET SPTN OF UPTA
HRLZS T1 ;PUT IN LEFT HALF ** ASSUMES HALFWORD VALUE
HRR T1,USRPAG ;GET STARTING PAGE NUMBER
MOVE T2,MEMPAG ;GET MEMORY PAGE
MOVE T3,CNTPAG ;GET COUNT
CALL MAPPV ;SET UP THE MAP
;USER MAP NOW SET UP. NEED TO FIX UP CST0 AREA
PIOFF ;TURN OFF INTERRUPTS
CALL CASHOF ;TURN OFF THE CACHE
REPEAT 0,< ;SKIP THIS FOR NOW
JSR BUGMON ;AND ENTER SECONDARY PROTOCOL
MOVEI T1,[SIXBIT '$MOS MEMORY DIAGNOSTIC RUNNING...$/']
JSR BUGMSG ;TELL OPERATOR
> ;END OF REPEAT 0
; ..
;HERE WITH MACHINE COMPLETELY UNDER THIS PROCESS'S CONTROL.
;MUST NOW TURN OFF METER, SAVE CST0 FOR TARGET PAGES
;AND MAKE TARGET PAGES ACCESSIBLE.
CALL MTROFF ;TURN OFF CLOCK. (DISABLES
;METER AND TIMER).
;NOW SAVE RELEVANT CST0 LOCATIONS
MOVE T1,MEMPAG ;FIRST MEM PAGE
XMOVEI T2,@CST0X+T1 ;SOURCE
MOVE T3,PAGE1 ;DESTINATION
MOVE T1,CNTPAG ;# OF PAGES
CALL XBLTA ;SAVE CST0
;CST0 LOCATIONS NOW SAVED. SET UP CURRENT CST0 SO IS ACCESSIBLE
MOVE T1,MEMPAG ;FIRST MEM PAGE
MOVE T2,CNTPAG ;# OF PAGES
CALL SETCST ;SET CST0 FOR THE PAGES
;SETS AGE TO CURRENT AGE. SETS
;USE FIELD TO ALL 1'S
;NOW ALL IS READY FOR THE DIAGNOSTIC. LET IT HAVE IT
;FIRST, WAIT FOR EPT USERS TO FINISH
CALL WATEPT ;LET APRSRV DO THE WAITING
MOVEM P3,DIAGAR ;SET AR/ARX INTERCEPT
RET ;GO!
;MEMORY FUNCTION TO RELEASE ALL RESOURCES.
;NO ARS
DGMEM0: STKVAR <USRPAG,MEMPAG,CNTPAG,PAGE1,PAGE2>
SETZM DIAGAR ;CLEAR AR/ARX INTERCEPT
CALL UNWEPT ;TURN ON EPT DEVICES
HLRZ T1,DIAGFK ;GET PAGE WITH CONTROL INFO
MOVEM T1,PAGE2 ;SAVE IT
MOVE T2,2(T1) ;FIRST MEMORY PAGE
MOVEM T2,MEMPAG
MOVE T3,3(T1) ;GET USER PAGE AFFECTED
MOVEM T3,USRPAG
MOVE T3,4(T1) ;GET COUNT OF PAGES USED
MOVEM T3,CNTPAG
MOVE T4,0(T1) ;GET PAGE WHERE CST0'S ARE SAVED
MOVEM T4,PAGE1
MOVE T1,CNTPAG ;# PAGES
MOVE T3,T2 ;GET
ADD T3,CST0X ; DESTINATION
MOVE T2,T4 ;SOURCE
CALL XBLTA ;RESTORE CST0 ENTRIES
MOVE T1,PAGE2 ;RESTORE CONTROL INFO PAGE
CALL MONCLA ;CLEAR MAP
MOVE T4,1(T1) ;GET USER LOCK PAGE PAGE
HRLM T4,DIAGFK ;RESTORE IT
SKIPE 5(T1) ;WANT CACHE ON?
CALL CASHON ;YES. SO TURN IT ON
REPEAT 0,< ;NOT NEEDED PRESENTLY
MOVEI T1,[SIXBIT '$MOS MEMORY DIAGNOSITIC COMPLETED$/']
JSR BUGMSG ;TELL OPERATOR
JSR BUGPRI ;TURN ON PRIMARY PROTOCOL
> ;END OF REPEAT 0
PION ;AND TURN ON INTS
;SYSTEM NOW ON
NOINT ;PREVENT INTS
CALL DGEXRL ;UNLOCK USER. NOW OKSKED
MOVE T1,PAGE1 ;GET JSB PAGE
CALL FPTA ;GET I.D.
CALL MULKPG ;UNLOCK IT
MOVE T1,PAGE1 ;GET IT AGAIN
CALL RELPAG ;RELEASE IT
MOVE T1,PAGE2 ;GET OTHER JSB PAGE
CALL FPTA ;GET I.D.
CALL MULKPG ;UNLOCK IT
MOVE T1,PAGE2 ;GET IT AGAIN
CALL RELPAG ;RELEASE IT
; ..
;NOW CLEAN UP USER MAP
MOVE T3,CNTPAG ;# OF PAGES
SETOM T2 ;SAY CLEAR MAP
MOVE T1,FORKX ;THIS FORK
LOAD T1,FKUP%,(T1) ;GET SPTN OF UPTA
HRLZS T1 ;PUT IN LEFT HALF ** ASSUMES HALFWORD VALUE
HRR T1,USRPAG ;THE STARTING PAGE NUMBER
CALL MAPPV ;CLEAR MAP
CALL DGUNLK ;RELEASE DIAG LOCK
OKINT ;ALLOW INTS NOW
RET ;AND DONE, AT LAST
;Action routine to read the value of the SYSERR counter
;The counter is a montonically increasing value of the number of
;SPEAR messages enqueue since the start-up of the monitor.
DGRSCT: AOBJN P4,DGRSC0 ;Check to make sure there's a spot for it
RETERR (DIAGX3) ;There isn't
DGRSC0: MOVE T1,SERCNT ;Get counter
UMOVEM T1,0(P4) ;Stash it
RET ;And done
IFN FTKLIPA,<
;Code for CI u-code management
;ACCEPTS: P1/ CBD
;RETURNS: +1 FAILED. T1/ ERROR CODE
; +2 SUCCESS
DGUCOD: AOBJP P4,DIGER ;CHECK NO. OF ARGS
SKIPN P1,CHNTAB+KLPRH2 ;HAVE A KLIPA?
RETERR (DIAG14) ;NO
UMOVE T1,(P4) ;YES, GET SUB-FUNCTION
CAIL T1,0 ;LEGAL
CAILE T1,DGUMAX ; SUB-FUNCTION?
RETERR (DIAGX1) ;NO
CALLRET @DGUDSP(T1) ;GO DO THE WORK
DGUDSP: IFIW!DGURIP ;RELOAD-IN-PROGRESS
IFIW!DGURLC ;RELOAD-COMPLETE
IFIW!DGUDIP ;DUMP-IN-PROGRESS
IFIW!DGUDMC ;DUMP-COMPLETE
DGUMAX=.-DGUDSP-1
;U-CODE RELOAD-IN-PROGRESS
;ACCEPTS: P1/ CDB
;RETURNS: +1
DGURIP: CALL KLPRIP ;(P1) TELL KLIPA DRIVER
RET
;U-CODE RELOAD-COMPLETE
;ACCEPTS: P1/ CDB
;RETURNS: +1
DGURLC: CALL KLPRLC ;(P1) TELL KLIPA DRIVER
RET
;U-CODE DUMP-IN-PROGRESS
;ACCEPTS: P1/ CDB
;RETURNS: +1
DGUDIP: CALL KLPDIP ;(P1) TELL KLIPA DRIVER
RET
;U-CODE DUMP-COMPLETE
;ACCEPTS: P1/ CDB
;RETURNS: +1
DGUDMC: CALL KLPDMC ;(P1) TELL KLIPA DRIVER
RET
;RESET REMOTE SYSTEM
DGRSET: TDZA Q3,Q3 ;FLAG A RESET
;START REMOTE SYSTEM
DGSTRT: MOVEI Q3,-1 ;FLAG START
AOBJP P4,DIGER ;CHECK NO OF ARGS
CALL PBLESS ;BLESS THE REQUEST
RETERR (DIAG14) ;CHANNEL NOT THERE
NOINT ;PREVENT INTERRUPTS
CALL PPDGDB ;GET DATAGRAM BUFFER
RETERR (DIAG13,<OKINT>) ;NOT AVAILABLE
UMOVE Q1,(P4) ;GET CHAN,,NODE AGAIN
AOBJP P4,CALSRS ;DO THE SEND IF NO NEXT ARG
UMOVE T3,0(P4) ;GET ARGUMENT (START - START ADDR; RESET - FORCE)
HRL Q3,T3 ;IN LH(Q3)
CALSRS: CALL PPDSRS ;CALL THE PORT DRIVER TO DO THE SEND
OKINT ;TURN INTERRUPTS BACK ON
RET ;AND RETURN
;ROUTINE TO BLESS THE CALL
;CALL P4/ADDR OF USER'S ARG
;RETURNS +1 CDB DOESN'T EXIST OR NOT A CI PORT
;RETURNS +2 P1/CDB
; Q1/USER'S ARG
PBLESS: UMOVE Q1,(P4) ;CHAN,,NODE
HLRZ T1,Q1 ;CHAN
CAIL T1,0 ;LEGAL
CAILE T1,HICHAN ; CHANNEL?
RET ;NO
MOVX T2,CS.CIP ;YES
SKIPE P1,CHNTAB(T1) ;CDB EXIST?
TDNN T2,CDBSTS(P1) ;YES. CI PORT?
RET ;NO. LOSE
RETSKP ;WIN
;PORT COUNTER FUNCTIONS
COUNTR: AOBJP P4,DIGER ;CHECK NO OF ARGS
CALL PBLESS ;BLESS THE ARGUMENT
RETERR(DIAG14) ;NO GOOD
HRRZS Q1 ;ISOLATE SUBFUNCTION
CAILE Q1,CNTFLN ;LEGAL?
RETERR(DIAGX1) ;NO
MOVE T1,FORKX ;YES. SET T1=FORK NUMBER
HRRE T2,CDBCTR(P1) ;AND T2=FORK WHICH CURRENTLY OWNS COUNTERS
CALLRET @CNTFCN(Q1) ;AND DISPATCH
CNTFCN: IFIW!CNTGET ;0 - GET COUNTERS
IFIW!CNTGIV ;1 - RELEASE COUNTERS
IFIW!CNTPNT ;2 - POINT COUNTERS
IFIW!CNTRED ;3 - READ COUNTERS
CNTFLN==.-CNTFCN-1
;GET CONTROL OF THE COUNTERS
CNTGET: CAIN T1,T2 ;IS FORK ALREADY THE OWNER?
RET ;YES.
SKIPLE T2 ;NO. IS THERE AN OWNER?
RETERR(DIAG15) ;YES.
HRRM T1,CDBCTR(P1) ;NO. THIS FORK NOW OWNS THEM
RET ;GO AWAY HAPPY
;RELINQUISH CONTROL OF THE COUNTERS
CNTGIV: CAMN T1,T2 ;IS THIS FORK THE OWNER?
JRST CNTGI1 ;YES. GO RELEASE CONTROL.
AOBJP P4,DIGER ;NO. GET THE FORCE ARGUMENT.
UMOVE T1,(P4)
SKIPG T1 ;FORCE THE RELEASE?
RETERR(DIAG16) ;NO.
CNTGI1: HLLOS CDBCTR(P1) ;YES. RELEASE THEM
RET ;AND RETURN
;POINT THE COUNTERS AT A PARTICULAR NODE
CNTPNT: AOBJP P4,DIGER ;CHECK NO OF ARGS
CAME T1,T2 ;THIS FORK THE OWNER?
RETERR(DIAG16) ;NO. ERROR
NOINT ;DISABLE INTERRUPTS
UMOVE Q1,(P4) ;YES. GET MASK ARGUMENT
CALL PPDGDB ;GET DATAGRAM BUFFER
RETERR (DIAG13,<OKINT>) ;FAILED
AOBJP P4,DIGER ;CHECK NO OF ARGS
UMOVE Q3,(P4) ;GET NODE ARGUMENT
MOVSI T1,1 ;BUMP THE MONOTONIC NUMBER
ADDM T1,CDBCTR(P1) ; SO READERS WILL KNOW THEY'VE RESET
CALL PPDSPT ;(Q1,Q2,P1) TELL PORT DRIVER TO SET THE COUNTERS
OKINT ;ALLOW INTERUPTS
RET
;READ THE COUNTERS
;
;IN ORDER TO PERFORM A READ, THE READ LOCK (CNTLCK) MUST BE FREE (-1). IF
;IT IS NOT, THE FORK WILL WAIT UNTIL IT IS. ONCE THE FORK HAS THE LOCK,
;IT SENDS A READ FUNCTION TO THE KLIPA AND ALSO SETS A TIMER (CNTTIM). IF
;THE READ IS NOT FINISHED IN THE ALLOTED TIME,THE LOCK IS FREED AND AN
;ERROR IS RETURNED. ON THE READ, PHYKLP WILL STORE THE TIME OF THE
;READ AND THE DATA IN CNTBUF AND THEN, SET THE READ DONE FLAG (CNTFLG). THE DIAG
;CODE TESTS CNTFLG AND CNTTIM TO DETERMINE WHEN THE READ HAS EITHER FINISHED
;OR TIMED OUT.IF THE READ FINISHES, THE DATA IS COPIED TO THE
;ARGUMENT BLOCK OF THE DIAG% AND THEN THE READ LOCK (CNTLCK) IS FREED
;AND THE READ DONE FLAG (CNTFLG) IS RESET.
;
;
CNTRED: AOBJP P4,DIGER ;COUNT AN ARGUMENT
CNTRD0: AOSE CNTLCK ;IS THE COUNTER READ FUNCTION FREE?
JRST CNTWT2 ;NO. GO WAIT
NOINT ;YES.
CALL PPDGDB ;GET DATAGRAM BUFFER
JRST [SETOM CNTLCK ;FAILED TO GET BUFFER. FREE LOCK.
OKINT
RETERR (DIAG13)] ;AND RETURN ERROR.
MOVE T1,TODCLK ;GET THE TIME
ADDI T1,^D5000 ;CREATE THE OVERDUE TIME
MOVEM T1,CNTTIM ;SAVE THE OVERDUE TIME
MOVEI T2,KS%DIA ;GET REASON CODE
CALL PPDRPT ;(T2,Q2) TELL THE DRIVER TO READ THE COUNTERS
CALL CNTRWT ;BLOCK TILL IT FINISHES
JRST CNTRDF ;READ TIMED OUT
MOVE T1,CDBCTR(P1) ;GET RESET COUNTER AND FORK OWNER
UMOVEM T1,(P4) ;TELL USER
AOBJP P4,CNTRD2
HLRE T1,P4 ;NUMBER OF VALUES HE WANTS
CAIGE T1,-.PKPDD ;TOO MANY?
HRLI P4,-.PKPDD ;YES. DECREASE THE REQUEST
MOVEI T1,1 ;SET UP TO READ CNTBUF
SKIPA
CNTRD1: AOBJP P4,CNTRD2
MOVE T3,CNTBUF(T1) ;GET A VALUE.(CNTBUF+0 IS TIME OF READ)
UMOVEM T3,(P4) ;SAVE FOR USER
AOJA T1,CNTRD1 ;LOOP FOR NEXT
CNTRD2: SETOM CNTFLG ;FINISHED. NOW RESET THE READ DONE FLAG.
SETOM CNTLCK ;RESET THE LOCK.
OKINT
RET
;ROUTINE TO WAIT FOR THE COUNTER READ TO FINISH
CNTRWT: MOVEI T1,CNTRTS ;BLOCK
MDISMS
SKIPL CNTFLG ;DID READ FINISH?
RETSKP ;YES.
RET ;NO. TIMED OUT.
CNTRTS: SKIPL CNTFLG ;HAVE COUNTERS BEEN READ?
JRST 1(T4) ;YES.
MOVE T1,TODCLK ;NO. CHECK OVERDUE TIME.
CAMG T1,CNTTIM ;PAST OVERDUE TIME?
JRST 0(T4) ;NO. WAIT SOME MORE
JRST 1(T4) ;YES. FINISH WAIT
;ROUTINE TO WAIT FOR THE COUNTER LOCK
CNTWT2: MOVEI T1,CNTWT3
MDISMS
JRST CNTRD0
CNTWT3: SKIPL CNTLCK ;IS LOCK FREE?
JRST 0(T4) ;NO. WAIT SOME MORE
JRST 1(T4) ;YES.
CNTRDF: BUG. (INF,CNTOUT,DIAG,HARD,<Read of performance counter timed out>,,<
Cause: The KLIPA did not respond to a read of the performance counters
in the allotted time.
>)
SETOM CNTFLG ;RESET THE READ DONE FLAG.
SETOM CNTLCK ;RESET THE COUNTER READ LOCK
OKINT
RETERR (DIAG21) ;TIMED OUT.RETURN ERROR.
> ;END IFN FTKLIPA
;Enable DGASCU for a CI port
DGENBL: MOVX T1,SC%WHL!SC%OPR ;MUST BE WHEEL OR OPERATOR
TDNN T1,CAPENB ;AGAINST ENABLED CAPABILITIES
RETERR(WHELX1) ;NOT ENOUGH
AOBJP P4,DIGER ;POINT AT CHAN WORD
UMOVE T1,(P4) ;GET CHAN
SKIPL T1 ;MAKE SURE ITS LEGAL
CAILE T1,HICHAN
RETERR(DIAG14) ;NOPE
SKIPN P1,CHNTAB(T1) ;OK. GET CHNTAB ENTRY
RETERR (DIAG14) ;NOTHING THERE
MOVE T2,CDBSTS(P1) ;GET STATUS WORD
TXNN T2,CS.CIP ;CI CHAN?
RETERR(DIAG14) ;NOPE
AOBJP P4,DIGER ;POINT TO ENABLE/DISABLE WORD
UMOVE T3,(P4) ;GET IT
SKIPE T3 ;TRYING TO ENABLE DGASCU?
IFSKP.
;Enabling DGASCU for the CI
MOVX T1,CS.DEN!CS.MAI!CS.OFL ;YES, SET ENABLE-DGASCU,
IORM T1,CDBSTS(P1) ; MAINTENANCE, AND OFF-LINE
CALL KLPEAC ;(P1) TELL KLIPA DRIVER
ELSE.
;Disabling DGASCU for the CI
TXNE T2,CS.MRQ ;TRYING TO DISABLE IT. DIAG HAVE CHAN?
RETERR (DIAG20) ;YES. CAN'T DO SO
CALL KLPDAC ;(P1) TELL KLIPA DRIVER TO START PORT
MOVX T1,CS.DEN!CS.MAI!CS.OFL ;CLEAR ENABLE-DGASCU, OFFLINE,
ANDCAM T1,CDBSTS(P1) ; AND MAINTENANCE
ENDIF.
RET
;DGRMAT - ROUTINE TO REQUEST(READ) MAINTENANCE DATA OF A REMOTE NODE.
; P4/ Argument list pointer
; CALL DGRMAT ;Called via DIAG% dispatch table
;RETURN +1: Always
DGRMAT: STKVAR <RWFLAG,RTDG> ;RWFLAG 0 = READ MAINT. FUNCTION
;RTDG - ADDRESS OF ROUTINE TO RETURN
; DATAGRAM BUFFER
SETZM RWFLAG
JRST DGSMA1
;DGSMAT - ROUTINE TO SEND(WRITE) MAINTENANCE DATA TO A REMOTE NODE.
; P4/ Argument list pointer
; CALL DGSMAT ;Called via DIAG% dispatch table
;RETURN +1: Always
DGSMAT: STKVAR <RWFLAG,RTDG> ;RWFLAG -1 = WRITE MAINT. FUNCTION
;RTDG - ADDRESS OF ROUTINE TO RETURN DATAGRAM
; BUFFER.
SETOM T1,RWFLAG
DGSMA1: ;COMMON CODE FOR MAINTENANCE DATA (READ/WRITE).
;AC USAGE IS:
;Q1/ CHANNEL,,NODE NO
;Q2/ LOCKED PAGE ADDRESS
;Q3/ BUFFER NAME
;P2/ # OF 8 BIT BYTES
;P3/ ADDRESS TO WRITE/READ
;P4/ JSYS ARGUMENT LIST POINTER
;P5/ USER ADDRESS OF DATA TO BE WRITTEN
; OR ADDRESS TO PLACE DATA THAT HAS
; BEEN READ.
;BEGIN BY CHECKING VARIOUS CI INFORMATION
AOBJP P4,DIGER ;ADJUST ARGUMENT LIST POINTER
CALL PBLESS ;(P4/P1,Q1)IS IT A CI CHANNEL?
RETERR (DIAG14) ;NO.
;PBLESS PUTS CHANNEL ADDRESS IN P1 AND
;CHANNEL NUMBER,,NODE NUMBER IN Q1.
MOVE P3,Q1 ;SAVE Q1
HRRZ Q1,Q1 ;YES. GET NODE NUMBER.
CAIL Q1,0 ;LEGAL NODE NUMBER?
CAIL Q1,C%SBLL ;MAYBE. LEGAL NODE NUMBER?
RETERR (DIAG22) ;NO.
XMOVEI T1,CDBUDB(P1) ;YES. GET START OF SB ADDRESSES.
ADD T1,Q1 ;ADD IN THE NODE NUMBER.
SKIPN P2,(T1) ;IS THERE AN SB?
RETERR (DIAG23) ;NO.
MOVE T1,.SBDPF(P2) ;YES. GET NODE'S FUNCTIONALITY.
;..
SKIPN RWFLAG ;READ OR WRITE?
IFSKP.
TXNN T1,PKSMD ;WRITE. DOES IT SUPPORT A MAINT. DATA WRITE?
RETERR (DIAG24) ;NO.
ELSE.
TXNN T1,PKRMD ;READ. DOES IT SUPPORT A MAINT. DATA READ?
RETERR (DIAG24) ;NO.
ENDIF.
LOAD T1,SBDPS,(P2) ;YES. GET THE PORT STATE.
CAIE T1,PS.UMS ;IS IT IN UNINITIALIZED MAINTENANCE MODE?
RETERR (DIAG25) ;NO.
LOAD T1,SBDRP,(P2) ;YES. GET RESETTING NODE NUMBER.
MOVE T2,CDBNOD(P1) ;GET OUR NODE NUMBER.
CAME T1,T2 ;ARE THEY THE SAME?
RETERR (DIAG25) ;NO. ERROR.
MOVE Q1,P3 ;RESTORE Q1
;NOW CHECK THE USER'S ARGUMENTS.
AOBJP P4,DIGER ;ADJUST THE ARGUMENT LIST POINTER.
UMOVE P2,(P4) ;GET NUMBER OF 8 BIT BYTES TO WRITE/READ
ERJMP [RETERR (ARGX10)] ;RETURN ERROR
CAILE P2,0 ;MUST BE GREATER THAN ZERO
CAILE P2,^D512 ;AND LESS THAN 513.
RETERR (DIAG26) ;IT IS NOT
AOBJP P4,DIGER
UMOVE P3,(P4) ;GET ADDRESS OF DATA TO BE WRITTEN/READ
ERJMP [RETERR (ARGX10)] ;RETURN ERROR
AOBJP P4,DIGER
UMOVE P5,(P4) ;GET USER BUFFER (WRITE/READ)
ERJMP [RETERR (ARGX10)] ;RETURN ERROR
;AT THIS POINT THE CI INFORMATION AND USER
;ARGUMENTS LOOK GOOD. NOW START THE REAL WORK.
CALL DGLOCK ;() GET THE DIAG LOCK AND THIS GOES NOINT
;ALSO AOSE DIAGLK AND DIAGFK/ 0,,FORK N0.
MOVEI T1,1 ;GET ONE BUFFER
CALL SC.ALD ;(T1/T1,T2,T3) GET A BUFFER
JRST [HRLM T1,MAIFLG ;ERROR. SAVE THE ERROR CODE
JRST FIN3] ;GO CLEAN UP LOCK
MOVE Q2,T1 ;SAVE ADDRESS
MOVEM T3,RTDG ;SAVE ROUTINE TO DEASSIGN THE BUFFER.
;Q2 NOW HAS ADDRESS OF BUFFER
MAP T2,(Q2) ;GET PHYSICAL ADDRESS
TLZ T2,777760 ;GET JUST THE ADDRESS
;..
;NOW SET UP THE BUFFER DESCRIPTOR FOR MAPBUF
;THE FIRST FEW LOCATIONS OF THE DATAGRAM
;BUFFER ARE USED FOR THE BUFFER DESCRIPTOR.
;THE REST OF THE DATAGRAM BUFFER IS USED FOR
;THE DMA TRANSFER.
SETZM .MDNXT(Q2) ;GET ONLY ONE BSD
MOVX T1,MD%DIC ;GET IND COM MODE BITS
STOR T1,MD%DMD,.MDFLG(Q2) ;STORE IN BUFFER DESCRIPTOR BLOCK
SKIPE RWFLAG ;READ OR WRITE?
IFSKP.
MOVX T1,SQ%WRT ;READING, ALLOW KLIPA TO WRITE HOST MEMORY
IORM T1,.MDFLG(Q2) ;SET THE WRITEABLE BIT
ENDIF.
MOVE T1,P2 ;GET SIZE (8 BIT BYTES)
MOVEM T1,.MDSSD+.MDLEN(Q2) ;STORE IN BUFFER DESCRIPTOR BLOCK
XMOVEI T1,.MDSSD+.MDLSD+1(T2) ;GET ADDRESS OF SEGMENT
MOVEM T1,.MDSSD+.MDADR(Q2) ;STORE IN BUFFER DESCRIPTOR BLOCK
SETZM .MDSSD+.MDLSD(Q2) ;ZERO LAST WORD OF BUFFER DESCRIPTOR
BLCAL. (MAPBUF,<Q2>) ;/(T1) SET THE BHD AND BSD; GET BUFFER NAME
JRST [HRLM T1,MAIFLG ;SAVE THE ERROR CODE.
JRST FIN2] ;CLEAN UP IF ERROR
MOVE Q3,T1 ;SAVE BUFFER NAME
SKIPN RWFLAG ;WRITE OR A READ?
IFSKP.
MOVE T1,P2 ;WRITE. GET NUMBER OF BYTES TO TRANSFER
TRZE T1,3 ;NEED TO ROUND UP
ADDI T1,4 ;YES.
LSH T1,-2 ;NUMBER OF WORDS TO BLT(4 BYTES PER WORD)
MOVE T2,P5 ;GET SOURCE ADDRESS
XCTU [SKIP (T2)] ;IS USER ADDRESS VALID?
ERJMP ADDER0 ;NO. GO CLEAN UP
ADD T2,T1 ;GET ENDING USER ADDRESS
XCTU [SKIP (T2)] ;IS USER ADDRESS VALID?
ERJMP ADDER0 ;NO. GO CLEAN UP
MOVE T2,P5 ;GET SOURCE ADDRESS AGAIN
XMOVEI T3,.MDSSD+.MDLSD+1(Q2) ;GET DESTINATION
CALL BLTUM ;(T1,T2,T3/)BLT USER DATA TO MONITOR SPACE
ENDIF.
MOVE T1,TODCLK ;GET THE TIME
ADD T1,MAIOTC ;SET THE OVERDUE TIME
MOVEM T1,MAITIM ;SET THE OVERDUE TIMER
SETOM MAIFLG ;SET THE FLAG. -1 MEANS NOT COMPLETED.
;0 MEANS COMLETED.
;1 MEAND COMPLETED WITH ERROR.
LSH P3,4 ;PUT BITS IN POSITION THAT SNDMAI/REQMAI NEEDS.
;..
SKIPN RWFLAG ;READ OR WRITE?
IFSKP.
;BLCAL (SNDMAI,<SEND NAME,REC NAME,SEND OFFSET,
; RECEIVE OFFSET,NODE AND CHANNEL>)
BLCAL. (SNDMAI,<Q3,P3,[0],[0],Q1>) ;WRITE.
JRST [HRLM T1,MAIFLG ;SAVE THE ERROR CODE.
JRST FIN1] ;ERROR ONLY IF UNABLE TO GET A BUFFER
ELSE.
;BLCAL (REQMAI,<SEND NAME,REC NAME,SEND OFFSET,
; RECEIVE OFFSET,NODE AND CHANNEL>)
BLCAL. (REQMAI,<P3,Q3,[0],[0],Q1>) ;READ.
JRST [HRLM T1,MAIFLG ;SAVE THE ERROR CODE
JRST FIN1] ;ERROR ONLY IF UNABLE TO GET A BUFFER
ENDIF.
CALL MAIRWT ;() GO WAIT FOR THE WRITE TO FINISH
JRST [SKIPG MAIFLG ;TIMED OUT OR FINISHED WITH ERROR?
MOVEI T1,DIAG27 ;TIMED OUT.
MOVEI T1,DIAG30 ;FINISHED WITH ERROR.
HRLM T1,MAIFLG ;SAVE ERROR CODE.
JRST .+1] ;CONTINUE ON.
SKIPE RWFLAG ;WRITE OR A READ?
IFSKP.
;READ. TRY TO TRANSER DATA TO USER, EVEN
;IF THERE IS AN ERROR.
MOVE T1,P2 ;GET NUMBER OF BYTES TO TRANSFER.
TRZE T1,3 ;NEED TO ROUND UP
ADDI T1,4 ;YES.
LSH T1,-2 ;NUMBER OF WORDS TO BLT(4 BYTES PER WORD)
XMOVEI T2,.MDSSD+.MDLSD+1(Q2) ;GET SOURCE ADDRESS
MOVE T3,P5 ;GET DESTINATION
XCTU [SETMM (T3)] ;IS USER SPACE STARTING ADDRESS VALID
ERJMP ADDER1 ;NO.
ADD T3,T1 ;GET USER SPACE ENDING ADDRESS
XCTU [SETMM (T3)] ;IS USER SPACE ENDING ADDRESS VALID?
ERJMP ADDER1 ;NO.
MOVE T3,P5 ;GET DESTINATION AGAIN
CALL BLTMU ;(T1,T2,T3/) BLT DATA TO USER SPACE
ENDIF.
JRST FIN0 ;GO AND CLEAN UP
ADDER0: MOVEI T1,ARGX10 ;INVALID ADDRESS FOR BLTUM
HRLM T1,MAIFLG ;SAVE ERROR CODE
JRST FIN1 ;GO CLEAN UP
ADDER1: MOVEI T1,ARGX10 ;INVALID ADDRESS FOR BLTMU
HRLM T1,MAIFLG ;SAVE ERROR CODE
JRST FIN0 ;GO CLEAN UP
;..
;CLEAN UP
FIN0: CALL MAICLO ;(Q3,P1/) CLOSE BUFFER
FIN1: BLCAL. (UMAP,<Q3>) ;CLEAN UP THE BHD AND BSD. Q3 HAS BUFFER NAME.
JRST [HRLM T1,MAIFLG ;SAVE THE ERROR
JRST FIN2]
;CLEAN UP AFTER SUCCESSFUL TRANSFER OR
;AFTER AN UNSUCCESSFUL TRANSFER.
FIN2: MOVE T1,Q2 ;GET THE BUFFER TO RELEASE
MOVE T2,RTDG ;GET ROUTINE TO RELEASE BUFFER
CALL (T2) ;(T1/) GO RELEASE THE BUFFER.
SKIPE MAIFLG ;DID MAINT. OP COMPLETE SUCCESSFUL?
IFSKP.
SETZM MAIFLG ;YES.
CALL DGUNLK ;() UNLOCK THE DIAG LOCK
OKINT
RET
ENDIF.
FIN3: MOVE Q1,MAIFLG ;SAVE THE ERROR CODE
CALL DGUNLK ;() UNLOCK THE DIAG LOCK
OKINT
HLRZ T1,Q1 ;GET THE ERROR CODE
RETERR ()
ENDSV.
ENDSV.
;MAIRWT - SCHEDULER TEST FOR THE CI MAINTENANCE DATA FUNCTIONS
; CALL MAIRWT
;RETURN +1: ERROR, EITHER TIMED OUT OR MUTILPLE MCNFS
;RETURN +2: FUNCTION HAS COMPLETED
;MAITIM WILL HAVE THE OVERDUE TIME. MAIFLG WILL BE A FLAG WORD.
;WHEN THE MCNF IS RECEIVED, MAIFLG WILL BE INCREMENTED.
;IF PHYKLP GETS A MCNF WHILE MAITIM IS ZERO, IT WILL
;BE TREATED AS A SPURIOUS INTERUPT, BUT IT COULD ALSO BE A LATE MAINT.
;DATA OPERATION.
;FOR THE TIMING FUNCTION MAIFLG WILL HAVE THE FOLLOWING MEANINGS
; -1 THE INITIAL VALUE AND IMPLIES THAT THE MAINTENANCE DATA OPERATION
; HAS NOT COMPLETED
; 0 MAIFLG IS SET TO ZERO ON SUCCESSFUL COMPLETION.
; 1 OPERATION HAS COMPLETED BUT AN ERROR HAS BEEN DETECTED. ERROR
; IS INDICATED IN THE STATUS FIELD OF THE RETURNED COMMAND PACKET.
;FOLLOWING THE TIMING FUNCTION,MAIFLG MAY LOOK LIKE
; ERROR CODE,,X THE ERROR CODE ON VARIOUS FAILURES WILL
; BE STORED IN THE LEFT HALF. THE RIGHT HALF IS INDETERMINATE.
; 0,,X IN WHICH CASE X NUMBER OF MCNFS WERE RECEIVED.
MAIRWT: MOVEI T1,MAIRTS ;GET WAIT ROUTINE
MDISMS ;WAIT
SETZM MAITIM ;INDICATE THAT NO MCNFS ARE NOW EXPECTED.
SKIPE MAIFLG ;0 IMPLIES READ HAS FINISHED.
RET ;DID NOT COMPLETE. PROBABLY TIMED OUT.
RETSKP ;MAINT. OPERATION COMPLETED
;MAIRTS - ACTUAL SCHEDULER TEST INVOKED BY MDISMS FROM MAIRWT.
MAIRTS: SKIPL MAIFLG ;MAINT. OPERATION COMPLETED?
JRST 1(T4) ;YES.
MOVE T1,TODCLK ;NO. CHECK OVERDUE TIMER.
CAMG T1,MAITIM ;OVERDUE?
JRST 0(T4) ;NO. WAIT SOME MORE
JRST 1(T4) ;YES.
;MAICLO - ROUTINE TO TELL KLIPA TO CLOSE THE BUFFER SO THAT THE KLIPA WILL
;DELETE THE OPERATION FROM ITS QUEUES.
; CALL MAICLO
;RETURN +1: ALWAYS
MAICLO: SAVEQ
MAICL1: CALL PPDGDB ;(P1/Q1) GET BUFFER FOR CLOSE BUFFER FUNCTION
JRST CLOERR ;FAILED. GO WAIT A BIT BEFORE TRYING AGAIN.
MOVE T1,Q3 ;GET BUFFER NAME
MOVE Q3,CDBPCB(P1) ;GET PCB ADDRESS
SETZM MAICLF ;ZERO THE FLAG. GT 0 = COMPLETE.
MOVEM T1,MAICLN ;SAVE THE BUFFER NAME FOR THE WAIT ROUTINE.
BLCAL. (CLOBUF,<T1,Q2,Q3>) ;CLOSE THE BUFFER. T1= BUFFER NAME
;Q1= NODE NUMBER,Q2=BUFFER ADDRESS,Q3=PCB
JFCL 0 ;CLOBUF RETURNS +2 ALWAYS
MOVE T1,TODCLK ;GET THE TIME
ADD T1,MACLOT ;SET THE OVERDUE TIME.
MOVEM T1,MAICLT ;STORE THE OVERDUE TIME
CALL MAIWA1 ;() WAIT FOR THE CLOSE BUFFER OP TO COMPLETE.
BUG. (INF,MACBTO,DIAG,HARD,<DIAG - Close buffer timed out>,,<
Cause: The DIAG close buffer operation has timed out before completion.
>)
RET ;EITHER TIMED OUT OR SUCCESSFUL.
CLOERR: MOVE T1,TODCLK ;FAILED TO GET A BUFFER , WAIT A BIT.
ANDI T1,377777
ADDI T1,^D200
HRL T1,T1
HRRI T1,BLOCKW
HDISMS (200) ;GO WAIT FOR 200 MS.
JRST MAICL1 ;TRY FOR A BUFFER AGAIN
;MAIWA1 - SCHEDULER TEST SET UP TO WAIT FOR THE CLOSE BUFFER (205) OPERATION.
; CALL MAIWA1
;RETURN +1: TIMED OUT
;RETURN +2: COMPLETED CLOSE BUFFER OPERATION
;MAICLF IS THE FLAG TO INDICATE THAT THE OPERATION COMPLETED. MAICLN IS
;THE BUFFER NAME FOR THIS MAINTENANCE OPERATION. THIS NAME IS USED BY THE
;INTERRUPT ROUTINE SPECIFICALLY FOR THIS DIAG%.
;MAICLT HAS THE OVERDUE TIME FOR THIS OPERATION.
MAIWA1: MOVEI T1,MAIWAT ;GET WAIT ROUTINE
MDISMS ;WAIT
SKIPN MAICLF ;TIMED OUT OR COMPLETED?
RET ;TIMED OUT.
RETSKP ;COMPLETED.
;MAIWAT - SCHEDULER TEST ROUTINE FOR THE CLOSE BUFFER (205) OPERATION.
MAIWAT: SKIPE MAICLF ;MAINT. CLOSE BUFFER OPERATION COMPLETED?
JRST 1(T4) ;YES.
MOVE T1,TODCLK ;GET THE TIME
CAMG T1,MAICLT ;PAST THE OVERDUE TIME?
JRST 0(T4) ;NO. WAIT SOME MORE.
JRST 1(T4) ;YES.
;Code for console special funtions. Available only on the 2080.
SWAPCD
DGCNSL:
IFN KLFLG,<RET> ;NO CODE FOR THIS
IFN KCFLG,< ;LOTS FOR THIS
;The first word of the block is the subfunction. Get it and dispatch
AOBJP P4,DIGER ;GET SUBFUNCTION
UMOVE T1,0(P4) ;GET IT
SKIPL T1
CAILE T1,LSFCN-CNFCN-1 ;CHECK FOR VALID FUNCION
RETERR(DIAGX1) ;NO. ERROR THEN
CALLRET @CNFCN(T1) ;DO THE FUNCTION
;Dispatch table for console functions
CNFCN: IFIW!SRPCMD ;DO PSEUDO-COMMAND
IFIW!GETEMM ;GET EMM DATA
IFIW!NBEMM ;ENABLE/DISABLE FOR EMM INTS
IFIW!WRTEMM ;WRITE AN EMM LINE
IFIW!SETDXX ;SET DNxx LINE
LSFCN:
;Action routines for functions
;Send/receive pseudo-command
SRPCMD: STKVAR <<CMDSTR,^D26>,<REPSTR,^D103>,REPCNT>
AOBJP P4,DIGER ;IF NO COMMAND, ERROR
MOVE T1,P4 ;SAVE POINTER TO COMMAND STRING
SETZM REPCNT ;ASSUME NO REPLY
AOBJP P4,NORET ;IF NOT, GO ON
UMOVE T2,0(P4) ;GET COUNT OF REPLY STRING
MOVEM T2,REPCNT ;SAVE IT
AOBJP P4,DIGER ;GET REPLY STRING
;Here to copy command string
NORET: MOVE T2,[POINT 7,CMDSTR]
MOVEI T3,^D128 ;MAX STRING SIZE
DO.
XCTBUU [ILDB T4,0(T1)] ;GET NEXT BYTE
JUMPE T4,ENDLP. ;IF AT THE END, DONE
IDPB T4,T2 ;STASH IT
SOJG T3,TOP. ;DO THEM ALL
ENDDO.
SETZM T4 ;GET A NULL
IDPB T4,T2 ;MAKE SURE TIED OFF
SUBI T3,^D128 ;COMPUTE BYTES STORED
JUMPE T3,R ;IF NONE, NOTHING TO DO
MOVNS T3 ;GET PROPER SIGN
MOVEI T1,CMDSTR ;GET ADDRESS OF SOURCE
MOVEI T2,REPSTR ;REPLY
TXO T1,<POINT 7,0>
TXO T2,<POINT 7,0> ;MAKE STRING POINTERS
MOVE T3,REPCNT
BLCAL. (CDSCMD,<T1,T2,T3>) ;SEND IT TO THE CONSOLE
;Here with the reply. Send it back if requested
MOVEI T2,REPSTR ;POINT TO START OF STRING
TXO T2,<POINT 7,0>
SKIPE T3,REPCNT ;ANY BYTES?
CAMN T1,T2 ;ANY BYTE SENT BACK?
RET ;NO
DO.
ILDB T4,T2 ;GET A BYTE
XCTBUU [IDPB T4,0(P4)] ;STORE IT
SOJLE T3,R ;IF STRING FULL, RETURN
CAMN T2,T1 ;AT THE END YET?
RET
LOOP. ;NO
ENDDO.
;More action routines for console
;Read EMM data
GETEMM: STKVAR <<EMBLK,4>> ;GET A BLOCK
XMOVEI T1,EMBLK ;GET BLOCK ADDRESS
CALL RDEMMS ;GET EMM DATA
AOBJP P4,DIGER ;GET COUNT OF WORDS WANTED
MOVEI T2,EMBLK ;GET BLOCK
HRLI T2,-4 ;MAX NUMBER TO DO
DO. ;MOVE DATA
MOVE T3,0(T2) ;GET SOME
UMOVEM T3,0(P4) ;STASH IT
AOBJP P4,ENDLP.
AOBJN T2,TOP.
ENDDO.
RET ;AND DONE
;Enable/disable for EMM interrupt
NBEMM: AOBJP P4,DIGER ;BETTER BE AN ARG
UMOVE T2,0(P4) ;ARG
CAILE T2,^D36 ;LEGAL PSI?
RETERR(ARGX01) ;NO
MOVE T1,FORKX ;THIS FORK
CALLRET ENBEMM ;DO ENABLE
;Write EMM line
WRTEMM: AOBJP P4,DIGER
UMOVE T1,0(P4) ;GET EMM NUMBER
AOBJP P4,DIGER
UMOVE T2,0(P4) ;GET VALUE TO WRITE
BLCAL. (CNSEMM,<T1,T2>)
RET ;AND DONE
;Set DNxx line
SETDXX: RET ;NOT HERE YET
> ;IFN KCFLG
RS CNTRLK ;FLAG FOR READING PERFORMANCE COUNTER
TNXEND
END