Google
 

Trailing-Edge - PDP-10 Archives - tops20v41_monsrc - monitor-sources/dtesm.mac
There are 20 other files named dtesm.mac in the archive. Click here to see a list.
; UPD ID= 6, FARK:<4-1-WORKING-SOURCES.MONITOR>DTESM.MAC.2,  10-Mar-82 17:19:49 by ZIMA
;Edit 2001 - Make module name consistent for Autopatch.
;<4-1-FIELD-IMAGE.MONITOR>DTESM.MAC.2, 25-Feb-82 20:18:52, EDIT BY DONAHUE
;UPDATE COPYRIGHT DATE
; 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,1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

	SEARCH PROLOG,PROKS
;**;[2001] Change one line at SEARCH PROLOG, +1L	JGZ	10-MAR-82
	TTITLE DTESM		;[2001] 

;
; 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