Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/srtcmd.c13
There are 2 other files named srtcmd.c13 in the archive. Click here to see a list.
INS 1/1 ;13C1
;IGUANA:<MERRILL.20812>SRTCMD.MAC.2 27-Jan-86 13:45:01, Edit by MERRILL
;EDIT 535 Remove check for /APPEND in CS4ARM, manual states it is not mandatory
REP 67/25 ;13C2
SKIPGE APPFLG ;OK IF /APPEND
RET
MOVEI T1,CS7TMP ;OTHERWISE
HRROI T2,[ASCIZ /INDEXED/] ;REMOVE
PJRST DELEN ;INDEXED
WIT
;**;[535] At CS4ARM + 12L
RET
REP 62/36 ;13C3
MOVE T2,@T2 ;GET ACTUAL
WIT
XMOVEI T2,@T2 ;[527] GET ACTUAL
REP 17/46 ;13C4
SUBI T2,40 ;SIXBITIZE
DPB T2,[POINT 6,(T4),23] ;[C20]
LDB T2,[POINT 7,1(T1),6] ;[OK] GET FIRST CHAR
SUBI T2,40 ;SIXBITIZE
DPB T2,[POINT 6,(T4),29] ;[C20]
LDB T2,[POINT 7,1(T1),13];[OK] GET FIRST CHAR
SUBI T2,40 ;SIXBITIZE
DPB T2,[POINT 6,(T4),35] ;[C20]
HRRZI T2,'SRT' ;GET PROGRAM CODE
HRLM T2,(T4) ;[C20] SAVE IT
WIT
DPB T2,[POINT 7,@T4,6] ;[C20][527]
LDB T2,[POINT 7,1(T1),6] ;[OK] GET FIRST CHAR
DPB T2,[POINT 7,@T4,13] ;[C20][527]
LDB T2,[POINT 7,1(T1),13];[OK] GET FIRST CHAR
DPB T2,[POINT 7,@T4,20] ;[C20][527]
MOVEI T2," " ;[527]LOAD T2 WITH A SPACE
DPB T2,[POINT 7,@T4,27] ;[527] FINISH THE WORD OFF WITH SPACES
DPB T2,[POINT 7,@T4,34] ;[527] ...
SUM 140148