Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
getitm.c07
There is 1 other file named getitm.c07 in the archive. Click here to see a list.
INS 5/2 ;07C1
;JEH 17-NOV-83 [1505] 68274: If '**** End of copy library text ****'
; inserted and 'COPY' follows, 68274 halts.
;JBB 11-NOV-83 [1504] Put conditional code around FINVOK so a build
; without DBMS doesn't fail.
;DMN 22-Apr-83 [1463] Fix COPY REPLACING when BY and == are not on same line.
REP 25/46 ;07C2
IDPB TC,TB ;REPLACE = BY NULL
IDPB TC,TB
WIT
CPLB35: ILDB CH,TB ;[1463] MAKE SURE WE ARE POSITIONED AT FIRST "="
DPB TC,TB ;[1463] CLEAR CHAR IN ANY CASE
CAIE CH,"=" ;[1463] GOT THERE YET?
JRST CPLB35 ;[1463] NO
IDPB TC,TB ;[1463] YES, REPLACE 2ND = BY NULL
INS 36/59 ;07C3
SETZM CVTCPF ;[1505] LINE ALREADY IS A COMMENT
REP 135/66 ;07C4
CVTDPL: SKIPE FINVOK ;[1413] PART OF DBMS ?
POPJ PP, ;[1413] YES, EXIT
WIT
CVTDPL:
IFN DBMS, < ;[1504]
SKIPE FINVOK ;[1413] PART OF DBMS ?
POPJ PP, ;[1413] YES, EXIT
> ;[1504]
REP 62/71 ;07C5
HALT .
WIT
JRST CVTCT5 ;[1505] KEEP LOOKING
SUM 259688