Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
srtsta.c10
There is 1 other file named srtsta.c10 in the archive. Click here to see a list.
REP 2/1 ;10C1
SUBTTL D.M.NIXON/DMN/DZN/DLC/BRF/CLRH/GCS/KWS 21-Jan-83
WIT
SUBTTL D.M.NIXON/DMN/DZN/DLC/BRF/CLRH/GCS 21-Jan-83
REP 50/6 ;10C2
;**;[476] @FORENT+13L Replace 2 lines with 8. GCS 18-Jan-82
MOVE L,FORARG ;[476] GET FIRST ARG ADDRESS
SETZ T1, ;[476]
XMOVEI T1,20 ;[476] GET OUR SECTION NUMBER.
TLNN T1,7777 ;[476] IN A NON-ZERO SECTION?
TLO L,20 ;[476] NO - SET THE INDIRECT BIT.
TLO L,200000 ;[476] YES - SET NON-ZERO SECTION IB.
XMOVEI T1,@L ;[476] GET ADDRESS OF ARG TO SORT
MOVEM T1,FORARG ;[476] SAVE IT.
WIT
XMOVEI T1,0 ;[526] GET OUR SECTION NUMBER
TLZN T1,-1 ;[526] IN A NON-ZERO SECTION
TLOA T1,20 ;[526] NO - SET THE INDIRECT BIT
TLO T1,200000 ;[526] YES - SET NON-ZERO SECTION INDIRECT BIT.
IOR T1,FORARG ;[526] ADD IN ADDRESS OF ARGUMENT BLOCK
XMOVEI T1,@T1 ;[526] GET ADDRESS OF ARG. TO SORT
REP 63/28 ;10C3
IFE FTKL10,< ;[523] NOT KL ONLY
SUB P,[2,,2] ;[327] CLEAR OFF STACK TEMPS
> ;[523]
IFN FTKL10,< ;[523] KL ONLY
ADJSP P,-2 ;[523] SO IT WILL WORK WITH EXTENDED SECTIONS
> ;[523]
WIT
SUB P,[2,,2] ;[327] CLEAR OFF STACK TEMPS
SUM 106227