//_Header
//*******************************************************************
//    NOVA CONTROL SYSTEM  ---  Lawrence Livermore Laboratory
//
//    Copyright 1984 by The Regents of the University of California
//*******************************************************************
//
//_Module_Name:  SAHEAPPUT
//
//_Description:
//	Routines to call TEXTIO from call from Tims Macros in SAHEAP
//	for debugging
//	
//	************  SAVE THIS ROUTINE FOR HEAP TESTING OF LSI-11 ***
//	************	IN VAX COMPATIBILITY MODE		   ***
//	
//*******************************************************************
//_Author:  F. Holloway		_Creation_Date:   7-JAN-1985
//_Revisions:
//  1.000   7-JAN-1985  FWH	Initial Key-in.
//*******************************************************************
//_End

module SAHEAPPUT
//	Service debugging macros used in MAC code
export PUTSTR, PUTOCT
use	TEXTIO
procedure PUTSTR
    param
	In_STring : in ref packed array [1..?N] of char
    endparam

    out_string (TTY, In_String, N)
    out_record (TTY)
endprocedure

procedure PUTOCT
    param
	In_value : in val 16 bit integer
    endparam

    out_formatted_integer (TTY, In_Value, 7, 8)
    out_record (TTY)
endprocedure
endmodule