Google
 

Trailing-Edge - PDP-10 Archives - tops10_integ_tools_v4_10jan-86 - 70,6067/tvaxv2/gtvr08.mar
There are 7 other files named gtvr08.mar in the archive. Click here to see a list.
	.TITLE	GTVR08 - LOGFILE ROUTINE
	INIT	GTVR08
GTVR08O::			;OPEN
	CLRW	WLOGC			;CLEAR LOGCOUNT
	$CREATE	FAB=DLOGF
	$CONNECT RAB=DLOGR
	IF.	*ERROR
		MOVC3	OPELL,OPE,@GOBUFFA
		MOVZWL	OPELL,R1
		BSBW	GWRITR
		$EXIT_S
	ENDIF.
	RSB
OPE:	.ASCII	\TV - BACKUP FILE COULD NOT BE OPENED\
OPELL:	.WORD	.-OPE
;
;
GTVR08C::			;CLOSE
	$CLOSE	FAB=DLOGF
	RSB
;
;
GTVR08W::			;WRITE
	PUSHR	#^M<R0,R1>
	MOVL	R1,DLOGR+RAB$L_RBF
	MOVW	R0,DLOGR+RAB$W_RSZ
W001:	ADDW2	R0,WLOGC
	$PUT	RAB=DLOGR
	CMPW	WLOGC,#15
	IF.	*GT
		CLRW	WLOGC
		$FLUSH	RAB=DLOGR
	ENDIF.
	POPR	#^M<R0,R1>
	RSB
GTVR08WE::			;WRITE + ESC,ESC
	PUSHR	#^M<R0,R1>
	MOVL	R1,DLOGR+RAB$L_RBF
	MOVZWL	R0,R0
	ADDL2	R0,R1
	MOVW	#^X1B1B,(R1)		;END ESCAPES
	ADDL2	#2,R0
	MOVW	R0,DLOGR+RAB$W_RSZ
	BRW	W001
;
;
WLOGC:	.BLKW
	.ALIGN	LONG
DLOGF:	$FAB	MRS=2048,RAT=CR,RFM=VAR,DNM=<TVBACK>,BLS=2048,FAC=<PUT>
DLOGR:	$RAB	FAB=DLOGF
	.END