;_Header
;*******************************************************************
;    NOVA CONTROL SYSTEM  ---  Lawrence Livermore Laboratory
;
;    Copyright 1985 by The Regents of the University of California
;*******************************************************************
;
;_Module_Name:  TESTRMS
;
;_Description:
;	Macro routines to test RMS utililty for Praxis Temporary
;	object file I/O
;_Call:
;_Identifier: { none }
;*******************************************************************
;_Author:  T. DeGroot / F. Holloway	_Creation_Date:  15-APR-1985
;_Revisions:
;  1.000  15-APR-1985  FWH	Initial Key-in.
;*******************************************************************
;_End


	.TITLE	TESTRMS
	.LIST	MEB

;;;----------------------- TEST ROUTINE -----------------------------
.PSECT	$VARS,CON,NOEXE,LCL,NOPIC,NOSHR,REL,WRT,LONG
CHANNEL: .LONG	0
	.EVEN

DATA:	.ASCII	/ABCDEFGH/
LENGTH:	.LONG	8
DATA2:	.ASCII	/IJKLMNOP/
LENGTH2:.LONG	8

ANSWER:	.LONG	8
	.ADDRESS ANSWER_DATA
ANSWER_DATA:
	.ASCII	/12345678/

ANSWER_LEN:	.LONG 8


CREA_GOOD:	.ASCID	/CREA_GOO/
CREA_BAD:	.ASCID	/CREA_BAD/
REW_GOOD:	.ASCID	/REW_GOO/
REW_BAD:	.ASCID	/REW_BAD/
PUT_GOOD:	.ASCID	/PUT_GOOD/
PUT_BAD:	.ASCID	/PUT_BAD /
PUT2_GOOD:	.ASCID	/PUT2_GOOD/
PUT2_BAD:	.ASCID	/PUT2_BAD /

.ALIGN	LONG

.PSECT	$CODE1,CON,EXE,LCL,NOPIC,SHR,REL,NOWRT,BYTE
	.ENTRY RMSTEST,		^M<>

	PUSHAL	CHANNEL	

	CALLS	#1,TMP_CREA
	BLBC	R0,CREA_ERROR
	PUSHAL	CREA_GOOD
	CALLS	#1,G^LIB$PUT_OUTPUT
	BRW	DONE_CREA
CREA_ERROR:
	PUSHAL	CREA_BAD
	CALLS	#1,G^LIB$PUT_OUTPUT
DONE_CREA:	


	CALLS	#0,TMP_CONN

	PUSHAL	LENGTH
	PUSHAL	DATA
	CALLS	#2,TMP_PUT

	BLBC	R0,PUT_ERROR
	PUSHAL	PUT_GOOD
	CALLS	#1,G^LIB$PUT_OUTPUT
	BRW	DONE_PUT
PUT_ERROR:
	PUSHAL	PUT_BAD
	CALLS	#1,G^LIB$PUT_OUTPUT
DONE_PUT:	
	PUSHAL	LENGTH2
	PUSHAL	DATA2
	CALLS	#2,TMP_PUT

	;--------------------------------REWIND ----------------------
	CALLS	#0,TMP_REW
	BLBC	R0,REW_ERROR
	PUSHAL	REW_GOOD
	CALLS	#1,G^LIB$PUT_OUTPUT
	BRW	DONE_REW
REW_ERROR:
	PUSHAL	REW_BAD
	CALLS	#1,G^LIB$PUT_OUTPUT
DONE_REW:	

	PUSHAL	ANSWER
	CALLS	#1,G^LIB$PUT_OUTPUT

	PUSHAL	ANSWER_LEN
	PUSHAL	ANSWER_DATA
	CALLS	#2,TMP_GET

	PUSHAL	ANSWER
	CALLS	#1,G^LIB$PUT_OUTPUT


	CALLS	#0,TMP_DIS
	CALLS	#0,TMP_CLOSE

	RET

	.END	TESTRMS