Google
 

Trailing-Edge - PDP-10 Archives - tops20tools_v6_9-jan-86_dumper - tools/sed-for-vms/bldsedhlp.mar
There are 5 other files named bldsedhlp.mar in the archive. Click here to see a list.
.TITLE	BLDSEDHLP - Program to build the on-line help file for SED

.ENABLE DEBUG
.DISABLE GLOBAL
$RMSDEF

	.PSECT	DATA,WRT,NOEXE
BUFFER:	.BLKB	1536		;Output buffer
INBUFF:	.BLKB	128		;Input buffer
BUFFPTR:.BLKL	1		;Pointer into the output buffer
FILFLG:	.BLKL	1		;-1=data in buffer, 0=buffer empty
INPUT_FAB:	$FAB	FNM=<SEDONL.TXT>,FAC=GET,FOP=SQO
OUTPUT_FAB:	$FAB	FNM=<SEDONL.HLP>,FAC=<BIO,PUT>,FOP=MXV,-
			ORG=SEQ,RFM=FIX,MRS=1536
INPUT_RAB:	$RAB	FAB=INPUT_FAB,RAC=SEQ,UBF=INBUFF,USZ=128
OUTPUT_RAB:	$RAB	FAB=OUTPUT_FAB,RAC=SEQ,RBF=BUFFER,RSZ=1536

	.PSECT	CODE,NOWRT,EXE
START:	.WORD	0		;Entry mask
	BSBW	WRTREC		;Initialize the pointer
	$OPEN	FAB=INPUT_FAB	;Open the input file
	BLBS	R0,10$
	RET
10$:	$CREATE	FAB=OUTPUT_FAB	;Open the output file
	BLBS	R0,20$
	RET
20$:	$CONNECT RAB=INPUT_RAB	;Connect to the record blocks
	BLBS	R0,30$
	RET
30$:	$CONNECT RAB=OUTPUT_RAB
	BLBS	R0,COPY_LOOP
	RET

COPY_LOOP:
	$GET	RAB=INPUT_RAB	;Get a record
	BLBS	R0,WRITE	;Success?
	CMPL	R0,#RMS$_EOF	;Was the error end of file?
	BEQL	EOF		;Yes
	RET			;Otherwise it's fatal

EOF:	BSBW	WRTREC		;Output the last record if necessary
	$DISCONNECT RAB=INPUT_RAB
	$DISCONNECT RAB=OUTPUT_RAB
	$CLOSE	FAB=INPUT_FAB
	$CLOSE	FAB=OUTPUT_FAB
	RET

WRITE:	CMPB	#^O14,INBUFF	;Is the character a form feed?
	BNEQ	10$		;No
	BSBW	WRTREC		;Yes - dump the previous record to disk
	BRW	COPY_LOOP	;and go get some more
10$:	MOVC3	INPUT_RAB+RAB$W_RSZ,INBUFF,@BUFFPTR ;Copy the record for output
	MOVZWL	INPUT_RAB+RAB$W_RSZ,R1 ;Get the length
	ADDL	R1,BUFFPTR	;Increment the buffer pointer
	MOVW	#^X0A0D,@BUFFPTR ;End the line with CRLF
	ADDL	#2,BUFFPTR	;Account for the CRLF
	CVTBL	#-1,FILFLG	;Indicate data is in the buffer
	BRW	COPY_LOOP	;Go get another record

WRTREC:	TSTL	FILFLG		;Anything in the buffer?
	BEQL	20$		;No
	$WRITE	RAB=OUTPUT_RAB	;Yes - write the record
	BLBS	R0,10$		;Any errors?
	RET			;Yes
10$:	MOVC5	#0,BUFFER,#0,#1536,BUFFER ;Clear the buffer
20$:	CLRL	FILFLG		;Buffer is empty
	MOVAB	BUFFER,BUFFPTR	;Point to the buffer
	RSB			;and return

	.END	START