Trailing-Edge
-
PDP-10 Archives
-
BB-4170G-SM
-
sources/dtesm.mac
There are 20 other files named dtesm.mac in the archive. Click here to see a list.
;<3A.MONITOR>DTESM.MAC.18, 21-Jun-78 00:12:46, Edit by MCLEAN
;MORE FIXES TO TIME
;<4.MONITOR>DTESM.MAC.1, 20-Jun-78 17:03:43, Edit by MCLEAN
;FIX UPTIME
;<3.SM10-RELEASE-3>DTESM.MAC.16, 20-Apr-78 14:19:42, Edit by MCLEAN
;FIX RELOAD WORD TO CLEAR REASON FOR RELOAD BITS AFTER USE
;<3.SM10-RELEASE-3>DTESM.MAC.15, 29-Mar-78 18:37:45, Edit by MCLEAN
;<3.SM10-RELEASE-3>DTESM.MAC.14, 29-Mar-78 11:53:27, Edit by MCLEAN
;TURN KEEPALIVE ON
;<3.SM10-RELEASE-3>DTESM.MAC.13, 5-Feb-78 17:56:10, Edit by MCLEAN
;FIX FOR CRASH TIME AND NO KEEPALIVE
;<3.SM10-RELEASE-3>DTESM.MAC.11, 2-Feb-78 22:59:28, Edit by MCLEAN
;SET TADIDT ON RELOADS
;<3.SM10-RELEASE-3>DTESM.MAC.10, 13-Jan-78 22:20:12, Edit by MCLEAN
;FIX KEEPALIVE SO IT NOW UPDATES
;<3.SM10-RELEASE-3>DTESM.MAC.9, 7-Dec-77 10:16:24, EDIT BY MCCLURE
;<3.SM10-RELEASE-3>DTESM.MAC.8, 28-Nov-77 16:20:59, Edit by MCLEAN
;<3.SM10-RELEASE-3>DTESM.MAC.7, 6-Nov-77 16:46:39, Edit by MCLEAN
;<3.SM10-RELEASE-3>DTESM.MAC.5, 6-Nov-77 16:26:46, Edit by MCLEAN
;<3.SM10-RELEASE-3>DTESM.MAC.4, 6-Nov-77 16:13:57, Edit by MCLEAN
;<3.SM10-RELEASE-3>DTESM.MAC.3, 30-Oct-77 15:36:01, Edit by MCLEAN
;<3.SM10-RELEASE-3>DTESM.MAC.2, 29-Oct-77 20:15:34, Edit by MCLEAN
;<3.SM10-RELEASE-3>DTESM.MAC.1, 24-Oct-77 11:21:23, EDIT BY MURPHY
;<3-MONITOR>DTESM.MAC.14, 12-Oct-77 13:42:55, EDIT BY KIRSCHEN
;UPDATE COPYRIGHT FOR RELEASE 3
;<3-MONITOR>DTESM.MAC.13, 29-Sep-77 14:45:00, EDIT BY MILLER
;DEFINE FEBWT DUMMY TEST
;<3-MONITOR>DTESM.MAC.12, 27-Aug-77 10:45:24, EDIT BY MILLER
;DEFINE FEDOBE AS A DUMMY SCHEDULER TEST
;<3-MONITOR>DTESM.MAC.11, 10-May-77 15:51:11, EDIT BY HURLEY
;<3-MONITOR>DTESM.MAC.10, 30-Apr-77 23:09:50, Edit by MCLEAN
;<3-MONITOR>DTESM.MAC.9, 27-Mar-77 00:57:14, Edit by MCLEAN
;<3-MONITOR>DTESM.MAC.8, 24-Mar-77 03:11:18, Edit by MCLEAN
;<3-MONITOR>DTESM.MAC.7, 16-Mar-77 14:10:56, Edit by MCLEAN
;<3-MONITOR>DTESM.MAC.6, 13-Mar-77 03:20:45, Edit by MCLEAN
;<3-MONITOR>DTESM.MAC.5, 13-Mar-77 03:08:54, Edit by MCLEAN
;<3-MONITOR>DTESM.MAC.4, 13-Mar-77 02:54:20, Edit by MCLEAN
;<3-MONITOR>DTESM.MAC.3, 13-Mar-77 02:52:43, Edit by MCLEAN
;<3-MONITOR>DTEDUM.MAC.2, 13-Mar-77 02:49:11, Edit by MCLEAN
;<3-MONITOR>DTEDUM.MAC.1, 13-Mar-77 00:51:57, Edit by MCLEAN
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION
SEARCH PROLOG,PROKS
TTITLE DTESRV,DTESM
;
; DUMMY DTE20 MODULE FOR SM10
;
; IT ATTEMPTS TO DO ALL THE CORRECT RETURNS FOR DTE20 CALLERS
;
RESCD
DTTIME:: ;SEND TIME TO ALL 11'S
DTEPOL:: ;POLL DTE20'S
RQTAD1::SETOM TAD11 ;SET TIME AND DATE TO 1
MOVX T1,PWRFAL!FORREL!KEPFAL
TDNE T1,RLWORD ;CHECK RELOAD WORD FOR FORCED RELOAD
JRST [ ANDCAM T1,RLWORD ;CLEAR BITS AFTER WE HAVE FOUND THEM
MOVE T1,CRSHTM ;GET TIME OF CRASH
JUMPL T1,.+1 ;MANUAL RESTART IF NO VALID TIME
MOVEM T1,TADIDT ;SET IT AS INITIAL TIME
CALL UPDTCK ;UPDATE CLOCKS
CALL LGTAD ;GET CURRENT TIME
SETZM TODPWL ;RESET POWER LINE TIME
MOVEM T1,TADIDT ;SET INITIAL TIME
SETZB T3,T4 ;RESET TIMER
WRTIME T3 ;ZERO TIMER
SETOM CRSHTM ;SET NO CRASH TIME
RET]
MOVX T1,SF%MST ;SET MANUAL START
IORM T1,FACTSW
RET
KEPALV::CALL KEEPAL ;KEEP ALIVE INSTRUCTION
KEEPAL: LOAD T1,KPALIV ;UPDATE KEEPALIVE
AOS T1
STOR T1,KPALIV
RET
RS TAD11,1
FEDOBE==:0 ;DEFINE DUMMY SCHEDULER TEST
FEBWT==:0 ;DEFINE ANOTHER DUMMY TEST
END