Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93i-bb - d60spd.c09
There are 13 other files named d60spd.c09 in the archive. Click here to see a list.
 INS 3/1	;09C1

 INS 9/1	;09C2
		RELOC	400000			;[010]Start high

 INS 24/1	;09C3

 INS 16/2	;09C4
	; 4[010] 24-Sept-84 TPW
	; 	Redefine MOVX macro so that D60SPD will compile with the new
	;	pickier version of MACTEN, remove the search of D60TEN which
	;	was to pick up the redefined MOVX and reinstate MACTEN, and
	;	move the Copyright to the beginning of the exe 
	;	
 REP 20/2	;09C5
		D60EDT==7			;Edit level
 WIT
		D60EDT==010			;Edit level
 REP 18/3	;09C6
		SEARCH	JOBDAT,D60TEN,UUOSYM	;[007] symbol tables that work here
 WIT
		SEARCH	JOBDAT,MACTEN,UUOSYM	;and more symbols
 REP 31/3	;09C7
		%%MACT==%%MACT			;[007] Show MACTEN version (still here)
 WIT
		%%MACT==%%MACT			;[007] Show MACTEN version 
 DEL 44/3	;09C8
		RELOC	400000			;Start high
 INS 1/17	;09C9
	;[010]MAKE OUR OWN DEFINITION OF MOVX SO THAT UP/DOWN MACROS WON'T PRODUCE
	;PHASE ERRORS DURING COMPILE

	;[010]MACRO TO GENERATE MOVEI, MOVSI, OR MOVE [] AS APPROPRIATE
	;	ALSO HRLOI, HRROI

	DEFINE	MOVX	(AC,FLAG),<
		.XCREF
		TEST%%=0
	IFE	<<FLAG>_-^D18>,<
		TEST%%=1
		.CREF
		MOVEI	AC,<FLAG>
		.XCREF
	>
	IFN	<FLAG>,<
	IFE	<<FLAG>_^D18>,<
		TEST%%=1
		.CREF
		MOVSI	AC,(FLAG)
		.XCREF
	>
	IFE	<<<FLAG>_-^D18>-^O777777>,<
		TEST%%=1
		.CREF
		HRROI	AC,<FLAG>
		.XCREF
	>
	IFE	TEST%%,<
	IFE	<<<FLAG>_^D18>-^O777777B17>,<
		TEST%%=1
		.CREF
		HRLOI	AC,(<FLAG>-^O777777)
		.XCREF
	>
	IFE	TEST%%,<
		.CREF
		MOVE	AC,[FLAG]
	>>>
		PURGE	TEST%%
		.CREF>
	;[010]This is the end of what was inserted in this edit

 SUM 147673