Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - forddt.c12
There is 1 other file named forddt.c12 in the archive. Click here to see a list.
 REP 1/1	;12C1
	TITLE FORDDT	FORTRAN INTERACTIVE DEBUGGING AID ,10(337)
	SUBTTL	P.E.T. HARDING/DBT/FLD/MD/JMT/MA/SJW/JNG/DCE/BPK/CKS/DCC/BAH/BL/TGS/MRB
	;	Brad Merrill/BCM/AlB/MEM	2-Oct-84
 WIT
	TITLE FORDDT	FORTRAN INTERACTIVE DEBUGGING AID ,10(341)
	SUBTTL	P.E.T. HARDING/DBT/FLD/MD/JMT/MA/SJW/JNG/DCE/BPK/CKS/DCC/BAH/BL/TGS/MRB
	;	Brad Merrill/BCM/AlB/MEM/PLB	2-Jul-85
 REP 24/1	;12C2
	EDITNO==334	;EDIT NO
 WIT
	EDITNO==341	;EDIT NO
 REP 633/3	;12C3
	;;.ENDA		24-JUN-85
 WIT
	;.ENDA		24-JUN-85
	;.AUTOPATCH 12
	;.EDIT	340	FORDDT CRUSHES USER ACS
	;;		SAVACS was being used as scratch in PAUSE, START, and RESET
	;		PLB,2-JUL-85,SPR:20-20789
	;		A:SRC FORDDT.MAC
	;;.EDIT	341	Reserved for autopatch
	;;.ENDA		1-Aug-85
	;;.ENDA		5-Sep-85
 REP 20/18	;12C4
		MOVEM	T0,SAVACS	;[332] SAVE BREAK ADDRESS
 WIT
		MOVEM	T0,TEM10	;[340] SAVE BREAK ADDRESS
 REP 24/18	;12C5
		MOVEM	T4,@SAVACS	;[332]
 WIT
		MOVEM	T4,@TEM10	;[340] STORE VIA BREAK ADDRESS
 REP 69/24	;12C6
		MOVEM	T4,SAVACS+4	;[332]
		XMOVEI	T4,PAUERR	;[332]
		MOVEM	T4,@T0		;[332]
		MOVE	T4,SAVACS+4	;[332]
 WIT
		PUSH	P,T4		;[340] SAVE T4
		XMOVEI	T4,PAUERR	;[332]
		MOVEM	T4,@T0		;[332]
		POP	P,T4		;[340] RESTORE T4
 REP 12/29	;12C7
		MOVEM	T3,SAVACS+3	;[332]
 WIT
		MOVEM	T3,TEM11	;[340] SAVE T3
 REP 30/29	;12C8
	RESET3:	MOVE	T3,SAVACS+3	;[332]
 WIT
	RESET3:	MOVE	T3,TEM11	;[340] RESTORE T3, WAS NOT ERROR PAUSE
 INS 36/133	;12C9
	TEM10:	BLOCK	1		;[340] Temp in START
	TEM11:	BLOCK	1		;[340] Temp in PAUSE
 SUM 109859