Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_ap115_bb-ju01b-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