module macio

// Dummy module to provide a synopsis for assembly language routines.
//	Modified:
//  1.001  08-jul-1981	JMD	strings are now packed arrays of char.
export
    Open,
    Close,
    Get_record,
    Put_record

procedure Open(lun: integer, mode: integer, input name: packed array[1..?N] of char)
endprocedure

procedure Close(lun: integer)
endprocedure

procedure Get_record(lun: integer, ref buffer: packed array[0..?N] of char,
		     ref count: integer)
endprocedure

procedure Put_record(lun: integer, input buffer: packed array[0..?N] of char,
		     count: integer)
endprocedure

endmodule