//_Header
//*******************************************************************
//    NOVA CONTROL SYSTEM  ---  Lawrence Livermore Laboratory
//
//    Copyright 1984 by The Regents of the University of California
//*******************************************************************
//
//_Module_Name:  PUTBUG		_File:  [PRAXISLIB.SUPPORT.TEST.PDP]PUTBUG1.PRX
//
//_Description:
//	Routines to call TEXTIO from call from Tims Macros in HEAP
//	for debugging
//	
//	************  SAVE THIS ROUTINE FOR HEAP TESTING ON LSI-11 *****
//	
//_Call:
//_Identifier: { none }
//*******************************************************************
//_Author:  F. Holloway		_Creation_Date:   7-JAN-1985
//_Revisions:
//  1.000   7-JAN-1985  FWH	Initial Key-in.
//*******************************************************************
//_End

module putbug
//	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
//_Header
//*******************************************************************
//    NOVA CONTROL SYSTEM  ---  Lawrence Livermore Laboratory
//
//    Copyright 1984 by The Regents of the University of California
//*******************************************************************
//
//_Module_Name:  PUTBUG		_File:  [PRAXISLIB.SUPPORT.TEST.PDP]PUTBUG1.PRX
//
//_Description:
//	Routines to call TEXTIO from call from Tims Macros in HEAP
//	for debugging
//	
//	************  SAVE THIS ROUTINE FOR HEAP TESTING ON LSI-11 *****
//	
//_Call:
//_Identifier: { none }
//*******************************************************************
//_Author:  F. Holloway		_Creation_Date:   7-JAN-1985
//_Revisions:
//  1.000   7-JAN-1985  FWH	Initial Key-in.
//*******************************************************************
//_End