Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/d60spd.c09
There are 13 other files named d60spd.c09 in the archive. Click here to see a list.
 REP 3/1	;09C1
		TWOSEG				;Two segment program
		RELOC	400000			;Start high
 WIT

		TWOSEG				;Two segment program

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

 INS 24/1	;09C3

 REP 10/2	;09C4

 WIT
	; 4[006] 04-Jan-84 GKN  SPR 10-34417
	;	Fix problem with garbled filespecs if the default directory has
	;	SFDs.
	; 4[007] 06-June-84 TPW
	; 	Search D60SPD's version of MACTEN.UNV (previously field image).
	;	To be removed when use of MOVX macro is resolved.
	; 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 15/2	;09C5
		D60EDT==5			;Edit level
 WIT
		D60EDT==010			;Edit level
 REP 18/3	;09C6
		SEARCH	JOBDAT,MACTEN,UUOSYM	;til this crockery is fixed
 WIT
		SEARCH	JOBDAT,MACTEN,UUOSYM	;and more symbols
 REP 31/3	;09C7
		%%MACT==%%MACT			;Show MACTEN version
 WIT
		%%MACT==%%MACT			;[007] Show MACTEN version 
 INS 1/17	;09C8
	;[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

 INS 48/37	;09C9
		MOVX	T1,DEVDEV		;[006] Point to device storage cells
 SUM 27751