Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cpylib.c12
There are no other files named cpylib.c12 in the archive.
REP 10/1 ;12C1
;COPYRIGHT (C) 1981,1982 BY
WIT
;COPYRIGHT (C) 1981,1982,1985 BY
REP 33/1 ;12C2
CPYEDT==7 ;CURRENT EDIT LEVEL
WIT
CPYEDT==10 ;CURRENT EDIT LEVEL
INS 63/2 ;12C3
;.ENDA
;.AUTOPATCH 11
;.ENDA
;.AUTOPATCH 12
;
;.EDIT 10 Fix extract to insert a line feed in the output file when
;; a form feed is found in the library.
; MJC,24-APR-85,SPR:10-35137
; A:SRC CPYLIB
;
INS 17/102 ;12C4
MOVEI CH,.CHLFD ;[10]
CAME CH,0(P) ;[10] WAS THE SAVED CH A LINE FEED?
PUSHJ P,PUTOFF ;[10] NO, PUT OUT A LINE FEED
SUM 14101