Google
 

Trailing-Edge - PDP-10 Archives - bb-m080w-sm_t20_v7_0_02_mon_src_mod - monitor-sources/dtesrv.mac
There are 49 other files named dtesrv.mac in the archive. Click here to see a list.
; Edit= 9020 to DTESRV.MAC on 8-Nov-88 by LOMARTIRE
;Merge Production changes to BUG text
; Edit= 8889 to DTESRV.MAC on 12-Aug-88 by RASPUZZI
;Update BUG. documentation.
; Edit= 8836 to DTESRV.MAC on 27-Apr-88 by GSCOTT (TCO 7.1280)
; UPD ID= 8706, RIP:<7.MONITOR>DTESRV.MAC.9,  25-Apr-88 13:41:39 by GSCOTT
;TCO 7.1280 - Remove edit 7449 (fix to power fail restart on DN60s), since 
; you can't reliably load a DN60 with edit 7449 installed.   A better fix
; will follow at some future time.
; UPD ID= 8660, RIP:<7.MONITOR>DTESRV.MAC.8,  22-Feb-88 18:48:22 by GSCOTT
;TCO 7.1235 - Run SETSPD at offset 1 in entry vector.
; UPD ID= 8510, RIP:<7.MONITOR>DTESRV.MAC.7,   9-Feb-88 15:04:54 by GSCOTT
;TCO 7.1219 - Front end dumps should go to BS:<SYSTEM>
; UPD ID= 8509, RIP:<7.MONITOR>DTESRV.MAC.6,   9-Feb-88 15:00:00 by GSCOTT
;TCO 7.1218 - Update copyright notice.
; UPD ID= 8411, RIP:<7.MONITOR>DTESRV.MAC.5,   4-Feb-88 11:10:55 by GSCOTT
;TCO 7.1210 - Set DN20ST, DTECGB, DTEERR, DTEIDP, DTEIPR, DTEKPA, DTELDB,
; DTELPI, DTEP2S, DTESUI, DTETIP, DTETPR, DTEWAT, INDCNT to be not normally
; dumpable.
; UPD ID= 114, RIP:<7.MONITOR>DTESRV.MAC.3,  15-Sep-87 18:56:00 by GSCOTT
;TCO 7.1056 - Output "[DECSYSTEM-20 continued]" message to 20F lines only
; *** Edit 7449 to DTESRV.MAC by PRATT on 15-Apr-87, for SPR #20974
; Fix DTBELL in DN60 code to not cause SKDCL1s during powerfail restart 
; *** Edit 7407 to DTESRV.MAC by MCCOLLUM on 29-Dec-86
; Remove FEZDSN BUGCHK. It comes up for every non-existent FE drive. 
; *** Edit 7396 to DTESRV.MAC by MCCOLLUM on 18-Nov-86, for SPR #21429
; Issue BUGCHK in FEDLOP if the FE reports a drive serial number of zero. 
; *** Edit 7226 to DTESRV.MAC by GRANT on 14-Jan-86, for SPR #20842
; Prevent KPALVH BUGHLT when DTEN is changed 
; Edit 7154 to DTESRV.MAC by GRANT on 15-Oct-85
; Fix bug which prevents monitor from finding all the disks ported to the FE. 
;Move table FEDSKT to STG.MAC and fix routine FEDISK.
; UPD ID= 2069, SNARK:<6.1.MONITOR>DTESRV.MAC.57,   3-Jun-85 14:33:08 by MCCOLLUM
;TCO 6.1.1406  - Update copyright notice.
; UPD ID= 2016, SNARK:<6.1.MONITOR>DTESRV.MAC.56,  28-May-85 12:05:14 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1987, SNARK:<6.1.MONITOR>DTESRV.MAC.55,  17-May-85 15:52:50 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1943, SNARK:<6.1.MONITOR>DTESRV.MAC.54,   9-May-85 17:04:02 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1896, SNARK:<6.1.MONITOR>DTESRV.MAC.53,   4-May-85 15:54:33 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1876, SNARK:<6.1.MONITOR>DTESRV.MAC.52,   4-May-85 11:59:28 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1833, SNARK:<6.1.MONITOR>DTESRV.MAC.51,  26-Apr-85 09:51:07 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1712, SNARK:<6.1.MONITOR>DTESRV.MAC.50,   5-Apr-85 13:57:46 by MCCOLLUM
;TCO 6.1.1238 - Fix BUG. documentation
; UPD ID= 1648, SNARK:<6.1.MONITOR>DTESRV.MAC.49,  18-Mar-85 14:55:24 by PALMIERI
;Use MCBDBG instead of FTDEBUG
;Don't call DNADLL if no callback ID
; UPD ID= 1619, SNARK:<6.1.MONITOR>DTESRV.MAC.48,  12-Mar-85 13:39:40 by PALMIERI
; TCO 6.1.1231
; Don't issue DTETPR if running DECnet protocol
; Add DTBUGX - If zero DTESUI, DN20ST, and DTETPR will be skipped for MCB DTEs
; UPD ID= 1523, SNARK:<6.1.MONITOR>DTESRV.MAC.47,  13-Feb-85 17:36:30 by PALMIERI
;Don't issue DN20ST or DTESUI if procotol is MCB
;Put BUGINF DTEWAT under FTDEBUG
; UPD ID= 1141, SNARK:<6.1.MONITOR>DTESRV.MAC.46,   3-Dec-84 17:28:46 by GLINDELL
;D36COM is now in XCDSEC
; UPD ID= 922, SNARK:<6.1.MONITOR>DTESRV.MAC.45,  24-Oct-84 09:48:24 by PALMIERI
;Check to see if protocol is already running at DTDINI
; UPD ID= 786, SNARK:<6.1.MONITOR>DTESRV.MAC.41,   4-Sep-84 14:43:33 by PALMIERI
;Merge from M60:
; UPD ID= 4758, SNARK:<6.MONITOR>DTESRV.MAC.106,  27-Aug-84 11:31:35 by HAUDEL
;TCO 6.2199 - Add conditional assembly bughlt (SETSPF) under DTESW for
;a SETSPD failure after a FE reload.
; UPD ID= 745, SNARK:<6.1.MONITOR>DTESRV.MAC.40,  20-Aug-84 17:17:13 by TBOYLE
;Update TAKSTF for extended SYSERR (from m60:) It goes temporarily EA.ENT
; UPD ID= 735, SNARK:<6.1.MONITOR>DTESRV.MAC.39,  10-Aug-84 14:13:11 by GLINDELL
;Merge from M60:
; UPD ID= 4558, SNARK:<6.MONITOR>DTESRV.MAC.104,  18-Jul-84 16:41:49 by MCLEAN
;ADD FESER BIT TO INDICATE SERIAL NUMBERS FROM F/E HAVE ARRIVED
; UPD ID= 4553, SNARK:<6.MONITOR>DTESRV.MAC.103,  18-Jul-84 10:34:54 by MCLEAN
;ADD FE REPORTED DISK SERVICE
; UPD ID= 4513, SNARK:<6.MONITOR>DTESRV.MAC.102,  13-Jul-84 19:16:58 by PURRETTA
;Update copyright notice
; UPD ID= 4351, SNARK:<6.MONITOR>DTESRV.MAC.101,  15-Jun-84 16:37:01 by MCLEAN
;ADD TABLE ENTRY AND IGNORE SERIAL NUMBER STUFF
; UPD ID= 645, SNARK:<6.1.MONITOR>DTESRV.MAC.38,  29-Jun-84 15:25:45 by PALMIERI
;Change the way buffers are returned when DTE is cleared
; UPD ID= 638, SNARK:<6.1.MONITOR>DTESRV.MAC.37,  25-Jun-84 15:39:59 by PALMIERI
;Make sure CLRMCB is called each time the MCB line is halted
; UPD ID= 629, SNARK:<6.1.MONITOR>DTESRV.MAC.36,  18-Jun-84 13:32:47 by PALMIERI
;Don't check callback ID for non-zero at CALDVR
; UPD ID= 587, SNARK:<6.1.MONITOR>DTESRV.MAC.35,   1-Jun-84 10:09:52 by PALMIERI
;Use a safer AC at DTEQ14 45
; UPD ID= 583, SNARK:<6.1.MONITOR>DTESRV.MAC.34,  31-May-84 15:24:24 by PALMIERI
;At DTEQ13-15 or so, Don't put message pointer into QCOD if DN60 (MCB only)
; UPD ID= 548, SNARK:<6.1.MONITOR>DTESRV.MAC.33,  23-May-84 21:37:11 by PALMIERI
;Don't init protocol when opening MCB circuit, return MB when closing
; UPD ID= 542, SNARK:<6.1.MONITOR>DTESRV.MAC.32,  23-May-84 07:48:36 by MCINTEE
;Merge from M60:
; UPD ID= 4129, SNARK:<6.MONITOR>DTESRV.MAC.100,  25-Apr-84 11:09:06 by LOMARTIRE
;TCO 6.2046 - Adjust CALL RUNDII to use new argument format
; UPD ID= 484, SNARK:<6.1.MONITOR>DTESRV.MAC.31,  30-Apr-84 13:03:21 by PALMIERI
;Change to new DNADLL interface
; UPD ID= 344, SNARK:<6.1.MONITOR>DTESRV.MAC.30,  24-Feb-84 13:26:21 by PALMIERI
;Update for use with DNADLL
; UPD ID= 338, SNARK:<6.1.MONITOR>DTESRV.MAC.29,  20-Feb-84 09:04:18 by MCINTEE
;More of previous
; UPD ID= 337, SNARK:<6.1.MONITOR>DTESRV.MAC.28,  20-Feb-84 07:39:47 by MCINTEE
;Fix another ELORC bug.
; UPD ID= 334, SNARK:<6.1.MONITOR>DTESRV.MAC.27,  14-Feb-84 12:44:55 by MCINTEE
;Clean up previous
; UPD ID= 333, SNARK:<6.1.MONITOR>DTESRV.MAC.26,  14-Feb-84 12:25:44 by MCINTEE
;Fix ELORC bug.
; UPD ID= 316, SNARK:<6.1.MONITOR>DTESRV.MAC.25,   8-Feb-84 16:48:17 by PALMIERI
;Account for byte pointer overflow at CPYMS3-1
; UPD ID= 315, SNARK:<6.1.MONITOR>DTESRV.MAC.24,   8-Feb-84 11:00:59 by MCINTEE
;More FTPARANOID ELORC tracing.
; UPD ID= 306, SNARK:<6.1.MONITOR>DTESRV.MAC.23,  26-Jan-84 09:19:10 by MCINTEE
;Touch message blocks for MCB protocol in the ELORC quest. (Under FTPARANOID)
; UPD ID= 271, SNARK:<6.1.MONITOR>DTESRV.MAC.22,   7-Dec-83 10:02:34 by MCINTEE
;Typo in previous edit
; UPD ID= 270, SNARK:<6.1.MONITOR>DTESRV.MAC.21,   7-Dec-83 09:14:47 by MCINTEE
;Range check in DTEDSP - on failure, return.
; UPD ID= 266, SNARK:<6.1.MONITOR>DTESRV.MAC.20,   5-Dec-83 09:25:44 by MCINTEE
;Merge from M60:
; UPD ID= 3243, SNARK:<6.MONITOR>DTESRV.MAC.99,   1-Dec-83 12:57:08 by MCINTEE
;TCO 6.1889 - Fix sanity check in RELNOD. Also give the unnamed BUGHLT a name.
; UPD ID= 3156, SNARK:<6.MONITOR>DTESRV.MAC.98,  15-Nov-83 14:14:02 by PRATT
;TCO 6.1796 - ERJMP after "[DECSYSTEM-20 continued]" TTMSG
; UPD ID= 234, SNARK:<6.1.MONITOR>DTESRV.MAC.19,   7-Nov-83 12:29:37 by MCINTEE
;In DTDHLT, call CLRDT0 instead of CLRDTE for safety.
; UPD ID= 225, SNARK:<6.1.MONITOR>DTESRV.MAC.18,  26-Oct-83 18:35:34 by GROSSMAN
;WORK:<GROSSMAN.BUILD>DTESRV.MAC.17 26-Oct-83 18:32:01, Edit by GROSSMAN
;Merge in fixes for QP2 (MCB) protocol initialization.  This makes DTESRV
;do a KI.PRU when the first incoming message occurs, instead of just after
;the handshake is completed.
; UPD ID= 216, SNARK:<6.1.MONITOR>DTESRV.MAC.17,  10-Oct-83 14:02:05 by MCINTEE
;UPDATE FROM M60:
; UPD ID= 3016, SNARK:<6.MONITOR>DTESRV.MAC.97,  10-Oct-83 13:22:00 by MOSER
;MORE TCO 6.1816 - REMOVE EDIT FROM DTESRV. MAKE WORD RESIDENT IN STG
; UPD ID= 2980, SNARK:<6.MONITOR>DTESRV.MAC.96,   4-Oct-83 15:07:53 by MOSER
;TCO 6.1816 - FIX PITRAP
; UPD ID= 198, SNARK:<6.1.MONITOR>DTESRV.MAC.16,  25-Aug-83 08:01:13 by MCINTEE
;Add an EA.ENT
; UPD ID= 190, SNARK:<6.1.MONITOR>DTESRV.MAC.15,   4-Aug-83 15:04:27 by MCINTEE
;Merge from SNARK:<6.MONITOR>
; UPD ID= 2783, SNARK:<6.MONITOR>DTESRV.MAC.94,   2-Aug-83 15:13:15 by HALL
;Cosmetic stuff -- improve the comments
; UPD ID= 2595, SNARK:<6.MONITOR>DTESRV.MAC.93,  20-Jun-83 10:36:48 by HALL
;TCO 6.1689 - Move fork tables to extended section
;	Reference FKJOB via DEFSTR
; UPD ID= 108, SNARK:<6.1.MONITOR>DTESRV.MAC.13,  21-Apr-83 10:35:06 by MCINTEE
;Redo CPYMSG & SKVER2
; UPD ID= 101, SNARK:<6.1.MONITOR>DTESRV.MAC.12,   7-Apr-83 14:51:59 by MCINTEE
; Fix previous edit
; UPD ID= 100, SNARK:<6.1.MONITOR>DTESRV.MAC.11,   7-Apr-83 13:54:38 by MCINTEE
;Add BUGINFs telling about FE reloads.
; UPD ID= 99, SNARK:<6.1.MONITOR>DTESRV.MAC.10,   7-Apr-83 13:09:44 by MCINTEE
;In BTIPR, clean out output queue before initializing protocol.
; UPD ID= 92, SNARK:<6.1.MONITOR>DTESRV.MAC.9,  28-Mar-83 07:49:42 by MCINTEE
;In DTINMC, make ASGRES give section 0 buffers
; UPD ID= 90, SNARK:<6.1.MONITOR>DTESRV.MAC.8,  25-Mar-83 14:37:10 by MCINTEE
;before reloading a FE for keep-alive, BUGINF.
; UPD ID= 2084, SNARK:<6.MONITOR>DTESRV.MAC.92,  25-Mar-83 12:18:13 by WEAVER
;TCO 6.1570 - Change 0DUMP11.BIN to 0DMP11.BIN so name is 6 characters for DDT11
; UPD ID= 89, SNARK:<6.1.MONITOR>DTESRV.MAC.7,  25-Mar-83 07:36:45 by MCINTEE
;At DTDHLT, call DTREST, not DTERST !
; UPD ID= 85, SNARK:<6.1.MONITOR>DTESRV.MAC.6,  22-Mar-83 16:03:50 by MCINTEE
;Still more of 6.1073
; UPD ID= 2047, SNARK:<6.MONITOR>DTESRV.MAC.91,  21-Mar-83 09:56:43 by MCINTEE
;More of TCO 6.1073 - DISPLAY FLAGS FROM BOTH REGIONS
; UPD ID= 1895, SNARK:<6.MONITOR>DTESRV.MAC.90,   1-Mar-83 15:13:15 by GROSSMAN
;TCO 6.1531 - Put operating system type in comm region for front ends.
; UPD ID= 76, SNARK:<6.1.MONITOR>DTESRV.MAC.3,   7-Mar-83 08:18:34 by MCINTEE
;In CLRMCB, put address of buffer in A, not C
; UPD ID= 1796, SNARK:<6.MONITOR>DTESRV.MAC.89,  14-Feb-83 13:51:35 by MURPHY
;TCO 6.1504 - Init FFL before MCENTR at RELOAD.
; UPD ID= 5, SNARK:<6.DECNET>DTESRV.MAC.2,   8-Dec-82 14:20:42 by MCINTEE
;Problems in DTINMC - no more DECNET free pool, restore DTE #
; UPD ID= 1474, SNARK:<6.MONITOR>DTESRV.MAC.88,  23-Nov-82 13:33:30 by MCINTEE
;More of TCO 6.1321
; UPD ID= 1474, SNARK:<6.MONITOR>DTESRV.MAC.88,  23-Nov-82 13:33:30 by MCINTEE
;More of TCO 6.1321
; UPD ID= 1449, SNARK:<6.MONITOR>DTESRV.MAC.87,  16-Nov-82 15:25:17 by MCINTEE
;TCO 6.1377 - IFIWs in FNCTBL
; UPD ID= 1442, SNARK:<6.MONITOR>DTESRV.MAC.86,  15-Nov-82 08:49:45 by GRANT
;TCO 6.1010 - IFIWs in DTINI5's literal
; UPD ID= 1353, SNARK:<6.MONITOR>DTESRV.MAC.85,  19-Oct-82 06:53:51 by GRANT
;TCO 6.1321 - In DOFMCI, put in check for zero byte count
; UPD ID= 1130, SNARK:<6.MONITOR>DTESRV.MAC.84,   1-Sep-82 15:58:32 by HALL
;TCO 6.1245 - Fix RELOAD getting into section 0
; UPD ID= 928, SNARK:<6.MONITOR>DTESRV.MAC.83,  14-Jun-82 07:15:46 by MILLER
; UPD ID= 927, SNARK:<6.MONITOR>DTESRV.MAC.82,  13-Jun-82 20:56:59 by MILLER
;Additional fix for 5.1735. Restore a missing line
; UPD ID= 926, SNARK:<6.MONITOR>DTESRV.MAC.81,  12-Jun-82 20:08:59 by MILLER
;TCO 6.1168. Return input buffers on FE crash
; UPD ID= 925, SNARK:<6.MONITOR>DTESRV.MAC.80,  12-Jun-82 19:56:35 by MILLER
;TCO 5.1735. Fix DTEIOP
; UPD ID= 928, SNARK:<6.MONITOR>DTESRV.MAC.83,  14-Jun-82 07:15:46 by MILLER
; UPD ID= 927, SNARK:<6.MONITOR>DTESRV.MAC.82,  13-Jun-82 20:56:59 by MILLER
;Additional fix for 5.1735. Restore a missing line
; UPD ID= 926, SNARK:<6.MONITOR>DTESRV.MAC.81,  12-Jun-82 20:08:59 by MILLER
;TCO 6.1168. Return input buffers on FE crash
; UPD ID= 925, SNARK:<6.MONITOR>DTESRV.MAC.80,  12-Jun-82 19:56:35 by MILLER
;TCO 5.1735. Fix DTEIOP
; UPD ID= 876, SNARK:<6.MONITOR>DTESRV.MAC.79,   8-Jun-82 23:25:00 by MURPHY
;TCO 6.1147 - Move bugdefs from BUGS.MAC to here and put them in-line.
; UPD ID= 734, SNARK:<6.MONITOR>DTESRV.MAC.78,  11-May-82 17:45:57 by MURPHY
;More 6.1123 - LODCFE.
; UPD ID= 693, SNARK:<6.MONITOR>DTESRV.MAC.77,   5-May-82 10:43:16 by MCINTEE
;Again more TCO 6.1073 - less data in DTEMCC - BUG max. = 4
; UPD ID= 689, SNARK:<6.MONITOR>DTESRV.MAC.76,   4-May-82 18:02:55 by MURPHY
;TCO 6.1123 - Timeout CTY activity, reload FE if no CTY output.
; UPD ID= 676, SNARK:<6.MONITOR>DTESRV.MAC.75,   3-May-82 11:21:59 by MCINTEE
;Still more TCO 6.1073 - more data in DTEMCC (CMTST & CML11)
; UPD ID= 643, SNARK:<6.MONITOR>DTESRV.MAC.74,  14-Apr-82 15:15:42 by MCINTEE
;More TCO 6.1073 - put more of lost interrupt polling under CHNOFF, and
;     put more data in DTEMCC (CMINI bit)
; UPD ID= 578, SNARK:<6.MONITOR>DTESRV.MAC.73,   2-Apr-82 14:10:01 by MURPHY
;Ditto.  Get rid of brackets in comments.
; UPD ID= 576, SNARK:<6.MONITOR>DTESRV.MAC.72,   1-Apr-82 21:40:20 by MURPHY
;TCO 6.1074 - Revise build procedures.  Assemble for KL only.
; UPD ID= 546, SNARK:<6.MONITOR>DTESRV.MAC.71,  22-Mar-82 10:06:36 by MCINTEE
;TCO 6.1073 - check for 0 bytes to -10 transfer in MCB protocol
; UPD ID= 428, SNARK:<6.MONITOR>DTESRV.MAC.70,   1-Mar-82 09:43:08 by GRANT
;TCO 5.1741 - CHECK FOR 0 FORWARD POINTER IN ASGND2
; UPD ID= 427, SNARK:<6.MONITOR>DTESRV.MAC.69,  26-Feb-82 14:09:55 by PLATUKIS
; TCO 5.1738 - clear CMTOT in COMM region in routine DN10MC
; UPD ID= 386, SNARK:<6.MONITOR>DTESRV.MAC.68,   5-Feb-82 16:30:46 by SOUTH
;TCO 5.1720 - fix DN60 protocol race.
; UPD ID= 375, SNARK:<6.MONITOR>DTESRV.MAC.67,   2-Feb-82 10:54:01 by PLATUKIS
;TCO 5.1715 - fix loops at DTINM1+1 and DTINM2+1
; UPD ID= 369, SNARK:<6.MONITOR>DTESRV.MAC.66,   1-Feb-82 15:52:23 by GRANT
;One more try at TCO 5.1711
; UPD ID= 367, SNARK:<6.MONITOR>DTESRV.MAC.65,   1-Feb-82 13:16:57 by GRANT
;Typo in previous edit
; UPD ID= 365, SNARK:<6.MONITOR>DTESRV.MAC.64,   1-Feb-82 09:08:25 by GRANT
;TCO 5.1711 - Under DTESW, zero packet header when it gets assigned
; UPD ID= 350, SNARK:<6.MONITOR>DTESRV.MAC.63,  25-Jan-82 16:29:07 by MURPHY
;Fix bug in previous; make source identical to 5 where only cosmetically different.
; UPD ID= 329, SNARK:<6.MONITOR>DTESRV.MAC.62,  19-Jan-82 17:23:50 by HALL
;TCO 5.1690 -IN DTSNGL, USE S0.ENT TO GET INTO SECTION 0. CODE WAS RETURNING
;  IN SECTION 0 IF FRONT END WASN'T RUNNING
; UPD ID= 311, SNARK:<6.MONITOR>DTESRV.MAC.61,  18-Jan-82 10:46:14 by PLATUKIS
;TCO 5.1676 - fix loops at RMDNL1 and DOPAG1 to test done after timeup
;TCO 5.1677 - add BOTX20
; UPD ID= 297, SNARK:<6.MONITOR>DTESRV.MAC.60,  13-Jan-82 17:06:28 by GRANT
;More TCO 5.1650 - add checking for NCOMH being good
; UPD ID= 296, SNARK:<6.MONITOR>DTESRV.MAC.59,  13-Jan-82 16:57:01 by PAETZOLD
;TCO 5.1673 - change BOTX16 error to BOTX19
; UPD ID= 291, SNARK:<6.MONITOR>DTESRV.MAC.58,  11-Jan-82 13:24:22 by GRANT
;More TCO 5.1650
; UPD ID= 274, SNARK:<6.MONITOR>DTESRV.MAC.57,   5-Jan-82 09:40:52 by GRANT
;TCO 5.1650 - Define QINU, use it and some range checking in packet queuing
; UPD ID= 264, SNARK:<6.MONITOR>DTESRV.MAC.56,  20-Dec-81 16:00:56 by GRANT
;TCO 5.1640 - the word DECSYSTEM-20 should not be mixed case
; UPD ID= 254, SNARK:<6.MONITOR>DTESRV.MAC.55,  14-Dec-81 23:03:24 by SOUTH
; one more error exit in DN60 protocol
; UPD ID= 253, SNARK:<6.MONITOR>DTESRV.MAC.54,  14-Dec-81 20:23:21 by SOUTH
; put back 6.1045 for DN60 protocol only
; UPD ID= 252, SNARK:<6.MONITOR>DTESRV.MAC.53,  14-Dec-81 08:51:55 by SOUTH
; remove 6.1045 for decnet.
; UPD ID= 246, SNARK:<6.MONITOR>DTESRV.MAC.52,  10-Dec-81 23:27:53 by SOUTH
; morest 6.1044 - fix interference of time outs for waiting forks
; UPD ID= 245, SNARK:<6.MONITOR>DTESRV.MAC.51,  10-Dec-81 23:06:56 by SOUTH
; morer 6.1044 - change death test for waiting forks
; UPD ID= 244, SNARK:<6.MONITOR>DTESRV.MAC.50,  10-Dec-81 20:42:22 by SOUTH
; more 6.1044 - get it right this time.
; UPD ID= 241, SNARK:<6.MONITOR>DTESRV.MAC.49,   9-Dec-81 18:32:05 by SOUTH
; TCO 6.1045 - at DTINM1 and DTINM2 use process dismiss to wait for doorbell
; UPD ID= 238, SNARK:<6.MONITOR>DTESRV.MAC.48,   7-Dec-81 11:43:08 by SOUTH
; TCO 6.1044 - clean up error exits in DN60 protocol.
; UPD ID= 235, SNARK:<6.MONITOR>DTESRV.MAC.47,   5-Dec-81 02:27:03 by SOUTH
; TCO 6.1043 - DEDD60 sets D6%NT6 in D6STS to indicate front end death instead
; of releasing the page...unless there are pending operations
; UPD ID= 234, SNARK:<6.MONITOR>DTESRV.MAC.46,   4-Dec-81 19:38:26 by SOUTH
; TCO 6.1042 - at failure exit of CALL DTEQ after BTD63, change JRST BTD62
; to JRST BTD63
; UPD ID= 225, SNARK:<6.MONITOR>DTESRV.MAC.45,   1-Dec-81 09:51:43 by SOUTH
;TCO 6.1040 - bring release 6 version DN60 protocol up to current release 5
; state.
; UPD ID= 224, SNARK:<6.MONITOR>DTESRV.MAC.44,   1-Dec-81 08:41:43 by PAETZOLD
;TCO 6.1039 - Rework literal with label in RMGRNC
; UPD ID= 188, SNARK:<6.MONITOR>DTESRV.MAC.43,   6-Nov-81 11:12:56 by COBB
;Add an EA.ENT at RELOAD to force SEC1, temporary 'til SFORK code fixed to
;	pick up section # added in UPD ID 172 (MURPHY)
; UPD ID= 180, SNARK:<6.MONITOR>DTESRV.MAC.42,   2-Nov-81 17:00:57 by COBB
;Move S0.ENT to avoid trashing stack at DTEFLO.
; UPD ID= 173, SNARK:<6.MONITOR>DTESRV.MAC.41,  30-Oct-81 11:47:22 by MURPHY
;Set T3 to 0 for CALL DTEQ in DTJZCD.
; UPD ID= 172, SNARK:<6.MONITOR>DTESRV.MAC.40,  30-Oct-81 11:44:55 by MURPHY
;Start RELOAD fork in section 1
; UPD ID= 169, SNARK:<6.MONITOR>DTESRV.MAC.39,  26-Oct-81 11:22:34 by COBB
; UPD ID= 165, SNARK:<6.MONITOR>DTESRV.MAC.38,  23-Oct-81 15:45:00 by COBB
; UPD ID= 161, SNARK:<6.MONITOR>DTESRV.MAC.37,  23-Oct-81 15:14:02 by COBB
; UPD ID= 151, SNARK:<6.MONITOR>DTESRV.MAC.35,  21-Oct-81 14:09:48 by GRANT
;Turn off DTEIPR BUGINF
; UPD ID= 136, SNARK:<6.MONITOR>DTESRV.MAC.34,  19-Oct-81 15:49:33 by COBB
;TCO 6.1029 - CHANGE SE1CAL TO EA.ENT
; UPD ID= 245, SNARK:<5.MONITOR>DTESRV.MAC.33,   5-Oct-81 11:37:13 by HALL
;Fix bug in temporary test routine, JHTEST
; UPD ID= 234, SNARK:<5.MONITOR>DTESRV.MAC.32,  30-Sep-81 09:55:50 by SOUTH
; tco 5.1549 - extend  range of NOINT in DN60 protocol til dte deassigned
;  from fork to protect from asynchronous exits with dte in busy state.
; UPD ID= 231, SNARK:<5.MONITOR>DTESRV.MAC.31,  29-Sep-81 11:26:27 by SOUTH
; tco 5.1546 - patch  mcb error check to avoid checking DN60 messages.
; UPD ID= 218, SNARK:<5.MONITOR>DTESRV.MAC.30,  28-Sep-81 11:01:34 by SOUTH
; tco 5.1536 - insert DN60 protocol (.VND60). All dispatches on CMVRR extended
; to account for it. User access through BOOT jsys function code .BTD60.
; UPD ID= 38, SNARK:<5.MONITOR>DTESRV.MAC.29,  16-Jul-81 12:24:30 by HALL
;TEMPORARY CHECKS FOR RUNNING IN SECTION 0 IN RELOAD
; UPD ID= 2218, SNARK:<5.MONITOR>DTESRV.MAC.28,  19-Jun-81 08:32:24 by GRANT
;Add check in SKVR22 for bad message being sent to DN20
; UPD ID= 2185, SNARK:<5.MONITOR>DTESRV.MAC.27,  11-Jun-81 15:54:10 by MURPHY
;CHANGE TQNx TO TMNx REFLECTING CHANGE IN MACSYM
; UPD ID= 2082, SNARK:<5.MONITOR>DTESRV.MAC.26,  26-May-81 15:13:04 by GRANT
;Add DTEIPR BUGINF for debugging purposes
; UPD ID= 1726, SNARK:<5.MONITOR>DTESRV.MAC.25,  17-Mar-81 15:27:33 by MURPHY
;Change STKVAR to TRVAR in DTEQ
; UPD ID= 1717, SNARK:<5.MONITOR>DTESRV.MAC.23,  16-Mar-81 16:32:28 by MURPHY
;TYPO
; UPD ID= 1711, SNARK:<5.MONITOR>DTESRV.MAC.22,  16-Mar-81 14:37:15 by MURPHY
;Count message buffers in use by each DTE, limit to 1/2 of total
; UPD ID= 1698, SNARK:<5.MONITOR>DTESRV.MAC.21,  13-Mar-81 11:35:27 by MURPHY
;More of the same
; UPD ID= 1635, SNARK:<5.MONITOR>DTESRV.MAC.20,   2-Mar-81 18:01:06 by MURPHY
;Prevent failure of DTEQ at PI level
; UPD ID= 1497, SNARK:<5.MONITOR>DTESRV.MAC.19,  26-Jan-81 13:25:54 by ENGEL
;GET RID OF THE LCS STUFF. NO LONGER PART OF NEXT RELEASE.
; UPD ID= 1470, SNARK:<5.MONITOR>DTESRV.MAC.18,  22-Jan-81 09:21:31 by GRANT
;MAKE ALL DTESW CONDITIONALS CONFORM TO CODING STANDARD
; UPD ID= 1468, SNARK:<5.MONITOR>DTESRV.MAC.17,  21-Jan-81 21:56:35 by GRANT
;PUT CODE IN DOFMCI UNDER DTESW
; UPD ID= 1464, SNARK:<5.MONITOR>DTESRV.MAC.16,  21-Jan-81 11:23:05 by GRANT
;TCO 5.1230 - CHANGE OLD DEBUG SWITCH TO DTESW
; UPD ID= 1435, SNARK:<5.MONITOR>DTESRV.MAC.15,  13-Jan-81 16:22:32 by HALL
;TCO 5.1180 - Clear right half of index register in SEEER2 because fork
; 0 now calls it from section 1
; UPD ID= 1357, SNARK:<5.MONITOR>DTESRV.MAC.14,  16-Dec-80 13:03:38 by GRANT
;TCO 5.1216 - fix free space bug in DOFMCI
; UPD ID= 1344, SNARK:<5.MONITOR>DTESRV.MAC.13,  12-Dec-80 09:15:45 by GRANT
;Add resident free space debugging checks in DN10MC and DOFMCI
; UPD ID= 1303, SNARK:<5.MONITOR>DTESRV.MAC.12,  20-Nov-80 14:36:38 by HALL
;RELOAD - RUN IN SECTION 1 BECAUSE KILPAG LEADS TO GDSTX
; UPD ID= 1080, SNARK:<5.MONITOR>DTESRV.MAC.11,   1-Oct-80 11:43:12 by MURPHY
;FIX ACVAR, ETC.
; UPD ID= 974, SNARK:<5.MONITOR>DTESRV.MAC.10,  29-Aug-80 08:41:38 by ENGEL
;ADD LCS NSP CALLING STUFF
; UPD ID= 913, SNARK:<5.MONITOR>DTESRV.MAC.9,  18-Aug-80 22:30:53 by MURPHY
;TURN ON FE DEBUG MODE MESSAGES
; UPD ID= 904, SNARK:<5.MONITOR>DTESRV.MAC.8,  15-Aug-80 14:34:37 by MURPHY
;DITTO
; UPD ID= 895, SNARK:<5.MONITOR>DTESRV.MAC.7,  14-Aug-80 10:23:27 by MURPHY
;REVISE FE DEBUG MODE
; UPD ID= 891, SNARK:<5.MONITOR>DTESRV.MAC.6,  13-Aug-80 18:17:44 by MURPHY
;Send .DFDBG message depending on state of DBUGSW
; UPD ID= 814, SNARK:<5.MONITOR>DTESRV.MAC.5,  30-Jul-80 11:27:40 by MURPHY
;CHECK DBUGSW BEFORE "CONTINUED" MESSAGE
; UPD ID= 751, SNARK:<5.MONITOR>DTESRV.MAC.4,  11-Jul-80 14:16:28 by MURPHY
;FIX PREV EDIT CODING STYLE
; UPD ID= 722, SNARK:<5.MONITOR>DTESRV.MAC.3,   2-Jul-80 10:45:05 by LYONS
;J0NRUN from DTEQ when RSX is sick. Fork 0 can get blocked at HAVNOD.
; UPD ID= 421, SNARK:<4.1.MONITOR>DTESRV.MAC.63,   8-Apr-80 16:49:28 by KONEN
;Correct TCO 4.1.1059
; UPD ID= 336, SNARK:<4.1.MONITOR>DTESRV.MAC.62,  14-Mar-80 13:52:06 by MILLER
;TCO 4.1.1112. Add CMPCT to RSX20F protocol
; UPD ID= 329, SNARK:<4.1.MONITOR>DTESRV.MAC.61,  13-Mar-80 13:51:43 by KONEN
; UPD ID= 204, SNARK:<4.1.MONITOR>DTESRV.MAC.60,  16-Jan-80 15:07:47 by KONEN
;Make previous edit a little nicer
; UPD ID= 189, SNARK:<4.1.MONITOR>DTESRV.MAC.59,   8-Jan-80 09:37:01 by KONEN
;TCO 4.1.1059 - Add subroutine RMGRNC to call RMGRNK.
; UPD ID= 176, SNARK:<4.1.MONITOR>DTESRV.MAC.58,  21-Dec-79 16:36:42 by GRANT
;ADD DTETBE BUGHLT SYMBOL
;<4.MONITOR>DTESRV.MAC.57, 31-Oct-79 15:55:26, EDIT BY MILLER
;ADD DTEFLA. FLUSH ALL REQUESTS FOR A LINE
;<4.MONITOR>DTESRV.MAC.56, 31-Oct-79 15:23:21, EDIT BY MILLER
;FLUSH DTEQS IN SCHEDULER WHENEVER DTRLD IS SET OR DETECTED ON
;<4.MONITOR>DTESRV.MAC.55, 26-Sep-79 16:13:49, EDIT BY HALL
;LODSEC IN BOOT JSYS - CALL BLTUM1 INSTEAD OF BLTUM FOR EXTENDED
;ADDRESSING
;<4.MONITOR>DTESRV.MAC.54, 26-Sep-79 15:57:14, EDIT BY MILLER
;AVOID AWAKING JOB 0 AT TKACK2 IF DBUGSW IS 2
;<4.MONITOR>DTESRV.MAC.53, 20-Sep-79 12:29:31, EDIT BY MILLER
;ADD RLDFRK
;<4.MONITOR>DTESRV.MAC.52, 20-Sep-79 11:51:10, EDIT BY MILLER
;FIX DNSNGL
;<4.MONITOR>DTESRV.MAC.51, 19-Sep-79 17:05:08, EDIT BY MILLER
;<4.MONITOR>DTESRV.MAC.50, 19-Sep-79 11:25:59, EDIT BY MILLER
;CHECK FOR SINGLE CHAR PACKET IN CLRDTE
;<4.MONITOR>DTESRV.MAC.49, 19-Sep-79 10:43:35, EDIT BY MILLER
;ONE MORE TRY. CLEAR DTERL FIRST
;<4.MONITOR>DTESRV.MAC.48, 14-Sep-79 12:36:12, EDIT BY MILLER
;TCO 4.2467. FIX -11 RELOAD
;<OSMAN.MON>DTESRV.MAC.1, 10-Sep-79 15:27:43, EDIT BY OSMAN
;TCO 4.2412 - Move definition of BUGHLTs, BUGCHKs, and BUGINFs to BUGS.MAC
;<4.MONITOR>DTESRV.MAC.46, 30-Aug-79 19:49:02, EDIT BY MILLER
;FIX CODE AT DTPOL3 TO CALL DOFRGM WITH CORRECT ARGS
;<4.MONITOR>DTESRV.MAC.45,  3-Aug-79 14:32:03, EDIT BY ENGEL
;AVOID NOSKED PAGE FAULT AT PROINI
;<4.MONITOR>DTESRV.MAC.44, 11-Jun-79 17:32:50, Edit by KONEN
;REMOVE CALL TO KILPAG IN UNLPAG
;<4.MONITOR>DTESRV.MAC.43,  9-Jun-79 14:03:59, EDIT BY MILLER
;<4.MONITOR>DTESRV.MAC.42,  9-Jun-79 14:03:07, EDIT BY MILLER
;REPLACE MOST BUGHLTS WITH FE RELOADS.
;<4.MONITOR>DTESRV.MAC.41, 26-May-79 14:05:09, EDIT BY MILLER
;FIX ILULK2 BUGHLTS
;<4.MONITOR>DTESRV.MAC.40, 16-May-79 15:24:47, EDIT BY MILLER
;FIX DTEINA TO NOT WAIT FOREVER FOR TO -11 I/O COMPLETION
;<4.MONITOR>DTESRV.MAC.39, 20-Apr-79 10:23:44, EDIT BY KIRSCHEN
;SAVE ERROR CODE WHEN BOOT FUNCTION FAILS
;<4.MONITOR>DTESRV.MAC.38,  4-Apr-79 14:39:28, EDIT BY MILLER
;<4.MONITOR>DTESRV.MAC.37,  4-Apr-79 13:57:33, EDIT BY MILLER
;ZERO DTEEBP AND DTETBP AT DTREST
;<4.MONITOR>DTESRV.MAC.36, 26-Mar-79 10:09:24, EDIT BY MILLER
;<4.MONITOR>DTESRV.MAC.35, 23-Mar-79 09:28:19, EDIT BY MILLER
;PUT BACK TEST. BLOCK PROCESS IF CALL IS FOR MASTER DTE
;<4.MONITOR>DTESRV.MAC.34, 22-Mar-79 21:12:21, Edit by MCLEAN
;REMOVE JN DTERLD IN DTEQ12 SO WE DON'T LOOSE THINGS DURING RELOAD
;<4.MONITOR>DTESRV.MAC.33,  7-Mar-79 14:46:23, Edit by MCLEAN
;ADD A SETZM  DTECMD TO RELOAD TO PREVENT ILQ FRONT-END HALTS
;<4.MONITOR>DTESRV.MAC.32,  4-Mar-79 15:32:17, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.MONITOR>DTESRV.MAC.31,  4-Mar-79 14:44:33, EDIT BY MILLER
;ADD CODE TO CHECK FOR TO -10 TRANSFER TOO LONG
;<4.MONITOR>DTESRV.MAC.30, 14-Feb-79 16:56:07, EDIT BY MILLER
;<4.MONITOR>DTESRV.MAC.29, 14-Feb-79 16:46:35, EDIT BY MILLER
;SWITCH MEANINGS OF CMPCT AND CMQCT FOR MCB PROTOCOL
;<4.MONITOR>DTESRV.MAC.28,  7-Feb-79 15:42:07, EDIT BY KIRSCHEN
;FIX COMMENT ON DOFRGM
;<4.MONITOR>DTESRV.MAC.27,  1-Feb-79 17:05:35, EDIT BY KIRSCHEN
;DO NOT CLEAR -TO11 BYTE POINTER IN KILPAG; ALREADY CLEARED IN RMGRNK
;<4.MONITOR>DTESRV.MAC.26,  1-Feb-79 16:04:50, EDIT BY MILLER
;ADD DTE NUMBER TO ALL BUGCHK AND BUGINF MESSAGES
;<4.MONITOR>DTESRV.MAC.25, 30-Jan-79 13:47:43, EDIT BY KIRSCHEN
;CLEAR TO-11 BYTE POINTER IN EPT WHEN UNMAPPING DTERBT PAGE
;<4.MONITOR>DTESRV.MAC.24, 30-Jan-79 12:06:00, EDIT BY MILLER
;DON'T CHECK DTERL BIT IN DTEIOP
;<4.MONITOR>DTESRV.MAC.23, 14-Jan-79 15:08:09, Edit by MCLEAN
;REMOVE TTMVSP
;<4.MONITOR>DTESRV.MAC.21, 12-Jan-79 21:06:13, EDIT BY KIRSCHEN
;CHANGE SETZM T4, TO SETZ T4, IN BTCPN
;<4.MONITOR>DTESRV.MAC.20, 21-Dec-78 17:06:15, EDIT BY MILLER
;FIX BOOTTB FOR ILLEGAL FUNCTION TRANSFERS
;<4.MONITOR>DTESRV.MAC.19, 18-Dec-78 16:20:23, EDIT BY ENGEL
;FIX BAD PLACEMENT OF .BTCLI CHECK
;<4.MONITOR>DTESRV.MAC.18, 15-Dec-78 16:29:45, EDIT BY ENGEL
;FIX DTE CHECKING FOR .BTCLI (NOT WANTED)
;<4.MONITOR>DTESRV.MAC.17, 15-Nov-78 20:16:24, EDIT BY MILLER
;CHNAGE RMGRNK TO CLEAR BYTE COUNT REG AND TO -10 POINTER
;<4.MONITOR>DTESRV.MAC.16, 11-Nov-78 18:43:35, Edit by MCLEAN
;<4.MONITOR>DTESRV.MAC.15, 11-Nov-78 18:34:24, Edit by MCLEAN
;MAKE DTEFLO CHECK FOR INTERRUPT ADDRESS INSTEAD OF CODE
;THIS WILL HELP PREVENT MONPDL'S AND PERMIT XON/XOFF TO PASS
;<4.MONITOR>DTESRV.MAC.14,  6-Nov-78 16:29:13, EDIT BY ENGEL
;ADD RETSKP TO BTCPN
;<4.MONITOR>DTESRV.MAC.13,  6-Nov-78 14:27:05, EDIT BY ENGEL
;CHANGE COMPARE IN BTCLI
;<4.MONITOR>DTESRV.MAC.12,  6-Nov-78 11:03:42, EDIT BY ENGEL
;DON'T CHECK FOR NULL IN .BTCLI
;<4.MONITOR>DTESRV.MAC.11, 27-Oct-78 17:45:19, EDIT BY HALL
;FIX THE CHECKS ON Q2 AGAINST DTEN - WENT THE WRONG WAY
;<4.MONITOR>DTESRV.MAC.10, 27-Oct-78 10:10:38, EDIT BY ENGEL
;ADD .BTCLI AND .BTCPN
;<4.MONITOR>DTESRV.MAC.9, 18-Oct-78 14:43:36, EDIT BY KIRSCHEN
;REMOVE .BTLST
;<4.MONITOR>DTESRV.MAC.8, 13-Oct-78 09:07:34, EDIT BY KIRSCHEN
;FIX BOOT JSYS DISPATCH TABLE
;<4.MONITOR>DTESRV.MAC.7,  6-Oct-78 15:01:33, EDIT BY KIRSCHEN
;ADD BTLST FUNCTION TO BOOT JSYS
;<4.MONITOR>DTESRV.MAC.6, 16-Aug-78 11:19:42, EDIT BY MILLER
;FIX PROTOCOL PAUSE ROUTINES NOT TO GET CONFUSED IF IN SECONDARY PROTOCOL
;<4.MONITOR>DTESRV.MAC.5, 27-Jul-78 17:40:48, EDIT BY MILLER
;FIX RELOAD TO TRY MASTER FE AT LEAST 3 TIMES
;<4.MONITOR>DTESRV.MAC.4, 18-Jul-78 08:46:20, EDIT BY MILLER
;MORE OF "CONTINUED" CHANGES
;<4.MONITOR>DTESRV.MAC.3, 17-Jul-78 08:55:20, EDIT BY MILLER
;SUPPRESS "CONTINUED" MESSAGE ON PROTOCOL PAUSE
;<4.MONITOR>DTESRV.MAC.2, 14-Jul-78 13:59:58, EDIT BY MILLER
;MORE FIXES FOR RELAODING A DTE. FIX DTE SCHEDULER SO IT CAN RUN IN SECTION 1

;	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,SERCOD,D36PAR
	TTITLE DTESRV

  IFN KLFLG,<			;CONDITIONAL WHOLE FILE

	RESCD

MAXSGL==6
SNGHDR==3
SNGONQ==1B2
SNGAVL==1B3
SNGACT==1B4


;LOCAL DEFINITIONS FOR RELOAD WAITS

PWRDN1==^D1150			;-11 MUST COMPLETE POWER DOWN IN THIS TIME
ROMTIM==^D2000			;ROM MUST ACK -10 IN THIS TIME
BUTTIM==^D5000			;-11 BOOTSTRAP TRANSFER TIME
DRBTIM==^D60000			;-11 RELOAD TIME
T10TIM==^D3000			;MAX TIME FOR 1K OF -11 CORE TO BE
				; TRANSFERRED TO THE -10
MONPRO==^D5000			;MUST ENTER MONITOR PROTOCOL IN THIS TIME
PRIPRO==^D10000			;MUST ENTER PRIMARY IN THIS TIME
MCINI0==^D1500			;TIME FOR MCB TO INIT COMM REGIONS
MCINI1==^D500			;TIME TO COMPLETE PROTOCOL TRANSITION

	DTENL==^D256		;LINES PER DTE20
	SDTE==3			;SHIFT VALUE FOR DTE UNITS
	MAXINP==^D254		;MAX NUMBER OF BYTES IN AN INDIRECT
				; PACKET WHICH IS EVEN
	DSK11==1B28		;RP RELOAD DEVICE IN -11 ROM

;TEMPORARY DEFINITION OF DECNET BLOCK SIZE

	UBLSIZ==^D600

;SPECIAL DEFINITIONS FOR SCHEDULER PRIORITY WORDS

BOTPRI==1			;SPECIAL PRIORITY WORD FOR BOOT JSYS INIT
RLDPRI==<XWD ^D80,1>		;SPECIAL MASTER -11 RELOAD PRIORITY

;STORAGE USED HEREIN

RS NCOMH,1			;NUMBER OF NODES IN FREE LIST
;DTE SERVICE ROUTINE. THIS CODE CONTAINS THE INITIALIZATION CODE,
;THE QUEUE HANDLING AND SCHEDULING CODE AND THE INTERRUPT HANDLER
;FOR THE DTE.

;LOCAL DEFINITIONS

PVERSN==1			;PROTOCOL VERSION NUMBER
CVERSN==2			;COMMUNICATIONS VERSION NUMBER
LDTEPI==DTEPI0+DLSCHN+DTEPIE	;TURN ON ALL PI'S
MAG11N==1365			;THE RELOAD INDICATOR FOR THE -11 ROM

;DEFINE LOCAL STORAGE

DEFSTR (QLINK,0,35,18)		;LINK TO NEXT PACKET
DEFSTR (QINT,0,17,18)		;INT LOC FOR THIS FUNCTION
DEFSTR (QFNC,1,17,18)		;FUNCTION WORD FOR THIS REQUEST
DEFSTR (QDEV,1,35,18)		;DTE DEVICE CODE FOR THIS REQUEST
DEFSTR (QNSPH,1,35,36)		;FULL WORD FOR NSP BYTE POINTER
DEFSTR (QLIN,2,17,18)		;DEVICE UNIT NUMBER
DEFSTR (QMODE,2,18,1)		;IF ONE, INDIRECT DATA MUST BE BYTE MODE
DEFSTR (QINU,2,19,1)		;PACKET "IN USE" BIT
DEFSTR (QCNT,2,35,16)		;BYTE COUNT OR BYTE OR 0
DEFSTR (QPNTR,3,35,36)		;BYTE POINTER FOR INDIRECT OPERATION
				;OR LOCAL 8-BIT DATUM IF QCNT=0
DEFSTR (QCOD,4,35,36)		;UNIQUE CODE RETURNED TO INTERRUPT
				; ROUTINE

;DTE STATUS DEFINITIONS IN DTESTS


DEFSTR(DTERL,DTESTS,0,1)	;BIT TO SAY DTE IS RUNNING A PROTOCOL
.DTERL==1B0			;so it can be used efficiently
DEFSTR(DTEBF,DTESTS,1,1)	;WHICH BUFFER IS IN USE FOR RSX20F
DEFSTR (DTBLK,DTESTS,2,1)	;FOR MCB, TO -10 IS BLOCKED ON FREE
				; SPACE
DEFSTR(DTRLD,DTESTS,3,1)	;IF ONE, THIS -11 BEING RELOADED
.DTRLD==1B3			;so it can be used efficiently
DEFSTR (DTKAC,DTESTS,4,1)	;IF ONE, THIS -11 IS ILL
DEFSTR (DTSTI,DTESTS,5,1)	;STATUS PACKET IS SPLIT
DEFSTR(DTEB1,DTESTS,17,12)	;BYTE COUNT OF LAST TRANSFER

DEFSTR (DTEBC,DTESTS,29,12)	;BYTE COUNT REMAINING FOR SUBSEQUENT
DEFSTR (DTIPU,DTESTS,31,1)	;Tell DECnet about protocol up on 1st doorbell
DEFSTR (DTEST,DTESTS,35,4)	;DTE STATUS
	DTET10==1		;-10 IS RECIEVING LAST FRAGMENT OF A MESSAGE
	DTE11==2		;-11 IS RECEIVING BYTES
	DTE11I==4		;-11 IS RECEIVING AN INDIRECT QUEUE ENTRY
	DTET1F==10		;10 RECEIVING FIRST FRAFMENT OF
				; A MESSAGE
;PARALLEL STATUS TABLE CONTAINING CURRENT OPERATION DATA

DEFSTR(DT1FC,DTEST1,15,16)	;CURRENT FUNCTION CODE
DEFSTR(DT1DV,DTEST1,31,16)	;CURRENT DEVICE CODE

;SPECIAL REQUEST BITS FOR TO 11 CONDITIONS

DEFSTR(DT1TM,DTEST1,32,1)	;-11 WANTS TIME OF DAY
DEFSTR(DT1ID,DTEST1,33,1)	;WAITING FOR INDIRECT SETUP

DEFSTR(DTBTMR,DTETMR,35,36)	;TIMER VARIABLE
DEFSTR(DTBOBL,DTEOBL,35,36)	;SECTION ZERO OUTPUT BLOCK
DEFSTR(DTBIBL,DTEIBL,35,36)	;SECTION ZERO INPUT BLOCK
DEFSTR(DTBDID,DTEDID,35,36)	;DRIVER PORT IDENTIFIER

;MORE STORAGE DEFINITIONS



;STORAGE FOR INDIRECT PACKETS
	DEFSTR (INUNT,DTEIND,7,8)
	DEFSTR (INCNT,DTEIND,15,8)
	DEFSTR (INVLD,DTEIND,16,1) ;SAYS IF UNIT FIELD IS VALID
;********* FOR MCB, DTEIND CONTAINS FREE SPACE BLOCK ********


;DEFINITIONS FOR DTE PACKETS

DEFSTR (HDCNT,0,15,16)		;COUNT
DEFSTR (HDFNC,0,31,16)		;FUNCTION
DEFSTR (HDDEV,1,15,16)		;DEVICE CODE
DEFSTR (HDSPR,1,31,16)		;SPARE
DEFSTR (HDLIN,2,7,8)		;LINE NUMBER
DEFSTR (HDDAT,2,15,8)		;DATUM
DEFSTR (HDDT1,2,15,16)		;DATUM FOR SINGLE DATUM PACKET
;DEFINE THE COMMUNICATIONS REGION

;FIELD DEFINITIONS FOR THE COMMUNCIATIONS REGION
;FIRST THE OWNED AREA

	DEFSTR (CMTEN,0,0,1)	;TEN INDICATOR IN HEADER
	DEFSTR (CMVER,0,3,3)	;VERSION NUMBER
	DEFSTR (CPVER,0,11,6)	;COMMUNCIATIONS PROTOCOL VERSION NUMBER
	DEFSTR (CMNPR,0,16,5)	;NUMBER OF PROCESSORS HERE
	DEFSTR (CMSIZ,0,19,3)	;SIZE IN MULTIPLES OF 8 WORDS
	DEFSTR (CMNAM,0,35,16)	;PROCESSOR NAME
	DEFSTR (CMLNK,1,35,36)	;POINTER TO NEXT PROCESSOR
	DEFSTR (CMOPS,2,3,4)	;OPERATING SYSTEM TYPE
	DEFSTR (CMCPN,2,35,4)	;CPU NUMBER+1 FOR MULTI-PROCESSORS
	DEFSTR (CMKAC,KPALIV,35,36) ;PROCESSOR KEEP ALIVE COUNTER
		CMPCW==6	;PC WORD
		CMPIWD==7	;CONI PI, WORD
		CMPGWD==10	;CONI PAG, WORD
		CMPDWD==11	;DATI PAG, WORD
		CMAPRW==12	;CONI APR, WORD
		CMDAPR==13	;DATI APR, WORD

;NOW THE "TO" AREA
	DEFSTR (CMPRO,0,0,1)	;1 IF THIS IS CONNECTION TO A -10
	DEFSTR (CMDTE,0,1,1)	;I IF A DTE IS CONNECTING THESE TWO
	DEFSTR (CMDTN,0,3,2)	;DTE NUMBER
	DEFSTR (CMSZ,0,19,3)	;SIZE OF BLOCK/8
	DEFSTR (CMVRR,0,16,5)	;PROTOCOL IN USE BY THE TWO PROCESSORS
	DEFSTR (CMPNM,0,35,16)	;PROCESSOR NUMBER
	DEFSTR (CMPPT,1,35,36)	;POINTER TO ASSOCIATE PROCESSOR
	DEFSTR (CMPWF,2,0,1)	;POWER FAIL INDICATOR
	DEFSTR (CML11,2,1,1)	;LOAD-11 INDICATOR
	DEFSTR (CMINI,2,2,1)	;INI BIT FOR MCB PROTOCOL ONLY
	DEFSTR (CMTST,2,3,1)	;VALID EXAMINE BIT
	DEFSTR (CMQP,2,13,1)	;1 IF USING QUEUED PROTOCOL
	DEFSTR (CMFWD,2,17,1)	;SAYS TO DO FULL WORD TRANSFER
	MSKSTR (CMIP,2,400000)	;INDIRECT POINTER IS SET UP
	MSKSTR (CMTOT,2,200000) ;TOIT BIT
	DEFSTR (CM0IC,2,27,8)	;TO10IC FOR QUEUE TRANSFERS
	DEFSTR (CM1IC,2,35,8)	;TO11IC FOR QUEUE TRANSFERS
	DEFSTR (CMQCT,3,35,16)	;COUNT OF WORDS IN CURRENT QUEUE
	DEFSTR (CMPCT,3,19,16)	;COUNT OF ALL PIECES (OR QUEUES)

;DEFINITIONS FOR PROTOCOL VERSION .VNMCB ONLY

	DEFSTR (CMTMD,3,3,4)	;MODE OF THE TRANSFER
	DEFSTR (CMTBP,4,35,36)	;TO -10 POINTER AT END OF TRANSFER

;COMMON DEFINITIONS

	DEFSTR (CMRLF,4,35,36)	;RELOAD PARAMETER FOR THIS -11
	DEFSTR (CMKAK,5,35,36)	;MY COPY OF HIS CMKAC
	CMCLR1==2		;FIRST DYNAMIC WORD TO CLEAR
	CMCLR2==3		;OTHER WORD TO CLEAR
;FUNCTION TRANSFER VECTOR FOR RSX20F PROTOCOL (.VN20F) ONLY

FNCTBL:	IFIW!TAKCTY		;FE TELLING ABOUT THE CTY
	IFIW!TAKDS		;STRING DATA (FOR CDR)
	IFIW!TAKLC		;LINE CHARACTERS (FOR DLS)
	IFIW!NOOP		;NOT YET IMPLEMENTED
	IFIW!NOOP		;NOT YET IMPLEMENTED
	IFIW!TAKSTD		;-11 SENDING ERROR INFORMATION
	IFIW!NOOP		;UNSUPPORTED
	IFIW!SNDTOD		;-11 WANTS TIME OF DAY
	IFIW!TAKTOD		;-11 IS SENDING TIME OF DAY
	IFIW!NOOP		;FLUSH OUTPUT NOT SUPPORTED
	IFIW!NOOP		;SEND ALL NOT SUPPORTED
	IFIW!DIALUP		;A LINE DIALED UP
	IFIW!HANGUP		;A LINE HUNG UP
	IFIW!EMPTY		;LINE BUFFER EMPTY
	IFIW!NOOP		;XOFF
	IFIW!NOOP		;XON
	IFIW!TAKSPD		;SET LINE SPEED
	IFIW!LINEAL		;SET LINE ALLOCATION
	IFIW!TAKRLW		;TAKE -11 RELOAD INFORMATION
	IFIW!TAKACK		;ACK ALL DEVICES AND UNITS
	IFIW!NOOP		;TURN ON/OFF LINES
	IFIW!NOOP		;ENABLE/DISABLE DATASETS
	IFIW!NOOP		;LOAD TRANSLATION RAM
	IFIW!NOOP		;LOAD VFU
	IFIW!NOOP		;SUPPRESS SYSTEM MESSAGES
	IFIW!TAKKLI		;TAKE KLINIK DATA
	IFIW!NOOP		;CODE 34
	IFIW!NOOP		;CODE 35
	IFIW!NOOP		;CODE 36
	IFIW!NOOP		;CODE 37
	IFIW!FEDISK		;CODE 40 IGNORE NEW CODE FOR SERIAL NUMBERS
MINFNC==2			;FIRST IMPLEMENTED FUNCTION
MAXFNC==.-FNCTBL+MINFNC-1	;MAX FUNCTION NUMBER

;DEFINITIONS FOR NSP HEADER PACKET USING MCB PROTOCOL

NSPDN==177777B23		;POSITION OF DEST NODE ADDRESS
NSPMF==377B15			;POSIITON OF MESSAGE FLAGS (WORD 1)
NSPRF==377B7			;POSITION OF ROUTING FLAGS
NSPS0==377B31			;POSITION OF FIRST BYTE OF SOURCE NODE
NSPS1==377B7			;POSITION OF SECOND BYTE OF SOURCE NODE
				; (WORD 1)

;COMM REGION MODE TYPES FOR MCB BYTE TRANSFERS

.TMBYT==0			;BYTE MODE TRANSFERS
.TMWRD==2			;WORD MODE TRANSFERS
.TMBWD==1			;BYTES IN WORD MODE TRNASFERS
	SUBTTL Initialization

;THIS IS THE DTE INITIALIZATION CODE. IT SETS  UP THE
;COMMUNICATIONS AREA FOR THE MASTER DTE ONLY (WHICH RUNS .VN20F PROTOCOL)

	SWAPCD			;IS CALLED FROM JOB 0
PROINI::SETOM BTLOCK		;INITIALIZE BOOT PAGE LOCK
	SETOM RLDFRK		;INIT REOAD FORK I.D.
	MOVEI A,^D5000		;MAKE 5 SEC CHECK
	MOVEM A,DTETIM		;TO THE TIMER
	SETZM CTYUNT		;****TEMP VALUE FOR CTY
	SETZM TO11TM		;FREE UP TIME PACKET
	MOVE A,[DTEEPW,,DTEEPW+1] ;AVOID NOSKED PAGE FAULT
	NOSKED			;NO SCHEDULING
	CHNOFF DLSCHN		;TURN OFF THE DTE CHANNEL
	BLT A,DTEDRW+<DTEN-1>*10 ;CLEAR ENTIRE REGION IN THE EPT
STBUF1:	SETZ A,			;FIRST COMMUNICATIONS REGION
	MOVEI B,DTEN		;NUMBER TO DO
STOBUF:	MOVEM A,COMBUF(B)	;STORE THIS GUY
	ADD A,[1B11+COMSIZ]	;NEXT REGION
	CAIN B,DTEN		;IS THIS THE -10'S REGION?
	ADDI A,COMRGN*<DTEN-1>	;YES. ADD IN SPACE FOR ALL OF THE -11'S
	SOJGE B,STOBUF		;DO ALL OF REGION
	SETZM COMBAS		;SET UP TO CLEAR ENTIRE COM AREA
	MOVSI A,COMBAS		;FIRST WORD
	HRRI A,COMBUF+DTEN+2	;FIRST WORD BEYOND THAT
	BLT A,COMBUF+DTEN+IEXSIZ ;CLEAR ENTIRE COMM REGION

;NOW CREATE THE REQUEST QUEUE

	MOVSI A,1-NQPKT		;NUMBER OF LINKS TO MAKE
DOQLNK:	MOVEI B,QPKT+COMQ(A)	;THE NEXT PACKET
	MOVEM B,COMQ(A)		;MAKE A LINK
	ADDI A,QPKT-1		;TO MAKE THE AOBJN WORK
	AOBJN A,DOQLNK		;DO ALL PACKETS
	MOVEI A,COMQ		;THE FIRST PACKET
	MOVEM A,COMH		;MAKE THE HEADER POINT TO THE FIRST
	MOVEI A,NQPKT		;INIT FREE COUNT
	MOVEM A,NCOMH
	; ..
; INIT QUEUE HEADERS

	;..
	MOVSI A,-DTEN		;NUMBER TO DO
BUFFLP:	SETZM DTEQS(A)		;INIT SCHEDULER QUEUE
	AOBJN A,BUFFLP		;DO ALL DTE'S
	MOVE A,MSTRDT		;GET NUMBER OF MASTER DTE
	MOVEI B,.VN20F		;INIT IT TO RSX20F PROTOCOL
	CALL DTINIT		;DO IT
	CHNON DLSCHN		;TURN ON DTE CHANNEL
	OKSKED			;AND ALLOW SCHEDULING AGAIN
	CALL DFNDL1		;GO FIX UP SPECIAL LINES ON THE FE
	CALLRET INIDV1		;AND GO DO THE FRONT END DEVICES

;ROUTINE TO DO POWER FAIL INIT FOR EACH OF THE DTE'S.

	RESCD			;MUST BE RESIDENT SO RESTART WORKS

STODT2:	SAVEP			;SAVE PERMANENT REGISTERS
	MOVSI P1,-DTEN		;NUMBER OF DTE'S
STODTE:	JE DTERL,(P1),NODTEH	;RUNNING?
	MOVEI A,0(P1)		;YES. GET DTE NUMBER
	CALL DTINTP		;GO DO POWER FAIL RECOVERY
NODTEH:	AOBJN P1,STODTE		;GO DO ALL OF THEM
	CHNON DLSCHN		;ALLOW INTS NOW
	OKSKD1			;TURN ON SCHEDULING IF NECESSARY
	RET			;AND DONE

;CODE TO RESTART THE DTE'S ONE SYSTEM RESTART.
;CALLED FROM SYSRST

DTERST::NOSKD1			;NO SCHEDULING PLEASE
	CHNOFF DLSCHN		;AND NO DTE INTS
	CALLRET STODT2		;GO DO THE WORK

;ROUTINE TO CHECK IF A GIVEN DTE IS RUNNING A PROTOCOL
;	A/ DTE NUMBER
;RETURNS:
;	+1 /NOT RUNNING A PROTOCOL
;	+2/RUNNING A PROTOCOL
	SWAPCD			;IS SWAPPABLE

CHKDTE::CAIL A,DTEN		;AN EXTANT DTE?
	RETBAD			;NO
	JE DTERL,(A),R		;IF NOT RUNNING A PROTOCOL FAIL
	RETSKP			;SUCCESS
;ROUTINES TO INIT INDIVIDUAL DTE DATA BASES. CALLED FROM DTEINI
;AS WELL AS FROM THE REBOOT CODE
;MAY RUN WITH INTS AND SCHEDULING ENABLED
;ACCEPTS	A/ DTE NUMBER
;		B/ PROTOCOL VERSION TO INIT IF ENTRY IS AT DTINIT
;IF ENTRY IS AT DTINTP, PROTOCOL WILL BE INITED TO PREVAILING TYPE
;ACCEPTS:	A/ DTE #
;		B/ PROTOCOL VERSION NUMBER FOR DTINIT ONLY
;DTINTP WILL INIT DTE TO THE PROTOCOL IN EFFECT BEFORE THE POWER FAIL

	RESCD			;MUST BE RESIDENT FOR RESTART

DTINTP:	SETO B,			;REMEMBER POWER RESTART ENTRY
DTINIT:	STKVAR <DTNUMB,PROVER>	;TO SAVE DTE NUMBER
	HRRZS A			;GET DTE NUMBER ONLY
	MOVEM B,PROVER		;SAVE PROTOCOL VERSION NUMBER
	SETZM DTESTS(A)		;CLEAR STATUS WORD
	SETZM DTEST1(A)		;AND THE OTHER ONE
	CALL DTREST		;GO RESET THIS DTE
	SKIPGE PROVER		;POWER RESTART ENTRY?
	JRST DTINP1		;YES.
	SETONE DT1TM,(A)	;NO. SAY HE NEEDS TIME THEN
DTINP1:	LSH A,SDTE		;TO FIND THE EPT REGION
	SETZM DTEEPW(A)		;FORCE SECONDARY PROTOCOL
	LSH A,-SDTE		;RESTORE A
	CALL SETRGN		;GO FIND THE REGIONS
	SUBI D,COMDAT		;POINT TO FIXED PART OF -11'S REGION
	MOVEI C,COMBAS		;GET -10'S FIXED REGION
	EXCH D,C		;REVERSE MEANINGS OF REGISTERS
	CAME A,MSTRDT		;IS THIS THE MASTER?
	JRST [	CALL DING11	;NO. JUST RING BELL
		JRST DTINI1]	;AND PROCEED WITH INIT
	SETZM DTEFLG		;CLEAR FLAG WORD
	MOVEI B,DTEEMP		;ENTER SECONDARY COMMAND
	MOVEM B,DTECMD		;TO THE COMMAND WORD
	CALL DING11		;GO DING HIM
	MOVEI B,MONPRO		;TIME TO ENTER PROTOCOL
	CALL NEWTIM		;GET TIME IN FUTURE
DTINI2:	SKIPN DTEFLG		;GOT IT YET?
	JRST [	CALL CHKTIM	;IS TIME UP YET?
		JRST DTINI2	;NO. GO WAIT SOME MORE
		CALL LOADFE	;(T1) YES, REQUEST LATER RELOAD
		RET]		;AND DONE
	;..
	;..
DTINI1:	MOVEM A,DTNUMB		;SAVE DTE NUMBER
	MOVEI A,1		;TENIND
	STOR A,CMTEN,(D)	;SAY FIRST BLOCK IS FOR A TEN
	SETZRO CMTEN,(C)	;HE IS NOT
	MOVEI A,CVERSN		;CURRENT COMMUNICATIONS VERSION
	STOR A,CMVER,(D)	;STORE IT
	STOR A,CMVER,(C)	;FOR THE -11 ALSO
	MOVEI A,PVERSN		;PROTOCOL VERSION
	STOR A,CPVER,(C)
	STOR A,CPVER,(D)	;STORE THIS AS WELL
	MOVEI A,2		;EACH -11 ADDRESSES TWO PROCESSORS
	STOR A,CMNPR,(C)
	MOVEI A,DTEN+1		;NUMBER OF PROCESSORS
	STOR A,CMNPR,(D)	;STORE THESE
	SKIPGE B,PROVER		;DOING INIT?
	JRST DTINI7		;NO.
	MOVEI A,COMSIZ/COMRGN	;INTEGRAL SIZE OF A REGION
	CAIE B,.VN20F		;RSX20F PROTOCOL?
	MOVEI A,2		;NO. MCB HEADER IS ALWAYS 2
	STOR A,CMSIZ,(C)
	MOVEI A,2		;HEADER IN 10'S AREA IS 2
	STOR A,CMSIZ,(D)	;REMEMBER THE SIZE
DTINI7:	MOVE A,DTNUMB		;GET DTE NUMBER
	AOS A			;GET OFFSET INDEX
	STOR A,CMNAM,(C)	;HIS NUMBER
	SETZRO CMNAM,(D)	;MY NUMBER IS ZERO
	MOVEI B,COMBAS		;FIRST REGION
	MOVEI A,4		;THIS INDICATES THAT TOPS-20 IS RUNNING
	STOR A,CMOPS,(C)	;FOR FRONT-ENDS INTERESTED IN SUCH THINGS
	STOR A,CMOPS,(D)	;. . .
DTINI3:	JE CMLNK,(B),[	SETZRO CMLNK,(C)
			SUBI C,COMBAS ;OFFSET FOR -11
			STOR C,CMLNK,(B) ;LINK IT IN TO ACTIVE LIST
			JRST DTINI4] ;AND DONE
	LOAD B,CMLNK,(B)	;GET THE LINK
	ADDI B,COMBAS		;MAKE IT ABSOLUTE
	CAME B,C		;IS THIS THE ONE WE WANT?
	JRST DTINI3		;NO, GO CHECK IT
	; ..
;DTINIT ...

;NOW INIT THE PER PROCESSOR REGION OF EACH COM REGION

DTINI4:	MOVE A,DTNUMB
	CALL SETRGN		;GO FIND REGIONS AGAIN
	EXCH C,D		;REVERSE REGS AGAIN
	SETZM CMCLR1(C)
	SETZM CMCLR2(C)		;CLEAR DYNAMIC WORDS IN -11'S REGION
	SETZM CMCLR1(D)
	SETZM CMCLR2(D)		;CLEAR TEN DYNAMIC WORDS
	MOVEI A,1		;TENIND WORD
	STOR A,CMPRO,(C)	;TELL -11 HE IS CONNECTED TO A -10
	STOR A,CMDTE,(C)
	STOR A,CMDTE,(D)	;A DTE CONNECTS THESE TWO
	STOR A,CMTST,(D)	;SET VALID EXAMINE
	STOR A,CMSZ,(C)
	STOR A,CMSZ,(D)		;TO THE REGIONS
	MOVE A,DTNUMB		;GET DTE NUMBER
	STOR A,CMDTN,(C)	;TO HIS REGION
	STOR A,CMDTN,(D)	;AND TO MINE
	AOS A			;INDEX
	STOR A,CMPNM,(D)	;HIS NAME
	SETZRO CMPNM,(C)	;AND MY NAME IN HIS REGION
	SETZRO CMPPT,(C)	;HIS POINTER TO ME
	SUBI C,COMBAS+COMDAT	;HIS RELATIVE OFFSET IN COMM REGION
	STOR C,CMPPT,(D)	;MAKE MY REGION POINT TO HIM
	ADDI C,COMBAS+COMDAT	;RESTORE POINTER
	SKIPGE B,PROVER		;NEED TO DO MORE INITING?
	JRST DTINI5		;NO. ALL DONE FOR NOW
	STOR B,CMVRR,(D)	;YES. STORE PROTOCOL VERSION NUMBER
	STOR B,CMVRR,(C)	; IN BOTH REGIONS
	CAIE B,.VN20F		;DOING RSX20F?
	JRST DTINI5		;NO. ALL DONE WITH COMM REGION
	MOVEI A,1		;YES. GET A ONE
	STOR A,CMQP,(D)		;USING THE QUEUED PROTOCOL
	STOR A,CMQP,(C)		;FOR HIS AS WELL
	; ..
;NOW SET UP THE EPT FOR THIS DTE/-11 AND DO THE PROTOCOL
;TRANSITION

DTINI5:	MOVEM D,PROVER		;SAVE COMM REGION POINTER
	MOVE D,DTNUMB		;GET DTE NUMBER
	LSH D,SDTE		;GET TO THE EPT OFFSET
	MOVEI A,COMBUF+DTEN-1	;HIS EXAMINE REGION
	SUB A,DTNUMB		;WHERE IT REALLY IS
	MOVEI B,IEXSIZ+2	;GET INITIAL EXAMINE SIZE
	ADD B,DTNUMB		;ADD IN DTE NUMBER
	MOVEM A,DTEERW(D)	;EXAMINE RELOCATION WORD
	SUBI C,COMDAT		;STORE DEPOSIT RELOCATION
	MOVEM C,DTEDRW(D)	;STORE DEPOSIT RELOCATION
	ADDI C,COMDAT		;GET BACK COMM REGION POINTER
	MOVEM B,DTEEPW(D)	;STORE EXAMINE PROTECTION WORD
	MOVEI B,COMSIZ		;SIZE OF A SINGLE REGION
	MOVEM B,DTEDPW(D)	;STORE AS THE DEPOSIT PROTECTION
	MOVE A,DTNUMB		;THE DTE NUMBER
	MOVE B,DTETRP(A)	;GET TRAP INSTRUCTION
	MOVEM B,DTEINT(D)	;TO THE EPT
	MOVE D,PROVER		;RESTORE COMM REGION POINTER
	LOAD B,CMVRR,(C)	;GET PROTOCOL VERSION TO USE
	JRST @.+1(B)		;DISPATCH TO APPROPRIATE PROTOCOL INIT FCN
	   IFIW ! DTINRS	;RSX20F
	   IFIW ! DTINMC	;MCB
	   IFIW ! DTIND6	;DN60 (IBM)
;HERE TO INIT RSX20F PROTOCOL FOR THIS DTE AND THIS -11

DTINRS:				;RSX20F protocol init fcn
	SETZM DTEIND(A)		;CLEAR ANY RESIDUAL INDIRECT INFO
	SKIPE DTBFWD(A)		;HAVE BUFFERS YET?
	JRST DTIN10		;YES. USE THEM THEN
	MOVE A,[.RESP1,,BUFSIZ*2] ;NO. GET SOME SPACE THEN
	MOVX B,<RS%SE0+.RESGP>	;FROM THE GENERAL POOL
	CALL ASGRES		;GET THE SPACE
	 JRST [	MOVE A,DTNUMB	;FAILED. GET BACK DTE NUMBER
		CAMN A,MSTRDT	;IS THIS THE MASTER?
		BUG.(HLT,NORSXF,DTESRV,SOFT,<Failed to get space for master DTE>,,<

Cause:	While attempting to initialize RSX20F protocol for the console
	front end, the call to ASGRES (assign resident free space) failed.

>)
		CALL LOADFE	;(T1) REQUEST JOB 0 RELOAD
		RET]		;AND DONE
	MOVE B,DTNUMB		;GOT IT. GET BACK DTE NUMBER
	HRLI A,BUFSIZ(A)	;FORM BUFFER WORD
	MOVEM A,DTBFWD(B)	;STORE IT
	MOVE A,B		;GET DTE NUMBER
DTIN10:	SETZM DTEFLG		;SET UP TO LEAVE MONITOR MODE
	MOVEI B,DTEEPP+1	;ENTER PRIMARY AND RESET COMM REGION
	MOVEM B,DTECMD		;THE COMMAND TO MONFE
	CALL DING11		;GO DING HIM
	CAME A,MSTRDT		;IS THIS THE MASTER?
	JRST DTINI6		;NO. SKIP PROTOCOL TRANSITION THEN
	MOVEI B,PRIPRO		;TIME TO DO IT
	CALL NEWTIM		;WHEN TIME IS UP
	SKIPN DTEFLG		;WAIT FOR THE 11 TO ACKNOWLEDGE
	JRST [	CALL CHKTIM	;TIME UP YET?
		JRST .-1	;NO. GO WAIT
		CALL LOADFE	;(T1) REQUEST JOB 0 RELOAD
		RET]		;AND DONE
	SETOM FEFLG		;PRIMARY PROTOCL NOW AVAILABLE
DTINI6:	CALL CLRBEL		;CLEAR OUT RESIDUAL DOORBELLS
	CALL DTEON		;TURN ON PROTOCOL
;NOW THAT THE PROTOCOL EXISTS, QUERY THE FRONT END ON THE STATE
;OF THE CTY

	CALL DTESKD		;START UP SCHEDULER IF NECESSARY
	PUSH P,A		;SAVE DTE NUMBER
	CALL LINFRQ		;GO GET THE LINE FREQUENCY
	CAIN A,^D60		;60 HZ?
	SETZ A,			;YES. REMEMBER AS A 0
	EXCH A,0(P)		;SAVE LINE FREQUENCY, RESTORE DTE NO
	SETZ C,			;DIRECT
	MOVE B,[.DFLCI,,.FEDLS]	;GIVE LINE COUNT
	MOVEI D,NTTFE-1		;THE NUMBER OF FE LINES
	SKIPE 0(P)		;60 HZ?
	TRO D,(1B2)		;NO. SET 50 HZ BIT
	POP P,0(P)		;CLEAN UP STACK
	CALL DTEQ		;DO IT
	 JFCL			;WILL GO
	RET			;AND DONE
;HERE TO INIT THE DTE AND THE -11 FOR MCB PROTOCOL. AT THIS POINT:
;	C/ POINTER TO -11'S COMM REGION
;	D/ POINTER TO -10'S COMM REGION
;	DTNUMB IS A STKVAR WITH THE DTE NUMBER IN IT
;	PROVER IS A STKVAR WITH THE PROTOCOL VERSION IN IT

DTINMC:	EA.ENT			;RUN IN EXTENDED SECTION
	SETONE <CMTST,CMINI>,(D) ;SET MY INI BIT
	MOVE B,CNDO(A)		;GET PROTOTYPE CONO
	IORI B,DTEPIE!DTEPI0	;TURN ON PI0 ONLY
	XCT B			; SO -11 CAN EXAMINE ITS REGION
	CALL DING11		;GO RING -11'S BELL
	MOVE B,[CONSO DTE0,DTETDB]
	LSH A,^D26		;POSOITION DTE NUMBER
	ADD B,A			;MAKE PROPER WORD
	MOVEM B,PROVER		;SAVE IT
	MOVE A,DTNUMB		;RESTORE DTE NUMBER
	MOVEI B,MCINI0		;TIMEOUT FOR FIRST PHASE
	CALL NEWTIM		;GET ABSOLUTE TIME
DTINM1:	XCT PROVER		;SEE A DOORBELL YET?
	JRST [	CALL CHKTIM	;TIME UP YET?
		JRST DTINM1	;NO. KEEP POLLING
		XCT PROVER	; DOORBELL YET ?
		JSP B,DTINM6	; NO DOORBELL YET !
		JRST .+1]	; DOORBELL CAME
	TMNN CMINI,(C)		;SEE IF IT DID IT RIGHT
	 JSP B,DTINM7		; BIT IS CLEAR--NO GOOD
	CALL CLRBEL		;CLEAR DOORBELL
	SETZRO CMINI,(D)	;CLEAR INI BIT
	CALL DING11		;RING 11'S BELL AGAIN
	MOVEI B,MCINI1		;TIME FOR THIS PHASE
	CALL NEWTIM		;ABSOLUTE TIME
DTINM2:	XCT PROVER		;SEE A BELL YET?
	JRST [	CALL CHKTIM	;NO. TIME UP YET?
		JRST DTINM2	;NO. KEEP POLLING
		XCT PROVER	; DOORBELL YET ?
		JSP B,DTINM6	; NO DOORBELL YET !
		JRST .+1]	; DOORBELL CAME
	TMNE CMINI,(C)		;MAKE SURE IT DID IT RIGHT
	 JSP B,DTINM7		;BIT IS SET--NO GOOD, REPORT THE PROBLEM
;ALLOCATE A BLOCK A SECTION ZERO FREE SPACE FOR INPUT AND OUTPUT.

	JN DTBOBL,(A),DTINM4	;IF WE ALREADY HAVE ONE, WE'RE OK
	MOVX A,<<UBLSIZ+3>/4>	;GET A BLOCK THIS BIG
	HRLI A,.RESP1		;USE THE HIGHEST PRIORITY (CAN'T SWAP)
	MOVX B,<RS%SE0+.RESNP>	;USE THE DECnet POOL - SECTION 0
	CALL ASGRES		;GET THE FREE SPACE
	 JSP B,DTINM8		;OOPS, COULDN'T ALLOCATE IT
	MOVE B,DTNUMB		;GET BACK THE DTE NUMBER
	STOR A,DTBOBL,(B)	;STORE THE OUTPUT BLOCK POINTER

DTINM4:	MOVE B,DTNUMB		;GET BACK THE DTE NUMBER
	JN DTBIBL,(B),DTINM5	;IF WE ALREADY HAVE INPUT BLOCK, WE'RE OK
	MOVX A,<<UBLSIZ+3>/4>	;GET A BLOCK THIS BIG
	HRLI A,.RESP1		;USE THE HIGHEST PRIORITY (CAN'T SWAP)
	MOVX B,<RS%SE0+.RESNP>	;USE THE NETWORK POOL - SECTION 0
	CALL ASGRES		;GET THE FREE SPACE
	 JSP B,DTINM8		;OOPS, COULDN'T ALLOCATE IT
	MOVE B,A		;GET POINTER TO INPUT BLOCK
	MOVE A,DTNUMB		;GET BACK DTE NUMBER
	STOR B,DTBIBL,(A)	;STORE THE INPUT BLOCK POINTER

;NOW SIGNAL DRIVER (ROUTER) OF NEW CIRCUIT BEING OPENED.

DTINM5:	MOVE A,DTNUMB		;GET THE DTE NUMBER BACK
	MOVE B,DCNCID(A)	;Get DECnet callback ID
	STOR B,DTBDID,(A)	;SAVE THE DRIVER'S BLOCK ID

	SETONE DTIPU,DTESTS(A)	;TELL ROUTER ABOUT PROTOCOL UP ON 1ST DOORBELL

	CALL DTEON		;GO TURN PROTOCOL ON
	CALLRET DTESKD		;AND START THE PROTOCOL
;INIT FAILED.  TIMED OUT WAITING FOR A DOORBELL

DTINM6:	MOVE A,DTNUMB		;GET DTE #, IN CASE WE FORGOT.

  IFN MCBDBG, <			;Buginf only if debugging
	BUG.(INF,DTEWAT,DTESRV,SOFT,<DTE MCB initialization timed out>,<<A,DTE>,<B,PC>>,<

Cause:	The KL timed out while waiting for the MCB to answer a doorbell during
	QP2 initialization.

Action:	Try again.  If it still doesn't work, check the MCB software.  Failing
	that, have Field Service check out the DTE.

Data:	A - DTE NUMBER.
	B - PC OF CALLER.
>,,<DB%NND>)			;[7.1210]
  > ;End of MCBDBG
DTINM9:	SETONE DTRLD,(A)	;SET RELOAD
	AOS LOAD11		;SAY AN -11 DIED
	SETZRO DTERL,(A)	;NO LONGER RUNNING A PROTOCOL
	CALLRET DTREST		;AND RESET THE DTE
;INIT FAILED DURING HANDSHAKE.  ONE OF:
;	1) HIS TO-ME BIT NOT SET
;	2) HIS TO-ME BIT NOT CLEAR
;    AT THE APPROPRIATE TIMES

DTINM7:	MOVE A,DTNUMB		;GET DTE #, IN CASE WE FORGOT.
	BUG.(INF,DTEBWS,DTESRV,SOFT,<DTE MCB handshake incorrect>,<<A,DTE>,<B,PC>>,<

Cause:	The KL detected that the MCB's init bit was not correct during a QP2
	protocol initialization handshake.

Action:	Try again.  If it still doesn't work, check the MCB software.  Failing
	that, have field service check out the DTE.

Data:	A - DTE number
	B - PC of caller
>)
	JRST DTINM9		;GO DO NORMAL CLEANUP

;INIT FAILED BECAUSE WE COULDN'T GET SECTION ZERO MEMORY FOR INPUT OR OUTPUT
;BUFFERS

DTINM8:	MOVE A,DTNUMB
	BUG.(CHK,DTECGB,DTESRV,SOFT,<DTE MCB initialization timed out>,<<A,DTE>,<B,PC>>,<

Cause:	Couldn't allocate memory for section zero input or output buffers.

Action:	Try again later.

Data:	DTE - DTE number
	PC - PC of caller
>,,<DB%NND>)			;[7.1210]
	JRST DTINM9			;CLEANUP THINGS
;TIMING ROUTINES USED BY PROTOCOL INIT CODE
;COMPUTE TIME IN FUTRURE.
;	B/ INCREMENT

NEWTIM:	PUSH P,A		;SAVE DTE #
	PUSH P,B		;SAVE INCREMENT
	CALL GETMST		;GET NOW
	POP P,B			;GET BAC INCREMENT
	ADD B,A			;TIME IN FUTURE
	POP P,A			;DTE #
	RET			;DONE

;CHECK IF TIME HAS ELAPSED.
;	B/ ABSOLUTE TIME
;RETURNS:	+1/ TIME NOT UP
;		+2 TIME UP

CHKTIM:	SAVEAC <A>		;SAVE DTE #
	PUSH P,B		;SAVE TIME
	CALL GETMST		;GET NOW
	POP P,B			;GET BACK TIME
	CAMLE B,A		;TIME UP?
	RET			;NO
	RETSKP			;YES
	SUBTTL DTE Interrupt Service

;DTE INTERRUPT SERVICE. THIS CODE IS ENTERED WHENEVER ANY FLAVOR
;OF DTE INTERRUPT IS GENERATED. THERE IS A SEPARATE ENTRY ROUTINE
;FOR EACH DTE.

;For each DTE there is an XPCW block called "DTXPC" followed by the
;unit number. The new PC for the DTE points to code that

;	1) Does JSR SVDTRJ, which comes here to SVDTAC
;	2) Stores double-word interrupt PC at DTETRA
;	3) Does CONI DTE into F
;	4) Jumps to INTDTE

;ROUTINE TO SAVE THE AC'S ON A DTE INTERRUPT
;Reached via JSR SVDTRJ at interrupt level

	RESCD			;MUST BE RESIDENT
SVDTAC::MOVEM P,DTEACB+P	;GET A WORK REGISTER
	MOVEI P,DTEACB		;BLT ARG
	BLT P,DTEACB+P-1	;SAVE REST OF ARGS
	MOVE P,DTESTK		;GET LOCAL STACK
	JRST @SVDTRJ		;RETURN TO INTERRUPT VECTOR

;DISMISS A DTE INTERRUPT

DTEDN1:	JUMPE P4,DTEDNE		;IF NO MORE, GO DISMISS
	MOVEI C,0(P4)		;PACKET SIZE
	MOVE A,DTEDTE		;GET DTE NUMBER
	JRST DOFNC3		;GO DO THIS FUNCTION
DTEDNE:	MOVSI P,DTEACB		;TO DO BLT
	BLT P,P-1		;DO ALL BUT P
	MOVE P,DTEACB+P		;RESTORE P
	XJEN DTETRA		;RESTORE STATE OF MACHINE

;INTERRUPT ON NON-EX OR RELOADING DTE. TURN OFF THE DTE

DTEPRG:	CALL DTREST		;GO RESET THIS DTE
	JRST DTEDNE		;AND GO DISMISS IT

;ROUTINE USED BY DTINIT TO TURN ON DTE PROTOCOL RACE FREE
;	A/ DTE #

DTEON:	NOSKD1			;AVOID RACES WITH SCHEDULER
	SETONE DTERL,(A)	;SAY NOW RUNNING A PROTOCOL
	CALL DTPII		;TURN ON DTE PI'S
	OKSKD1			;ALLOW SCHEDULING AGAIN
	RET			;AND DONE
;COMMON INTERRUPT ROUTINE. ENTERS WITH
;	A/ DTE NUMBER WHICH CAUSED INTERRUPT
;	P/ POINTS TO LOCAL DTE INTERRUPT STACK
;	F/ RESULT OF CONI DTEN,
;
;THIS ROUTINE PROCESSES ALL DTE INTERRUPTS

INTDTE::JE DTERL,(A),DTEPRG	;IF NON-EX, FORGET IT
	JN DTRLD,(A),DTEPRG	;IF RELOADING THE -11, FORGET THIS INTERRUPT
	TXNE F,DTEPF		;-11 LOST POWER?
	JRST POW11		;YES. GO DO SOMETHING ABOUT IT
	TXNE F,DTEEDN		;-11 DONE?
	JRST [	CALL TO11DN	;CALL AS A SUBROUTINE
		JRST DTEDNE]	;GO DISMISS THE INTERRUPT
	TXNE F,DTETDN		;TO 10 DONE?
	JRST TO10DN		;YES. GO MAKE SURE WE WERE TRANSFERRING
	TXNE F,DTETDB		;-10 DOORBELL INTERRUPT
	JRST DINGME		;YES. I WAS DINGED
	TXNE F,DTEEER		;TO -11 ERROR TERMINATION
	JRST TO11ER		;YES. GO TRY AGAIN THEN
	TXNE F,DTETER		;TO 10 ERROR?
	JRST TO10ER		;YES. BAD NEWS
	JRST DTEDNE		;GO DISMISS THE INTERRUPT
;Here when hardware bit indicates to -10 done. See if software agrees.

TO10DN:	STKVAR<OSTATE>		;WORD TO SAVE OLD STATE
	MOVEM A,DTEDTE		;SAVE DTE NUMBER
	MOVE B,CNDO(A)		;PROTOTYPE CONO
	IORI B,DTETDN		;SET TO CLEAR THIS BIT
	XCT B			;CLEAR IT
	LOAD B,DTEST,(A)	;GET STATUS OF THE DTE
	MOVEM B,OSTATE		;SAVE THE STATE
	TXZE B,DTET10!DTET1F	;RECEIVING ANY FLAVOR OF MESSAGE?
	JRST DODMSG		;YES. GO DO THE MESSAGE THEN
	BUG.(CHK,DTETIP,DTESRV,HARD,<DTETDN - TO-10 done received with no transfer in progress>,<<A,DTE>>,<

Cause:	The KL received indication from the DTE that a TO-10 transfer has
	completed but the DTE status did not indicate that a transfer was
	in progress.

Action:	If the problem persists, call Field Service.

Data:	DTE - DTE number
>,,<DB%NND>)			;[7.1210]
	JRST DTEDNE		;GO DISMISS THIS INTERRUPT

;PROCESS TO -10 DONE. FIRST DETERMINE WHICH PROTOCOL IS IN USE...

DODMSG:	STOR B,DTEST,(A)	;NEW STATUS
	CALL SETRGN		;GO GET COMM REGION POINTERS
	LOAD B,CMVRR,(C)	;GET PROTOCOL IN USE ON THIS DTE
	MOVE B,DN10VC(B)	;GET ADDRESS OF PROCESSING ROUTINE
	JRST 0(B)		;GO DO IT

;TRANSFER VECTOR FOR TO -10 DONE (BASED ON PROTOCOL TYPE)

DN10VC:	EXP DN10RS		;FOR RSX20F PROTOCOL
	EXP DN10MC		;FOR MCB PROTOCOL
	EXP DN10D6		;FOR DN60 PROTOCOL
;DN10RS - CODE TO PROCESS TO -10 DONE FOR RSX20F PROTOCOL
;AT THIS POINT:
;	A/ DTE NUMBER
;	C AND D POINT TO COMM REGIONS

DN10RS:	LOAD B,DTEBC,(A)	;GET RESIDUE COUNT
	SETZ P5,		;ASSUME NO HEADER ON MESSAGE
	JUMPN B,[ CALL DOFRGM	;START THIS FRAGMENT
		  JRST DODMS1]	;AND MERGE THE CODES
	SETZRO CMTOT,(C)	;CLEAR INTRANSIT BIT
	LOAD C,DTEB1,(A)	;GET COUNT OF COMPLETED REQUEST
	LOAD D,DTEBF,(A)	;THE BUFFER WE USED
DODMS1:	XCT [	HRRZ D,DTBFWD(A)
		HLRZ D,DTBFWD(A)](D) ;PICK UP THE BUFFER BASE ADDRESS
	HRLI D,(<POINT ^D8,0>)	;MAKE IT A BYTE POINTER
	JN INCNT,(A),[		;HAVE A RESIDUAL FUNCTION COUNT?
		LOAD P3,INCNT,(A) ;YES. GET IT
		JRST OLDFC2]	;GO DO IT
	;..
;GET THE FUNCTION AND DEVICE FROM THIS INITIAL FRAGMENT

DOFNC3:	SETO P5,		;PROCESSING HEADER
	CAIGE C,12		;VALID PACKET?
	JRST [	BUG.(CHK,DTEP2S,DTESRV,HARD,<TO10DN - Packet too small>,,<

Cause:	The packet size field in a TO10 packet from a DTE contains an
	invalid length.

Action:	If the problem persists, call Field Service.

>,,<DB%NND>)			;[7.1210]
		JRST DTEDNE]	;NO. IGNORE IT
	ILDB B,D		;SECOND BYTE
	ILDB P3,D		;GET COUNT
	LSH P3,10		;THE FIRST BYTE
	IORI P3,0(B)		;MAKE COUNT FIELD
	ILDB P1,D		;LAST EIGHT BITS OF THE FUNCTION
	ILDB B,D		;FIRST 8 BITS OF THE FUNCTION
	LSH B,10		;TO FORM FULL CODE
	IOR P1,B		;GET FUNCTION CODE
	PUSH P,P1		;SAVE CODE
	TRZ P1,1B20		;CLEAR INDIRECT BIT
	STOR P1,DT1FC,(A)	;SAVE IT
	ILDB P1,D		;GET DEVICE CODE
	ILDB B,D
	LSH B,10
	IOR P1,B		;FORM FULL DEVICE CODE
	STOR P1,DT1DV,(A)	;SAVE THIS
	REPEAT 2,<ILDB B,D>	;SKIP THE SPARE
	POP P,P1		;GET BACK FUNCTION
	TRZE P1,1B20		;INDIRECT?
	JRST [	SETONE DT1ID,(A) ;YES. REMEMBER THIS
		LOAD B,DTEST,(A) ;GET STATE
		CAIN C,12	;MUST BE TWO BYTES LEFT
		TXNE B,DTET10!DTET1F ;IS IT QUIET?
		JRST [	BUG.(CHK,DTEIDP,DTESRV,HARD,<Bad indirect packet>,<<A,DTENO>>,<

Cause:	An indirect packet from a DTE was received but the DTE status word
	indicated that there is no transfer active.

Data:	DTENO - DTE number
>,,<DB%NND>)			;[7.1210]
			JRST DINGER]
		ILDB B,D	;GET COUNT
		STOR B,INCNT,(A) ;SAVE THIS TOO
		ILDB B,D	;GET LINE
		STOR B,INUNT,(A); SAVE IT
		SETONE INVLD,(A); SAY UNIT IS VALID
		JRST DTEDNE]	;AND DONE WITH THE REQUEST
	SETZRO INVLD,(A)	;UNIT IN INDIRECT WORD IN INVALID
	;..
	;..
OLDFC2:	CAILE P3,0(C)		;FUNCTION FULLY WITHIN PACKET?
	JRST [	SETZ P4,	;NO. NO LOCAL RESIDUAL COUNT
		SUBI P3,0(C)	;FIND HOW MANY IN NEXT PACKET
		STOR P3,INCNT,(A) ;SAVE IT
		JRST OLDFC1]	;GO DO IT
	SETZRO INCNT,(A)	;NO NEXT RESIDUAL
	EXCH P3,C
	SUBI P3,0(C)		;FIND LOCAL RESIDUAL
	MOVEI P4,0(P3)		;NEXT FUNCTION IS HERE

;Transfer according to the function code provided in the data

OLDFC1:	SKIPE P5		;NEED TO REMOVE HEADER?
	SUBI C,10		;BYTES IN HEADER
	JUMPLE C,DTEDN1		;IF NO BYTES, WE ARE DONE
	LOAD B,DT1FC,(A)	;GET OPERATIVE FUNCTION CODE
	CAIL B,MINFNC		;LEGAL FUNCTION?
	CAILE B,MAXFNC		;STILL LEGAL?
	JRST [	BUG.(CHK,DTEIFR,DTESRV,HARD,<DTESRV - Illegal FNC request>,<<A,DTENO>>,<

Cause:	A packet from a DTE was received that contained an invalid function
	code.

Action:	If the problem persists, call Field Service.

Data:	DTENO - DTE number

>)
		JRST DINGER]	;NO. KILL THE FE THEN
	JRST @FNCTBL-MINFNC(B)	;YES. GO DO IT THEN

;Here when function code provided is not supported

NOOP:	BUG.(CHK,DTEUIF,DTESRV,HARD,<DTESRV - Unimplemented function from 11>,<<A,DTENO>>,<

Cause:	A packet from a DTE was received that contained a function code
	that is not supported by TOPS-20.

Data:	DTENO - DTE number

>)
	JRST DINGER		;AND ZAP THE FE
;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 has sent line characters.

TAKLC:	CALL TAKLC2		;CALL PROCESSING ROUTINE
	JRST DTEDN1		;ALL DONE

TAKLC2:	STKVAR <BYTC,BYTP,SAVOFS,SAVTYP>;-11 HAS SENT LINE CHARACTERS
	TRNE C,1		;AN EVEN NUMBER OF BYTES?
	BUG.(CHK,DTEODD,DTESRV,HARD,<TAKLC - Odd byte count for line characters>,,<

Cause:	A TO-10 transfer completion interrupt was recieved from the DTE
	under RSX20F protocol that indicates the -11 has sent line
	characters and the byte count is odd.

>)
	LOAD B,DT1DV,(A)	;GET DEVICE FOR THIS OPERATION
	MOVEM B,SAVTYP		;SAVE DEVICE TYPE
	CAIN B,.FECTY		;IS IT THE CTY?
	JRST [	SETZM SAVOFS
		JRST ISCTY]
	CAIE B,.FEDLS		;IS IT "TTY"?
	JRST [	BUG.(CHK,DTETTY,DTESRV,HARD,<Non-TTY device>,<<A,DTENO>>,<

Cause:	A TO-10 transfer completion interrupt from the DTE was recieved
	under RSX20F protocol that indicates the -11 has sent line
	characters, but the device type provided in the packet is not a
	TTY.

Data:	DTENO - DTE number

>)
		JRST DINGER]
	IMULI A,DTENL		;YES. GET LINE OFFSET
	MOVEM A,SAVOFS		;SAVE IT FOR LATER
ISCTY:	MOVEM C,BYTC		;SAVE COUNT OF BYTES
	MOVEM D,BYTP		;AND THE BYTE POINTER
TAKLC1:	SOS BYTC		;MUST BE AT LEAST TWO BYTES HERE
	MOVE D,BYTP		;JUST IN CASE
	SOSGE BYTC		;THIS MAKES TWO
	RET			;ALL DONE
	ILDB A,BYTP		;GET BYTE
	ILDB B,BYTP		;GET LINE NUMBER
	ADD B,SAVOFS		;MAKE IT A "REAL" LINE NUMBER
	MOVE C,SAVTYP		;TYPE
	CALL DTESTO		;STORE IN BIGBUF
	JRST TAKLC1		;DO ALL BYTES
;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 has sent string data. Transfer according to device type

TAKDS:	LOAD B,DT1DV,(A)	;GET THE DEVICE
	CAIL B,MINDEV		;A REASONABLE DEVICE?
	CAILE B,MAXDEV		;STILL?
	JRST DMPBFR		;NO. FLUSH THE REQUEST
	SKIPE P1,DTEDTV(B)	;A KNOWN DEVICE?
	SKIPN P1,DTVSD(P1)	;YES. THIS DEVICE HAVE STRING DATA?
	JRST DMPBFR		;NO. FORGET IT
	CALL GETUNT		;FIND APPROPRIATE UNIT NUMBER
	HRLI A,0(C)		;THE COUNT
	LOAD C,DT1DV,(A)	;GET THE DEVICE
	MOVSS A			;PUT ARGS IN PROPER ORDER
	CALL 0(P1)		;GO DO DEVICE STUFF
	JRST DTEDN1		;ALL DONE
;MORE FUNCTIONS,ETC.

;COMMON ROUTINE USED BY TAKDS AND TAKSTS TO FIND UNIT. MAY BE
;STASHED AWAY IN DTEIND IF PACKET IS INDIRECT OR IN CURRENT
;PACKET

GETUNT:	JN INVLD,(A),[
		LOAD B,INUNT,(A) ;GET IT FROM INDIRECT WORD
		RET]		;AND DONE
	ILDB B,D		;NOT INDIRECT. GET IT FROM CURRENT
	ILDB B,D		;IS THE SECOND BYTE
	SUBI C,2		;TWO FEWER BYTES
	RET			;AND DONE
;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 is providing time of day

TAKTOD:	CAIGE C,2		;AT LEAST TWO MORE BYTES?
	JRST DNTIME		;NO. MUST NOT BE A TIME THEN
	ILDB P1,D		;AND ANOTHER
	ILDB B,D		;GET ONE BYTE
	SUBI C,2		;TOOK TWO OF THEM
	JUMPE P1,DNTIME		;IF ZERO,NO TIME IN THE -11
	CAIGE C,10		;ENOUGH BYTES
	JRST [	BUG.(CHK,DTEDAT,DTESRV,HARD,<TAKTOD - Illegal format for time/date>,,<

Cause:	A TO-10 transfer completion interrupt from the DTE
	under RSX20F protocol that indicates the -11 is providing the time
	of day was recieved. The packet format is incorrect.

>)
		JRST DNTIME]	;DONT BELIEVE IT
	CALL GTTFLD		;GET YEAR FIELD
	HRLM P1,TAD11		;STORE YEAR
	ILDB P1,D		;MONTH
	HRRM P1,TAD11		;TO MEMORY
	ILDB P1,D		;DAY OF MONTH
	HRLM P1,TAD11+1		;TO MEMORY
	ILDB P1,D		;DAY OF WEEK
	HRRM P1,TAD11+1		;TO MEMORY
	MOVX C,IC%DSA!IC%UTZ	;IDCNV BITS
	ILDB P1,D		;GET DST FLAG & TIME ZONE
	TRZE P1,1B28		;DST FLAG ON?
	TXO C,IC%ADS		;YES - USE DST THEN
	STOR P1,IC%TMZ,C	;STORE TIME ZONE
	MOVEM C,TAD11+2		;TO MEMORY
	CALL GTTFLD		;GET SECONDS
	LSH P1,1		;*2
	HRRM P1,TAD11+2		;TO MEMORY
	JRST DTEDN1		;ALL FINISHED

DNTIME:	SETOM TAD11		;NONE GIVEN


DMPBFR:	JUMPLE C,DTEDN1
	IBP C,D			;ADJUST BYTE POINTER
	MOVE D,C		;MOVE IT TO CORRECT REGISTER
	JRST DTEDN1		;AND RETURN

GTTFLD:	ILDB P1,D		;GET NEXT TIME/DATE FIELD
	ILDB C,D		;IN 2 BYTES
	LSH P1,10		;SLIDE FIRST PART OVER
	IOR P1,C		;FORM -11 WORD
	RET			;AND RETURN
;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 wants to receive time of day

SNDTOD:	SETONE DT1TM,(A)	;SAY -11 WANTS TIME OF DAY
	JRST DMPBFR		;MAKE SURE ALL IS OK

;Here on interrupt for to -10 done, for RSX20F protocol, and
;LINE HUNG UP OR DIALED UP

HANGUP:	TDZA P1,P1		;CLEAR P1
DIALUP:	MOVEI P1,1		;DIAL UP
	CAIGE C,2		;ENOUGH BYTES LEFT?
	JRST [	BUG.(CHK,DTECAR,DTESRV,HARD,<Carrier FNC with no line number>,<<A,DTENO>>,<

Cause:	A TO-10 transfer completion interrupt from the DTE under RSX20F
	protocol that indicates a line has hung up or dailed up was
	received. The packet contains no line number due to a format
	error.

Action:	If problem persists, contact Field Service.

Data:	DTENO - DTE number

>)
		JRST DINGER]
	LOAD P3,DT1DV,(A)	;GET DEVICE
	IMULI A,DTENL		;BIAS THE LINE NUMBER
ALLLNE:	ILDB B,D		;GET LINE NUMBER
	ILDB P2,D		;THROW AWAY UPPER PART OF WORD
	PUSH P,A		;SAVE BASE LINE NUMBER
	ADDI B,0(A)		;LINE NUMBER IN B
	PUSH P,C
	PUSH P,D
	MOVEI A,0(P3)		;DEVICE CODE
	XCT [	CALL TTYHGU
		CALL TTYDLU](P1) ;CALL PROPER ROUTINE
	POP P,D
	POP P,C
	POP P,A			;GET BACK BASE LINE NUMBER
	SOS C			;DECREMENT COUNT
	SOJG C,ALLLNE		;DO ALL LINES
	JRST DTEDN1		;AND DONE
;Here on interrupt for to -10 done, for RSX20F protocol, and
;line buffers are empty

EMPTY:	CALL EMPTY2		;GO DO PROCESSING
	JRST DMPBFR		;ALL DONE. MAKE SURE BUFFERS ALIGN
EMPTY2:	STKVAR <CNTSV,DTESV,PTRSV>
	MOVEM A,DTESV
	MOVEM C,CNTSV
	MOVEM D,PTRSV
	LOAD D,DT1DV,(A)	;GET DEVICE -11 IS ACK-ING
	CAIL D,MINDEV		;A REASONABLE DEVICE?
	CAILE D,MAXDEV		;MAYBE, STILL SO?
	JRST LINEA1		;NO
	SKIPE P1,DTEDTV(D)	;A KNOWN DEVICE?
	SKIPN P1,DTVACK(P1)	;THIS DEVICE WANT AN ACK?
	JRST EMPTY3		;NO. SKIP THE PACKET
EMPTY1:	MOVE A,DTESV		;GET DTE
	LOAD A,DT1DV,(A)	;GET FUNCTION DEVICE
	ILDB B,PTRSV		;GET LINE NUMBER
	ILDB C,PTRSV		;THROW AWAY UPPER HALF
	CALL 0(P1)		;GO DO THE POST
	SOS CNTSV		;THE DUMMY BYTE
	SOSLE CNTSV		;MORE LINES?
	JRST EMPTY1		;YES
EMPTY3:	MOVE C,CNTSV		;GET COUNT
	MOVE D,PTRSV		;RESTORE BYTE POINTER
	RET			;END OF FUNCTION

;Here on interrupt for to -10 done, for RSX20F protocol, and
;11 sent line speed
;DONE ON -10 RELOAD

TAKSPD:	CAIGE C,6		;ENOUGH BYTES?
	JRST DMPBFR		;NO. IGNORE IT THEN
	SUBI C,5		;YES. WE WILL USE FIVE OF THEM
	PUSH P,C		;SAVE RESIDUE COUNT
	CALL GETUNT		;GO FIND UNIT NUMBER
	LOAD A,DT1DV,(A)	;PICK UP DEVICE FIELD
	CALL GTTFLD		;GET INPUT SPEED
	MOVSI P2,0(P1)		;SAVE IT
	CALL GTTFLD		;GET OUTPUT SPEED
	HRRI P2,0(P1)		;FORM SPEED WORD
	ILDB C,D		;GET REMOTE INDICATOR
	PUSH P,D		;SAVE BP
	MOVE D,P2		;ARG FOR TTYSRV
	CALL TTSPST		;GO SET IT UP
	POP P,D
	POP P,C			;RESTORE IMPORTANT PARAMETERS
	JRST DMPBFR		;AND DONE
;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 is sending its reload register information:

TAKRLW:	CAIGE C,2		;MUST BE A WORD OF INFORMATION
	JRST DMPBFR		;IGNORE IT
	ILDB B,D		;GET LOW 8 BITS
	ILDB P1,D		;GET HIGH 8 BITS
	LSH P1,10		;ADJUST IT
	IORI P1,0(B)		;FORM SWITCH WORD
	TRZ P1,(1B2)		;IGNORE RETRY BIT
	PUSH P,C
	PUSH P,D		;SAVE REGISTERS
	CALL SETRGN		;FIND REGIONS
	STOR P1,CMRLF,(C)	;SAVE IN MY REGION
	POP P,D			;RESTORE REGISTERS
	POP P,C
	SUBI C,2		;TOOK 2 BYTES
	JRST DMPBFR		;GO ALIGN BUFFERS

;Here on interrupt for to -10 done, for RSX20F protocol, and
;WANTTO ACK ALL UNITS OF ALL DEVICES
;Transfer according to device type

TAKACK:	MOVSI P1,MINDEV-MAXDEV+.FECTY
	HRRI P1,.FECTY+1	;START BEYOND THE CTY
	PUSH P,D		;SAVE SP
	PUSH P,C		;SAVE COUNTER
TKACK1:	SKIPE C,DTEDTV(P1)	;THIS DEVICE EXIST?
	SKIPN C,DTVACK(C)	;YES. WANT AN ACK?
	JRST TKACK2		;NO
	MOVE A,DTEDTE		;GET DTE FOR THIS FUNCTION
	SETO B,			;SAY TO ACK THEM ALL
	CALL 0(C)		;GO DO IT
TKACK2:	AOBJN P1,TKACK1		;GO DO ALL DEVICES
	POP P,C
	POP P,D
	MOVE A,DBUGSW		;GET RUNNING STATE
	CAIE A,0		;DEBUGGING SOME STUFF?
	JRST DMPBFR		;YEP. SKIP MESSAGE THEN
	AOS JB0FLG
	MOVEI A,1
	IORM 1,UPFLAG		;SAY WE NEED MESSAGE
	JRST DMPBFR		;GO ALIGN BUFFERS
;Here when we receive a packet of front-end disk serial numbers

FEDISK:	SETZ C,0		;[7154] START WITH UNIT 0
FEDLOP:	ILDB A,D		;GET THE HIGH ORDER PART OF THE SERIAL NUMBER
	ILDB B,D		;GET LOW ORDER PART
	LSH B,^D28		;SHIFT SO WE CAN MAKE FULL PACKET
	LSHC A,^D8		;MAKE ONE FULL WORD
	MOVEM A,FEDSKT(C)	;[7154] STORE IT IN THE TABLE
	CAIE C,FEDSKL-1		;[7154] LOOKED AT ALL UNITS?
	AOJA C,FEDLOP		;[7154] NO, NEXT UNIT
	CALL PHYFED		;[7154] () YES, SET THE UDBS
	SETOM FESER		;TELL PHYSIO ALL SERIAL NUMBERS HAVE ARRIVED
	JRST DTEDNE		;AND DONE

;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 is sending KLINIK data

TAKKLI:	CAILE C,KLIMAX		;WILL IT FIT?
	JRST [	BUG.(CHK,KLIOVF,DTESRV,HARD,<DTESRV - KLINIK data base too large>,<<C,PAKSIZ>>,<

Cause:	A TO-10 transfer completion interrupt from the DTE under RSX20F
	protocol was recieved that indicates the -11 is sending KLINIK
	data but the size of the data field is out of range.

Action:	Contact Field Service if the problem persists.

Data:	PAKSIZ - Size of KLINIK data field in packet

>)
		JRST DTEDNE]	;AND IGNORE DATA
	MOVEM C,KLIDTA		;SAVE COUNT
	MOVE A,[POINT ^D8,KLIDTA+1] ;GET POINTER TO BUFFER
TAKKL1:	ILDB B,D		;GET NEXT BYTE
	IDPB B,A		;SAVE IT
	SOJG C,TAKKL1		;MOVE ALL BYTES
	JRST DTEDNE		;AND DONE
;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 is ending line allocation information

LINEAL:	CALL LINEA2		;GO DO PROCESSING
	JRST DMPBFR		;ALL DONE. MAKE SURE BUFFERS ALIGN

LINEA2:	STKVAR <CNTSV,DTESV,PTRSV>
	MOVEM C,CNTSV		;SAVE COUNT
	MOVEM A,DTESV		;SAVE DTE #
	MOVEM D,PTRSV		;SAVE POINTER
	LOAD D,DT1DV,(A)	;GET DEVICE CODE
	CAIG D,MAXDEV		;A KNOWN DEVICE?
	CAIGE D,MINDEV		;?
LINEA1:	JRST [	BUG.(CHK,DTEDEV,DTESRV,HARD,<Illegal device>,<<A,DTENO>>,<

Cause:	A TO-10 transfer completion interrupt from the DTE under RSX20F
	protocol that indicates the -11 is ending line allocation
	information was recieved. The device code provided is out of
	range.

Action:	If the problem persists, contact Field Service

Data:	DTENO - DTE number

>)
		JRST DINGER]	;ERROR
	SKIPE P1,DTEDTV(D)	;A KNOWN DEVICE?
	SKIPN P1,DTVTLA(P1)	;YES. CAN SET LINE ALLOCATION?
	JRST EMPTY3		;NO. GIVE IT UP
	CALLRET EMPTY1		;GO DO COMMON PROCESSING

;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 IS SENDING ID OF THE CTY

TAKCTY:	ILDB B,D		;GET LINE NUMBER
	CALL IDCTY		;IDENTIFY IT TO TELETYPE SERVICE
	SUBI C,1		;TOOK ONE BYTE
	JRST DMPBFR		;GO ALIGN BUFFERS
;Here on interrupt for to -10 done, for RSX20F protocol, and
;-11 is sending error information
;Transfer according to device type

TAKSTD:	CALL GETUNT		;GET THE UNIT
	STOR B,INUNT,(A)	;SAVE UNIT FOR SYSERR
	JN DTSTI,(A),[	SETZRO DTSTI,(A) ;CLEAR SPLIT INDICATOR
			MOVE B,D ;MOVE POINTER
			JRST TAKSTF]	;AND GO
	LOAD A,DT1DV,(A)	;GET DEVICE
	CAIL A,MINDEV		;A REASONABLE DEVICE?
	CAILE A,MAXDEV		;STILL?
TAKSTE:	JRST SEEERR		;UNKNOWN, SEE IF SYSERR REQUESTED
	SKIPE A,DTEDTV(A)	;A KNOWN DEVICE?
	SKIPN A,DTVTLS(A)	;YES. WANT DEVICE STATUS?
	JRST TAKSTE		;NO
	PUSH P,C		;SAVE COUNT
	PUSH P,D		;AND STRING POINTER
	CALL 0(A)		;DISPATCH OFF
	POP P,D			;RESTORE POINTER
	POP P,C			;AND COUNT
SEEERR:	ILDB B,D		;GET SOFTWARE STATUS
	ILDB B,D		;LOW 8 BITS
	SUBI C,2		;COUNT DOWN THOSE BYTES
	TXNN B,.DVFLG		;ERROR LOGGING REQUESTED?
	JRST DMPBFR		;GO ALIGN BUFFERS
	;..
;CODE TO MAKE FIRST PASS AT SYSERR ENTRY. THIS CODE WILL QUEUE
;UP ALL OF THE DEVICE DEPENDENT ERROR DATA, AND WILL STORE
;THE DEVICE CODE AND THE WORD COUNT OF THE ERROR DATA. IT WILL
;ALSO SCHEDULE A JOB 0 SUBROUTINE TO COMPLETE THE BLOCK

	;..
	ADDI C,2		;GET BACK THE SOFTWARE STATUS
	MOVNI B,2		;NUMBER OF BYTES TO RECOVER
	IBP B,D			;ADJUST THE BYTE POINTER
TAKSTF:	PUSH P,C		;SAVE BYTE COUNT
	PUSH P,B		;SAVE BYTE POINTER
	ADDI C,3		;CALCULATE WORDS IN ERROR REPORT
	LSH C,-2		;""
	PUSH P,C		;SAVE WORD COUNT
	MOVEI A,FE%LEN(C)	;WORDS TO ALLOCATE
	MOVEI B,FE%SIZ(C)	;SIZE OF HEADER
	EA.ENT			;EXTENDED FOR SYSERR
	CALL ALCSBX		;GET THEM
	 JRST	[S0.ENT		;***WARNING*** REMOVE THIS IF MADE EXTENDED
	 	JRST SEEER1]	;NONE THERE. PUNT
	MOVE B,DTEDTE		;GET DTE NUMBER
	MOVEM B,FE%DTE+SEBDAT(A) ;SAVE DTE NUMBER IN THE PACKET
	LOAD C,INUNT,(B)	;GET UNIT
	LOAD B,DT1DV,(B)	;GET DEVICE CODE
	HRLI B,0(C)		;MOVE UNIT TO LH
	MOVEM B,FE%DEV+SEBDAT(A);SAVE DEVICE CODE
	POP P,C			;WORD COUNT FOR ERROR STUFF
	MOVNI D,0(C)
	HRLM D,FE%PTR+SEBDAT(A)	;SAVE COUNT OF WORDS
	POP P,D			;GET DATA STRING
	POP P,C			;AND BYTE COUNT
	MOVE B,[POINT ^D8,FE%INF+SEBDAT(A)] ;POINTER
	MOVEM C,FE%BYT+SEBDAT(A) ;STORE # OF -11 BYTES
SEEER3:	ILDB P1,D		;ERROR BYTE
	IDPB P1,B		;SAVE IT
	SOJG C,SEEER3		;DO ALL BYTES
	MOVE B,[-2,,[		;INSERT EVENT CODE AND RECALL
		SEBPTR 0,SBTEVC,SEC%FE ;EVENT CODE
		SEBPTR 0,SBTFNA,SEEER2]] ;RECALL
	MOVE P1,D		;SAVE SP
	MOVE P2,A		;SAVE POINTER
	CALL SEBCPY		;DO COPY
	 JFCL
	MOVE A,P2		;GET BACK POINTER
	CALL QUESEB		;NOW QUEUE IT UP
	S0.ENT			;***WARNING*** REMOVE THIS IF MADE EXTENDED
	MOVE D,P1
	CALL CHKFRG		;SEE IF MORE TO COME
	JRST DTEDN1		;ALL DONE

SEEER1:	POP P,0(P)		;CLEAN UP STACK
	POP P,D			;SP
	POP P,C			;BYTE COUNT
	CALL CHKFRG		;SEE IF MORE TO DO
	JRST DMPBFR		;GO ALIGN BUFFERS
;CODE TO PROCESS TO -10 DONE FROM AN MCB FRONT END TRANSFER
;	A/ DTE NUMBER
;	C AND D POINT TO COMM REGIONS

DN10MC: EA.ENT			;DECNET RUNS IN EXTENDED SECTIONS
	STKVAR <DTENO>		;PLACE TO SAVE DTE NUMBER
	MOVEM A,DTENO		;SAVE DTE NUMBER FOR LATER
	SETZRO CMTOT, (C)	; clear in transit flag
	JN DTEBC,(A),DTEDNE	;IF MORE TO DO, GO WAIT.

	MOVE B,DTEIND(A)	;GET THE MESSAGE BLOCK POINTER
	LOAD A,DTBIBL,(A)	;POINT TO THE INPUT SECTION ZERO BLOCK
	CALL CPYWDS		;COPY THE INPUT TO THE MSG BLOCK

	MOVX B,DI.INC		;INPUT DONE INTERRUPT
	MOVE A,DTENO		;GET BACK THE DTE NUMBER
	SETZ C,
	EXCH C,DTEIND(A)	;GET THE POINTER TO THE MSG BLOCK
	CALL CALDVR		;CALL DRIVER (ROUTER)
	JRST DTEDNE		;AND DONE

;HERE TO COPY DATA FROM INPUT BLOCK TO MESSAGE BLOCK
; CALLED WITH A/ SECTION ZERO BLOCK
;	      B/ MESSAGE BLOCK TO COPY TO

CPYWDS:	XMOVEI B,UD.MSD(B)	;POINT TO THE "INPUT" MSD
	LOAD C,MDBYT,(B)	; AND USE THAT AS THE BYTE COUNT
	ADDI C,3		;ROUND THE COUNT UP
	LSH C,-2
	LOAD B,MDALA,(B)	;GET THE ALLOCATED ADDRESS
	XCALLRET (XCDSEC,DNCPYW) ;COPY THE WORDS TOGETHER
; -11 REQUESTED RELOAD OR INIT
DINGDY:	MOVE B,$CMINI(D)	;GET WORD FROM -11'S REGION
	LOAD C,CMVRR,(C)	;Get protocol version
	SKIPN DTBUGX		; Skip this if we aren't interested
	CAIE C,MCPRON		;If DECnet, no buginf
	 BUG.(INF,DTESUI,DTESRV,SOFT,<Front end requested reload or init>,<<A,DTE>,<B,STATUS>>,<

Cause:	An -11 has requested a reload or init but the enabled
	protocol for this DTE is not DECnet.

Data:	DTE - DTE number.
	STATUS - Status word from -11's comm region
>,,<DB%NND>)			;[7.1210]
	JRST DINGER
;COLLECTION OF ROUTINES TO DO ERROR PROCESSING.

;Here on interrupt, when CONI bit DTEEER indicates to -11 error

TO11ER:

;Here on interrupt, when CONI bit DTETER indicates to -10 error

TO10ER:	BUG.(CHK,DTEERR,DTESRV,HARD,<DTESRV - DTE device error>,<<A,DTENO>,<F,STATUS>>,<

Cause:	A packet has been received from a DTE that has a flag lit
	indicating a TO -10 or TO -11 error.

Action:	Contact Field Service

Data:	DTENO - DTE number
	STATUS - Result of CONI DTEN,
>,,<DB%NND>)			;[7.1210]
	JRST DINGER		;GO RELOAD THE MACHINE

;Here on interrupt, when CONI bit DTEPF indicates power failure

POW11:	CALL DTEPF1		;TELL -11 ABOUT THE POWER FAIL
	JRST DTEPRG		;GO SHUT OFF THIS -11



;ROUTINE TO REQUEST A RELOAD OF THIS MACHINE

LOADME::MOVE A,MSTRDT		;THE MASTER -11
	CALL SETRGN		;GO FIND REGIONS
	SETONE CML11,(C)	;SET MY RELOAD INDICATOR
	CALLRET DING11		;GO TELL HIM TO DO IT

;ROUTINE CALLED FROM SCHED TO TELL MASTER -11 ABOUT A POWER FAIL
;INTERRUPT

DTEPWF::MOVE A,MSTRDT		;GET MASTER -11
DTEPF1:	CALL SETRGN		;FIND COMM REGIONS
	SETONE CMPWF,(C)	;SET OUR POWER-FAIL INDICATOR
	CALLRET DING11		;AND TELL THE -11

;ROUTINE TO SEE IF STATUS PACKKET WAS FRAGMENTED

CHKFRG:	MOVE A,DTEDTE		;GET DTE NUMBER
	MOVE B,DTESTS(A)	;GET STATUS
	TXNN B,DTET10!DTET1F	;NOW ACTIVE?
	RET			;NO
	SETONE DTSTI,(A)	;REMEMBER NEXT PART TO DO LOGGING
	RET			;AND DONE
;Here on interrupt, when CONI DTE bit DTETDB indicates doorbell.
;Most likely cause is that the -11 wants to start a to -10 transfer.

;-10 HAS RECEIVED A TO 10 DOORBELL. MUST FIGURE OUT WHAT THE -11
;WANTS AND HOW TO DO IT

DINGME:	CALL SETRGN		;GO FIND THE COMM REGIONS
	JN <CMINI,CML11>,(D),DINGDY ;WANT RELOAD OR REINIT?
DINGM1:	LOAD B,CMVRR,(C)	;GET PROTOCOL TYPE
	CAIE B,.VN20F		;IS THIS THE RSX20F FRONT END?
	JRST DINGM2		;NO. DON'T CHECK FOR INDIRECT THEN
	JN DT1ID,(A),INDRCT	;YES, COMPLETING AN INDIRECT?
DINGM2:	LOAD P1,CM0IC,(C)	;MY TO 10 COUNTER
	LOAD P2,CM0IC,(D)	;HIS TO 10 COUNTER
	CAMN P2,P1		;DIFFERENT?
	JRST [	CALL CLRBEL	;CLEAR BELL
		JRST DTEDNE]	;GO AWAY
	CAIE P2,1(P1)		;WITHIN ONE OF ME?
	JRST [	CAIN P2,0	;DID HIS WRAP AROUND?
		CAIE P1,377	;YES. IS MINE AT MAX VALUE?
		JRST DINGM3	;NO. ERROR
		JRST .+1]	;YES. ALL IS WELL
	STOR P2,CM0IC,(C)	;MAKE COUNTS THE SAME
INDRC1:	MOVX B,DTET10!DTET1F	;TO 10 BITS
	TDNE B,DTESTS(A)	;IS THERE A TO 10 GOING?
	JRST DINGM4		;YES. ERROR
	SETONE CMTOT,(C)	;SET IN TRANSIT BIT
	CALL CLRBEL		;CLEAR DOORBELL
	LOAD B,CMQCT,(D)	;GET QUEUE COUNT
	SKIPG B			;IS IT A VALID COUNT
	JRST DINGM5		;NO. ERROR
	CALL DOFRGM		;START TRANSFER IN PROPER PROTOCOL
	JRST DTEDNE		;AND DONE
;COMPLETING AN INDIRECT FOR RSX20F PROTOCOL ONLY

INDRCT:	JE CMIP,(D),[
		LOAD P1,CM0IC,(C) ;MY TO 10 COUNT
		LOAD P2,CM0IC,(D) ;HIS TO 10 COUNT
		CAIE P1,0(P2)	;COUNTS THE SAME?
		JRST DINGM6	;NO. ERROR
		CALL CLRBEL	;YES. CLEAR EXTRANEOUS BELL
		JRST DTEDNE]	;GO DISMISS THE INTERRUPT
	SETZRO DT1ID,(A)	;CLEAR EXPECTING INDIRECT
	LOAD B,INCNT,(A)	;GET COUNT FROM HEADER
	OPSTR <CAME B,>,CMQCT,(D) ;SAME AS DATA NOW BEING SENT?
	JRST [	BUG.(INF,INDCNT,DTESRV,HARD,<DTESRV - Bad indirect count>,<<A,DTENO>>,<

Cause:	The DTE was attempting to complete an indirect but the count in
	the data being sent does not match the count in the indirect
	packet.

Data:	DTENO - DTE number.

>,,<DB%NND>)			;[7.1210]
		JRST DINGER]	;AND DO A RELOAD
	JRST INDRC1		;GO DO THE REQUEST
;ERROR ROUTINES FOR DOORBELL SERVICE

DINGER:	SKIPE FEDBSW		;YES. WANT TO SUPPRESS RELOADS?
	JRST DTEDNE		;YES. IGNORE CONDITION
	CAME A,MSTRDT		;IS THIS THE MASTER?
	CALL [	CALL DTREST 	;NO. CLEAR IT
		SETZRO DTERL,(A) ;AND SAY NOT RUNNING A PROTOCOL
		CALLRET CLRDTE] ;AND DONE
	CALL LOADFE		;(T1) REQUEST JOB 0 RELOAD
	JRST DTEDNE		;AND GO DISMISS INTERRUPT

;TO -10 COUNTS ARE WRONG

DINGM3:	BUG.(INF,DTECDM,DTESRV,HARD,<DTESRV - TO-10 counts do not match>,<<A,DTNENO>>,<

Cause:	TOPS-20 received a doorbell interrupt from the DTE but the TO-10
	counter in the front end does match the counter kept by TOPS-20.

Action:	TOPS-20 is reloading the FE.

Data:	DTENO - DTE number
>)
	JRST DINGER		;AND GO RELOAD

;TO -10 REQUEST FROM FE WHILE ONE IS IN PROGRESS

DINGM4:	BUG.(INF,DTEDIN,DTESRV,HARD,<DTESRV - TO-10 in progress on doorbell>,<<A,DTENO>>,<

Cause:	The 10 received a doorbell from the 11, but a TO -10 transfer was
	already in progress.

Data:	DTENO - DTE number

>)
	JRST DINGER
;INVALID Q COUNT FROM -11

DINGM5:	BUG.(INF,DTEDME,DTESRV,HARD,<DTESRV - Zero queue count>,<<A,DTENO>>,<

Cause:	A transfer from the 11 to the 10 is about to be started, but the
	count of free bytes in the transfer queue is zero.

Action:	Examine the DTE to see if it has hardware problems.

Data:	DTENO - DTE number

>)
	JRST DINGER

;INCORRECT INDIRECT SET UP FROM FE

DINGM6:	BUG.(INF,DTEPNR,DTESRV,HARD,<DTESRV - Incorrect indirect setup>,<<A,DTENO>>,<

Cause:	While trying to complete an indirect from an RSX20F FE the
	TO -10 count provided by RSX did not match the count kept by
	TOPS-20.

Data:	DTENO - DTE number

>)
	JRST DINGER
;ROUTINE TO PROCESS A TO 11 DONE INTERRUPT

TO11DN:	MOVE B,CNDO(A)		;CONO WORD
	IORI B,DTEEDN		;TO CLEAR 11 DONE
	XCT B			;CLEAR THE BIT
	CALL SETRGN
	LOAD B,CMVRR,(C)	;GET PROTOCOL IN USE
	MOVE B,DN11TR(B)	;GET ROUTINE TO PROCESS THIS
	JRST 0(B)		;GO TO IT

;PROCESS RSX20F TO -11 DONE

DN11X:	LOAD B,DTEST,(A)	;GET STATE OF DTE
	TXZE B,DTE11		;DOING TO 11?
	JRST DN11		;YES. GO HANDLE IT
	TXZE B,DTE11I		;DOING INDIRECT?
	JRST DN11I		;YES
	RET			;ALL DONE

DN11I:	TXO B,DTE11		;DOING REGULAR 11
	STOR B,DTEST,(A)	;NEW STATE
	HRRZ B,DTEQS(A)		;GET QUEUE PACKET
	LOAD D,QCNT,(B)		;GET BYTE SIZE
	CAILE D,MAXINP		;TOO BIG FOR PROTOCOL?
	MOVEI D,MAXINP		;YES. FRAGMENT IT THEN
	STOR D,CMQCT,(C)	;TO MY REGION
	LSH A,SDTE			;*4
	JN QMODE,(B),[		;FORCE BYTE MODE?
		LOAD B,QPNTR,(B) ;YES. GET BYTE POINTER
		JRST NOTWRD]	;AND GO DO IT
	LOAD B,QPNTR,(B)		;GET BYTE POINTER
	TLNN B,100000		;EVEN # OF BYTES IN FIRST WORD?
	TRNE D,1		;YES. EVEN # OF BYTES IN MESSAGE?
	JRST NOTWRD		;NO. SEND IN BYTE MODE THEN
	LDB D,[POINT 6,B,11]	;GET BYTE SIZE
	CAIN D,10		;8 BITS?
	JRST [	MOVEI D,^D16	;YES. DO IT FULL WORD THEN
		DPB D,[POINT 6,B,11]
		SETONE CMFWD,(C) ;TELL -11 IT IS FULL WORD
		JRST .+1]
NOTWRD:	MOVEM B,DTEEBP(A)	;SET UP BYTE POINTER
	LSH A,-SDTE		;RESTORE A
	SETONE CMIP,(C)		;TELL -11 ALL IS OKAY
	CALL DING11		;GO DING -11
	RET			;ALL DONE
DN11:	STOR B,DTEST,(A)	;NEW STATE
	SETZRO CMIP,(C)		;NOT DOING INDIRECT ANYMORE
	HRRZ B,DTEQS(A)		;DEQUEUE THE PACKET
	CALL TSTSGL		;IS THIS A SINGLE PACKET GROUP?
	JRST DNSNGL		;YES. GO DO SPECIAL POSTING
	LOAD D,QCNT,(B)		;SEE IF IT WAS INDIRECT
	JUMPE D,DEQDTE		;NO. GO ON TO THE DEQUEUE LOGIC
	CAIG D,MAXINP		;YES. DID WE SEND IT ALL?
	JRST DEQDTE		;YES. GO ON

;INDIRECT REQUEST MUST BE PARTITIONED. DO NEXT PART

	SUBI D,MAXINP		;SAY SENT ONE SECTION
	STOR D,QCNT,(B)		;ABD STASH AWAY NEW COUNT
	MOVEI D,MAXINP		;COUNT OF BYTES SENT
	LOAD C,QPNTR,(B)	;GET BYTE POINTER
	IBP D,C			;ADJUST IT
	STOR D,QPNTR,(B)	;NEW BYTE POINTER
	CALL DTESKD		;GO DO NEXT PART
	RET			;AND DONE
;DEQUEUE COMPLETED REQUEST,POST IT, AND SCHEDULE NEXT REQUEST

DEQDTE:	LOAD C,QLINK,(B)	;GET NEXT GUY
	HRRM C,DTEQS(A)		;NEW HEAD
	SKIPN C			;HAVE A HEAD?
	SETZM DTEQS(A)		;NO. CLEAR THE WORD
	LOAD C,QINT,(B)		;INTERRUPT GUY
	PUSH P,C		;SAVE INTERRUPT
	LOAD C,QDEV,(B)		;DEVICE CODE
	PUSH P,C		;SAVE IT
	LOAD C,QCOD,(B)		;UNIQUE CODE
	PUSH P,C		;SAVE THIS AS WELL
	LOAD C,QLIN,(B)		;UNIT
	PUSH P,C		;SAVE IT
	MOVE C,A
	LSH C,SDTE		;FIND EPT OFFSET FOR THIS DTE
	SETZM DTEEBP(C)		;CLEAR TO -11 POINTER
	CALL RELNOD		;FREE THE NODE - RELNOD (A,B)
MSTSKD:	OPSTR <SKIPE>,DTERL,(A)	;MAKE SURE DTE IS ACTIVE
	CALL DTESKD		;START DTE AGAIN
	POP P,B			;UNIT
	POP P,A			;CODE
	POP P,C			;DEVICE CODE
	POP P,D			;ADDRESS
	SKIPE D			;HAVE ONE?
	CALL 0(D)		;YES. GO HANDLE IT
	RET			;ALL DONE

;TRANSFER VECTOR FOR TO -11 DONE

DN11TR:	DN11X			;RSX20F PROTOCOL
	DN11MC			;MCB PROTOCOL
	DN1160			;DN60 protocol
;ROUTINE TO POST A SINGLE CHARACTER DONE

DNSNGL:	LDB P1,[POINT 6,0(B),17] ;GET COUNT OF ENTRIES
	LOAD C,QLINK,(B)	;GET Q LINK
	HRRM C,DTEQS(A)		;NEW HEADER
	SKIPN C			;Q NOW EMPTY?
	SETZM DTEQS(A)		;YES
	SETZM 0(B)		;CLEAR ALL FLAGS
	MOVEI P2,SNGHDR(B)	;FIRST CHARACTER
	CALL DTESKD		;REACTIVATE THE DTE
	HRLI P2,(POINT ^D16,)	;MAKE A BYTE POINTER
SNGPST:	ILDB B,P2		;GET AN ENTRY
	LSH B,-^D8		;LINE NUMBER ONLY
	SETZ A,			;NO CODE
	MOVEI C,.FEDLS		;THE DSL
	CALL TTYINT		;GO DO THE POST
	SOJG P1,SNGPST		;DO ALL
	RET			;AND DONE

;TEST IF PACKET POINTED TO BY B IS A SINGLE PACKET GROUP.
;INPUT B/ POINTER
;RETURNS: +1 IS A SINGLE GROUP
;	+2 IS NOT

TSTSGL:	MOVE D,0(B)		;GET FLAGS
	TLNE D,(1B0)		;IS IT?
	TLNN D,(1B1)		;MAYVE
	RETSKP			;NO
	RET			;YES
;ROUTINE TO PROCESS A TO -11 DONE FOR A FE RUNNING DN60 PROTOCOL

DN1160:	EA.ENT
	SAVEQ			;GET WORK REGS
	HRRZ B,DTEQS(A)		;GET PACKET WE JUST COMPLETED
	LOAD Q1,DTEST,(A)	;GET CURRENT STATE OF THE DTE
	TXZN Q1,DTE11		;DONE WITH DATA TRANSFER?
	RET			;NO. IGNORE THE INTERRUPT THEN
	STOR Q1,DTEST,(A)	;YES. SAVE NEW STATE
	JRST DEQDTE		;AND GO FINISH UP THIS REQUEST

;ROUTINE TO PROCESS A TO -11 DONE FOR A FE RUNNING MCB PROTOCOL

DN11MC:	EA.ENT
	SAVEQ			;GET WORK REGS
	HRRZ B,DTEQS(A)		;GET PACKET WE JUST COMPLETED
   IFN FTPARANOID,<
	LOAD D,QCOD,(B)		;Get address of message block
	XMOVEI CX,.		;Touch 
	STOR CX,NMMAG,(D)	; it.
   >;END IFN FTPARANOID
	LOAD Q1,DTEST,(A)	;GET CURRENT STATE OF THE DTE
	TXZN Q1,DTE11		;DONE WITH DATA TRANSFER?
	RET			;NO. IGNORE THE INTERRUPT THEN
   IFN FTPARANOID,<
	XMOVEI CX,.		;Touch 
	STOR CX,NMMAG,(D)	; message block
   >;END IFN FTPARANOID
	STOR Q1,DTEST,(A)	;YES. SAVE NEW STATE
	JRST DEQDTE		;AND GO FINISH UP THIS REQUEST

;HERE TO POST OUTPUT COMPLETES BACK TO THE DRIVER (ROUTER, ETC.).

DNPOST:	EA.ENT			;DECNET AND ALL OTHER USERS OF THE
				;INTERFACE RUN IN SECTION MUMBLE
	EXCH A,C		;EXCH QDEV AND QCOD (WHICH ARE DTE#
				; AND MSG BLOCK POINTER RESPECTIVELY)
	MOVX B,DI.ODN		;INTERRUPT TYPE WILL BE OUTPUT DONE
	CALLRET CALDVR		;POST IT TO ROUTER
	SUBTTL Start of to -10 transfer

;ROUTINE TO START A TO 10 TRANSFER. ACCEPTS:
;	A/DTE NUMBER
;	B/ BYTES LEFT IN QUEUE (FOR CONSOLE FRONT END ONLY)
;RETURNS +1 WITH
;	A/DTE NUMBER
;	B/CLOBBERED
;	C/OLD COUNT FROM DTEB1
;	D/BUFFER POINTER BIT FOR LAST OPERATION

DOFRGM:	SAVEP			;PRESERVE THESE
	PUSH P,B		;SAVE INPUT
	CALL SETRGN		;GO FIND HIS REGION
	POP P,B
	LOAD P5,CMVRR,(C)	;GET PROTOCOL TYPE
	JRST @DOFRTR(P5)	;GO HANDLE PROPER PROTOCOL

;CODE FOR RSX20F PROTOCOL

DOFRRS:	LOAD P5,CMFWD,(D)	;GET WORD/BYTE INDICATOR
	LOAD C,DTEBF,(A)	;GET CURRENT BUFFER BIT
	MOVE D,C		;SAVE FOR CALLER
	TRC C,1			;NEXT BUFFER
	STOR C,DTEBF,(A)	;STORE THIS AS CURRENT BUFFER
	XCT [	HRRZ P4,DTBFWD(A)
		HLRZ P4,DTBFWD(A)](C) ;PICK UP BUFFER BASE
	HRLI P4,(<POINT ^D8,0>)	;MAKE IT A POINTER
	SKIPE P5		;DOING BYTE MODE?
	HRLI P4,(<POINT ^D16,0>) ;NO. GET WORD POINTER THEN
	LOAD C,DTEB1,(A)	;GET PREVIOUS COUNT
	CAIG B,BYTBUF		;ROOM IN A BUFFER FOR THIS MESSAGE?
	JRST [	SETZRO DTEBC,(A) ;YES. NO PENDING OPERATION THEN
		STOR B,DTEB1,(A) ;NCURRENT COUNT
		SKIPE P5	;BYTE TRANSFER?
		LSH B,-1	;NO. CALCULATE 16 BIT COUNT
		MOVNI B,0(B)	;GET NEG WORD COUNT
		ANDI B,7777	;ONLY 12 BITS FOR THE DTE
		IORI B,1B23	;SET I BIT TO INFORM 11
		MOVEI P2,DTET10	;DOING A TO 10 TRANSFER
		JRST SET1]	;AND GO DO IT
	MOVEI P2,DTET1F		;DOING A FRAGMENTED MESSAGE
	SUBI B,BYTBUF		;FIND RESIDUE
	STOR B,DTEBC,(A)	;SAVE IT FOR LATER
	MOVNI B,BYTBUF		;NUMBER OF BYTES
	SKIPE P5		;BYTE MODE?
	ASH B,-1		;NO. GET WORD COUNT THEN
	ANDI B,7777		;ONLY WANT 12 BITS
	MOVEI P1,BYTBUF
	STOR P1,DTEB1,(A)	;REMEMBER THIS COUNT
; ..
	; ..
;READY TO START THE TO -10 TRNASFER

SET1:	LSH A,SDTE		;FIND DTE REGION
	MOVEM P4,DTETBP(A)	;STORE APPROPRIATE BYTE POINTER
	LSH A,-SDTE		;RESTORE DTE NUMBER
SET2:	IORM P2,DTESTS(A)	;INSERT STATUS WORD
	MOVE P1,DATO(A)		;DATAO WORD
	IORI P1,B		;WHERE DATA LIVES
	XCT P1			;DO TRANSFER
	MOVX B,DTIPU		;DO WE WANT TO INDICATE PROTOCOL UP?
	TDNN B,DTESTS(A)	;???
	 RET			; NO, JUST RETURN
	ANDCAM B,DTESTS(A)	;YES, CLEAR THE BIT
	MOVX B,DI.LSC		;GET THE ROUTER FUNCTION
	MOVX C,LS.ON		;The line went to the on state
	CALLRET CALDVR		;AND TELL ROUTER ABOUT IT
;TRANSFER VECTOR FOR DOFRGM

DOFRTR:	IFIW!DOFRRS		;FOR RSX20F
	IFIW!DOFRMC		;FOR MC PROTOCOL
	IFIW!D6DRBL		;for DN60 protocol

;CODE TO HANDLE TO -10 TRANSFER FOR MCB PROTOCOL

DOFRMC:	EA.ENT			;RUN IN EXTENDED SECTION.
	LOAD P5,DTEBC,(A)	;GET RESIDUAL COUNT
	LOAD B,CMQCT,(D)	;GET PIECEMEAL COUNTER
	JUMPLE B,DOFRMB		;IF COUNT IS NOT GOOD, BUGCHK AND RELOAD
	JUMPE P5,DOFMCI		;NO RESIDUAL COUNT. GO GET A FREE BLOCK
	LOAD P3,CMTMD,(D)	;GET MODE OF THIS TRANSFER
	CAMG B,P5		;REASONABLE TRANSFER?
	IFSKP.
DOFRMB:	  BLOCK.		;no. complain.
	  SAVEAC <P4,P2>
	  MOVE P4,$CMTST(C) 	;get flags from -10's region.
	  MOVE P2,$CMTST(D) 	;get flags from -11's region.
	  BUG.(CHK,DTEMCC,DTESRV,SOFT,<DOFRGM - DN20 disagrees with count>,<<A,D>,<P5,REST>,<C,RGN10>,<P2,RGN11>>,<

Cause:	Either the monitor has calculated a different value than it was
	given by the front end, or an invalid count (.LE 0) has been found.

Action:	Check for DTE hardware problems;  if there is none, the code in the
	DN20 should be investigated.

Data:	D - Comm region address
	REST - residual count of transfer
	RGN10 - Flags from -10's region
	RGN11 - Flags from -11's region
>)
	  ENDBK.
	  JRST DINGER		;AND RELOAD DN20
	ENDIF.

	SUB P5,B		;COMPUTE NEW RESIDUAL COUNT
	STOR P5,DTEBC,(A)	;STASH IT
	CAIE P3,.TMBYT		;BYTE MODE TRANSFER?
	LSH B,-1		;NO. HALVE NUMBER THEN

	MOVNI B,0(B)		;GET NEG OF COUNT
	ANDI B,7777		;MAKE IT 12 BITS
	IORI B,1B23		;SET I BIT
	MOVEI P2,DTET10		;SAY DOING TO -10 TRANSFER
	JRST SET2		;AND GO DO THE TRANSFER
;HERE TO START A NEW TRANSFER

DOFMCI:	LOAD CX,CMPCT,(D)	;GET COUNT OF ENTIRE MESSAGE
	JUMPLE CX,DOFRMB	;IF BAD COUNT, BUGCHK AND RELOAD.
	MOVE C,CX		;GET COUNT INTO C
	STOR C,DTEBC,(A)	;SAVE STARTING COUNT
;********* Handle message too long *************

	SKIPN DTEIND(A)		;Have a message block?
	 JRST [SETONE DTBLK,(A) ; SAY THIS DTE IS BLOCKED FOR FREE SPACE
	       SETZRO DTEBC,(A) ; INVALIDATE THE BYTE COUNT
	       RET]		   ; AND GIVE UP
	LOAD P1,DTBIBL,(A)	;POINT TO THE SECTION ZERO INPUT BLOCK
	CALL SETRGN		;FIND REGIONS AGAIN
	LOAD B,CMTMD,(D)	;GET MODE OF THESE TRANSFERS
	HRLI P1,(<POINT ^D8,>)	;ASSUME BYTE MODE
	CAIE B,.TMBYT		;IS IT?
	HRLI P1,(<POINT ^D16,>)	;NO. MAKE IT WORDS THEN
	LSH A,SDTE		;FIND PROPER DTE GROUP
	MOVEM P1,DTETBP(A)	;STORE INTO THE EPT
	LSH A,-SDTE		;RESTORE DTE NUMBER

;NOW WE WILL SET UP SOME LOCATIONS IN THE MESSAGE BLOCK TO TELL
;ROUTER WHERE THE DATA IS LOCATED AND HOW MUCH THERE IS.

	LOAD B,CMPCT,(D)	;GET THE COUNT OF THE TRANSFER
	MOVE P1,DTEIND(A)	;GET THE MSG BLK POINTER BACK
	XMOVEI C,UD.MSD(P1)	;CALCULATE THE "FIRST" MSD ADDRESS
	STOR C,MBFMS,(P1)	;SET THAT UP FOR ROUTER
	STOR B,MDBYT,(C)	; ALONG WITH THE COUNT
	JRST DOFRMC		;AND GO DO INITIATE THE TRANSFER
;ROUTINE USED BY TTYSRV TO QUEUE UP A SINGLE CHARACTER OUTPUT
;REQUEST. THESE REQUESTS ARE HANDLED SPECIALLY IN THAT THEY ARE
;PACKED TOGETHER IN A SPECIAL PACKET.
;INPUT IS:
;	B/ FUNCTION,,DEVICE
;	C/ UNIT,,
;	D/ BYTE

DTSNGL::CALL DTSNG0		;DO WORK
	 JRST DTSNG3		;COULDN'T DO IT
	RETSKP			;SUCCESS

;WORKER ROUTINE

DTSNG0:	SAVEP			;GET SOME WORK REGS
	S0.ENT			;HAVE TO RUN IN SECTION 0
	MOVE A,MSTRDT		;TO THE MASTER -11
	JE DTERL,(A),R		;IF NOT RUNNING, GIVE UP FOR NOW
	MOVEI P3,SNGPK1		;ADDRESS
	MOVE P4,SNGPK1		;LOOK AT THIS ONE
	TXNN P4,SNGACT		;INACTIVE?
	TXNE P4,SNGAVL		;YES, THIS PACKET AHVE SPACE IN IT?
	JRST DTSNG1		;NO. TRY OTHERS
	JRST DTSNG6		;GO DO COMMON CODE

DTSNG1:	MOVE P4,SNGPK2		;GET FLAGS
	MOVEI P3,SNGPK2
	TXNN P4,SNGACT		;INACTIVE?
	TXNE P4,SNGAVL		;THIS ONE HAVE ROOM?
	RET
DTSNG6:	CALL DTSNG2		;GO ADD BYTE
	RETSKP			;DONE
	; ..
;DTSNGL...

;WORKER ROUTINE TO ADD BYTE TO SINGLE PACKET

DTSNG2:	TXOE P4,SNGONQ		;ON THE QUEUE YET?
	JRST DTSNG4		;YES. GO ADD THE DATUM
	TXO P4,3B1		;SAY IS A SINGLE PACKET GROUP
	HLRZ P1,DTEQS(A)	;NO. MUST ADD IT
	HRLM P3,DTEQS(A)	;ADD IT TO THE TAIL
	SKIPN P1		;EMPTY QUEUE?
	JRST [	HRRM P3,DTEQS(A) ;YES. MAKE IT THE HEAD ALSO
		JRST DTSNG5]
	STOR P3,QLINK,(P1)	;NO. LINK THIS ONE IN
DTSNG5:	SETZRO QLINK,(P3)	;THIS ONE DOESN'T LINK
	DMOVE P1,[BYTE (^D16) 10,.DFHLC
		BYTE (^D16) .FEDLS,0]
	DMOVEM P1,1(P3)
DTSNG4:	MOVSI P1,(2B15)		;INCREASE Q COUNT
	ADDM P1,1(P3)		;DO IT
	LDB P1,[POINT 6,P4,17]	;GET COUNT OF ENTRIES IN QUEUE
	IDIVI P1,2		;ENTRIES PER -10 WORD
	ADDI P3,SNGHDR(P1)	;WORD TO PUT IT IN
	MOVEI B,0(B)		;DEVICE
	CAIN B,.FECTY		;IS THIS THE CTY?
	MOVS C,CTYUNT		;YES. GET REAL NAME
	LSH C,-^D10		;POSITION LINE NUMBER
	IORI C,0(D)		;MERGE IN BYTE
	XCT [	DPB C,[POINT ^D16,0(P3),15]
		DPB C,[POINT ^D16,0(P3),31]](P2)
	LDB P2,[POINT 6,P4,17]	;GET RESIDENT COUNT
	AOS P2			;INCREASE IT
	CAIL P2,MAXSGL		;FULL?
	TXO P4,SNGAVL		;YES. NO MORE THEN
	DPB P2,[POINT 6,P4,17]	;PUT BACK THE COUNT
	SUBI P3,SNGHDR(P1)	;BACK TO TOP OF PACKET
	HLLM P4,0(P3)		;SET UP NEW FLAGS
	MOVX B,DTE11!DTE11I	;ACTIVE STATUS
	TDNN B,DTESTS(A)	;IS IT ACTIVE?
	CALL DTESKD		;NO. GO START IT
	RET			;AND DONE

;COULD NOT PUT ENTRY IN EITHER SINGLE PACKET. USE CONVENTIONAL
;MECAHNISM

DTSNG3:	MOVSI A,TTYINT		;THE INTERRUPT LOCATION
	CALLRET DTEQ		;DO IT

;REQUEST TIME AND DATE FROM 11

RQTAD1::			;ALTERNATE ENTRY FOR REQUEST TIME AND DATE 11
	MOVSI B,.DFRTD		;GET TIME/DATE FUNCTION
	MOVE A,MSTRDT		;THE MASTER -11
	SETZM C			;NO UNIT - SEND DIRECT
	CALLRET DTEQ
;THIS IS ROUTER (AND POSSIBLY OTHER HIGHER LEVEL DRIVERS) ENTRY INTO
;DTESRV.  DTESRV PERFORMS THREE FUNCTIONS FOR ROUTER; HALT A LINE,
;INITIALIZE A LINE AND QUEUE A MESSAGE ON A LINE.
;
;CALLED:
;	A/ FUNCTION CODE (DD.OPN, DD.CLS, OR DD.XMT, DD.PRB)
;	B/ LINE IDENTIFIER QUANTITY (DTE NUMBER IN OUR CASE)
;	C/ MESSAGE BLOCK POINTER (FOR DD.XMT FUNCTION) or
;	   DNADLL callback ID for DD.OPN function or
;	   Message block address for DD.PRB function
;
;RETURNS:
;	RET			;COULDN'T PERFORM FUNCTION
;				; * OR FUNCTION WAS DD.CLS OR DD.OPN *
;	RETSKP			;ALL IS DONE

DTEDSP::EXCH A,C		;EXCHANGE FUNCTION AND MSG BLK POINTER
	EXCH A,B		;EXCHANGE MSG BLK POINTER AND LINE BLOCK
				; ADDRESS (DTE NUMBER)
	SKIPL A			;[7226] RANGE CHECK
	CAIL A,DTEN		;[7226]  DTE NUMBER
	RET			;[7226] NOT POSSIBLE FOR THIS CONFIGURATION
	CAIL C,DD.OPN		;RANGE CHECK THE FUNCTION
	CAILE C,DD.MAX		; TYPE
	BUG.(CHK,INVDFN,DTESRV,SOFT,<DTEDSP - Bad function specified>,,<

Cause:	The caller of DTEDSP supplied an illegal controller function.
>,RTN)
	CALL @DTEDST(C)		;DISPATCH BY FUNCTION CODE
	RET			;BAD RETURN * OR DD.CLS OR DD.OPN *
	RETSKP			;GOOD RETURN

DTEDST:	IFIW DTDINI		;0 = INITIALIZE PROTCOL
	IFIW DTDHLT		;1 = HALT ALL PROTOCOL
	IFIW DTDQUE		;2 = QUEUE OUTPUT BUFFER
	IFIW DTDPRB		;3 = Post receive message block
	IFIW DTREAL		;4 = Check existance of DTE
	IFIW CPOPJ		;NTMAN - SET PARAMETER
	IFIW CPOPJ		;NTMAN - CLEAR PARAMETER
	IFIW CPOPJ		;NTMAN - READ PARAMETER
	IFIW CPOPJ		;NTMAN - SHOW COUNTERS
	IFIW CPOPJ		;NTMAN - SHOW and ZERO COUNTERS
;HERE TO HALT A LINE (A CONTAINS THE DTE NUMBER)
DTDHLT:	CALL DTREST		;RESET THE DTE
	SETZRO DTERL,(A)	;MAKE IT LOOK DEAD
	CALL CLRDT0		;CLEAR IT OUT AND POST ALL DEAD MESSAGES
	SETZ B,			;Prepare to clear message block pointer
	EXCH A,B		;Change AC with DTE number
	EXCH A,DTEIND(B)	;Get message block if any
	RETSKP			;Return with possible MB in T1(A)

;HERE TO INITIALIZE PROTOCOL ON A LINE (Turn the line on)
DTDINI:	JN DTERL,(A),R		;If running a protocol already, then error
	MOVEM B,DCNCID(A)	;Save DNADLL callback ID
	MOVEI B,MCPRON		;Get protocol we will use
	SKIPE T4		;A buffer for us?
	 MOVEM T4,DTEIND(A)	;Yes, save it
	RETSKP

;HERE TO QUEUE OUTPUT
DTDQUE:	HRLI A,DNPOST		;CALLBACK ADDRESS FOR OUTPUT DONE
	JRST DTEQ

;Here to post a receive buffer (message block)
DTDPRB:	SKIPE DTEIND(A)		;Do we already have one?
	 RET			;Yes, we can only handle one now
	MOVEM B,DTEIND(A)	;No, save address for next TO-10 transfer
	RETSKP
	SUBTTL ROUTER INTERFACE
;CALL CALDVR
;ALL CALLS TO ROUTER (OR ANOTHER HIGH LEVEL USER OF DTE) GO THROUGH
;THIS ROUTINE.
;
;CALL:
;	A/ DTE#
;	B/ FUNCTION CODE (DI.XXX; SEE D36PAR FOR DEFINTIONS)
;	C/ FUNCTION SPECIFIC DATA
;	D/ EVEN MORE FUNCTION SPECIFIC DATA
;
;RETURN:
;	RET			;ALWAYS

CALDVR:	EXCH A,B		;EXCHANGE DTE# AND FUNCTION CODE
	LOAD B,DTBDID,(B)	;GET THE DRIVER'S (ROUTER'S) BLOCK ID
				; (USUALLY THE ADDRESS OF HIS DATA BLOCK
				; FOR HIS CIRCUIT)
	JUMPE B,RTN		;Nobody cares...
	CALLRET DTIPPI##	;CALL DNADLL (FOR NOW HE'S OUR ONLY USER)
	SUBTTL DTEQ - Queue requests for the DTE

;THIS IS THE DTE REQUEST QUEUER. FOR RSX20F PROTOCOL ACCEPTS:
;	F/DRIVER UNIQUE CODE
;	A/DRIVER INT LOC,,DTE NUMBER
;	B/DTE FUNCTION CODE,,FE DEVICE CODE
;	C/UNIT NUMBER,,BYTE COUNT OR ZERO
;		BIT 18 OF C IS A ONE IF INDIRECT DATA MUST BE SENT
;		IN BYTE MODE. IF 0, THEN DTESRV DECIDES HOW TO PACKAGE
;		AND SEND THE BYTES
;	D/INDIRECT BYTE POINTER (IF RH OF C NE 0) OR LOCAL DATUM
;	  IF LOCAL DATUM SPECIFIED (I.E. RH OF C EQ 0) THEN
;	  IF LH OF C =0, DATUM IS 16 BITS. IF LINE NUMBER
;	  IS NON-ZERO, THEN DATUM IS 8 BITS.

;AND FOR MCB PROTOCOL ACCEPTS:
;
;	A/ DRIVER INT LOC,,DTE NUMBER
;	B/ POINTER TO MESSAGE BLOCK
;
;	RETURNS:
;	+1 IF NO PACKETS AND CALLED FROM SCHEDULER. REQUEST NOT
;	   QUEUED.
;	+2 REQUEST QUEUED
;
;MAY BE CALLED FROM PI OR NON-PI LEVEL .

;DTEQI is alternate entry point.  It returns +1 always.  If called
;in scheduler or PI level, it will use the "reserve" of nodes to
;avoid failure.

;LOCAL FLAGS

NOFF==1B0			;NO FAILURE POSSIBLE

DTEQI::	S0.ENT			;THIS RUNS IN SECTION 0
	TRVAR <SAVF,SAVA,SAVB,SAVC,SAVD,PISTAT,PROVER,EFLAG> ;SAVE REGS HERE
	MVI. NOFF,EFLAG		;INIT EFLAG
	JRST DTEQ14

DCNMSO::
DTEQ::	S0.ENT			;THIS RUNS IN SECTION 0
	TRVAR <SAVF,SAVA,SAVB,SAVC,SAVD,PISTAT,PROVER,EFLAG> ;SAVE REGS HERE
	SETZM EFLAG		;INIT EFLAG
DTEQ14:	JE DTERL,(A),DTEOFF	;DTE IS NOT RUNNING. CHECK OUT WHAT TO DO
	MOVEM A,SAVA		;SAVE ALL ARGS
	HRRZS A			;ISOLATE DTE NUMBER
	CAIL A,DTEN		;A KNOWN DTE?
	BUG.(HLT,INVDTE,DTESRV,SOFT,<DTEQ - Invalid DTE specified>,,<

Cause:	The DTE request queuer for outgoing messages has been given
	an invalid (greater than 3) DTE number.

Action:	Look at the dump.  The stack should indicate the calling
	routine.

>)
	CAMN A,MSTRDT		;IS THIS THE MASTER?
	SKIPE FEFLG		;YES. PRIMARY PROTOCOL AVAILABLE?
	SKIPA			;ALL SET
	RETSKP			;NO PROTOCOL INIT. IGNORE REQUEST
	MOVEM B,SAVB
	MOVEM C,SAVC
	MOVEM D,SAVD
	MOVEM F,SAVF		;SAVE UNIQUE CODE AS WELL
	CALL SETRGN		;GO GET COMM REGION POINTERS
	LOAD C,CMVRR,(C)	;GET PROTOCOL VERSION
	MOVEM C,PROVER		;SAVE IT FOR LATER
	SETZM PISTAT		;ASSUME PI IS ON
	CONSO PI,1B<DLSCHN+^D20> ;AT DTE PI LEVEL?
	CONSO PI,1B<DLSCHN+^D28> ;IS PI OFF?
	SETOM PISTAT		;YES, INTERLOCK ALREADY IF EFFECT
	BLCAL. ASGNOD,<A,PISTAT,<NOFF,EFLAG>> ;GET BUFFER
	 RET			;COULDN'T AND CAN'T BLOCK - GIVE UP
	MOVEI D,0(A)		;MOVE ADDRESS
	HLRZ B,SAVA		;INT LOC
	STOR B,QINT,(D)		;TO THE REQUEST
	SETZRO QMODE,(D)	;ASSUME FREE CHOICE ON INDIRECT
	HRRZ B,SAVC		;COUNT OR DATUM
	STOR B,QCNT,(D)		;STORE COUNT
	TXZE B,DTBYTM		;FORCE BYTE MODE?
	JRST [	SETONE QMODE,(D) ;YES
		JRST .+1]	;PROCEED
	MOVE A,SAVF		;GET UNIQUE CODE
	STOR A,QCOD,(D)		;PUT IN THE PACKET
	MOVE C,PROVER		;GET PROTOCOL VERSION NUMBER
	CAIN C,.VN20F		;IS THIS RSX20F PROTOCOL?
	IFSKP.			;No, then must be DN60 or MCB
	  MOVE B,SAVB		;GET POINTER TO MESSAGE BLOCK
	  STOR B,QPNTR,(D)	;STORE IT
	  CAIE C,.VNMCB		;For the MCB?
	  IFSKP.
	    STOR B,QCOD,(D)	;STORE MESSAGE BLOCK HERE FOR TO -11 DONE CODE.
	  ENDIF.
	  HRRZ B,SAVA		;DTE NUMBER 
	  STOR B,QDEV,(D)	; FOR TO -11 DONE CODE.
	ELSE.
	  HLRZ C,SAVB		;THE FUNCTION CODE
	  SKIPE B		;AN INDIRECT INDICATOR?
	  TRO C,1B20		;YES. MARK IT AS SUCH
	  STOR C,QFNC,(D)	;AND THE FUNCTION
	  HLRZ C,SAVC		;UNIT NUMBER
	  STOR C,QLIN,(D)	;TO THE PACKET
	  HRRZ B,SAVB		;DEVICE CODE
	  STOR B,QDEV,(D)	;TO REQUEST
	  MOVE B,SAVD		;BYTE POINTER OR DATUM
	  STOR B,QPNTR,(D)	;STORE POINTER OR DATUM
	ENDIF.
	HRRZ A,SAVA		;DTE NUMBER
	SKIPE PISTAT		;PI OFF BY CALLER?
	JRST DTEQ1		;YES
	NOSKD1			;PROTECT THE DATA STRUCTURES
	CHNOFF DLSCHN		;AND AGAIN
DTEQ1:	HLRZ B,DTEQS(A)		;GET TAIL
	HRLM D,DTEQS(A)		;MAKE THIS THE TAIL
	SKIPN B			;WAS Q EMPTY?
	JRST [	HRRM D,DTEQS(A)	;YES
		JRST OCUPID]	;AND GO INLINE
	STOR D,QLINK,(B)	;NO. ADD THIS ONE
OCUPID:	SETZRO QLINK,(D)	;THIS ONE HAS NO LINK
	LOAD B,DTEST,(A)	;GET STATUS OF THIS DTE
	TXNN B,DTE11!DTE11I	;IS TO 11 IDLE?
	CALL DTESKD		;GO START UP THE DTE
	SKIPE PISTAT		;PI OFF BY CALLER?
	IFSKP. <		;PI ON AND NOT IN PI
	 CHNON DLSCHN		;TURN ON THE DTE AGAIN
	 OKSKD1>			;AND THE SCHEDULER
	TMNE NOFF,EFLAG		;TELL CALLER OF FAILURE?
	RET			;NO
	RETSKP			;AND RETURN
;DTEQ CONTINUED. DTE IS NOT RUNNING. SEE IF WE SHOULD BLOCK

DTEOFF:	HRRZ CX,A		;GET DET #
	CAME CX,MSTRDT		;IS THIS THE MASTER?
	RET			;NO. GIVE UP NOW THEN
	SKIPN INSKED		;IN THE SCHEDULER?
	SKIPE NSKED		;OR NOSKED?
	RET			;YES. GIVE UP THEN
	MOVE CX,RLDFRK		;GET FORK ID OF RELOAD FORK
	CAME CX,FORKX		;IS THIS IT?
	CONSZ PI,1B<DLSCHN+^D20> ;AT DTE INTERRUPT LEVEL?
	RET			;YES. GIVE UP

;CAN BLOCK THE PROCESS. DO IT

	PUSH P,A		;SAVE ARG
	MOVEI A,RLDTST		;WAIT FOR MASTER TO BE RELOADED
	MDISMS			;DO IT
	POP P,A			;GET BACK ARG
	JRST DTEQ14		;AND TRY AGAIN

;SCHEDULER TEST FOR ABOVE

	RESCD
RLDTST:	MOVE A,MSTRDT		;GET MASTER DTE NUMBER
	OPSTR <SKIPE>,DTERL,(A)	;NOW RUNNING?
	ADDI 4,1		;YES.
	JRST 0(4)		;AND DONE

	ENDTV.
;ROUTINE TO START A TO 11 OPERATION FROM THE TOP OF THE DRIVER
;QUEUE
;ACCEPTS A/ DTE NUMBER


;TRANSFER VECTOR FOR PROTOCOL TYPES

SKDVEC:	SKVER1			;ROUTINE FOR RSX20F PROTOCOL
	SKVER2			;ROUTINE FOR MCB DECNET PROTOCOL
	SKVER3			;routine for DN60 protocol

DTESKD:	SKIPN DTEQS(A)		;A REQUEST?
	RET			;NO. ALL DONE THEN
	JN DTRLD,(A),R		;IF RELOADING -11, DON'T DO ANYTHING
	CALL SETRGN		;GO FIND MY COMM REGION TO THIS -11
	LOAD D,CMVRR,(C)	;GET PROTOCOL VERSION NUMBER
	MOVE D,SKDVEC(D)	;GET ROUTINE TO DO THIS PROCESSING
	HRRZ B,DTEQS(A)		;MAKE SURE STILL A REQUEST THERE
	JUMPN B,0(D)		;IF STILL HERE, DO IT
	RET			;IF GONE, JUST RETURN
;CODE TO PROCESS PROTOCOL VERSION 1 PACKETS (RSX20F)
;	A/ DTE NUMBER
;	B/ PACKET

SKVER1:	STKVAR <PCCNT>		;RESERVES SOME SPACE
	SETZM PCCNT		;INIT EXTRA COUNT TO ZERO
	CALL TSTSGL		;IS IT A SINGLE CHARACTER GROUP?
	JRST [	MOVX C,DTE11	;TO -11 STATUS
		IORM C,DTESTS(A) ;SET IT
		MOVX C,SNGACT	;GET ACTIVE BIT
		IORM C,0(B)	;SAY SO
		CALL SETRGN
		MOVEI B,1(B)	;THE DATA
		EXCH B,C
		LDB D,[POINT ^D16,0(C),15] ;BYTES
		JRST DTSKDM]	;GO DO IT
	JE QFNC,(B),DEQDTE	;IF FLUSHED, POST ONLY
	MOVEI C,0(A)		;DTE NUMBER
	IMULI C,PKTSIZ		;SIZE OF QUEUE PACKET
	ADDI C,PKTADR		;GET BASE ADDRESS OF THIS PACKET
	LOAD D,QDEV,(B)		;DEVICE CODE
	STOR D,HDDEV,(C)	;TO THE QUEUE
	LOAD D,QFNC,(B)		;THE FUNCTION
	STOR D,HDFNC,(C)	;TO THE QUEUE
	SETZRO HDSPR,(C)	;ZERO THE SPARE
	LOAD D,QCNT,(B)		;GET THE COUNT
	JUMPN D,[CAILE D,MAXINP	;CAN WE SEND IT ALL?
		MOVEI D,MAXINP	;NO. SEND MAX NUMBER
		STOR D,HDDAT,(C) ;PUT SIZE IN PACKET
		MOVEM D,PCCNT	;REMEMBER THIS AS SIZE OF EXTRA STUFF
		LOAD D,DTEST,(A) ;DTE STATE
		TXO D,DTE11I	;DOING INDIRECT
		STOR D,DTEST,(A);NEW STATE
		SETZRO HDLIN,(C) ;CLEAR OUT LINE NUMBER FIELD
		 JRST STOREG]	;GO STORE IN MY REGION
	LOAD D,QPNTR,(B)	;GET DATUM
	STOR D,HDDT1,(C)	;STORE IN PACKET
	LOAD D,DTEST,(A)	;DTE STATE
	TXO D,DTE11		;REGULAR 11
	STOR D,DTEST,(A)	;NEW STATE

	; ..
	; ..
STOREG:	MOVEI D,12		;INCLUDE DATUM
	STOR D,HDCNT,(C)	;TO THE PACKET
	LOAD D,QLIN,(B)		;UNIT
	JUMPE D,STORG1		;IF NO LINE GIVEN,ALLOW FOR 16 BIT  DATUM
	STOR D,HDLIN,(C)	;TO THE QUEUE
STORG1:	PUSH P,C		;SAVE QUEUE POINTER
	CALL SETRGN		;GET MY COMM REGION
	MOVE B,C		;MOVE MY COMM REGION POINTER
	POP P,C			;RESTORE Q POINTER
	MOVEI D,12		;THE COUNT OF THIS ONE
DTSKDM:	HRLI C,(<POINT ^D8,0>)	;POINTER
	SETZRO CMFWD,(B)	;DOING BYTE MODE
	STOR D,CMQCT,(B)	;RECORD SIZE OF THIS PIECE
	ADD D,PCCNT		;COMPUTE TOTAL MESSAGE SIZ
	STOR D,CMPCT,(B)	;STORE FOR FE

;COMMON POINT FOR SKVER1 AND SKVER3

DTSTRT:	LOAD D,CM1IC,(B)	;TO -11 COUNT
	AOS D
	STOR D,CM1IC,(B)	;UP IT
	LSH A,SDTE			;*4
	MOVEM C,DTEEBP(A)	;STORE POINTER
	LSH A,-SDTE		;/4
   IFN DTESW,<
	HRRZ T2,DTEQS(T1)	;GET HEAD PACKET
	CAIE T2,SNGPK1		;IS THIS A
	CAIN T2,SNGPK2		; SINGLE PACKET SPECIAL?
	JRST DTSTR1		;YES, MOVE ON
	CAIL T2,COMQ		;NO, REGULAR.  IS IT
	CAILE T2,COMQ+<NQPKT*QPKT>-1  ; WITHIN RANGE?
	JSR BUGHLT		;NO
	TMNN QINU,(T2)		;YES, PACKET IN USE?
	JSR BUGHLT		;NO, THAT'S BAD
DTSTR1:
   >
	CALL DING11		;GO START THE -11
	RET			;AND DONE
;ROUTINE TO HANDLE PROTOCOL VERSION 2 PACKETS FOR MCB
;	A/ DTE NUMBER
;	B/ PACKET
;	C/ COMM REGION POINTER

SKVER2:	SAVEAC <Q1,Q2,Q3,P1,P2>	;SAVE REGS
	STKVAR <DTENUM,QNOD,COMREG>
	EA.ENT			;DECNET-36 RUNS IN EXTENDED SECTIONS
	MOVEM A,DTENUM		;SAVE DTE NUMBER
	MOVEM B,QNOD		; Q-PACKET
	MOVEM C,COMREG		; COMM REGION POINTER

	MOVX Q1,.TMBYT		;THIS WILL BE AN
	STOR Q1,CMTMD,(C)	; 8-BIT XFER
	MOVX D,DTE11		;MAKE THE NEW STATE
	IORM D,DTESTS(A)	; REG XFER IN PROGRESS

	LOAD A,QPNTR,(B)	;GET MESSAGE BLOCK POINTER
	XCALL (XCDSEC,DNLENG)	;GET THE LENGTH

	MOVE C,COMREG		;GET BACK THE COMM REGION POINTER
	STOR A,CMPCT,(C)	;STORE IN "PACKET COUNT" OF COMM REGION
	STOR A,CMQCT,(C)	;ALONG WITH Q COUNT (WE WON'T DO SCATTER
				;GATHER FOR NOW)
	MOVE A,DTENUM		;GET DTE NUMBER BACK
	MOVE B,QNOD		; AND POINTER TO Q-BLOCK
	LOAD Q1,DTBOBL,(A)	;SET UP POINTER TO "OUTPUT" BLOCK
	LOAD Q2,QPNTR,(B)	;LOAD UP POINTER TO THE MESSAGE BLOCK

   IFN FTPARANOID,<
	XMOVEI CX,.		;Touch 
	STOR CX,NMMAG,(Q2)	; message block.
   >;END IFN FTPARANOID

	CALL CPYMSG		;(Q1,Q2/A) COPY MESSAGE BLOCK TO SECTION ZERO
				; BLOCK FOR DTE TRANSFER
	MOVE C,COMREG		;SET UP COMM REGION POINTER
	LOAD D,CM1IC,(C)	;GET TO-11 COUNT
	AOS D			;INCREMENT IT TO INDICATE
	STOR D,CM1IC,(C)	; NEW PACKET FOR 11
	MOVE D,A		;GET BYTE POINTER FROM CPYMSG
	MOVE A,DTENUM		;SET UP DTE NUMBER
	LSH A,SDTE		;*4
	MOVEM D,DTEEBP(A)	;STORE THE BYTE POINTER
	MOVE A,DTENUM		;ONCE AGAIN GET THE DTE NUMBER
	CALL DING11		; AND RING THE DOOR-BELL TO WAKE UP 11
	RET			;RETURN TO SENDER
;COPY MULTI-SEGMENT MESSAGE BLOCK TO SECTION ZERO CONTIGUOUS BLOCK
;USES SECTION 0 - SECTION 1 MAPPING.
;CALL CPYMSG
;	Q1/ SECTION ZERO BLOCK POINTER
;	Q2/ MESSAGE BLOCK POINTER
;RETURNS +1 ALWAYS WITH A/ BYTE POINTER TO START OF MESSAGE IN SECTION ZERO.
;USES Q1,Q2,Q3,P1,P2
;SOME OF THE AWKWARDNESS OF THE CODE IS CAUSED BY THIS FACT:
;IN AN EXTEND T1,[MOVSLJ], AC3 & AC6 MAY NOT BE USED AS INDEX REGISTERS
;FOR THE BYTE POINTERS IN AC2 & AC5

CPYMSG:	SETZ D, 		;COLLECT BYTE COUNT IN THIS REGISTER.
	LOAD P1,MBFMS,(Q2)     	;POINT TO FIRST MSD

;TALLY BYTE COUNT OF ALL BUT THE LAST MSD
CPYMS1:	OPSTR <SKIPN B,>,MDNXT,(P1) ;IS THERE A NEXT ?
	JRST CPYMS2		;NO. THIS IS THE LAST. DON'T COUNT IT
	OPSTR <ADD D,>,MDBYT,(P1) ;YES. COUNT THE BYTES
	MOVE P1,B 		;STEP TO
	JRST CPYMS1		; NEXT MSD

;IS THE LAST MSD BIG ?
CPYMS2:	LOAD Q3,MDBYT,(P1)	;IS IT
	CAIG Q3,20		; WORTH OUR WHILE ?
	JRST CPYMS6		;NO. DO IT THE EASY WAY.
;AT THE LAST MSD, CONVERT BYTE POINTER, FIND ADDRESS OF IT, AND
;BLT TO DESTINATION

	LOAD Q3,MDAUX,(P1)	;INDEXED B.P. TO START OF SOURCE
	HRRZ B,Q3		;ISOLATE OFFSET
	TLNE Q3,700000		;IS B.P. 041006,,nnn ?
	JRST CPYMS3		;NO. NO PROBLEM.
	TLO Q3,400000		;YES. MAKE IT
	HRRI Q3,1(Q3)		; 441006,,nnn+1
	ADDI B,1		;Account for the nnn+1 we just did
CPYMS3:	OPSTR <ADD B,>,MDALA,(P1) ;ADDRESS OF THE SOURCE DATA
	MOVEI C,3(D)		;BYTES BEFORE THIS MSD, ROUNDED UP.
	ASH C,-2		;NUMBER OF WORDS "" ""
	HRR Q3,C		;SAVE THIS FOR LATER CALC OF DEST B.P.
	ADD C,Q1		;DEST ADDR FOR THIS CHUNK
	LOAD T1,MDBYT,(P1)	;# OF BYTES IN LAST MSD OF SOURCE
	ADDI T1,3+3		;SLOP FOR BLT - 3 BYTES BEFORE & 3 BYTES AFTER
	ASH T1,-2		;# OF WORDS TO BLT
	CALL XBLTA 		;(T1,T2,T3) MOVE IT.
;CALCULATE DESTINATION STARTING BYTE POINTER
	IFE. D			;WERE THERE ANY BYTES BEFORE THE LAST MSD ?
	  HLL A,Q3		;NO. MAKE BYTE POINTER
	  TLZ A,17		; WITH NO INDEX
	  HRR A,Q1		;ADDRESS OF DESTINATION BLOCK
	  RET			;ALL DONE.
	ENDIF.
	MOVN P1,D		;YES. NUMBER OF BYTES BEFORE LAST MSD
	ADJBP P1,Q3		;ADJUST
	TLZ P1,17		;GET RID OF INDEX
	ADD P1,Q1		;ADDRESS OF START OF BLOCK
	TLZ P1,1		;GET RID OF POSSIBLE CARRY.

;MAKE A BYTE POINTER FOR MOVSLJ IN Q1 -

	HLLZ Q1,P1		;P & S FIELDS
	TLO Q1,Q3		; INDEXED BY Q3
	HRR Q3,P1		;MAKE Q3 GLOBAL
	HRLI Q3,MSEC1		; SO MOVSLJ WILL WORK - NOTE SECTION NUMBER
				; 1, EVEN THOUGH THE BUFFER IS IN SECTION
				; ZERO. MOVSLJ REQUIRES THIS, SO IF THE
				; SECTION 0-1 MAPPING GOES AWAY, THIS CODE
				; WILL BE BROKEN.
;NOW MOVE BYTES FROM ALL MSDs EXCEPT THE LAST

	OPSTR <SKIPE Q2,>,MBFMS,(Q2) ;POINT TO FIRST MSD, IF ANY.
CPYMS4:	TMNN MDNXT,(Q2)		;IS THIS THE LAST MSD ?
	JRST CPYMS5		;YES. DONE
	LOAD A,MDBYT,(Q2)	;BYTE COUNT.
	LOAD B,MDAUX,(Q2)	;SOURCE BYTE POINTER
	TLZ B,17		;BUT MAKE
	TLO B,P2		; IT INDEXED BY P2
	LOAD P2,MDALA,(Q2)	;LOAD UP THE INDEX
	MOVE D,A		;THE DEST COUNT
	EXTEND T1,[MOVSLJ]	;PREPEND HEADER TO USER DATA
	 BUG. (HLT,COMDTE,DTESRV,SOFT,<MOVSLJ failed>,,<

Cause:	DTESRV attempted to execute a MOVSLJ instruction, but it failed.

Action:	Look at the dump and try to determine why the instruction failed.
>)
	LOAD Q2,MDNXT,(Q2)	;STEP TO NEXT
	JRST CPYMS4		;CONTINUE

CPYMS5:	MOVE T1,P1		;RETRIEVE B.P. TO START OF DEST
	RET			;DONE.

;HERE WHEN LAST MSD IS SMALL. JUST MOVSLJ EVERYTHING

CPYMS6:	XMOVEI Q3,(Q1)		;MAKE A FULL SECTION POINTER
	LOAD P1,MBFMS,(Q2)      ;POINT TO FIRST MSD
	MOVE Q2,Q1		;SAVE ADDRESS OF SECTION ZERO AREA
	MOVE Q1,[POINT 8,(Q3)]	;MAKE BYTE POINTER TO MESSAGE DATA

CPYMS7:	LOAD A,MDBYT,(P1)	;NOT DONE. GET BYTE COUNT.
	LOAD B,MDAUX,(P1)	;SOURCE BYTE POINTER
	TLZ B,17		;BUT MAKE
	TLO B,P2		; IT INDEXED BY P2
	LOAD P2,MDALA,(P1)	;LOAD UP THE INDEX
	MOVE D,A		;THE DEST COUNT
	EXTEND T1,[MOVSLJ]	;PREPEND HEADER TO USER DATA
	 BUG. (HLT,COMDT1,DTESRV,SOFT,<MOVSLJ failed>,,<

Cause:	DTESRV attempted to execute a MOVSLJ instruction, but it failed.

Action:	Look at the dump and try to determine why the instruction failed.

>)
	LOAD P1,MDNXT,(P1)	;STEP TO NEXT
	JUMPN P1,CPYMS7		;CONTINUE
;Done
       	MOVE T1,Q2		;MAKE BYTE POINTER
	HRLI T1,(POINT ^D8)	; TO START OF BUFFER
	RET
;ROUTINE TO HANDLE PROTOCOL VERSION 2 PACKETS FOR IBM COMM
;	A/ DTE NUMBER
;	B/ PACKET
;	C/ COMM REGION POINTER

SKVER3:	SAVEQ			;SAVE REGS
	LOAD Q3,QPNTR,(B)	;GET POINTER
	LDB Q1,[POINT 6,Q3,11]	;GET BYTE SIZE
	MOVEI Q2,.TMBYT		;ASSUME BYTE
	CAIN Q1,^D16		;A WORD POINTER?
	MOVEI Q2,.TMWRD		;YES. DO WORD MODE THEN
	CAIE Q1,^D8		;EIGHT BITS?
	JRST SKVR22		;NO. ALL SET THEN

SKVR22:	STOR Q2,CMTMD,(C)	;PUT IN MODE OF THE TRANSFER
	MOVX D,DTE11		;SAY REGULAR TRANSFER IN PROGRESS
	IORM D,DTESTS(A)	;""
	LOAD D,QCNT,(B)		;GET Q COUNT
	CAIN Q2,.TMWRD		;WORD MODE?
	LSH D,1			;YES. COMPUTE # OF 8 BIT BYTE THEN
	STOR D,CMPCT,(C)	;STORE COUNT OF THIS TRANSFER
	STOR D,CMQCT,(C)	;SIZE OF WHOLE TRANSFER IS THE SAME
	MOVE B,Q3		;BYTE POINTER TO B
	EXCH B,C		;FIX UP REGS
	JRST DTSTRT		;AND GO START THE DTE
;SPECIAL ROUTINES TO RING -11'S DOORBELL ,TO MANIPULATE THE
;PI CAPABILITY, TO RESET THE DTE, AND TO FINE COMM REGION POINTERS

;RING -11'S DOORBELL
;	A/ DTE NUMBER
;CLOBBERS B

DING11:	MOVE B,CNDO(A)
	IORI B,DTEEDB		;THE -11'S BELL
	XCT B
	RET			;AND DONE

;CLEAR DOORBELL

CLRBEL:	MOVE B,CNDO(A)
	IORI B,DTETDB		;DOORBELL BIT
	XCT B			;CLEAR IT
	RET			;AND DONE

;ROUTINE TO RESET A DTE. TURNS OFF ITS INTS. ANY CONDITIONS
;ACCEPTS:	A/ DTE #

DTREST:	MOVE B,CNDO(A)		;GET PROTOTYE CONO
	IORI B,DTEPIE!DTETDB!DTETDN!DTEEDN
	XCT B			;CLEAR ALL CONDITIONS
	PUSH P,A		;SAVE DTE ARG
	HRRZS A			;ISOLATE DTE NUMBER
	LSH A,SDTE		;FIND DTE EPT REGION
	SETZM DTETBP(A)		;CLEAR LATENT POINTER
	SETZM DTEEBP(A)		;AND THIS ONE ALSO
	CALLRET PA1		;AND DONE

;ROUTINE TO INIT INT STATE OF A DTE
;ACCEPTS:	A/ DTE #

DTPII:	CALL DTREST		;FIRST RESET IT
	MOVE B,CNDO(A)		;GET PROTOTYPE CONO
	IORI B,LDTEPI		;GET PI ASSIGNMENT
	XCT B			;SET IT
	RET			;AND DONE

;ROUTINE TO SET UP COMM REGION POINTERS. ACCEPTS:
;	A/ DTE NUMBER
;RETURNS:
;	C/ POINTER TO -10'S PER PROCESS REGION
;	D/ POINTER TO -11'S PER PROCESS REGION

SETRGN:	MOVEI C,0(A)		;THE DTE NUMBER
	IMULI C,COMRGN		;SIZE OF A PER PROCESS REGION
	ADDI C,COMBAS+COMDAT	;BASE OF -10'S REGION TO THE -11
	MOVNI D,2(A)		;NOW FIND THE -11'S
	HRRZ D,COMBUF+DTEN+1(D)	;GET VALUE FROM POINTER
	ADDI D,COMBAS+COMDAT	;MAKE IT ABSOLUTE POINTER TO -11'S REGION
	RET			;AND DONE
;ROUTINE TO FLUSH ALL OUTPUT REQUEUST FOR A GIVEN TTY UNIT.
;ACCEPTS:	A/DTE #
;		B/DEVICE
;		C/UNIT,,0
;RETURNS:	+1 WITH OUTPUT REQUESTS FLUSHED
;CLOBBERS ALL TEMP REGISTERS EXCEPT A,B,C
;MUST BE NOINT AND CHNOFF ON THE DTE CHANNEL

	RESCD			;IS RESIDENT
DTEFLA::TDZA D,D		;ENTRY TO FLUSH ALL
DTEFLO::MOVEI D,1		;ENTRY TO FLUSH ONLY DATA
	S0.ENT			;MUST RUN IN SECTION 0
	STKVAR <SVDTN,SVLIN,SVDEV,SVD>
	MOVEM D,SVD		;SAVE ENTRY FLAG
	MOVEM A,SVDTN		;SAVE DTE NUMBER
	MOVEM B,SVDEV		;SAVE DEVICE CODE
	MOVSM C,SVLIN		;SAVE LINE NUMBER (FROM LH)
	HRLI A,DTEQS(A)		;INITIAL PREVIOUS
	HRRZ C,DTEQS(A)		;TOP ITEM
	JUMPE C,SKPPK1		;IF EMPTY, JUST WRAP UP
CHKPKT:	MOVE B,C		;MOVE POINTER
	CALL TSTSGL		;IS THIS A SINGLE BYTE GROUP?
	 JRST SKPPKT		;YES. SKIP IT
	LOAD B,QDEV,(C)		;DEVICE CODE
	CAME B,SVDEV		;SAME DEVICE?
	JRST SKPPKT		;NO. SKIP IT
	LOAD B,QLIN,(C)		;LINE NUMBER
	CAME B,SVLIN		;SAME LINE?
	JRST SKPPKT		;NO. GO TO NEXT
	LOAD B,QINT,(C)		;GET INTERRUPT ADDRESS
	CAIE B,TTYINT		;IS IT TTYINT?
	SKIPN SVD		;NO. FLUSH ALL?
	SKIPA			;YES. FLUSH THIS PACKET
	JRST SKPPKT		;NO. LEAVE IT
	SETZRO QFNC,(C)		;YES. MARK IT AS FLUSHED
	SETZRO QCOD,(C)		;AND PREVENT ACCOUTNING
SKPPKT:	HRL A,C			;ESTABLISH NEW PREVIOUS
	LOAD C,QLINK,(C)	;GET LINK
	JUMPN C,CHKPKT		;GO LOOK AT IT
SKPPK1:	MOVE A,SVDTN		;RESTORE DTE NUMBER
	MOVE B,SVDEV		;RESTORE DEVICE
	MOVS C,SVLIN		;RESTORE LINE (TO LH)
	SE1CAL			;ENTER SEC1 FOR RETURN
	RET			;AND DONE
;ROUTINE CALLED FROM APRSRV TO WAIT FOR ALL DTE'S
;TO COMPLETE TRANSFERS.MUST BE CALLED PIOFF AND NOT
;FROM INTERRUPT LEVEL

DTEINA::SAVEAC <Q1>		;GET A WORK REG
	MOVSI Q1,-DTEN		;LOOK AT THEM ALL
DTENA0:	JE DTERL,(Q1),DTENA1	;IF NOT RUNNING, SKIP IT
	MOVX A,DTET10!DTET1F	;SEE IF TO -10 IN PROGRESS
	TDNN A,DTESTS(Q1)	;IS IT?
	JRST DTENA2		;NO. CHECK ON TO -11
	MOVE B,CNDO(Q1)		;YES. GET A CONO WORD
	TXO B,<<CONSO 0>-<CONO 0>+DTETDN+DTETER> ;GET CONSO WORD
	XCT B			;DONE YET?
	JRST .-1		;NO. WAIT FOR IT THEN
DTENA2:	MOVX A,DTE11!DTE11I	;SEE IF ANY TO -11 IN PROGRESS
	TDNN A,DTESTS(Q1)	;IS IT?
	JRST DTENA1		;NO. GO TO NEXT DTE THEN
	MOVE B,CNDO(Q1)		;YES. GET CONO WORD
	TXO B,<<CONSO 0>-<CONO 0>+DTEEDN+DTEEER>
	MOVX A,^D100000		;# OF POLLS
	XCT B			;WAIT FOR COMPLETTION
	SOJGE A,.-1		;WAIT, BUT NOT FOREVER
DTENA1:	AOBJN Q1,DTENA0		;DO ALL OF THEM
	CALLRET DTPAUS		;PAUSE ALL DTE ACIVIITY

;ROUTINE TO REQUEST PAUSE OF ALL DTE ACTIVITY. MAY BE CALLED
;FROM ANY LEVEL

DTPAUS::MOVEI A,[SETZM DTEEPW(B)
		RET]		;ROUTINE TO EXECUTE
	JRST DTACT0		;GO TO WORKER ROUTINE
;ROUTINE TO REACTIVATE FE'S. THIS CODE MERELY TURNS ON
;VALID EXAMINE FOR ALL ACTIVE DEVICES.

DTEACT::MOVEI A,[MOVEI C,IEXSIZ+2(A) ;GET EXAMINE SIZE
		MOVEM C,DTEEPW(B) ;STORE CORRECT VALUE
		RET]
DTACT0:	SAVEAC <Q1,Q2>		;GET A WORK REG
	SKIPN PROFLG		;DOING PRIMARY PROTOCOL?
	RET			;NO. DON'T DO ANYTHING THEN
	MOVE Q2,A		;SAVE SUBROUTINE ADDRESS
	MOVSI Q1,-DTEN		;POLL ALL DEVICES
DTEAC0:	HRRZ A,Q1		;GET DTE NUMBER
	JE DTERL,(A),DTEAC1	;IF NOT ACTIVE, SKIP IT
	SKIPE SVVEXM		;NOW IN FORCED SECONDARY PROTOCOL?
	CAME A,MSTRDT		;YES. IS THIS THE MASTER -11?
	SKIPA B,A		;NO. COPY DTE NUMBER AND PROCEED
	JRST DTEAC1		;YES. SKIP IT THEN
	LSH B,SDTE		;GET EPT INDEX
	CALL 0(Q2)		;DO ROUTINE
	CALL DING11		;MAKE FE SEE IT
DTEAC1:	AOBJN Q1,DTEAC0		;LOOK AT ALL FE
	RET			;DONE

;SPECIAL ROUTINE TO INHIBIT "CONTINUED" MESSAGE

DTICON::MOVX A,1B0		;GET "FIRST-TIME" BIT
	ANDCAM A,UPFLAG		;NOT FIRST-TIME ANYMORE
	RET			;DONE
;THESE ROUTINES ALLOCATE AND DEALLOCATE REQUEST NODES
;ASGNOD (DTENO,BLKFLG,FAILFLG)
; RETURNS:
;	+1 failure, can't block
;	+2 WITH A/ADDRESS OF NODE
;DTENO - number of DTE to which message being sent
;BLKFLG is non-0 if blocking is prohibited
;FAILFLG is non-0 if failure can't be handled.  If failure can be
;handled, we will keep some buffers in reserve.

	RESCD			;MUST BE RESIDENT

ASGNOD:	BLSUB. <DTENO,BLKFLG,FAILFL>
	SAVEAC <B>
	SKIPN INSKED		;CHECK OBVIOUS BLOCK PREVENTION
	SKIPE NSKED
	SETOM BLKFLG		;CAN'T BLOCK
ASGND1:	SKIPE FAILFL		;IS FAILURE OR BLOCK POSSIBLE?
	SKIPN BLKFLG
	IFSKP. <JRST ASGND2>	;NO, BYPASS ALL CHECKS
	MOVE B,DTENO
	MOVEI A,NQPKT/2
	CAMG A,NDTEMQ(B)	;THIS DTE USING HALF OR MORE ALREADY?
	JRST BLKNOD		;YES, DON'T DO IT
	MOVEI A,NQPKT/3		;USUAL THRESHOLD
	SKIPN FORKX		;FORK 0?
	MOVEI A,NQPKT/4		;YES, LOWER THRESHOLD
	CAMLE A,NCOMH		;ABOVE THRESHOLD?
	JRST BLKNOD		;NO, BLOCK
ASGND2:	PIOFF			;PREVENT ALL INTS
	SKIPN A,COMH		;HAVE A NODE?
	IFNSK. <PION
		BUG.(CHK,NODTEN,DTESRV,SOFT,<DTESRV - NO DTE buffers available in critical case>,,<

Cause:	A buffer is needed for a queued protocol message to a front-end
	-11 via a DTE.  There are no buffers available, and the
	caller is not prepared to handle failure.

Action:	Assume the message was sent.
>)
		RET>
	HRRZ B,0(A)		;GET LINK TO NEXT
   IFN DTESW,<
	CAIL A,COMQ		;IS HEAD
	CAILE A,COMQ+<NQPKT*QPKT>-1  ; WITHIN RANGE?
	JSR BUGHLT		;NO
	TMNE QINU,(A)		;PACKET IN USE?
	JSR BUGHLT		;YES, THAT'S BAD
	SETZM (A)		;ZERO
	HRLI C,(A)		; THE
	HRRI C,1(A)		;  PACKET
	BLT C,QPKT-1(A)		;   HEADER
	SETONE QINU,(A)		;SAY IT'S NOW IN USE
	JUMPE B,ASGND3		;IF NEXT IS 0, O.K.
	CAIL B,COMQ		;IS NEXT
	CAILE B,COMQ+<NQPKT*QPKT>-1  ; WITHIN RANGE?
	JSR BUGHLT		;NO
ASGND3:	SKIPG NCOMH		;COUNT MUST BE POSITIVE
	JSR BUGHLT		;TOO BAD
   >

	HRRZM B,COMH		;MAKE NEW LINK
	SETZM 0(A)		;CLEAR HEADER
	PION			;ALLOW INTS AGAIN
	SOS NCOMH		;KEEP COUNT
	MOVE B,DTENO
	AOS NDTEMQ(B)		;COUNT USE BY EACH DTE
	RETSKP			;GOOD RETURN

BLKNOD:	SKIPE BLKFLG		;BLOCK POSSIBLE?
	RET			;NO, FAIL
	HRL A,A			;INCLUDE THRESHOLD LEVEL IN TEST
	HRRI A,SPCTST		;MAKE TEST WORD
	MDISMS			;WAIT HERE FOR A NODE
	JRST ASGND1		;GO TRY IT AGAIN

	ENDBS.

SPCTST::CAML T1,NCOMH		;NOW ABOVE THRESHOLD?
	JRST 0(4)		;NOT YET
	JRST 1(4)		;YES
;RELNOD  RELEASES A NODE
;ACCEPTS: A/ DTE NUMBER
;	 B/THE NODE ADDRESS
;RETURNS +1 ALWAYS

RELNOD:	SAVEAC <C>
	HRRZ C,COMH		; TOP OF QUEUE
   IFN DTESW,<
	IFN. C			;Is queue nonempty ?
	  CAIL C,COMQ		;Yes. IS HEAD
	  CAILE C,COMQ+<NQPKT*QPKT>-1  ; WITHIN RANGE?
	  CALL DTEREL		;NO. Die.
	ELSE.
	  SKIPE NCOMH		;No. Is count correct ?
	  CALL DTEREL		;NO. Die.
	ENDIF.
	CAIL B,COMQ		;IS NODE BEING RELEASED
	CAILE B,COMQ+<NQPKT*QPKT>-1  ; WITHIN RANGE?
	CALL DTEREL		;NO. Die.
	TMNN QINU,(B)		;PACKET IN USE?
	CALL DTEREL		;NO. Die.
	SETZRO QINU,(B)		;YES, SAY IT'S NO LONGER IN USE
	MOVE D,NCOMH		;GET COUNT
	CAIL D,NQPKT		;LEGIT?
	CALL DTEREL		;NO. Die.
   >;END IFN DTESW
	MOVEM C,0(B)		;MAKE LINK TO THIS NEW HEAD
	HRRZM B,COMH		;NEW HEAD
	AOS NCOMH		;KEEP COUNT
	SOS NDTEMQ(A)		;COUNT PER DTE
	RET			;AND DONE
   IFN DTESW,<

;THIS ROUTINE IS CALLED TO REPORT AN INCONSISTENCY IN THE DTESRV NODE 
;PACKET DATA BASE
;CALL DTEREL with no arguments
;Never returns.
DTEREL:	BUG.(HLT,DTENOD,DTESRV,HARD,<DTE data base bad>,,<

Cause:	An inconsistency has been deteced in the DTESRV node data base.

Action:	Look on the stack to find the caller of this BUGHLT. Try to
	determine why the node data base has been trashed,

>)
   >;END IFN DTESW
;THIS ROUTINE IS CALLED TO DEQUEUE AND POST ALL REQUESTS FOR
;A GIVEN DTE
;ACCEPTS:	A/ DTE #
;RETURNS:
;	+1. A PRESERVED

CLRDTE:	JN DTERL,(A),R		;IF NOW ACITVE, IGNORE REQUEST
	SASUBR <DTENM>		;SAVE DTE NUMBER
CLRDT1:	SKIPE B,DTEQS(A)	;HAVE ANY REQUESTS?
	IFSKP.			;If all done
	 LOAD B,DTEST,(A)	;Get state
	 TXZN B,DTET10!DTET1F	;To-10 in progress?
	 RET			;No
	 STOR B,DTEST,(A)	;Update status, in case called again
	 CALL SETRGN		;Find regions
	 SETZRO CMTOT,(C)	;Clear transfer in progress
	 RET
	ENDIF.
	HRRZS B			;YES. GET THE REQUEST
	HRRZS A			;GET DTE # ONLY
	CAMN A,MSTRDT		;IS THIS THE MASTER?
	JRST [	CALL TSTSGL	;SINGLE CHAR PACKET?
		 SKIPA		;IT IS
		JRST .+1	;NOT
		CALL DNSNGL	;HANDLE IT
		JRST CLRDT2]	;GO ON
	CALL DEQDTE		;AND DEQUEUE THIS REQUEST
CLRDT2:	MOVE A,DTENM		;GET BACK DTE NUMBER
	JRST CLRDT1		;AND GO GET NEXT ONE
;CLRDT1:	SKIPN B,DTEQS(A)	;HAVE ANY REQUESTS?
;	 JRST CLRDT3		;No
;	HRRZS B			;YES. GET THE REQUEST
;	HRRZS A			;GET DTE # ONLY
;	CAMN A,MSTRDT		;IS THIS THE MASTER?
;	JRST [	CALL TSTSGL	;SINGLE CHAR PACKET?
;		 SKIPA		;IT IS
;		JRST .+1	;NOT
;		CALL DNSNGL	;HANDLE IT
;		JRST CLRDT2]	;GO ON
;	CALL DEQDTE		;AND DEQUEUE THIS REQUEST
;CLRDT2:	MOVE A,DTENM		;GET BACK DTE NUMBER
;	JRST CLRDT1		;AND GO GET NEXT ONE
;
;CLRDT3:	CALL SETRGN		;Find regions (sets up C and D)
;	LOAD B,DTEST,(A)	;Get state
;	TXZN B,DTET10!DTET1F	;To-10 in progress?
;	IFSKP.
;	  STOR B,DTEST,(A)	;Update status, in case called again
;	  SETZRO CMTOT,(C)	;Clear transfer in progress
;	ENDIF.
;	LOAD B,CMVRR,(C)	;Get version of protocol
;	JRST @CLRVEC(B)		;Do any special stuff
;ENTRY TO ABOVE FOR NON-INTERRUPT CODE

CLRDT0:	NOSKED
	CHNOFF DLSCHN		;TURN OFF MACHINE
	CALL CLRDTE		;PROCESS QUEUES
	CHNON DLSCHN
	OKSKED			;TURN ON MACHINE
	RET			;AND DONE

;SPECIAL ENTRY FOR THE SCHEDULER

CLRDTF:	CHNOFF DLSCHN		;TURN OFF CHANNEL
	SETZRO DTERL,(A)	;MAKE IT DO IT
	CALL CLRDTE		;CLEAR OUT THE ENTRIES
	SETONE DTERL,(A)	;RESTORE BIT
	CHNON DLSCHN		;RESTORE CHANNEL
	RET			;AND DONE
;CLRDTE continued. Handle to -10 in progress here

;CLRVEC:	IFIW!R			;20F
;	IFIW!CLRMCB		;For MCB
;	IFIW!R			;For DN60

;Here if a to -10 was inp progress when "clear" was requested for MCB

;CLRMCB:	EA.ENT			;DECNET AND ALL OTHER USERS OF THE
;				;INTERFACE RUN IN SECTION MUMBLE
;	SETZ B,
;	EXCH B,DTEIND(A)	;GET BUFFER ADDRESS IF ANY
;	RETSKP
	SUBTTL I/O Page Fail
;ROUTINE CALLED FROM APRSRV WHEN A DTE CAUSES AN IO PAGE FAIL
;ACCEPTS:	A/ DTE NUMBER
;RETURNS:	+1 ALWAYS WITH DTE SHUT OFF

DTEIOP::CALL DTREST		;TURN OFF THE DTE
	SETZRO DTERL,(A)	;Make sure it is dead
	CALL CLRDTE		;GET RID OF ITS BLOCKS
	SETONE DTRLD,(A)	;AND SAY IT NEEDS RELOADING
	BUG.(CHK,DTEPGF,DTESRV,HARD,<DTE transfer page fail>,<<A,DTENO>>,<

Cause:	A transfer from a DTE has generated a page fail. The FE is now
	marked as dead.

Action:	Check the DTE for hardware problems.

Data:	DTENO - DTE number

>)
	AOS LOAD11		;SAY AN -11 DIED
	AOS JB0FLG		;MAKE JOB 0 SEE IT ASAP
	RET			;AND DONE
	SUBTTL DTECHK - Periodic Check

;THIS ROUTINE PERFORMS LOST INTERRUPT POLLING FOR THE DTE20 DEVICES.
;IT IS STARTED PERIODICALLY TO LOOK FOR ANY ANAMOLOUS CONDITIONS
;ON THE DTE'S.

DTECHK::SKIPN FEFLG		;IN SECONDARY PROTOCOL?
	JRST DTCHK2		;NO, DON'T POLL THEN
	SAVEQ			;SAVE PERMANENT REGS
	STKVAR <PRCONI>		;PROTOTYPE CONI
	MOVSI A,-DTEN		;NUMBER OF DTE'S IN CONFIGURATION
	MOVE B,[CONI DTE0,D]	;THE CONI
	MOVEM B,PRCONI		;SAVE IT
DTPOL1:	CHNOFF DLSCHN		;prevent state changes.
	JE DTERL,(A),DTPOL2	;DONT POLL NON-EX DEVICE
	HRRZ B,A		;GET DTE NUMBER
	IFQN. DTRLD,(A)
	  CAMN B,MSTRDT 	;BEING RELOADED - IS THIS THE MASTER?
	  CALL CLRDTF 		;YES. KEEP EVERYBODY MOVING
	  JRST DTPOL2		;AND GO ON
	ENDIF.
	CAME B,MSTRDT		;IS THIS THE MASTER?
	IFSKP.
	  XCT PRCONI		;YES. GET CONI BITS
	  TXNE D,DTEPF		;POWER FAILING?
	  JRST DTPOL2		;YES. DON'T POLL IT NOW THEM
	  SKIPE FEDBSW		;NO. WANT RELOADS?
	  JRST DTPL10		;NO. DON'T LOOK THEN
	ENDIF.
	CALL SETRGN		;GO FIND APPROPRIATE COMM REGIONS
	SUBI D,COMDAT		;GET POINTER TO -11'S OWNED AREA
	LOAD B,CMKAC,(D)	;GET HIS KEEP ALIVE COUNTER
	LOAD D,CMKAK,(C)	;GET MY COPY OF LAST ONE
	CAME B,D		;SAME?
	JRST DTPOL9		;NO. ALL IS OK
	IFQE. DTKAC,(A)		;IF FIRST TIME,LET HIM GO
	  SETONE DTKAC,(A) 	;BUT REMEMBER THIS TRANSGRESSION
	  JRST DTPL10		;AND GO ON
	ENDIF.
	;...
	;...
;HERE WHEN RELOADING A FRONT END
	HRRZ B,A		;ISOLATE DTE NUMBER
	BUG.(INF,DTEKPA,DTESRV,SOFT,<DTE keep alive fail>,<<B,DTENO>>,<

Cause:	The DTE keep alive counter is not being updated by the 11.

Action:	Check the 11 to see if it is running properly.

Data:	DTENO - DTE number
>,,<DB%NND>)			;[7.1210]
	CAMN B,MSTRDT		;IS THIS THE MASTER?
	IFSKP.
	  CALL DTREST		;NO. RESET THE DTE
	  CALL CLRDTF		;CLEAR OUT THE QUEUE NOW
	  SETZRO DTERL,(A)	;AND TURN OFF PROTOCOL
	ENDIF.
	CALL LOADFE		;(A) INITIATE A RELOAD IN JOB 0
	JRST DTPOL2		;FORGET ABOUT IT FOR NOW

DTPOL9:	STOR B,CMKAK,(C)	;KEEP THIS COPY FOR NEXT TIME
	SETZRO DTKAC,(A)	;IT PASSED THE TEST
	;..
;DTECHK...

;NOW LOOK AT ITS STATE
DTPL10:	XCT PRCONI		;LOOK AT THE DTE STATE
	TRNE D,DLSCHN		;CHANNEL ASSIGNED?
	JRST DTCHK1		;YES. GO ON
	CALL DTPII		;GO SET UP PI STUFF
	HRRZ B,A		;ISOLATE DTE NUMBER
	BUG.(INF,DTELPI,DTESRV,HARD,<DTECHK - DTE lost PI assignment>,<<B,DTENO>>,<

Cause:	A CONI of the DTE has indicated it has lost it's channel assignment.

Action:	Have Field Service check the DTE.

Data:	DTENO - DTE number
>,,<DB%NND>)			;[7.1210]
DTCHK1:
   REPEAT 0,<LOAD B,DTEST,(A)	;GET DEVICE'S STATE
	TXNN B,DTE11!DTE11I	;SENDING TO -11?
	JRST DTPOL3		;NO. GO ON
	CALL SETRGN		;FIND THE COMM REGIONS
	MOVE B,D		;MOVE HIS POINTER
	XCT PRCONI		;GET STATE OF DTE NOW
	LOAD Q1,CM1IC,(B)	;HIS TO 11 COUNT
	LOAD C,CM1IC,(C)	;MY TO 11 COUNT
	CAMN C,Q1		;SAME?
	JRST DTPOL4		;YES. GO SEE IF TRANSFER IS OK
	TXNE D,DTEEDB		;IS -11 DOORBELL UP?
	JRST DTPOL3		;YES. ASSUME IT WILL FIND IT
	CALL DING11		;RING IT AGAIN
	BUG.(INF,DTELDB,DTESRV,HARD,<DTECHK - 11 lost doorbell>,,<

Cause:	The DTE's TO -11 count disagrees with our TO -11 count. TOPS-20 is
	ringing the 11's doorbell.
>,,<DB%NND>)			;[7.1210]
	JRST DTPOL3		;GO TO NEXT
DTPOL4:	LOAD D,CMVRR,(B)	;GET PROTOCOL VERSION
	CAIN D,.VN20F		;RSX20F?
	JRST DTPOL3		;YES. DONE WITH POLLING THEN
	JN CMTOT,(B),DTPOL3	;IF IN TRANSIT, OK.
	XCT PRCONI		;GET DEVICE STATE AGAIN
	TXNE D,DTEEDN		;NOT IN TRANSIT. IS FLAG UP?
	JRST DTPOL3		;YES. ASSUME WE WILL SEE THE INTERRUPT
	BUG.(INF,DT11DN,DTESRV,HARD,<DTECHK - 10 lost TO11DN interrupt>,,<

Cause:	TOPS-20 has some how lost the TO-11 done interrupt.

Action:	Call field service and have them check out the DTE.
>)
	PUSH P,A		;SAVE DTE POINTER
	CALL TO11DN		;GO FAKE THE INTERRUPT
	POP P,A			;RESTORE POINTER
   >				;END OF REPEAT 0

DTPOL3:	JN DTBLK,(A),[	SETZRO DTBLK,(A) ;CLEAR INDICATOR
			PUSH P,A	;SAVE AOBJN WORD
			MOVEI A,0(A)	;GET DTE NUMBER ONLY
			CALL DOFRGM ;IF BLOCKED. TRY NOW
			POP P,A	;RESTORE AOBJN POINTER
			JRST .+1] ;AND GO ON
DTPOL2:	CHNON DLSCHN		;REENABLE CHANNEL
       	MOVX B,4B11		;NEXT DTE
	ADDM B,PRCONI		;NEXT DTE FOR THE CONI
	AOBJN A,DTPOL1		;DO ALL DTE'S
DTCHK2:	MOVEI A,^D5000		;NEXT CHECK IN 5 SECS
	MOVEM A,DTETIM		;TO THE TIME CELL
	RET			;AND DONE

;REQUEST RELOAD OF A FRONT-END
; T1/ DTE NUMBER
;	CALL LOADFE		;(T1)
;(T1) RETURNS +1: ALWAYS, REQUESTS RELOAD BY JOB 0
;Or, 	CALL LODCFE
; Returns +1: Always, requests reload of console FE.

LODCFE::MOVE T1,MSTRDT		;FOR THE MASTER DTE PLEASE...
LOADFE::SETONE DTRLD,(A) 	;SET RELOAD FLAG
	AOS LOAD11		;TELL JOB 0 OF RELOAD
	AOS JB0FLG		;SCHEDULE JOB 0
	RET
	SUBTTL

;ROUTINE CALLED FORM JOB 0 TO SEE IF ANY DTE'S NEED ATTENTION

	SWAPCD			;PART OF JOB 0

DTEPOL::CALL DTJZC1		;DO CHECKS 1-4
	CALL DTJZC2
	CALL DTJZC3
	CALL DTJZC4
	CALL DTJZCD		;CHECK STATE OF DBUGSW
	RET

;SEE IF DBUGSW HAS CHANGED SUCH THAT WE NEED TO TELL FE

DTJZCD:	SKIPE T1,DBUGSW		;MONITOR IN DEBUG MODE?
	SETO T1,		;YES
	XOR T1,FEDBST		;SAME AS FE NOW?
	JUMPE T1,R		;RETURN IF YES
	MOVSI T2,.DFDBN		;DEBUG ON FUNCTION
	SKIPN DBUGSW		;NOW DEBUGGING?
	MOVSI T2,.DFDBF		;NO, DEBUG MODE OFF
	MOVE T1,MSTRDT		;SEND MESSAGE
	SETZ T3,		;DIRECT
	CALL DTEQ
	 RET			;COULDN'T SEND, TRY AGAIN LATER
	SETCMM FEDBST		;REMEMBER FE STATE TOGGLED
	RET

;CHECK STATUS OF LOAD FORK IF PRESENT

DTJZC1:SKIPN A,LODFRK		;HAVE A FORK NOW?
	JRST DTPOL8		;NO
	RFSTS			;YES. GET ITS STATUS
	HLRZS A			;ONLY LH PLEASE
	CAIE A,2		;HALTED?
	CAIN A,3		;OR AN ERROR?
	SKIPA A,LODFRK		;YES
	JRST DTPOL8		;NO. GO ON
	KFORK			;KILL IT
	SETZM LODFRK		;AND THE HANDLE
	SETOM RLDFRK		;NO RELOAD FORK NOW
DTPOL8:	RET
;CREATE FORK TO LOAD FE IF NECESSARY

DTJZC2:	SKIPE LOAD11		;-11'S TO LOAD?
	SKIPE LODFRK		;YES. A FORK TO DO IT?
	JRST DTPOL7		;DON'T CREATE ANOTHER
	MOVX A,1B1		;SET CAPABILITIES TO WHEEL
	SETZ B,			;NO START ADDRESS
	CFORK			;GET ONE
	 JRST DTPOL7		;FAILED WAIT TILL NEXT TIME
	MOVEM A,LODFRK		;THE ID
	MOVE B,[MSEC1,,RELOAD]	;START ADDRESS
	MSFRK			;START IT IN MONITOR MODE
DTPOL7:	RET

;DO "CONTINUED" MESSAGE IF NECESSARY

DTJZC3:	SKIPN LOAD11		;ALL -11'S DONE RELOADING?
	SKIPN A,UPFLAG		;DO WE NEED A CONTINUE MESSAGE?
	JRST DTPL87		;NO . GO ON THEN
	TRZN A,1		;WANT A MESSAGE?
	JRST DTPL87		;NO
	JUMPGE A,[MOVSI A,(1B0)	;IS FIRST TIME
		MOVEM A,UPFLAG	;NEXT TIME WILL DO IT
		JRST DTPL87]	;AND DONE
	MOVEM A,UPFLAG
	SKIPE DBUGSW		;DEBUG MODE?
	JRST DTPL87		;YES, NO MESSAGE
	MOVNI A,2		;[7.1056] Send to all console front end lines
	HRROI B,[ASCIZ /
[DECSYSTEM-20 continued]
/]
	TTMSG			;TELL THE WORLD
	 ERJMP .+1		;IN CASE OF REFUSAL
DTPL87:	RET
;SEND TIME TO FE'S IF NECESSARY

DTJZC4:	SKIPE B,TAD11		;HAVE A TIME?
	CAMN B,[-1]		;?
	JRST DTPL88		;NO . GO ON
	DMOVE C,TAD11+1		;YES. GET REST OF IT
	IDCNV			;GET INTERNAL FORMAT
	 JRST DTPL89		;TIME IS BAD. INFORM HIM
	PUSH P,B		;SAVE THE TIME
	CALL LGTAD		;GET SYSTEM'S TIME
	POP P,B			;GET -11'S TIME
	CAME A,[-1]		;HAVE A TIME YET?
	SKIPN DBUGSW		;DEBUGGING?
	SKIPA			;NO. MUST CHECK THE TIME THEN
	JRST DTPL88		;YES. SKIP SETTING IT
	CAMLE A,B		;NO. NEED TO SET THE TIME?
	JRST DTPL89		;NO. SKIP SETTING IT
	MOVE A,B		;GET THE TIME
	STAD			;AND SET IT
	 JFCL
	JRST DTPL88		;GO DO REST

DTPL89:	MOVE A,MSTRDT		;TELL MASTER HE IS WRONG
	SETONE DT1TM,(A)	;TELL HIM NOW
DTPL88:	SETOM TAD11		;NO TIME
	SKIPE TO11TM		;TIME PACKET AVAILABLE?
	RET			;NO. NO SENSE LOOKING THEN
	SAVEPQ			;YES. SAVE ALL REGS
DTPOL6:	MOVE A,MSTRDT		;GET MASTER -11
	JE DT1TM,(A),DTPOL5	;-11 WANT TIME?
	SETZRO DT1TM,(A)	;SAY HE GOT IT
;-11 WANTS TIME OF DAY AND PACKET IS FREE

	SETOM TO11TM		;IN USE
	SETO B,			;GET CURRENT LOCAL TIME
	SETZ D,			;SAY TO USE LOCAL TIME ZONE
	ODCNV			;""
	HLRZ A,B		;GET YEAR
	DPB A,[POINT ^D16,TO11TM,31] ;STORE YEAR
	MOVE P1,[POINT ^D8,TO11TM+1] ;WHERE REST IS GOING
	IDPB B,P1		;STORE MONTH
	HLRZ A,C		;GET DAY OF MONTH
	IDPB A,P1		;STORE IT
	IDPB C,P1		;DAY OF WEEK
	LOAD C,IC%TMZ,D		;GET TIMEZONE
	TXNE D,IC%ADS		;DST IN EFFECT?
	TRO C,1B28		;YES - SET FLAG
	IDPB C,P1		;STORE INDICATOR
	LSH D,-1		;DIVIDE SECONDS BY 2
	DPB D,[POINT ^D16,TO11TM+2,15];SECONDS SINCE MIDNIGHT
	MOVSI A,TM1DON		;POSTING ROUTINE
	HRR A,MSTRDT		;DTE NUMBER
	MOVSI B,.DFHTD		;HERE IS TIME FUNCTION
	MOVEI C,^D10		;NUMBER OF BYTES IN MESSAGE
	MOVE D,[POINT ^D8,TO11TM] ;BYTE POINTER
	CALL DTEQ		;Q THE REQUEST
	 JFCL			;WILL GO
DTPOL5:	RET			;AND DONE

	RESCD			;MUST BE RESIDENT

;ROUTINE TO POST TIME SENT TO -11

TM1DON:	SETZM TO11TM		;SAY TIME PACKET IS FREE
	RET			;AND DONE

;ROUTINE CALLED FROM STAD JSYS TO ARRANGE FOR TIME TO BE SENT TO
;ALL 11'S.

	SWAPCD			;IS SWAPPABLE
DTTIME::MOVSI A,-DTEN		;FORM AOBJN WORD
DTTIM2:	JE DTERL,(A),DTTIM1	;IF NOT EXISTANT, DON'T DO IT
	SETONE DT1TM,(A)	;SAY HE NEEDS THE TIME
DTTIM1:	AOBJN A,DTTIM2		;DO ALL DTE'S
	RET			;AND DONE
;ROUTINE CALLED BY JOB 0 TO COMPLETE A SYSERR PACKET.
;ARGS ARE:
;	1/ POINTER TO PACKET
;RETURNS +1 ALWAYS WITH REMAINDER OF INFO FILLED IN
;CALLS DEVICE DEPENDENT ROUTINES TO GET THE OWNING FORK. CALL IS
;	CALL DEVICE-DEPENDENT-ROUTINE
;WITH:
;	B/ UNIT,,DEVICE
;RETURNS:
;	+1/NO OWNING PROCESS (AT LEAST, NOT NOW)
;	+2/SUCCESS WITH 1=OWNING PROCESS ID

	SWAPCD			;IS SWAPPABLE

SEEER2:	HRRZ B,FE%DEV+SEBDAT(A)	;GET DEVICE CODE
	CAIL B,MINDEV		;A KNOWN DEVICE?
	CAILE B,MAXDEV		;?
	JRST SEEER6		;UNKNOWN
	SKIPE C,DTEDTV(B)	;HAVE A TRANSFER VECTOR?
	SKIPN C,DTVSER(C)	;THIS DEVICE PREPARED?
SEEER6:	JRST [	MOVSI C,(1B0)	;UNKNOWN BIT
		IORM C,FE%DEV+SEBDAT(A) ;SET IT
		JRST SEEER4]	;GO SAY NO FORK,,JOB
	PUSH P,A		;SAVE BLOCK
	CALL 0(C)		;GET INFORMATION
	 JRST [	POP P,A		;CLEAN UP THE STACK
		JRST SEEER4]	;AND ASSUME UNKNOWN
	MOVE B,A		;FORK #
	POP P,A			;BLOCK
	CAIN B,-1		;UNASSIGNED?
	JRST [	HRLS B		;YES. PROPOGATE THE -1
		MOVEM B,FE%FJB+SEBDAT(A) ;SAY IS UNASSIGNED
		JRST SEEER5]	;AND GO WRAP UP
	LOAD C,FKJO%,(B)	;GET JOB #
	HRLI C,0(B)		;FORK
	MOVEM C,FE%FJB+SEBDAT(A);STORE IN BLOCK
	HRRZS C			;MAKE INDEXED REF WORK IN SECTION 1
	MOVE B,JOBDIR(C)	;GET DIRS
	HRLI B,USRLH		;SET UP A USER NUMBER
	MOVEM B,FE%DIR+SEBDAT(A);TO THE BLOCK
	MOVE B,JOBPNM(C)	;GET NAME
	MOVEM B,FE%NAM+SEBDAT(A);TO THE BLOCK
SEEER5:	MOVEI B,FE%INF		;START OF ERROR WORDS
	HRRM B,FE%PTR+SEBDAT(A);TO THE BLOCK
	SETZM FE%ID+SEBDAT(A)	;NO VERSION NUMBER YET
	RET			;AND DONE

SEEER4:	MOVE C,[-2,,-2]		;UNASSIGNED
	MOVEM C,FE%FJB+SEBDAT(A);SAY SO
	JRST SEEER5		;GO FINSISH THE SETUP
;THIS CODE IS A COLLECTION OF SUBROUTINES USED TO RELOAD AN -11.

;ROUTINE TO INITIATE ROM BOOT AND OPTIONALLY DUMP OR LOAD THE -11
;ACCEPTS:	A/FLAGS,, DTE #
;FLAGS ARE: GRONK/DON'T GRONK ROM
;		B/ COROUTINE ADDRESS FOR DUMPING
;		  IF B=0, NO DUMP
;		C/ COROUTINE ADDRESS TO GET NEXT PAGE TO LOAD
;		 IF C=0 NO LOAD WILL BE DONE
;		D/ ERROR ROUTINE IF LOAD OR DUMP FAILED (FOR UNLOCKING PAGES)

;RETURNS:	+1 FAILED. A CONTAINS THE CODE FOR THE FAILURE
;				-1 MEANS NO SUCH DTE
;		+2 SUCCESS. DUMP IS TAKEN AND BOOT IS ACTIVATED
;NOTE: THIS ROUTINE MUST HAVE RESET THE DTE AND INTERLOCKED THE
;BOOT LOCK
;NOTE SOME MORE: THE COROUTINES ARE CALLED WITH THE Q REGISTERS
;INTACT. THAT IS, Q1,Q2, AND Q3 WILL HAVE WHAT THE CALLER OF
;RMGRNK PUT IN THEM. THIS IS USEFUL FOR PASSING ARGS TO THE COROUTINES

;COROUTINES WORK AS FOLLOWS:
;RETURNS	+1 IF NO MORE TO DO. AC1=0 SAYS NO EXTRA DOORBELL
;		+2 MORE TO DO. IF LOADING, AC1 CONTAINS BYTE POINTER
;			TO NEXT CHUNK OF CORE TO LOAD
;			AND AC2 CONTAINS A ZERO IF NO DOORBELL
;			WANTED AFTER BYTE POINTER IS SET UP. IF DUMPING,
;			AC1 CONTAINS COUNT OF BYTES TO DUMP, AND
;			AC2 CONTAINS BYTE POINTER.

	SWAPCD			;IS SWAPPABLE
RMGRNC:	CALL RMGRNK		;DO ACTUAL WORK
	 SKIPA			;NON-SKIP RETURN
	  RETSKP		;SKIP RETURN SO PASS IT DOWN
	CAMN 1,[-1]		;NO SUCH DTE20?
	 RET			;RIGHT
	JFFO 1,RMGLIT		;WHICH ERROR BIT IS SET?
	SKIPA			;NO ERROR BITS SET
RMGLIT: CAILE T2,NBOTER 	;MORE ERROR TYPES THAN KNOWN?
	MOVEI T2,NBOTER 	;YES, SET ERROR TO BE MOST GENERAL
	MOVE T1,BOTERR(T2)	;GET ERROR CODE
	RET
BOTERR:	BOTX06
	BOTX07
	BOTX20
	BOTX09
	BOTX10
	BOTX11
	BOTX12
	BOTX13
	BOTX14
	BOTX15
	BOTX19
	BOTX17
	BOTX08
	BOTX18		;GENERAL BOOT ERROR CODE
NBOTER==.-BOTERR-1

RMGRNK:	SAVEP			;GET PERM REGISTERS
	MOVEI P1,3		;MAX TRIES
	SETZ P2,		;NO ERRORS YET
	ASUBR <RMDTE,RMJFN,RMCORT,RMERR>
	TXNN A,RM%ROM		;WANT TO GRONK ROM?
	JRST RMWAT1		;NO. SEE ABOUT DUMPING THEN
RMGRN1:	HRRZ A,RMDTE		;GET DTE NUMBER AGAIN
	CALL DTREAL		;GO VERIFY DTE EXISTS
	 JRST [	SETOM T1	;NO SUCH DTE
		RET ]		;RETURN FAILURE
	MOVE B,DATO(A)		;GET DATAO WORD
	IORI B,C		;DATA IS IN C
	SETZM C			;CLEAR BYTE COUNT REG
	XCT B			;DO IT
	MOVE B,CNDO(A)		;GET PROTOTYPE CONO
	IORI B,DTEPIE		;FIRST, TURN OFF PI0 TO RESET THE DTE
	XCT B			;""
	IORI B,DTESER!DTEPIE!DTEPI0 ;THE RELOAD INDICATOR AND PI
	XCT B			;SET THE RELOAD INDICATOR
	MOVEI B,PWRDN1		;TIME TO COMPLETE POWER-FAIL
	ADD B,TODCLK		;ABSOLUTE TIME WHEN IT IS OVER
	CAML B,TODCLK		;READY?
	JRST .-1		;NO. KEEP WAITING
;ROM SHOULD BE READY FOR US NOW

	MOVE B,CNDO(A)		;GET A CONO WORD AGAIN
	IORI B,DTECER		;CLEAR RELOAD BIT
	XCT B			;TURN OFF RELOAD

;NOW PUT A MAGIC NUMBER IN BYTE COUNT REGISTER SO ROM CAN FIND US

	MOVE B,A		;GET DTE NUMBER
	LSH B,SDTE		;GET TO EPT OFFSET
	SETZM DTETBP(B)		;CLEAR TO -10 BYTE POINTER WORD
	MOVE B,DATO(A)		;GET A DATAO WORD
	IORI B,C		;MAGIC NUMBER WILL BE IN C
	MOVEI C,MAG11N		;THE MAGIC NUMBER
	XCT B			;DO IT
	CALL DING11		;AND RING -11'S DOORBELL
	MOVE P3,[CONSO DTE0,DTEEDB] ;TEST WORD
	LSH A,^D26		;POSITION DTE #
	ADD P3,A		;GET PROPER I/O WORD
	HRRZ A,RMDTE		;RESTORE A
	MOVEI B,ROMTIM		;TIME FOR ROM TO MAKE IT
	ADD B,TODCLK		;ABSOLUTE TIME
RMWAT0:	XCT P3			;IS DOORBELL STILL UP?
	JRST RMWAT1		;NO. ROM RESPONDED
	CAML B,TODCLK		;IS TIME UP YET?
	JRST RMWAT0		;NO. TRY AGAIN
	TXO P2,.R1RMF		;NO ROM RESPONSE
RMTRY:	MOVX A,RM%ROM		;MAKE SURE WE CAN RETRY
	TDNE A,RMDTE		;CAN WE REGRONK ROM?
	SOJG P1,RMGRN1		;YES, GO TRY AGAIN
RMTRY1:	HRRZ A,RMDTE		;ERROR-- GET BACK DTE #
	CALL DTREST		;RESET DTE PI0 ENABLE
	MOVE A,P2		;GET ERROR INIDCATION
	RET			;AND RETURN FAILURE
;ROM IS PROPERLY INITIALIZED HERE. TRY DOING THE BOOT

RMWAT1:	SETZ P4,		;INIT COROUTINE COUNTER
RMWAT2:	SKIPN B,RMJFN		;A DUMP ROUTINE GIVEN?
	JRST RMLOAD		;NO. DON'T DO THE DUMP THEN
	MOVEI A,0(P4)		;ARG TO COROUTINE
	CALL 0(B)		;CALL THE DUMP COROUTINE
	 JRST [	SETZM RMJFN	;DON'T DO DUMP ON RETRY
		CALL CHKBEL	;SEE IF A BELL IS NEEDED
		JRST RMLOAD]	;AND GO SEE ABOUT LOADING

;COROUTINE RETURNED WITH:
;		A/ COUNT OF WORDS TO DUMP
;		B/ BYTE POINTER TO USE

	MOVE C,A		;PUT COUNT INTO C
	HRRZ A,RMDTE		;GET DTE NUMBER
	CALL DODUMP		;TRY DUMPING THIS BUNCH
	 JRST [	TXO P2,.R1DPF	;DUMP ABORTED
		TDO P2,A	;ADD IN BITS FROM DODUMP
		SETO A,		;SAY FAILURE IS FROM THE DUMP
		SKIPE B,RMERR	;WANT ERROR POSTING?
		CALL 0(B)	;YES. DO IT
		SKIPN RMCORT	;WANT TO LOAD IT TOO?
		JRST RMTRY1	;NO. ERROR OUT NOW THEN
		SETZM RMJFN	;DON'T TRY DUMP AGAIN
		JRST RMTRY]	;AND TRY, TRY AGAIN
	AOJA P4,RMWAT2		;GO DO NEXT PIECE OF DUMP


;ROUTINE CALLED BY DUMP AND LOAD CODE TO SEE IF A BELL IS NEEDED
;AFTER COMPLETION.
;ACCEPTS:	A/ 0 = NO BELL
;		RMDTE CONTAINS DTE NUMBER

CHKBEL:	JUMPE A,R		;IF NO BELL NEEDED, RETURN
	HRRZ A,RMDTE		;GET DTE NUMBER
	CALLRET DING11		;AND GO RING THE BELL
;-11 IS NOW DUMPED. SEE IF A LOAD IMAGE IS NEEDED

RMLOAD:	SETZ P4,		;ARG TO COROUTINE
RMLOD0:	SKIPN B,RMCORT		;HAVE A ROUTINE TO DO?
	RETSKP			;NO. RETURN
	HRRZ A,RMDTE		;GET DTE NUMBER
	MOVE C,CNDO(A)		;GET A CONO WORD
	IORI C,DTEEDN		;GET TEST BITS
	XCT C			;TURN OFF TEST BITS
	MOVE A,P4		;TELL COROUTINE WHICH CALL THIS IS
	CALL 0(B)		;GO GET NEXT PAGE
				;RETURNS A=EXEC VIRT ADDRESS
				; B=0 IF NO DOORBELL AFTER SETUP
	 JRST [	CALL CHKBEL	;SEE IF BELL IS NEEDED
		RETSKP]		;AND DONE
	MOVE C,A		;SAVE POINTER
	HRRZ A,RMDTE		;GET DTE NUMBER AGAIN
	LSH A,SDTE		;FIND THE EPT
	MOVEM C,DTEEBP(A)	;PUT CORRECT BYTE POINTER IN EPT
	HRRZ A,RMDTE		;DTE AGAIN
	SKIPE B			;WANT A DOORBELL AFTER SETUP
	CALL DING11		;GO START TRANSFER
	MOVEI B,BUTTIM		;TIME FOR THE PAGE TO CLEAR
	ADD B,TODCLK		;WHEN IT MUST BE DONE
	MOVE P3,CNDO(A)		;GET A CONO WORD
	TXO P3,<<CONSO 0>-<CONO 0>+DTEEDN+DTEEER> ;MAKE IT A CONSO WORD
RMDNL1:	XCT P3			;DONE YET?
	JRST [	CAML B,TODCLK	;NO. TIME UP?
		JRST RMDNL1	;NO. KEEP WAITING
		XCT P3		;did function complete ?
		SKIPA		;no report error
		JRST .+1	;yes it did finally finish after all !!
		CALL CLR11B	;YES. CLEAR BYTE POINTER
		TXO P2,.R1BSF	;ERROR CODE
		JRST RMLERR]	;AND GIVE ERROR
	TXZ P3,DTEEDN		;FINISHED. SEE IF SUCCESSFUL
	CALL CLR11B		;CLEAR BYTE POINTER
	XCT P3			;WAS IT AN ERROR
	AOJA P4,RMLOD0		;NO, GO SEE IF MORE LOAD WANTED
	TXO P2,.R111E		;SAY ERROR
RMLERR:	SETZ A,			;SAY ERROR OCCURRED ON LOAD
	SKIPE B,RMERR		;WANT ERROR NOTICE?
	CALL 0(B)		;YES. DO IT
	JRST RMTRY		;GO TRY WHOLE THING AGAIN

;LOCAL ROUTINE TO CLEAR TO -11 BYTE POINTER IN THE EPT.

CLR11B:	SAVEAC <A>		;SAVE ALL REGS
	HRRZ A,RMDTE		;GET DTE #
	LSH A,SDTE		;COMPUTE EPT REGION FOR THIS DTE
	SETZM DTEEBP(A)		;ZERO THE BYTE POINTER
	RET			;AND DONE
;PROCESS RUN BY JOB 0 TO RELOAD THE MASTER -11.

	SWAPCD			;IS SWAPPABLE

;TEMPORARY CODE TO FIGURE OUT WHY KILPAG IS GETTING CALLED FROM SECTION 0
   IFN DTESW,<
JHTEST:	PUSH P,CX
	MOVX CX,VSECNO
	TDNN CX,-1(P)		;DIE IF RUNNING IN SECTION 0
	JSR BUGHLT
	POP P,CX
	RET
   >				;END OF IFN DTESW
RELOAD:	MOVX A,UMODF
	MOVEM A,FFL		;SIMULATE CALL FROM USER MODE
	MCENTR			;ENTER MONITOR CONTEXT
	MOVE A,FORKX		;GET OUR FORK HANDLE
	MOVEM A,RLDFRK		;AND REMEMBER IT FOR LATER
	MOVX A,RLDPRI		;GET SPECIAL PRIORITY WORD FOR RELOAD
	MOVEM A,JOBBIT		;FOR REMAINDER OF RELOAD
RELOD2:	MOVE A,MSTRDT		;GET ID OF MASTER
	JN DTRLD,(A),RELOD1	;FOUND ONE
	MOVSI A,-DTEN		;NOW CHECK ALL OF THE OTHERS AS WELL
RELOD3:	JE DTRLD,(A),RELOD4	;THIS ONE NEED ATTENTION?
	HRRZ B,A		;YES, GET DTE # ONLY
	CAMN B,MSTRDT		;DID THE MASTER DIE AGAIN?
	JRST RELOD1		;YES. GO DO IT NOW
	PUSH P,A		;NO.
	CALL SETRGN		;Set up regions so we can get protocol type
	LOAD C,CMVRR,(C)	;Get protocol version
	SKIPN DTBUGX		; Skip this if we aren't interested
	CAIE C,MCPRON		;If DECnet, no buginf
	BUG.(INF,DN20ST,DTESRV,HARD,<DTESRV - DN20 stopped>,<<B,DTENO>>,<

Cause:	A DN20 has crashed.

Action:	Reload the DN20.

Data:	DTENO - DTE number
>,,<DB%NND>)			;[7.1210]
	LSH B,SDTE		;GET EPT OFFSET
	SETZM DTEEPW(B)		;CLEAR "VALID EXAMINE"
	CALL CLRDT0		;CLEAR OUT THE QUEUES
	CALL RELODR		;INFORM APPROPRIATE MONITOR ROUTINES
	POP P,A			;GET BACK REG
	SETZRO <DTRLD,DTKAC>,(A) ;TURN OFF ATTENTION BITS
RELOD4:	AOBJN A,RELOD3		;SCAN THEM ALL
	SETZM LOAD11		;ALL DONE
	AOS JB0FLG		;MAKE JOB 0 SEE HALTED STATE ASAP
	HALTF			;NONE LEFT. ALL DONE
;RELOAD MASTER -11. REGISTER USAGE AS FOLLOWS:
;	Q1/ OFN,,JFN OF DUMP FILE (PASSED TO RELODD BY RMGRNK)
;	Q2/ -11 ERROR WORDS RETURNED BY RELODD IF DUMP SUCCEEDED
;	Q3/ CUMULATIVE ERROR REGISTER
;	P5/ RETRY COUNT

RELOD1:
   IFN DTESW,<
	CALL JHTEST
   >				;END OF IFN DTESW
	SETZRO DTERL,(A)	;BE SURE NOT RUNNING A PROTOCOL
	CALL CLRDT0		;FLUSH SCHEDULING QUEUE
	SETZB Q3,Q2		;CLEAR STATUS AND ERROR WORDS
	MOVE A,MSTRDT		;GET BACK DTE #
	MOVEI P5,3		;MAX TRIES
	CALL FNDFIL		;GO GET JFN AND OFN FOR THE DUMP FILE
	 JRST [	TXO Q3,.R1DPF	;THE DUMP WON'T BE DONE
		SETZ P1,	;NO JFN
		JRST .+1]	;GO INLINE
   IFN DTESW,<
	CALL JHTEST
   >				;END OF IFN DTESW
	HRR Q1,P1		;Q1 NOW HAS OFN,,JFN

;READY TO GRONK THE ROM.

RELODA:	MOVEI B,RELODD		;DUMP COROUTINE
	CAIN P5,3		;IS THIS THE FIRST TIME?
	SKIPN P1		;HAVE A JFN FOR DUMPING?
	SETZ B,			;NO. DON'T DO THE DUMP THEN
	MOVEI C,RELODL		;ADDRESS OF LOAD ROUTINE
	MOVEI D,RELODE		;ERROR ADDRESS
	TXO A,RM%ROM		;MUST DO ROM BOOT
	SETZM DTECMD		;CLEAR SECONDARY PROTOCOL COMMAND WORD
   IFN DTESW,<
	CALL JHTEST
   >				;END OF IFN DTESW
	CALL RMGRNK		;GO GRONK THE ROM
RELODF:	 JRST [	MOVE Q3,A	;SAVE ERROR FLAGS
		SOJG P5,RELODA	;TRY AGAIN, MAYBE
		MOVE A,MSTRDT	;THE DTE NUMBER
		CALL RELOD7	;GO DO SYSERR
		AOS JB0FLG	;MAKE JOB 0 RUN NOW
		MOVEI A,^D1000
		DISMS		;WAIT HERE FOR IT TO RUN AND DO SYSERR
		AOS SHLTW	;AND STOP SYSTEM
		HALTF]		;DONE
	; ..
	; ..
;RELOAD OF THE -11 IS NOW IN PROGRESS. DO PROTOCOL INIT

	MOVE A,MSTRDT		;THE -11 NUMBER
   IFN DTESW,<
	CALL JHTEST
   >				;END OF IFN DTESW
	CALL KILPAG		;GO PURGE THE BUFFER PAGE
	MOVSI D,(<CONSO DTE0,>) ;GET A CONSO WORD
	MOVE A,MSTRDT		;THE -11 NUMBER
	LSH A,^D26		;PSOITION IT
	ADD D,A			;THE WORD
	MOVE A,MSTRDT		;DTE # AGAIN
	IORI D,DTETDB		;SET UP TO WAIT FOR A DOORBELL
	MOVEI B,DRBTIM		;TIME TO WAIT FOR RELOAD TO COMPLETE
	ADD B,TODCLK		;WHEN WAIT IS UP
RELD11:	XCT D			;WAIT
	JRST [	CAML B,TODCLK	;WAIT SOME MORE?
		JRST RELD11	;YES
		TXO Q3,.R1NRL	;NO RELOAD
		SOJG P5,RELODA	;SEE IF WE SHOULD TRY AGAIN
		MOVE A,Q3	;FLAGS
		JRST RELODF]	;NO. FAIL!!!!!!
	CALL DTREST		;GO RESET THE DTE
	MOVEI B,.VN20F		; FOR RSX20F PROTOCOL
	CALL DTINIT		;GO INIT THE COMM REGIONS
	CALL RELOD7		;GO DO SYSERR
	MOVE A,MSTRDT		;RECOVER DTE NUMBER
	JN DTRLD,(A),RELOD2	;IF WANTS RELOAD AGAIN, GO DO IT NOW
	CALL RELODR		;INFORM REST OF MONITOR
	MOVX A,GJ%OLD!GJ%SHT!GJ%PHY
	HRROI B,SETSPD
	MOVEI C,1		;[7.1235] Offset 1 in entry vector
	SETZM D			;DO NOT RECORD FORK NUMBER
	CALL RUNDII		;GO SET DEFAULT SPEEDS AGAIN
	 IFN DTESW,<
	  BUG.(HLT,SETSPF,DTESRV,SOFT,<SETSPD failed to run correctly after FE reload>,,<

Cause:	SETSPD failed to run correctly after a FE reload. 

Action:	It is possible that all of the job 0 forks are in use and the monitor
	could not start another one to run SETSPD. If this is not the case,
	the submit an SPR reporting this problem.
>)
>				;END OF DTESW
	 JFCL			;CAN'T HELP IT
	SKIPN C,KLIDTA		;HAVE ANY KLINIK DATA?
	JRST RELOD2		;NO,GO WRAP UP
	HRRZ A,MSTRDT		;YES. GET I.D. OF MASTER
	MOVSI B,.DFKLS		;GET FUNCTION TO SEND KLINIK DATA
	MOVE D,[POINT ^D8,KLIDTA+1] ;GET KLINIK DATA BASE POINTER
	CALL DTEQ		;GO SEND THE KLINIK DATA
	 JFCL			;WILL GO
	JRST RELOD2		;AND GO WRAP UP
;ROUTINE OF RELOAD TO INFORM APPROPRIATE MONITOR DRIVERS OF THIS RELOAD.
;	A/ DTE #

RELODR:	HRRZS A			;GET DTE #
	ASUBR <DTENBR>		;SAVE DTE NUMBER
	CALL SETRGN		;FIND COMM REGIONS
	LOAD B,CMVRR,(C)	;GET PROTOCOL VERSION #
	JRST @.+1(B)		;DISPATCH TO DEAD FE HANDLER
	   IFIW ! RLODR1	;RSX20F
	   IFIW ! RELMCB	;MCB
	   IFIW ! DEDD60	;DN60 (IBM)


;HERE FOR RSX20F PROTOCOL

RLODR1:	MOVSI P5,MINDEV-MAXDEV+.FECTY ;TO SEARCH DTEDTV
	HRRI P5,.FECTY+1	;START AFTER CTY
RLODR2:	MOVE A,DTENBR		;GET DTE #
	SKIPE B,DTEDTV(P5)	;THIS DEVICE EXIST?
	SKIPN B,DTVRLD(B)	;YES. WANT TO KNOW ABOUT RELOADS?
	SKIPA			;NO
	CALL 0(B)		;YES. TELL HIM
	AOBJN P5,RLODR2		;DO ALL DEVICES
	RET			;AND DONE

;HERE WHEN THE MCB FELL OVER

RELMCB:	EA.ENT			;DECNET-36 RUNS IN SECTION ONE
	MOVX B,DI.LSC		;SIGNAL LINE STATE CHANGE
	MOVX C,LS.OFF		; TO OFF
	CALLRET CALDVR		;GIVE ROUTER THE NEWS
;COROUTINES OF RMGRNK TO DO LOADING OF -11

;COROUTINE TO LOAD BOOTSTRAP

RELODL:	JUMPG A,[CALL UNLPAG	;IF NOT FIRST TIME, UNLOCK PAGE
		CALLRET RTRUE]	;AND GET A FINAL BELL
	CALL LOKPAG		;GO LOCK DOWN BOOT PAGE
	MOVE B,[DTERBT,,DTERBT+1]
	SETZM DTERBT		;SET UP TO CLEAR REBOOT PAGE
	BLT B,DTERBT+1_PGSFT-1	;ZAP THE WHOLE PAGE
	MOVE A,MSTRDT		;GET DTE NUMBER
	CALL CLRBEL		;TURN OFF TO -10 DOORBELL
	CALL SETRGN		;FIND COMM REGIONS
	DMOVE A,[12700,,0	; MOVE #0,R0
		137,,173034]	; JMP 173034 (A MAGIC ADDRESS)
	LOAD C,CMRLF,(C)	;GET RELOAD FLAGS
	TXZ C,7			;TURN OFF RELOAD -10 FLAGS
				; AND SWITCH REGISTER REQUEST
	HRRI A,4(C)		;TO THE BOOT PROGRAM
				; AND TURN ON NO -10 REBOOT BIT
	DMOVEM A,DTERBT		;TO THE PAGE
	TXNE A,DSK11		;IS THIS AN RP REBOOT?
	JRST [	MOVE B,[DSKRBT,,DTERBT] ;YES. MOVE PORT CONTENTION
				; CODE IN FIRST
		BLT B,DTERBT+DSKPSZ-1 ;MOVE IT ALL
		HRRM A,DTERBT	;STICK IN THE UNIT STUFF
		JRST .+1]	;ALL READY TO GO
	MOVE A,[POINT ^D18,DTERBT] ;GET POINTER TO BOOT CODE
	SETO B,			;AND RING DOORBELL AFTER SETUP
	RETSKP			;AND GO BOOT IT
;ROUTINE TO LOCK DOWN DTERBT

LOKPAG:	NOINT			;NO INTERRUPTS WITH LOCK LOCKED
	LOCK BTLOCK		;LOCK THE BOOT PAGE
	MOVEI A,DTERBT		;THE PAGE
	MOVES 0(A)		;CREATE IT
	CALL FPTA
	CALL MLKPG		;AND LOCK IT
	RET			;DONE

;ROUTINE TO UNLOCK DTERBT

UNLPAG:	MOVEI A,DTERBT		;ADDRESS OF THE PAGE
	CALL FPTA		;GET ID
	CALL MULKPG		;GO DO IT
;DN20'S WON'T LOAD WITH THE FOLLOWING LINE
;	CALL KILPAG		;CLEAN UP ADDRESS SPACE
	UNLOCK BTLOCK		;NO LONGER OWN PAGE
	OKINT			;PERMIT INTERRUPTS AGAIN
	RET			;RETURN

;ERROR ROUTINE

RELODE:	CALL UNLPAG		;FREE THE PAGE
	RET			;AND DONE
;COROUTINE TO PERFORM THE DUMP OF THE MASTER -11
;ARGS:	Q1/ OFN,,JFN OF THE DUMP FILE
;	A/PAGE NUMBER

RELODD:	ASUBR <PAGENO>		;THE ARG TO THIS COROUTINE
	JUMPE A,[CALL LOKPAG	;IF FIRST TIME, LOCK DOWN PAGE
		JRST RELDD1]	;AND GO PROVIDE ARGS

;NOT THE FIRST TIME. DTERBT CONTAINS GOOD DATA, AND A CONTAINS PAGE NUMBER

	CAIN A,1		;IS THIS THE FIRST 1 K OF -11 MEMEORY?
	MOVE Q2,DTERBT		;YES. GET CODE FOR SYSERR
	NOINT
	CALL ASGPAG		;GET A WORK PAGE FOR THIS
	 JRST [	OKINT		;FAILED. ALLOW INTS AGAIN
		JRST RELODE]	;AND GIVE ERROR
	PUSH P,A		;SAVE CORE ADDRESS
	HLL A,Q1		;OFN OF THE FILE
	HRR A,PAGENO		;PAGE NUMBER OF THE FILE
	SOS A			;PAGE NUMBER FOR THE DUMP FILE
	MOVE B,0(P)		;THE TEMP PAGE WE JUST GOT
	TXO B,PA%WT!PA%RD	;NEED ACCESS
	CALL SETMPG		;MAP THE FILE TO THE PAGE
	MOVSI B,DTERBT		;WHERE THE DATA IS
	HRR B,0(P)		;THE DESTINATION
	POP P,A			;AGAIN
	BLT B,777(A)		;MOVE THE DATA
	CALL RELPAG		;RELEASE AND UNMAP THE PAGE
	OKINT			;ALLOW INTS AGAIN
	MOVE A,PAGENO		;THE PAGE NUMBER
	CAIL A,^D28		;DONE ALL OF CORE?
	JRST RELODC		;YES. GO CLOSE FILE
RELDD1:	MOVEI A,2000		;COUNT OF BYTES
	MOVE B,[POINT ^D18,DTERBT] ;WHERE TO DO NEXT DUMP
	RETSKP			;GO DO IT

;DUMP IS DONE. CLOSE FILE

RELODC:	HRRZ A,Q1		;THE JFN
	TXO A,1B0		;DON'T RELEASE THE JFN
	CLOSF			;CLOSE IT
	 JFCL
	CALL UNLPAG		;GO UNMAP THE PAGE
	CALLRET RFALSE		;AND SAY NO BELL NEEDED
;ROUTINE TO GET JFN AND OFN FOR THE DUMP FILE
;INPUT:	A/ DTE NUMBER
;RETURNS: +1 /FAILURE. CONDITION BIT ON IN Q3
;	  +2/ SUCCESS. P1/THE JFN  Q1/ OFN,,

FNDFIL:	SAVET			;SAVE TEMPS
	HRROI B,DTERBT		;WHERE TO FORM THE NAME
	MOVEI D,"0"(A)		;FIRST BYTE IS -11 NUMBER
	SETZ C,			;TERMINATE ON NULL
	HRROI A,[ASCIZ /BS:<SYSTEM>/] ;[7.1219] Put file in BS:<SYSTEM>
	SIN			;COPY STIRNG
	IDPB D,B		;PUT IN -11 NUMBER
	HRROI A,[ASCIZ /DMP11.BIN;P770000/]
	SIN			;COPY REST OF NAME
	IDPB C,B		;TIE IT OFF
	MOVX A,GJ%FOU!GJ%PHY!GJ%SHT ;GTJFN BITS
	HRROI B,DTERBT		;THE ADDRESS OF THE FILE PAGE
	GTJFN			;GET A JFN
	 JRST [	TXO Q3,.R1GTF	;GTJFN FAILED
		RET]		;AND GIVE UP
	MOVEI P1,0(A)		;SAVE JFN
	HRLI A,.FBBYV		;SET UP TO CHANGE BYTE SIZE
	MOVX B,7777B11		;SET RETENTION AND BYTE SIZE
	MOVX C,0044B11		;SET RETENTION TO INFINITE
	CHFDB			;CHANGE IT
	ERJMP FNDFL1		;FAILED. PUNT IT
	HRLI A,.FBSIZ		;EOF POINTER
	SETO B,			;CHANGE WHOLE WORD
	MOVEI C,^D28*^D512	;SET TO 28 PAGES
	CHFDB			;DO IT
	ERJMP FNDFL1		;FAILED. PUNT IT
FNDFL1:	MOVE B,[440000+OF%WR]	;OPEN CONDITIONS
	MOVEI A,0(P1)		;GET JFN AGAIN
	OPENF			;OPEN THE FILE
	 JRST [	TXO Q3,.R1OPF	;OPENF FAILED
		RET]		;GIVE IT UP
	HRLZS A			;JFN TO LH
	CALL JFNOFN		;GET THE OFN
	 JRST [TXO Q3,.R1OPF	;OPENF FAILED
		RET]
	MOVE Q1,A		;SAVE THE OFN
	RETSKP			;MADE IT
;THIS ROUTINE PERFORMS THE ACTUAL DUMP OF THE -11. INPUT IS:
;	A/ DTE NUMBER
;	B/ BYTE POINTER TO USE FOR THE DUMP
;	C/ FLAGS AND COUNT OF WORDS TO DUMP
;		COUNT IS RIGHTMOST 12 BITS (DTEBYC)
;		FLAGS:	DTETI (SET "I" BIT ON TRANSFER)
;RETURNS:
;	+1/ FAILED. CONDITION SET IN A
;	+2/ SUCCESS

DODUMP:	SAVEPQ			;SAVE ALL REGS
	MOVE D,[CONSO DTE0,DTETDN!DTETER] ;DTE CONDITIONS
	MOVE P3,DATO(A)		;GET A DATAO FOR THIS DTE
	MOVE Q3,CNDO(A)		;GET A CONO WORD
	IORI Q3,DTETDN		;TO SET UP PROPER STATE
	IORI P3,A		;ARG WILL GO IN A
	LSH A,^D26		;POSITION DTE NUMBER
	ADD D,A			;FORM HARDWARE TEST WORD
	LSH A,-^D26+SDTE	;FORM EPT INDEX
	MOVEM B,DTETBP(A)	;PUT BYTE POINTER IN EPT
	XCT Q3			;TURN OFF ALL TO -10 INDICATORS

;GO GET THE CORE

	MOVE B,C		;COPY BYTE COUNT AND "I" BIT
	MOVN A,C		;GET NEG OF COUNT
	ANDI A,DTEBYC		;ONLY 12 BITS
	TXNE B,DTETI		;WANT "I" BIT SET ?
	TXO A,DTETI		;YES, SET "I" BIT
	XCT P3			;DO THE DATAO
	MOVEI B,T10TIM		;TIME FOR IT TO COMPLETE
	ADD B,TODCLK		;WHEN WAIT IS UP
DOPAG1:	XCT D			;WAIT FOR IT TO COMPLETE
	JRST [	CAML B,TODCLK	;WAIT SOME MORE?
		JRST DOPAG1	;YES. GO DO IT
		XCT D		;did function complete ?
		SKIPA		;no report error
		JRST .+1	;yes, it finally finished
		SETZ A,		;NO. ASSUMED IT WON'T FINISH
		XCT P3		;ABORT TRANSFER
		MOVX A,.R1RTM	;set read timeout status
		JRST DMPERR]	;AND GO MARK ERROR
	TXZ D,DTETER		;SEE IF IT WAS ERROR OR NORMAL DONE
	XCT D			;""
	JRST [	MOVX A,.R110E	;WAS AN ERROR. BAD NEWS
		JRST DMPERR]
	TXO D,DTETER		;RESTORE THIS
	XCT Q3			;TURN OFF DONE FLAGS
	RETSKP			;DUMP IS DONE

;ERROR DOING THE DUMP

DMPERR:	XCT Q3			;RESET THE DTE
	RET			;DONE
;ROUTINE TO MAKE SYSERR ENTRY FOR -11 RELOAD. INPUT IS:
;	A/ DTE NUMBER
;	P1/ JFN
;	P3/ RETRY COUNT
;	Q2/ -11 ERROR WORDS
;	Q3/ STATUS

RELOD7:	TRVAR <DTNOM,SYBLK,ER11,<FILESP,^D20>> ;FOR SYSERR INFO
	MOVEM Q2,ER11		;SAVE -11 ERROR WORDS
	MOVEM A,DTNOM		;SAVE DTE NUMBER
	MOVEI A,R1%LEN		;SIZE OF PACKET
	MOVEI B,R1%SIZ		;LENGHT (INCLUDING STIRNGS)
	CALL ALCSEB		;ALLOCATE A BLOCK
	 JRST [	MOVE A,DTNOM
		RET]		;DONE
	MOVEM A,SYBLK		;SAVE BLOCK
	MOVEI B,3		;MAX TRIES
	SUBM B,P5		;NUMBER OF TRIES
	IOR P5,Q3		;FORM FINAL STATUS WORD
	MOVE B,[-4,,[		;TO DO THE COPIES
		SEBPTR 0,SBTEVC,SEC%11 ;CODE
		SEBPTR R1%NUM,SBTWD,DTNOM ;-11 NUMBER
		SEBPTR R1%STS,SBTWD,P5 ;STATUS
		SEBPTR R1%ERW,SBTWD,ER11]] ;-11 ERROR WORDS
	MOVE A,SYBLK		;BLOCK ADDRESS
	CALL SEBCPY		;COPY THE DATA
	 JFCL
	TXNE Q3,.R1DPF		;DID THE DUMP SUCCEED?
	JRST RELOD9		;NO. GO ON
	MOVEI B,0(P1)		;YES. GET JFN
	HRROI A,FILESP		;A BUFFER FOR THE FILE NAME
	MOVE C,[11110,,10011]	;JFNS BITS
	JFNS			;GET THE NAME
	MOVE A,SYBLK		;SYSERR BLOCK
	MOVE B,[-1,,[
		SEBPTR R1%FNM,SBTSTR,FILESP]] ;COPY STRING
	CALL SEBCPY		;DO IT
	 JFCL
RELOD9:	MOVE A,SYBLK		;GET SYSERR BLOCK
	CALL QUESEB		;QUEUE IT UP
	 JFCL			;?
	RET			;AND DONE
;CODE TO DO THE RP REBOOT OF THE -11. THIS INCLUDES THE PORT
;CONTENTION LOGIC AND THE BOOT CODE

DSKRBT:	12700,,0		;MOV #0,R0
	12704,,176700		;MOV #RPEXP,R4
	12703,,176710		;MOV #RPEXP+10,R3
	12713,,40		;MOV #40,@R3
	10005,,305		;MOV R0,R5
				; SWAB R5
	42705,,177770		;BIC #177770,R5
	110513,,12701		;MOVB R5,@R3
	2,,12714		;MOV#2,R1
	23,,32714		;MOV #23,@R4
	4000,,1771		;BIT #DVA,@R4
				; BEQ 10$
	5301,,1371		;DEC R1
				; BNE 20$
	137,,173034		;JUMP 173034
DSKPSZ==.-DSKRBT

;ROUTINE TO CHECK IF A DTE EXISTS
;ACCEPTS:	A/ DTE NUMBER
;RETURNS:	+1 DOESN'T EXIST
;		+2 EXISTS

DTREAL:	JN DTERL,(A),RSKP	;IF NOW ACTIVE, IT EXISTS
	CALL DTREST		;PUT IT IN A KNOWN STATE
	MOVE B,CNDO(A)		;GET A CONO WORD
	IORI B,DTEPIE+DTEPI0	;ENABLE PI 0 ONLY
	XCT B			;GO SET THEM
	TXC B,<<CONSO 0>-<CONO 0>> ;CHANGE CONO INTO A CONSO
	XCT B			;SEE IF BITS ARE ON
	RET			;NO. DEVICE DOESN'T EXIST
	CALL DTREST		;YES. RESET DEVICE
	RETSKP			;AND SAY IT EXISTS
; BOOT JSYS - PERFORMS BOOTSTRAP FUNCTIONS FOR ADJACENT COMPUTERS


; TABLE OF DISPATCH ADDRESSES

BOOTTB:	BTROM			;  0 ACTIVATE ROM
	BTLDS			;  1 LOAD SECONDARY BOOTSTRAP PROGRAM
	BTLOD			;  2 LOAD MEMORY
	BTDMP			;  3 DUMP MEMORY
	BTIPR			;  4 INITIALIZE PROTOCOL
	BTTPR			;  5 TERMINATE PROTOCOL
	BTSTS			;  6 RETURN STATUS
	BTBEL			;  7 WAIT FOR TO-10 DOORBELL
	BTRMP			; 10 READ MOP MESSAGE
   REPEAT 3,<
	[RETBAD (ARGX02)]>	; 11-13 ARE ILLEGAL
	BTCLI			; 14 (.BTCLI) CONVERT LINE ID TO PORT NUMBER
	BTCPN			; 15 (.BTCPN) CONVERT PORT NUMBER TO LINE ID
	BTD60			; 16 (.BTD60) perform a DN60 operation

	BOOTLN==.-BOOTTB
.BOOT::	MCENT			;MONITOR CONTEXT ENTRY
	MOVE T1,CAPENB		;GET ENABLED CAPABILITIES
	TXNN T1,SC%WHL!SC%OPR!SC%MNT ;WHEEL, OPERATOR, OR MAINTENANCE ?
	ITERR (CAPX1)		;NO, GIVE ERROR

; VALIDATE DTE-20 NUMBER

	UMOVE Q1,2		;GET ADDRESS OF USER'S ARGUMENT BLOCK
	UMOVE Q2,.BTDTE(Q1)	;GET DTE-20 NUMBER FROM USER
	UMOVE T1,1		;GET FUNCTION CODE FROM USER
	CAIN T1,.BTCLI		;SPECIAL CASE - DON'T CHECK DTE NUMBER
	JRST BOOT1		;YES - SKIP VALIDATION
	CAIL Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	ITERR (BOTX01)		;NO, GIVE ERROR

; DISPATCH TO PROCESSING ROUTINE BASED ON REQUESTED FUNCTION

BOOT1:	CAIL T1,.BTROM		;CHECK RANGE OF GIVEN
	CAIL T1,BOOTLN		; FUNCTION CODE
	ITERR (ARGX02)		;INVALID FUNCTION CODE
	MOVE T1,BOOTTB(T1)	;GET ADDRESS OF PROCESSING ROUTINE
	CALL (T1)		;DISPATCH TO APPROPRIATE ROUTINE
	 ITERR()		;ERROR
	MRETNG			;SUCCESS, RETURN TO USER

; COMMON ERROR ROUTINE TO STORE FAILURE STATUS IN ARG BLOCK AND RETURN
; ACCEPTS IN T1/ ERROR STATUS

BTERR:	CAMN T1,[-1]		;NO SUCH DTE20 ?
	JRST [	MOVX T1,BOTX01	;YUP, GET CORRECT ERROR CODE
		RET ]		;AND DONE
	UMOVEM T1,.BTERR(Q1)	;SAVE ERROR STATUS
	RET			;GIVE FAIL RETURN
; ROUTINE TO ACTIVATE (GRONK) THE ROM

BTROM:	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	MOVE T1,Q2		;GET DTE-20 NUMBER
	TXO T1,RM%ROM		;INDICATE THAT ROM SHOULD BE GRONKED
	SETZB T2,T3		;DON'T DUMP, DON'T LOAD
	CALL RMGRNC		;GO GRONK THE ROM
	 JRST BTERR		;FAILED, RETURN ERROR STATUS
	RETSKP			;SUCCESS, GIVE GOOD RETURN


; ROUTINE TO ACTIVATE (GRONK) THE ROM AND LOAD A SECONDARY BOOTSTRAP

BTLDS:	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	MOVE T1,Q2		;GET NUMBER OF DTE-20
	TXO T1,RM%ROM		;NOTE THAT ROM SHOULD BE ACTIVATED
	SETZM T2		;NO DUMP WANTED
	MOVE T3,[LODSEC]	;ADR OF COROUTINE TO LOAD SECONDARY BOOT
	MOVE T4,[RELODE]	;ADDRESS OF ERROR COROUTINE
	CALL RMGRNC		;INITIATE LOAD OF SECONADRY BOOTSTRAP
	 JRST BTERR		;FAILED, RETURN ERROR STATUS
	RETSKP			;SUCCESS, GIVE GOOD RETURN

; COROUTINE TO PERFORM LOADING OF SECONDARY BOOTSTRAP

LODSEC:	JUMPG T1,LDSEC2		;IF SECOND CALL, GO UNLOCK PAGE AND RETURN
	CALL LOKPAG		;LOCK THE PAGE TO HOLD THE DATA TO TRANSFER
	CALL CLRRBT		;ZERO THE BOOT PAGE
	MOVEI T1,200		;NUMBER OF WORDS TO TRANSFER IS MAXIMUM SIZE
				; OF SECONDARY BOOTSTRAP
	UMOVE T2,.BTSEC(Q1)	;GET SOURCE ADDRESS OF DATA IN USER SPACE
	MOVE T3,[DTERBT]	;GET ADDRESS OF BOOT PAGE (DESTINATION)
	CALL BLTUM1		;COPY BOOTSTRAP INTO MONITOR SPACE
	MOVE T1,Q2		;GET DTE-20 NUMBER
	CALL CLRBEL		;TURN OFF THE TO -10 DOORBELL
	SETOM T2		;NOTE THAT A DOORBELL IS REQUESTED
	MOVE T1,[POINT ^D16,DTERBT] ;GET BYTE POINTER TO SECONDARY BOOT PGM
	RETSKP			;RETURN TO CALLER

; HERE ON SECOND ENTRY AFTER DATA HAS BEEN TRANSFERRED

LDSEC2:	CALL UNLPAG		;DONE WITH BOOT PAGE
	CALLRET RTRUE		;RETURN AND REQUEST FINAL DOORBELL
; ROUTINE TO LOAD MEMORY OF AN ADJACENT COMPUTER HAVING LOADED A BOOTSTRAP

CNTBYT==2			;NUMBER OF COUNT BYTES PRECEDING DATA BYTES

BTLOD:	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	UMOVE T2,.BTCNT(Q1)	;GET TOTAL NUMBER OF DATA BYTES TO TRANSFER
	JUMPLE T2,[RETBAD (BOTX04)] ;COUNT MUST BE POSITIVE
	HRLM T2,Q2		;SAVE NUMBER OF BYTES REMAINING TO LOAD
	UMOVE T1,.BTFLG(Q1)	;GET FLAGS FROM USER SPACE
	TXNE T1,BT%BEL		;USER WANT DOORBELL ?
	TXO Q1,BT%BEL		;YES, NOTE REQUEST
	UMOVE T1,.BTLPT(Q1)	;GET POINTER TO DATA BYTES IN USER SPACE
	MOVEM T1,Q3		;SAVE BYTE POINTER TO DATA

; VALIDATE THE USER'S BYTE POINTER

	LDB T2,[POINT 6,T1,11]	;GET SIZE OF BYTES
	CAIE T2,^D8		;ONLY 8-BIT BYTES PERMITTED
	RETBAD (BOTX02)		;INVALID BYTE SIZE SPECIFIED

; DETERMINE THE NUMBER OF DATA BYTES PER PAGE

	MOVEI T1,^D36		;GET NUMBER OF BITS/WORD
	IDIV T1,T2		;COMPUTE NUMBER OF BYTES/WORD
	IMULI T1,PGSIZ		;FORM TOTAL NUMBER OF BYTES/PAGE
	SUBI T1,CNTBYT		;COMPUTE NUMBER OF DATA BYTES/PAGE
	HRRM T1,Q1		;SAVE # OF DATA BYTES/PAGE

; SET UP TO DO THE TRANSFER

	HRRZ T1,Q2		;GET NUMBER OF DTE-20
	SETZM T2		;NO DUMP WANTED
	MOVEI T3,LODRTN		;ADR OF COROUTINE TO LOAD DATA
	MOVEI T4,RELODE		;ADDRESS OF ERROR COROUTINE
	CALL RMGRNC		;INITIATE LOAD OF SECONADRY BOOTSTRAP
	 JRST BTERR		;FAILED, RETURN ERROR STATUS
	RETSKP			;SUCCESS, GIVE GOOD RETURN
; COROUTINE TO PERFORM LOADING OF AN ADJACENT COMPUTER'S MEMORY
;
;ACCEPTS IN Q1/	FLAGS,,NUMBER OF DATA BYTES PER PAGE
;			FLAGS: BT%BEL IF DOORBELL WANTED
;	    Q2/	# OF BYTES LEFT TO LOAD,,DTE-20 NUMBER
;	    Q3/	BYTE POINTER TO NEXT BYTE INTO USER'S ADDRESS SPACE

LODRTN:	HLRZ T1,Q2		;GET NUMBER OF BYTES LEFT TO DO
	JUMPLE T1,LDRTN2	;IF DONE ALL BYTES, UNLOCK BOOT PAGE AND RETURN
	CALL LOKPAG		;LOCK THE BOOT PAGE
	CALL CLRRBT		;ZERO THE BOOT PAGE
	HLRZ T1,Q2		;GET NUMBER OF BYTES LEFT TO DO
	HRRZ T2,Q1		;ASSUME AN ENTIRE PAGE OF BYTES LEFT TO DO
	CAIGE T1,(Q1)		;LESS THAN A PAGE OF DATA BYTES LEFT ?
	HLRZ T2,Q2		;YES, GET JUST THE NUMBER LEFT TO LOAD
	SUB T1,T2		;COMPUTE BYTES REMAINING AFTER THIS LOAD
	HRL Q2,T1		;SAVE NEW NUMBER OF BYTES LEFT TO DO

; STORE THE NUMBER OF DATA BYTES TO TRANSFER AS THE FIRST TWO BYTES

	MOVE T4,[POINT 8,DTERBT] ;SET UP DESTINATION POINTER
	IDPB T2,T4		;STORE LOW ORDER BYTE OF COUNT
	LDB T3,[POINT 8,T2,27]	;GET HIGH ORDER BYTE OF COUNT
	IDPB T3,T4		;STORE HIGH ORDER BYTE OF COUNT

; GET THE DATA BYTES FROM THE USER (T2 NOW HAS NUMBER OF BYTES TO LOAD)

USRD10:	XCTBU [ILDB T3,Q3]	;GET NEXT BYTE FROM THE USER
	IDPB T3,T4		;STORE NEXT DATA BYTE TO LOAD
	SOJG T2,USRD10		;LOOP FOR ALL BYTES TO LOAD

; NOW SET UP FLAGS AND POINTER TO DATA AND RETURN

	HRRZ T1,Q2		;GET NUMBER OF DTE-20
	CALL CLRBEL		;TURN OFF THE TO -10 DOORBELL
	SETZM T2		;ASSUME NO TO -11 DOORBELL WANTED
	TXNE Q1,BT%BEL		;USER WANT A TO -11 DORRBELL ?
	SETOM T2		;YES, NOTE THAT A DOORBELL IS REQUESTED
	MOVE T1,[POINT 8,DTERBT] ;GET BYTE POINTER TO DATA
	RETSKP			;RETURN AND DO TRANSFER

; HERE WHEN ALL DATA HAS BEEN LOADED - UNLOCK THE BOOT PAGE AND RETURN

LDRTN2:	CALL UNLPAG		;UNLOCK THE BOOT PAGE
	CALLRET RFALSE		;RETURN (NO DDORBELL)
; ROUTINE TO DUMP AN ADJACENT COMPUTER'S MEMORY

BTDMP:	STKVAR <BTDBLK,BTDERR>
	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	MOVEM Q1,BTDBLK		;SAVE ADDRESS OF USER ARG BLOCK
	UMOVE T2,.BTCNT(Q1)	;GET TOTAL NUMBER OF DATA BYTES TO TRANSFER
	HRLM T2,Q2		;SAVE NUMBER OF BYTES REMAINING TO DUMP
	UMOVE T1,.BTDPT(Q1)	;GET POINTER TO DATA BYTES IN USER SPACE
	MOVEM T1,Q3		;SAVE BYTE POINTER TO DATA

; DETERMINE THE NUMBER OF DATA BYTES PER PAGE

	LDB T2,[POINT 6,T1,11]	;GET SIZE OF BYTES
	MOVEI T1,^D36		;GET NUMBER OF BITS/WORD
	IDIV T1,T2		;COMPUTE NUMBER OF BYTES/WORD
	IMULI T1,PGSIZ		;FORM TOTAL NUMBER OF BYTES/PAGE
	HRRZM T1,Q1		;SAVE # OF DATA BYTES/PAGE

; SET UP TO DO THE TRANSFER

	SETZM BTDERR		;INITIALIZE ERROR FLAG
	HRRZ T1,Q2		;GET NUMBER OF DTE-20
	MOVE T2,[DMPRTN]	;GET ADDRESS OF DUMP COROUTINE
	SETZM T3		;NO LOAD ROUTINE NEEDED
	MOVE T4,[RELODE]	;ADDRESS OF ERROR COROUTINE
	CALL RMGRNC		;INITIATE DUMP
	 MOVEM T1,BTDERR	;SAVE ERROR STATUS
	MOVE Q1,BTDBLK		;GET ADDRESS OF USER ARG BLOCK AGAIN
	UMOVEM Q3,.BTDPT(Q1)	;STORE UPDATE POINTER INTO USER SPACE
	HLRZ T1,Q2		;GET # OF BYTES LEFT TO DUMP
	UMOVEM T1,.BTCNT(Q1)	;STORE UPDATED COUNT IN USER SPACE
	SKIPE T1,BTDERR		;DID AN ERROR OCCUR ON THE DUMP ?
	JRST BTERR		;YES, GO STORE ERROR CODE AND RETURN
	RETSKP			;SUCCESS, GIVE GOOD RETURN
; COROUTINE TO PERFORM DUMPING OF AN ADJACENT COMPUTER'S MEMORY
;
;ACCEPTS IN Q1/	# OF BYTES DUMPED ON LAST CALL,,NUMBER OF DATA BYTES PER PAGE
;	    Q2/	# OF BYTES LEFT TO DUMP,,DTE-20 NUMBER
;	    Q3/	BYTE POINTER TO NEXT BYTE INTO USER'S ADDRESS SPACE

DMPRTN:	STKVAR <DMPNUM>
	MOVEM T1,DMPNUM		;SAVE NUMBER OF THIS CALL
	SKIPN DMPNUM		;FIRST TIME HERE ?
	JRST DMPRT1		;YES, SKIP RETURNING BYTES TO USER

; RETURN DUMPED BYTES TO USER PROGRAM

	HLRZ T4,Q1		;GET # OF BYTES DUMPED LAST TIME
	MOVE T3,[POINT 8,DTERBT] ;GET BYTE POINTER
	LDB T1,[POINT 6,Q3,11]	;GET SIZE OF USER'S BYTE POINTER
	DPB T1,[POINT 6,T3,11]	;FORM BYTE POINTER FOR CORRECT SIZE BYTES
DMPRT0:	ILDB T1,T3		;GET A DUMPED BYTE
	XCTBU [IDPB T1,Q3]	;STORE BYTE INTO USER SPACE
	SOJG T4,DMPRT0		;LOOP OVER ALL BYTES TO DUMP

DMPRT1:	SKIPE DMPNUM		;IS THIS THE FIRST CALL ?
	JRST DMPRT2		;NO, DO NOT INITIALIZE BOOT PAGE
	CALL LOKPAG		;YES, LOCK THE BOOT PAGE
	CALL CLRRBT		;ZERO THE BOOT PAGE

DMPRT2:	HLRZ T2,Q2		;GET NUMBER OF BYTES LEFT TO DO
	JUMPLE T2,DMPRT3	;IF DONE ALL BYTES, UNLOCK BOOT PAGE AND RETURN
	HLRZ T1,Q2		;GET NUMBER OF BYTES LEFT TO DO
	HRRZ T2,Q1		;ASSUME AN ENTIRE PAGE OF BYTES LEFT TO DO
	CAIGE T1,(Q1)		;LESS THAN A PAGE OF DATA BYTES LEFT ?
	HLRZ T2,Q2		;YES, GET JUST THE NUMBER LEFT TO DUMP
	HRLM T2,Q1		;SAVE # OF BYTES TO BE DUMPED THIS PASS
	SUB T1,T2		;COMPUTE BYTES REMAINING AFTER THIS DUMP
	HRL Q2,T1		;SAVE NEW NUMBER OF BYTES LEFT TO DO

;SET UP TO DO THE NEXT DUMP

	MOVE T1,T2		;GET # OF BYTES TO DUMP
	MOVE T2,[POINT 8,DTERBT] ;GET POINTER TO WHERE DUMPED BYTES GO
	LDB T3,[POINT 6,Q3,11]	;GET SIZE OF USER'S BYTE POINTER
	DPB T3,[POINT 6,T2,11]	;FORM BYTE POINTER FOR CORRECT SIZE BYTES
	RETSKP			;REQUEST NEXT SET OF BYTES TO BE DUMPED

; HERE AFTER FINAL SET OF BYTES HAS BEEN DUMPED

DMPRT3:	CALL UNLPAG		;UNLOCK THE BOOT PAGE
	CALLRET RFALSE		;NO EXTRA DOORBELL NEEDED
; ROUTINE TO WAIT FOR A TO-10 DOORBELL

BTBEL:	SE0ENT			;ENTER SECTION 0
	HRLZ T1,Q2		;GET DTE-20 NUMBER
	HRRI T1,DBWAIT		;GET SCHEDULER TEST ROUTINE ADDRESS
	MDISMS			;WAIT FOR DOORBELL TO COME ON
	MOVE T1,Q2		;GET DTE-20 NUMBER
	LSH T1,^D26		;POSITION DTE-20 NUMBER
	ADD T1,[CONO DTE0,DTETDB] ;FORM INSTRUCTION TO TURN OFF DOORBELL
	XCT T1			;TURN OFF TO-20 DOORBELL
	RETSKP			;DOORBELL WAS ON, RETURN

; SCHEDULER TEST TO WAIT FOR A DOORBELL FROM A DTE-20
; ACCEPTS IN T1/ DTE-20 NUMBER

	RESCD
DBTMR:	MOVE	T2,TODCLK	;GET THE TIME
	CAML	T2,DTETMR(T1)	;TIME TO WAKE UP YET?
	JRST	1(4)		;YES - SO SUC
				;NO  - THEN CHECK IF DOORBELL ARRIVED YET

DBWAIT:	LSH T1,^D26		;POSITION DTE-20 NUMBER
	ADD T1,[CONSO DTE0,DTETDB] ;FORM TEST INSTRUCTION
	XCT T1			;IS DOORBELL ON YET ?
	JRST 0(4)		;NO, WAIT SOME MORE
	JRST 1(4)		;YES, RETURN SUCCESS
	SWAPCD


; ROUTINE TO PURGE THE DTE BUFFER PAGE (DTERBT)
;
;ACCEPTS IN T1/	DTE #

KILPAG:	SAVET
	MOVEI T2,DTERBT		;GET ADDRESS OF BUFFER PAGE
	SETZ T1,		;DELETE THE PAGE
	CALLRET SETMPG		;...
; ROUTINE TO READ A MOP MESSAGE FROM AN ADJACENT COMPUTER
;
; PROTOCOL:		BYTE COUNT (2 BYTES, INCLUDING BYTE COUNT)
;			MOP MESSAGE
;	ONLY 8-BIT BYTES ARE PERMITTED.  A SECONDARY BOOTSTRAP CAPABLE OF
;	ADHERING TO THIS PROTOCOL MUST HAVE BEEN LOADED INTO THE ADJACENT
;	COMPUTER PRIOR TO PERFORMING THIS FUNCTION.


BTRMP:	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	SE0ENT			;ENTER SECTION 0
	MOVE T1,Q2		;GET DTE-20 NUMBER
	MOVEI T2,RCVMOP		;ADDRESS OF DUMP COROUTINE
	MOVEI T3,0		;NO LOADING DESIRED
	MOVEI T4,RELODE		;ADDRESS OF ERROR COROUTINE
	CALL RMGRNC		;INITIATE THE TRANSFER
	 JRST BTERR		;FAILED, RETURN ERROR STATUS

; THE MESSAGE HAS BEEN TRANSFERRED TO MONITOR VIRTUAL ADDRESS SPACE.
; RETURN THE MESSAGE TO THE USER (Q3 CONTAINS THE # OF BYTES TRANSFERRED).

	UMOVE T1,.BTMPT(Q1)	;GET DESTINATION BYTE POINTER TO USER SPACE
	UMOVE T2,.BTCNT(Q1)	;GET MAX BYTE COUNT USER WILL ACCEPT
	CAML T2,Q3		;WAS LESS ACTUALLY TRANSFERRED ?
	MOVE T2,Q3		;YES, USE SMALLER BYTE COUNT
	UMOVEM T2,.BTCNT(Q1)	;STORE UPDATED BYTE COUNT IN USER SPACE
	MOVE T4,[POINT 8,DTERBT,15] ;GET BYTE POINTER TO SOURCE
	JUMPE T2,BTRM20		;IF DONE, RETURN

; LOOP TO RETURN THE MESSAGE TO THE USER

BTRM10:	ILDB T3,T4		;GET BYTE FROM MESSAGE
	XCTBU [IDPB T3,T1]	;STORE BYTE INTO USER SPACE
	SOJG T2,BTRM10		;LOOP OVER ENTIRE MESSAGE

BTRM20:	UMOVEM T1,.BTMPT(Q1)	;STORE UPDATED BYTE POINTER
	RETSKP			;RETURN SUCCESS
; COROUTINE TO RECEIVE MOP MESSAGES

RCVMOP:	JUMPN T1,RCVM10		;IF NOT FIRST CALL, GO READ MSG OR RETURN

; THIS IS THE INITIAL CALL - SET UP TO READ THE BYTE COUNT

	CALL LOKPAG		;LOCK THE BOOT PAGE
	CALL CLRRBT		;ZERO THE BOOT PAGE
	MOVEI T1,2		;BYTE COUNT IS FIRST TWO BYTES
	MOVE T2,[POINT 8,DTERBT] ;GET BYTE POINTER
	RETSKP			;RETURN TO READ FIRST TWO BYTES

; HERE ON SECOND CALL - SET UP TO READ THE ACTUAL MOP MESSAGE

RCVM10:	CAIE T1,1		;IS THIS THE SECOND CALL ?
	JRST RCVM20		;NO, GO UNLOCK THE BOOT PAGE AND RETURN
	LDB Q3,[POINT 8,DTERBT,7] ;YES, GET LOW ORDER BYTE OF BYTE COUNT
	LDB T1,[POINT 8,DTERBT,15] ;GET HIGH ORDER BYTE OF BYTE COUNT
	DPB T1,[POINT 8,Q3,27]	;FORM COMPLETE BYTE COUNT
	MOVE T1,Q3		;GET BYTE COUNT
	CAILE T1,PGSIZ*4-2	;MAX MESSAGE SIZE IS ONE PAGE-COUNT (2 BYTES)
	MOVEI T1,PGSIZ*4-2	;MESSAGE TOO LARGE, JUST GET ONE PAGE
	TXO T1,DTETI		;REQUEST "I" BIT ALSO
	MOVE T2,[POINT 8,DTERBT,15] ;START MESSAGE AT THIRD BYTE IN FIRST WORD
	RETSKP			;RETURN AND TRANSFER DATA BYTES

; HERE ON THIRD CALL - ENTIRE MESSAGE HAS BEEN TRANSFERRED

RCVM20:	CALL UNLPAG		;UNLOCK THE BOOT PAGE
	UMOVE T2,.BTFLG(Q1)	;GET FLAGS FROM USER
	SETZM T1		;ASSUME NO DOORBELL WANTED
	TXNE T2,BT%BEL		;USER ASK FOR A DOORBELL ?
	SETOM T1		;YES, REQUEST A DOORBELL
	RET			;RETURN, TRANSFER COMPLETED
; ROUTINE TO TERMINATE PROTOCOL ON A DTE-20

BTTPR:	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	CAMN Q2,MSTRDT		;IS THIS THE MASTER -11?
	RETBAD (BOTX01)		;YES. ILLEGAL TO STOP IT
	MOVE T1,Q2		;Get DTE # in T1 for SETRGN
	CALL SETRGN		;Get comm region ptrs in C and D
	LOAD T1,CMVRR,(C)	;Get protocol version
	SKIPN DTBUGX		; Skip this if we aren't interested
	CAIE T1,MCPRON		;If DECNET, do not issue buginf
	BUG.(INF,DTETPR,DTESRV,SOFT,<DTE protocol terminated>,<<Q2,DTENO>>,<

Cause:	The protocol on the DTE has been terminated due to a BOOT% request.

Data:	DTENO - DTE number
>,,<DB%NND>)			;[7.1210]
	LOAD T1,DTERL,(Q2)	;GET CURRENT PROTOCOL STATE
	PUSH P,T1		;SAVE IT
	SETZRO DTERL,(Q2)	;NOTE THAT THIS DTE NOT RUNNING A PROTOCOL
	MOVE T1,Q2		;GET DTE-20 NUMBER
	CALL DTREST		;GO TURN OF INTERRUPTS FOR THIS DTE
	SKIPE 0(P)		;WAS IN PROTOCOL?
	CALL LOADFE		;(T1) YES, REQUEST RELOAD IN JOB 0
	POP P,T1		;GET PREVIOUS PROTOCOL STATE
	RETSKP			;RETURN
				;FALL INTO ROUTINE TO RETURN DTE20 STATUS
; ROUTINE TO RETURN STATUS OF A DTE-20

BTSTS:	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	MOVE T1,Q2		;GET DTE-20 NUMBER
	CALL CHKDTE		;SEE IF THIS DTE IS RUNNING SOME PROTOCOL
	 JRST [	SETOM T1	;NO PROTOCOL RUNNING
		JRST BTST1 ]	;GO RETURN THAT STATUS TO USER

; DETERMINE WHICH PROTOCOL IS RUNNING IN THE SPECIFIED DTE

	MOVE T1,Q2		;GET DTE-20 NUMBER
	CALL SETRGN		;GET ADDRESS OF COMM REGIONS
	LOAD T1,CMVRR,(T3)	;GET VERSION OF RUNNING PROTOCOL

; HERE TO RETURN STATUS TO USER (STATUS IS IN T1)

BTST1:	UMOVEM T1,.BTCOD(Q1)	;RETURN STATUS TO USER
	RETSKP			;RETURN SUCCESS

; ROUTINE TO ZERO THE BOOT PAGE

CLRRBT:	MOVE T2,[DTERBT,,DTERBT+1] ;SET UP TO CLEAR BOOT PAGE
	SETZM DTERBT		;CLEAR FIRST WORD OF PAGE
	BLT T2,DTERBT+PGSIZ-1	;INITIALIZE PAGE TO HOLD BOOT PROGRAM DATA
	RET			;RETURN
; ROUTINE TO INITIALIZE THE PROTOCOL ON A SPECIFIED DTE-20

BTIPR:	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	UMOVE Q3,.BTPRV(Q1)	;GET PROTOCOL VERSION NUMBER
	MOVE T1,Q3		;COPY PROTOCOL VERSION NUMBER
	CALL CHKPRO		;VALIDATE THE PROTOCOL SPECIFIED
	 RETBAD ()		;INVALID PROTOCOL SPECIFIED
	MOVE T1,Q2		;GET DTE-20 NUMBER
	CALL DTREAL		;IS THIS DTE EXISTANT?
	 RETBAD (BOTX01)	;NO. CAN'T INIT IT THEN
	JN <DTERL,DTRLD>,(T1),[RETBAD (BOTX01)] ;MUST BE INACTIVE ALSO
	CALL CLRDT0		;CLEAN OUT OUTPUT QUEUE
	MOVE T2,Q3		;GET PROTOCOL VERSION NUMBER
	NOINT			;INHIBIT PROCESS INTERRUPTS
	PUSH P,JOBBIT		;SAVE FORK'S PRIORITY WORD
	MOVX T3,BOTPRI		;GET SPECIAL PRIORITY WORD
	MOVEM T3,JOBBIT		;""
	CALL DTINIT		;INITIALIZE COMM REGIONS AND PROTOCOL
   REPEAT 0,<
	BUG.(INF,DTEIPR,DTESRV,SOFT,<DTESRV - Protocol initialized on DTE>,<<T1,DTENUM>>,<

Cause:	BOOT% JSYS was executed to initialize protocol. This BUG is not
	assembled into the monitor and should not occur in the field.

Data:	DTENUM - the DTE number

>,,<DB%NND>)			;[7.1210]
 >  ;DEBUGGING AID TO CATCH RANDOM RELOADS
	POP P,JOBBIT		;RESTORE PRIORITY WORD
	JN DTRLD,(Q2),[SETZRO DTRLD,(Q2)
			OKINT	;INTS ALLOWED NOW
			RETBAD (BOTX05)] ;IT DIDN'T. INFORM CALLER
	OKINT			;ALLOW INTS NOW
	RETSKP			;GIVE SUCCESS RETURN
;ROUTINE TO CONVERT LINE-ID TO PORT NUMBER

BTCLI:	UMOVE T4,.BTLID(Q1)	;GET POINTER TO LINE-ID STRING
	TLC T4,-1		;SEE IF POINTER IS -1,,ADR TYPE
	TLCN T4,-1		;??
	HRLI T4,(POINT 7,)	;MAKE INTO AN ASCII POINTER
	SETZ T2,		;WHERE WE WILL BUILD STRING
	MOVE T3,[POINT 7,2]	;POINT TO  IT
	XCTBU [	ILDB T1,T4]	;GET FIRST CHARACTER OF STRING
	IDPB T1,T3		;AND STUFF
	XCTBU [	ILDB T1,T4]	;GET SECOND CHARACTER OF STRING
	IDPB T1,T3		;AND STUFF
	XCTBU [	ILDB T1,T4]	;GET THIRD CHARACTER OF STRING
	IDPB T1,T3		;AND STUFF
	XCTBU [	ILDB T1,T4]	;GET FOURTH CHARACTER OF STRING
	IDPB T1,T3		;AND STUFF
	CAMN T2,[ASCIZ/DTE_/]	;ASKING FOR A DTE?
	JRST BTCNUM		;YES GET THE NUMBER
	XCTBU [	ILDB T1,T4]	;GET FIFTH CHARACTER OF STRING
	IDPB T1,T3		;AND STUFF
	CAME T2,[ASCIZ/DTE20/]	;"DTE20_" IS ALSO ACCEPTIBLE
	RETBAD(BOTX01)		;NUMBER OUT OF RANGE
	XCTBU [	ILDB T1,T4]	;GET SIXTH CHARACTER OF STRING
	CAIE T1,"_"		;IS THE THE "DTE20_" STRING
	RETBAD(BOTX01)		;NUMBER OUT OF RANGE
BTCNUM:	XCTBU [	ILDB T1,T4]	;GET LAST CHARACTER OF STRING
	SUBI T1,60		;MAKE INTO A NUMBER
	CAIL T1,DTEN		;CHECK FOR OUT OF RANGE
	RETBAD(BOTX01)		;NUMBER OUT OF RANGE
	XCTBU [	ILDB T2,T4]	;STRING SHOULD END WITH NULL
	UMOVEM T1,.BTPRT(Q1)	;GIVE USER THE NUMBER
	RETSKP			;SUCCESS RETURN
;ROUTINE TO CONVERT PORT NUMBER TO LINE-ID

BTCPN:	CAIGE Q2,DTEN		;VALID DTE-20 SPECIFIED ?
	SKIPGE Q2		;??
	RETBAD (BOTX01)		;NO, GIVE ERROR
	UMOVE T3,.BTLID(Q1)	;GET USER'S POINTER FOR WHERE TO PUT STRING
	TLC T3,-1		;SEE IF POINTER IS -1,,ADR TYPE
	TLCN T3,-1		;??
	HRLI T3,(POINT 7,)	;MAKE INTO AN ASCII POINTER
	MOVEI T2,"D"		;PUT THE STRING "DTE_" IN USER SPACE
	XCTBU [	IDPB T2,T3]
	MOVEI T2,"T"
	XCTBU [	IDPB T2,T3]
	MOVEI T2,"E"
	XCTBU [	IDPB T2,T3]
	MOVEI T2,"_"
	XCTBU [	IDPB T2,T3]
	MOVE T4,Q2		;GET THE DTE NUMBER
	ADDI T4,60		;MAKE NUMBER INTO AN ASCII QUANTITY
	XCTBU [	IDPB T4,T3]	;SAVE THE DTE NUMBER
	SETZ T4,		;END WITH A NULL
	XCTBU [	IDPB T4,T3]	;PUT NULL INTO USER SPACE
	UMOVEM T3,.BTLID(Q1)	;SAVE UPDATED POINTER
	RETSKP

;CHKPRO - ROUTINE TO VALIDATE A PROTOCOL VERSION NUMBER
;
;ACCEPTS IN T1/	PROTOCOL VERSION NUMBER TO CHECK
;		CALL CHKPRO
;RETURNS: +1	 INVALID PROTOCOL SPECIFIED, ERROR CODE IN T1
;	  +2	VALID PROTOCOL GIVEN

CHKPRO:	MOVSI T4,-PRVSIZ	;SET UP TO LOOP THROUGH PROTOCOL TABLE
CHKPR1:	CAMN T1,PRVTAB(T4)	;FOUND VALID PROTOCOL ?
	RETSKP			;YES, GIVE SUCCESS RETURN
	AOBJN T4,CHKPR1		;NO, LOOP THROUGH REMAINDER OF TABLE
	RETBAD (BOTX03)		;INVALID PROTOCOL VERSION NUMBER

PRVTAB:	.VN20F			;RSX20F PROTOCOL
	MCPRON			;DECNET NETWORK SERVICES PROTOCOL
				;ASSEMBLE ONLY IF HAVE DECNET SUPPORT
	.VND60			;DN60 protocol

	PRVSIZ==.-PRVTAB
;.BTD60==16				;DN60 PROTOCL OPERATION
;.VND60==2				;DN60 protocol type

;BTD60 ARG BLOCK

;	DEFSTR	(BT6DTE,0,35,36)	;DTE number
;.BT6DTE==0
;	DEFSTR	(BT6ERR,1,35,36)	;returned error flags
;.BT6ERR==1
;	DEFSTR	(BT6HBC,2,17,18)	;DN60 header byte count
;.BT6HBC==2
;	DEFSTR	(BT6HDR,2,35,18)	;DN60 header address(begins on word)
;.BT6HDR==2
;	DEFSTR	(BT6DBC,3,35,36)	;data byte count
;.BT6DBC==3
					;	positive = write data mode
					;	zero     = no data transfer
					;	negative = read data mode
;	DEFSTR	(BT6PTR,4,35,36)	;data byte ptr
;.BT6PTR==4
					;the following are returned for timing analysis
;	DEFSTR	(BT6TMR,5,35,36)	;time of request
;.BT6TMR==5
;	DEFSTR	(BT6TAS,6,35,36)	;TIME DTE ASSIGNED
;.BT6TAS==6
;	DEFSTR	(BT6THQ,7,35,36)	;time header queued to 11
;.BT6THQ==7
;	DEFSTR	(BT6TRD,10,35,36)	;time of -10 done for response header
;.BT6TRD==10
;	DEFSTR	(BT6TDD,11,35,36)	;time of -10 done for data
;.BT6TDD==11
;	DEFSTR	(BT6TFR,12,35,36)	;time finished request
;.BT6TFR==12

;DN60 header definitions

D6HWSZ==4				;number of 36 bit words in header
D6HBSZ==4*D6HWSZ			;number of 8 bit bytes in header
;DN60/DTE database/work space definitions

D6WDBS==PGSIZ				;working space size in words

	DEFSTR	(D6STS,0,35,36)		;port status
$D6STS==0
					;protocol flags
;	 D6%BSY==1B0			;port is busy - sign bitness is used in testing
;	 D6%QHD==1B1			;header has been queued
;	 D6%HDD==1B2			;to -11 done for header seen
;	 D6%NDT==1B3			;this is a no-data-transfer operation
;	 D6%RED==1B4			;this is a read data type operation
;	 D6%QDT==1B5			;data has been queued(for write fcn)
;	 D6%DTD==1B6			;to -11 done for write data seen
;	 D6%RBL==1B7			;to -10 doorbell for response header seen
;	 D6%RDN==1B8			;to -10 done for response header seen
;	 D6%DBL==1B9			;to -10 doorbell for read data seen
;	 D6%DDN==1B10			;to -10 done for read data seen
;	 D6%FDN==1B11			;to -10 done for read data was faked
					;error flags
;	 D6%BDP==1B30			;bad data byte ptr
;	 D6%ARD==1B31			;11 attempted to send read data when
					; when none was expected
;	 D6%TRS==1B32			;timed out waiting for response header
;	 D6%TDT==1B33			;timed out waiting for read data

;	 D6%TPO==1B34			;timed out waiting for port to be free
;	 D6%NT6==1B35			;not a DN60 front end

	 D6%SER==D6%BDP!D6%ARD!D6%TRS!D6%TDT!D6%TPO!D6%NT6 ;all errors
	DEFSTR	(D6DTE,1,17,18)		;DTE number for this work space
$D6DTE==1
	DEFSTR	(D6RBC,1,35,18)		;response byte count
$D6RBC==1
	DEFSTR	(D6WDC,2,17,18)		;write data byte count
$D6WDC==2
	DEFSTR	(D6RDC,2,35,18)		;read data byte count
$D6RDC==2
	DEFSTR	(D6BSZ,3,35,36)		;data byte size
$D6BSZ==3
	DEFSTR	(D6BPW,4,35,36)		;data bytes per word
$D6BPW==4
	DEFSTR	(D6BLF,5,35,36)		;data bytes left in 1st word
$D6BLF==5
	DEFSTR	(D6BDP,6,35,36)		;beginning data byte ptr
$D6BDP==6
	DEFSTR	(D6DAD,7,35,36)		;byte ptr to 1st data byte in user space
$D6DAD==7
	DEFSTR	(D6CLK,10,35,36)	;timer for 11 requests
$D6CLK==10
	DEFSTR	(D6FRK,11,35,36)	;requesting fork
$D6FRK==11
	DEFSTR	(D6SUP,12,35,36)	;count of waiting supplicants
$D6SUP==12
	DEFSTR	(D6TRD,13,35,36)	;time of -10 done for response header
$D6TRD==13
	DEFSTR	(D6TDD,14,35,36)	;time of -10 done for data
$D6TDD==14

D6HDR==15				;offset to beginning of header area
D6BUF==D6HDR+D6HWSZ			;offset to beginning of data buffer

D6BFS==D6WDBS-D6BUF			;number of words in D6BUF
;here to handle DN60 io requests - from .BOOT
;parameters:	Q1/arg block ptr
;		Q2/DTE number
; user space:	AC2/arg block ptr


BTD60:	MOVE	T1,TODCLK		;save the request time
	USTOR	T1,BT6TMR,(Q1)
	XCT	4,[SETZM .BT6TAS(Q1)]	;now clear all other timer statistics
	XCT	4,[SETZM .BT6THQ(Q1)]
	XCT	4,[SETZM .BT6TRD(Q1)]
	XCT	4,[SETZM .BT6TDD(Q1)]
	XCT	4,[SETZM .BT6TFR(Q1)]

	NOSKED				;flush scheduler while we check for contention
	SKIPN	Q3,D6DTP(Q2)		;get the work space ptr
	JRST	D6NOSK			;DN60 protocol not running on this dte
	NOINT				;don't allow any soft interrupts while
					;waiting here - it screws up the contention data
	SKIPL	$D6STS(Q3)		;look for clear status
	JRST	[MOVE T1,FORKX		;get the loser's fork
		 CAMN T1,$D6FRK(Q3)	;check greediness
		 SKIPN $D6SUP(Q3)	;greed is not always inconsiderate
		 JRST BTD61		;ok to proceed
		 JRST .+1]		;others waiting(impatiently most likely)
					;the loser must wait in line

BTD60A:	AOS	$D6SUP(Q3)		;one more loser
	OKSKED				;allow scheduler to run
	MOVEI	T1,D6BWT		;hang the user til port is free
	CALL	D6WAIT			;twiddle thumbs
	NOSKED				;just to be safe
	SOSGE	$D6SUP(Q3)		;one less loser(he hopes)
	SETZM	$D6SUP(Q3)		;for when all this care is inadequate
	SKIPGE	T1,$D6STS(Q3)		;check for unbusy now
	JRST	[TXNE T1,D6%NT6		;check if protocol is alive and well
		 JRST D6NOSI		;indeed it's dead
		 JRST BTD60A]		;all is ok...just slow
BTD61:	MOVX	T1,D6%BSY		;port unbusy - make it so
	IORB	T1,$D6STS(Q3)		;init the port status to begin transaction
	TXNE	T1,D6%NT6		;is the fe dead ?
	JRST	D6NOSI			;yes - exit
	MOVE	T1,FORKX		;remember user
	MOVEM	T1,$D6FRK(Q3)
	MOVE	T1,TODCLK		;record time of dte assignment
	USTOR	T1,BT6TAS,(Q1)
					;can't allow asynchronous exits until
					;dte is deassigned
	OKSKED				;allow scheduler to run
	SETZRO	D6RBC,(Q3)		;init some transaction history
	SETZRO	D6WDC,(Q3)
	SETZRO	D6RDC,(Q3)
	SETZRO	D6BSZ,(Q3)
	SETZRO	D6BPW,(Q3)
	SETZRO	D6BLF,(Q3)
	SETZRO	D6BDP,(Q3)
	SETZRO	D6CLK,(Q3)
	SETZRO	D6TRD,(Q3)
	SETZRO	D6TDD,(Q3)

	ULOAD	T1,BT6HBC,(Q1)		;get xmit header byte count
	SKIPLE	T1			;default to full size
	CAILE	T1,D6HBSZ		;limit to full size
	MOVEI	T1,D6HBSZ
	MOVE	P1,T1			;save the header xmit count
	TRNE	T1,3			;headers are always 8 bit bytes = 4 bytes/word
	ADDI	T1,4
	LSH	T1,-2
	ULOAD	T2,BT6HDR,(Q1)		;get header address
	MOVEI	T3,D6HDR(Q3)		;where it goes
	CALL	BLTUM1			;xfer header to local space

	MOVX	T2,D6%RED		;check out type of operation
	XCT	4,[SKIPN T1,.BT6DBC(Q1)];determine direction of data transfer
	TXOA	T2,D6%NDT		;zero byte = this a non-data-xfer fcn
	SKIPL	T1			;skip if read data fcn
	TXZ	T2,D6%RED		;write type
	IORB	T2,$D6STS(Q3)		;set the appropriate indicator
	TXNE	T2,D6%NDT		;if not data transfer type
	JRST	BTD63			;go queue the header
					;data mover - calc some byte ptr things
	XCT	10,[MOVEI T1,@.BT6PTR(2)] ;get the data effective address
	XCT	4,[HLL T1,.BT6PTR(Q1)]	;get the ptr part
	TLZ	T1,77			;flush extraneous things
	IBP	T1			;make sure address field = address of 1st word
	HRRZM	T1,$D6DAD(Q3)		;keep it
	TXNN	T2,D6%RED		;read data ?
	JRST	BTD62			;write
	XCT	4,[MOVE T4,@$D6DAD(Q3)] ;read data - get the 1st dest word
	MOVEM	T4,D6BUF(Q3)		;write over it locally
BTD62:	HRRI	T1,D6BUF(Q3)		;beginning byte ptr
	MOVNI	T4,1			;make T1 an ildb ptr
	ADJBP	T4,T1
	STOR	T4,D6BDP,(Q3)		;save it
	LDB	T1,[POINT 6,T4,11]	;the byte size
	JUMPE	T1,[MOVX T1,D6%BDP	;crufty data ptr
		    JRST D6TMO]
	STOR	T1,D6BSZ,(Q3)		;preserve it
	LDB	T4,[POINT 6,T4,5]	;the byte position
	MOVEI	T2,^D36
	IDIV	T2,T1			;bytes per word
	STOR	T2,D6BPW,(Q3)		;preserve it too
	HRREI	T3,-^D36(T4)		;T3/- number bits used
	IDIV	T3,T1			;T3/- number bytes used
	ADD	T2,T3			;T2/  number bytes left in 1st word
	STOR	T2,D6BLF,(Q3)		;save this also

BTD63:	LOAD	T1,D6DTE,(Q3)		;get the dte number
	HRLI	T1,D6HDDN		;the to -11 done interrupt process
	MOVEI	T2,D6HDR(Q3)		;where the data is
	HRLI	T2,(POINT 8)		;the ptr thereto
	MOVE	T3,P1			;retrieve the xmit header count
	MOVE	F,Q3			;driver unique code = workspace ptr
	MOVE	T4,TODCLK		;record time we did this
	USTOR	T4,BT6THQ,(Q1)
	CALL	DTEQ			;queue the header
	JRST	[LOAD T1,D6STS,(Q3)	;failed - check if fe dead
		 TXNE T1,D6%NT6
		 JRST D6FAL		;yes - no use prolonging agony
		 MOVEI	T1,SPCTST	;no queue blocks - wait for some
		 HDISMS (^D2000)
		 JRST	BTD63]
	MOVX	T1,D6%QHD		;header queued
	IORB	T1,$D6STS(Q3)
	TXNE	T1,D6%RED!D6%NDT	;check for write data function
	JRST	BTDRSP			;no - read data or no data
BTDWRT:	ULOAD	T1,BT6DBC,(Q1)		;get the byte count
	LOAD	P1,D6BPW,(Q3)		;bytes per word
	IMULI	P1,D6BFS-1		;check buffer space
	ADD	P1,$D6BLF(Q3)		;add no. bytes left in 1st word
	CAMLE	T1,P1			;limit request to available room
	SKIPA 	T1,P1
	MOVE	P1,T1			;remember what we used
	STOR	T1,D6WDC,(Q3)		;save actual count
	IDIV	T1,$D6BPW(Q3)		;find buffer space needed in words
	SKIPE	T2
	AOS	T1
	HRRZ	T2,$D6DAD(Q3)		;get the source address
	MOVEI	T3,D6BUF(Q3)		;where it is going
	CALL	BLTUM1			;move the data to local space

BTDWR1:	LOAD	T1,D6DTE,(Q3)		;get the dte number
	HRLI	T1,D6DTDN		;to -11 done for data interrupt process
	LOAD	T2,D6BDP,(Q3)		;get the beginning ptr
	MOVE	T3,P1			;get actual bytes to send
	MOVE	F,Q3			;driver unique code = workspace ptr
	CALL	DTEQ			;queue the data block
	JRST	[LOAD T1,D6STS,(Q3)	;failed - check if fe dead
		 TXNE T1,D6%NT6
		 JRST D6FAL		;yes - no use prolonging agony
		 MOVEI	T1,SPCTST	;no queue blocks - wait for some
		 HDISMS	(^D2000)	;wait for one
		 JRST	BTDWR1]		;and try again
	MOVX	T1,D6%QDT		;mark this part done
	IORM	T1,$D6STS(Q3)

BTDRSP:	MOVEI	T1,D6RWT		;wait for the response sched test
	MOVX	T2,D6%RDN!D6%NT6
	TDNN	T2,$D6STS(Q3)		;check if already done
	CALL	D6WAIT			;twiddle thumbs
	MOVE	T1,$D6STS(Q3)		;check if fe died
	TXNE	T1,D6%NT6
	JRST	D6FAL			;yes - go away
	TXNN	T1,D6%RDN		;check if response came
	JRST	[MOVX T1,D6%TRS		;timed out
		 JRST D6TMO]
					;response has arrived
	LOAD	T1,D6RBC,(Q3)		;get response byte count
	CAILE	T1,D6HBSZ		;i should hope so
	MOVEI	T1,D6HBSZ
	USTOR	T1,BT6HBC,(Q1)		;stuff back in arg block
	JUMPE	T1,BTDRS0		;no response(and no data either)
	TRNE	T1,3			;headers are always 8 bit bytes = 4 bytes/word
	ADDI	T1,4
	LSH	T1,-2
	ULOAD	T3,BT6HDR,(Q1)		;get header address
	MOVEI	T2,D6HDR(Q3)
	CALL	BLTMU1			;xfer the header back to user
	LOAD	T1,D6STS,(Q3)		;get transaction status
	TXNN	T1,D6%NDT		;check if read data expected
	TXNN	T1,D6%RED
	JRST	BTDRS3			;no - go finish up
	MOVEI	T1,D6DWT		;no - wait here for it
	MOVX	T2,D6%DDN!D6%NT6
	TDNN	T2,$D6STS(Q3)		;check if already done
	CALL	D6WAIT			;twiddle thumbs
	LOAD	T1,D6STS,(Q3)		;well, did it?
	TXNE	T1,D6%NT6		;check if fe died
	JRST	D6FAL			;yes - go away
	TXNN	T1,D6%DDN
	JRST	[MOVX	T1,D6%TDT	;no - not coming i guess
		 JRST	D6TMO]

BTDRS0:	LOAD	T1,D6RDC,(Q3)		;data arrived - get the amount
	USTOR	T1,BT6DBC,(Q1)		;stuff in arg block
	JUMPE	T1,BTDRS3		;no data received but protocol is happy
	SUB	T1,$D6BLF(Q3)		;find words beyond 1st
	JUMPG	T1,BTDRS1		;some
	MOVEI	T1,1			;none
	JRST	BTDRS2

BTDRS1:	IDIV	T1,$D6BPW(Q3)
	SKIPE	T2
	AOS	T1
	SKIPE	$D6BLF(Q3)		;no increment if 1st word is empty
	AOS	T1			;add 1st word

BTDRS2:	HRRZ	T3,$D6DAD(Q3)		;get destination
	MOVEI	T2,D6BUF(Q3)		;local source
	CALL	BLTMU1

BTDRS3:	CALL	BTDRS4			;record final statistics
	LOAD	T1,D6STS,(Q3)		;get transaction status back
	TXNE	T1,D6%SER		;did any errors occur?
	JRST	D6FAL			;yes - take error exit
	XCT	4,[SETZM .BT6ERR,(Q1)]	;stuff transaction status in arg block
	SETZRO	D6STS,(Q3)		;make port available
	OKINT				;allow soft interrupts now
	RETSKP
D6TMO:	IORB	T1,$D6STS(Q3)		;timed out waiting for something

D6FAL:	PUSH	P,T1			;save it
	LOAD	T1,D6DTE,(Q3)		;get the dte number
	NOSKED
	CALL	CLRDTF			;clean up transaction
	CALL	BTDRS4			;record final statistics
	MOVX	T1,D6%NT6		;check if fe died
	ANDB	T1,$D6STS(Q3)		;never clear death bit
	JUMPE	T1,D6FAL1		;all is hunkydory
	SKIPE	$D6SUP(Q3)		;are there any suplicants?
	JRST	D6FAL1			;yes - can't blow away the workspace yet
	LOAD	T1,D6DTE,(Q3)		;no - blow it all away
	SETZM	D6DTP(T1)		;flush the ptr to workspace
	MOVE	T1,Q3
	CALL	RELRES			;and return the page to free space

D6FAL1:	OKSKED
	POP	P,T1			;get error status back
	JRST	D6NOGO			;and fail

D6NOSK:	NOINT				;fe is dead

D6NOSI:	MOVX	T1,D6%NT6		;DN60 protocol not running on this dte
	SKIPE	Q3,D6DTP(Q2)		;get the data base
	ANDB	T1,$D6STS(Q3)		;never clear death bit
	OKSKED

D6NOGO:	USTOR	T1,BT6ERR,(Q1)		;set the error code
	OKINT				;allow soft interrupts now
	RET				;fail


BTDRS4:	MOVE	T2,TODCLK		;record some final statistics
	USTOR	T2,BT6TFR,(Q1)		;when we finished
	MOVE	T2,$D6TRD(Q3)
	USTOR	T2,BT6TRD,(Q1)		;when header got here
	MOVE	T2,$D6TDD(Q3)
	USTOR	T2,BT6TDD,(Q1)		;when data got here
	RET
;init DTE and 11 for DN60 protocol - dispatched to from DTEINI
;parameters:	T1/DTE number
;		T3/ptr to 11's comm region
;		T4/ptr to 10's comm region
;		DTNUMB is a stkvar for DTE number

DTIND6:	PUSH	P,T3			; protect these
	PUSH	P,T4
	SKIPN	T2,D6DTP(T1)		;find work space for DTE
	JRST	[PUSH	P,T1
		 MOVE	T1,[.RESP3,,D6WDBS] ;get some work space for this DTE
		 MOVX	T2,<RS%SE0+.RESGP>
		 CALL	ASGRES
		 JRST	[POP P,T1	;couldn't
			 POP P,T4
			 POP P,T3
			 RET]		;fail
		 POP	P,T2		;recover slot ptr
		 EXCH	T1,T2		;retrieve the  DTE number,save the
		 MOVEM	T2,D6DTP(T1)	; associated workspace ptr
		 JRST	.+1]
	SETZRO	D6STS,(T2)		;T2/work space ptr
	STOR	T1,D6DTE,(T2)		;init some stuff
	SETOM	$D6FRK(T2)		;last forker that came by
	SETZM	$D6SUP(T2)		;none of them waiting in line
	POP	P,T4			;get the region ptrs
	POP	P,T3
					;now go init MCB protocol

D6INMC:	SETONE	<CMTST,CMINI>,(D)	;set my ini bit
	MOVE	B,CNDO(A)		;get prototype cono
	IORI	B,DTEPIE!DTEPI0		;turn on pi0 only
	XCT	B			;so -11 can examine its region
	CALL	DING11			;go ring -11's bell
	MOVEI	B,MCINI0		;timeout for first phase

D6INM1:	CALL	DTBELL			;go wait for doorbell or timeout
	JE	CMINI,(C),D6INM3	;see if it did it right
	CALL	CLRBEL			;clear doorbell
	SETZRO	CMINI,(D)		;clear ini bit
	CALL	DING11			;ring 11's bell again
	MOVEI	B,MCINI1		;time for this phase

D6INM2:	CALL	DTBELL			;go wait for doorbell or timeout
	JN	CMINI,(C),D6INM3		;make sure it did it right
	CALL	DTEON			;go turn protocol on
	JRST	DTESKD			;and start the protocol

;init failed - kill off dte

D6INM3:	SETONE	DTRLD,(A)		;set reload
	SETZRO	DTERL,(A)		;no longer running a protocol
	JRST	DTREST			;and reset the dte
;DTBELL - Wait for doorbell upto specified increment of time.
;[7.1280] Replace old DTBELL code
;
; Call with A/ DTE # 
;	    B/ time increment from now of when to time out
;
; Returns + 1 always

DTBELL:	ADD B,TODCLK		;calc wakeup time
	MOVEM B,DTETMR(A)	;save it
	PUSH P,A		;save the dte number
	HRLI A,DBTMR		;get scheduler test
	MOVSS A			;put things in right place
	HDISMS (^D2000)		;and wait
	POP P,A			;return dte number
	RET

REPEAT 0,<			;[7.1280] Remove edit 7449
;[7449]
;	  
; This code originally set up a scheduler test to wait for the
; doorbell. This caused SKDCL1 bughalts when the powerfail restart
; code ran. The new code waits for the doorbell without dismissing.

DTBELL:	SAVEAC <A>		;SAVE AWAY THE DTE #
	CALL NEWTIM		;(B/) CALCULATE NEW WAKE UP TIME
	LSH A,^D26		;PUT DTE # INTO CORRECT POSITION FOR CONSO
	ADD A,[CONSO DTE0,DTETDB] ;FORM FULL CONSO TEST INSTRUCTION
DTBEL1:	XCT A			;IS DOORBELL ON YET ?
	IFNSK.
	 CALL CHKTIM		;NO, (B/) TIME TO QUIT ? 
	  JRST DTBEL1		;NO, TRY IT AGAIN
	ENDIF.
	RET			;RETURN
>				;[7.1280] End of REPEAT 0
;DEDD60 handles cleaning up dead DN60 nodes
;	called from RELODR

DEDD60:	PUSH	P,T1			;save the dte number
	NOSKD1				;protect from contention
	SKIPN	T1,D6DTP(T1)		;get the workspace ptr
	JRST	DEDD6X			;already dead
	MOVX	T2,D6%NT6		;mark fe dead
	IORB	T2,$D6STS(T1)
	JUMPL	T2,DEDD6X		;currently in use
	SKIPE	$D6SUP(T1)		;not in use - check suplicants
	JRST	DEDD6X			;there are some - can't flush workspace
	CALL	RELRES			;release the storage
	POP	P,T1			;get the dte number back
	SETZM	D6DTP(T1)		;no more workspace
	JRST	DEDD6Y

DEDD6X:	POP	P,T1			;get dte number back

DEDD6Y:	OKSKD1
	RET

	RS	D6DTP,10		;DN60 workspace/dte table
;resident code for interrupt processes and scheduler tests

	RESCD

;scheduler tests

D6BWT:	SKIPGE	$D6STS(T1)		;dte busy wait test
	JRST	D6WKT			;check timer
	JRST	1(4)			;free now

D6RWT:	SKIPA	T2,[D6%RDN!D6%NT6]	;wait for response header test or death

D6DWT:	MOVX	T2,D6%DDN!D6%NT6	;wait for read data done test or death
	TDNN	T2,$D6STS(T1)		;T1/dte data base tpr
	JRST	(4)			;no - wait
	JRST	1(4)			;yes - go ahead

D6WKT:	SKIPE	T2,$D6CLK(T1)		;get the timer
	CAMG	T2,TODCLK		;set - check the tempis
	JRST	1(4)			;free now
	JRST	(4)			;more waiting

D6WAIT:	MOVE	T2,TODCLK		;T1/scheduler test
	ADDI	T2,^D1800
	SKIPN	$D6CLK(Q3)		;don't mung running timer
	MOVEM	T2,$D6CLK(Q3)		;set the alarm in the not too distant future
	HRL	T1,Q3			;give a handle
	HDISMS	(^D2000)		;an outrageous time
	SETZM	$D6CLK(Q3)		;kleen up
	RET

;interrupt processes

;the following two are called from TO11DN with T1/workspace ptr(driver unique code)

D6HDDN:	SKIPA	T2,[D6%HDD]		;to -11 done for header interrupt process

D6DTDN:	MOVX	T2,D6%DTD		;to -11 done for data interrupt process
	IORM	T2,$D6STS(T1)		;set write to -11 done flag
	RET
;the following is dispatched to from to -10 doorbell interrupt
;	T1/dte number
;	T4/11 comm region ptr

D6DRBL:	SKIPN	T2,D6DTP(T1)		;find workspace ptr
	JRST	DBLER			;not a DN60 fe
	PUSH	P,Q2
	PUSH	P,Q3
	DMOVE	Q2,T1			;save dte and workspace ptr
	LOAD	T1,D6STS,(Q3)		;get the transaction status
	LOAD	T2,CMQCT,(T4)		;yes - get the expected byte count(piecemeal)
	STOR	T2,DTEBC,(Q2)		;we will take it all - this,of course,
					; assumes the 11 honors the limit sent
	TXNE	T1,D6%RDN		;have we seen response header done?
	JRST	D6BL1			;yes - must be data doorbell
	STOR	T2,D6RBC,(Q3)		;save response header size
	JUMPE	T2,D6BL1		;if no response - no data either
	MOVEI	T2,D6HDR(Q3)		;beg word of buffer
	MOVEI	T3,D6HWSZ-1(T2)		;last word of buffer
	MOVSI	P1,(POINT 8)		;make byte ptr for dte
	HRR	P1,T2
	TXO	T1,D6%RBL		;have seen response header doorbell
	JRST	D6BL2

D6BL1:	TXO	T1,D6%DBL!D6%RDN	;have seen data doorbell and response done
	STOR	T2,D6RDC,(Q3)		;where the data goes
	JUMPE	T2,D6BL1A		;no data to read!
	TXNN	T1,D6%NDT		;are we expecting data?
	JRST	D6BL1B			;yes - read it
	SETZRO	D6RDC,(Q3)		;no - we won't do it
	TXO	T1,D6%ARD		;set error flag
D6BL1A:	TXO	T1,D6%DDN!D6%FDN	;got data doorbell but no data is to be
					;read - fake a to -10 done interrupt here
	STOR	T1,D6STS,(Q3)		;update transaction status
	JRST	DBLER0			;and go neutralize the doorbell

D6BL1B:	MOVEI	T3,D6BFS-1(T2)		;end of it all
	LOAD	P1,D6BDP,(Q3)		;get the beg byte ptr
D6BL2:	STOR	T1,D6STS,(Q3)		;update transaction status
	MOVEM	T2,DTEIND(Q2)
	MOVEM	T3,DTEEND(Q2)		;MCB version 5 wants this for some reason
	POP	P,Q3
	MOVE	T1,Q2
	POP	P,Q2
	CALL	SETRGN			;get the comm region ptrs again
	LSH	A,SDTE			;find proper dte group
	MOVEM	P1,DTETBP(A)		;store into the ept
	LSH	A,-SDTE			;restore dte number
	JRST	DOFRMC			;rejoin mcb code

DBLER0:	POP	P,Q3			;unexpected doorbell of some flavor
	MOVE	T1,Q2			;get dte number back
	POP	P,Q2
DBLER:	SETZRO	DTEBC,(T1)		;nullify this request
	RET
;to -10 done interrupt processing - called from TO10DN
;	T1/ dte number
;	T3/10 comm region ptr
;	T4/11 comm region ptr

DN10D6:	SKIPN	T2,D6DTP(T1)		;find the workspace
	JRST	DTEDNE			;strange - try to ignore
	LOAD	T3,D6STS,(T2)		;get the transaction status
	TXNN	T3,D6%RBL!D6%DBL	;have we seen any doorbells?
	JRST	DTEDNE			;curiouser
	TXNE	T3,D6%DBL		;yes - which
	TXOA	T3,D6%DDN		;data - we go the data
	TXO	T3,D6%RDN		;response header
	STOR	T3,D6STS,(T2)		;update the transaction status
	PUSH	P,TODCLK		;save nowness
	TXNN	T3,D6%DDN		;was this data ?
	JRST	D6DDN1			;header
	POP	P,$D6TDD(T2)		;record -10 done for data
	JRST	DTEDNE			;now go away in confidence
D6DDN1:	POP	P,$D6TRD(T2)		;record -10 done for response header
	JRST	DTEDNE
	RESCD

;KEEP ALIVE INSTRUCTION USED BY SCHED TO DO KEEP ALIVE FUNCTION
;FOR THE 11

KEPALV::AOS COMBUF+DTEN+1+KPALIV	;BUMP KEEP ALIVE COUNTER

  >			;** END IFN KLFLG ON FIRST PAGE **

	TNXEND
	END