Trailing-Edge
-
PDP-10 Archives
-
BB-K911B-SM
-
sources/dtesm.mac
There are 20 other files named dtesm.mac in the archive. Click here to see a list.
; UPD ID= 232, SNARK:<4.1.MONITOR>DTESM.MAC.2, 31-Jan-80 13:14:14 by ENGEL
;ADD CALL TO UPDTCK IF CRASH RECOVERY
;<4.MONITOR>DTESM.MAC.1, 11-Mar-79 13:22:30, Edit by KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976,1977,1978,1979 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
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
MOVEM T1,TADIDT ;SET INITIAL TIME
SETZB T3,T4 ;RESET TIMER
WRTIME T3 ;ZERO TIMER
SETOM CRSHTM ;SET NO CRASH TIME
CALL UPDTCK ;UPDATE CLOCKS
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