Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
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