/*
**  Tape Bios support calls for Paul Moreau's Tape driver
**
*/

#define Tfunc	0x0ACE

#define Ready	0
#define Read	1
#define Write	2
#define Rewind	3
#define Load	4
#define Unload	5
#define WrtFM	6
#define ReqSen	7
#define ModSel	8
#define ModSen	9
#define SetPar	10
#define Space	11
#define Erase	12
#define Inquire	13

#define Tready() bios(Tfunc, Ready, 0L, 0L)
#define Tread(a, b) bios(Tfunc, Read, a, b)
#define Twrite(a, b) bios(Tfunc, Write, a, b)
#define Trewind() bios(Tfunc, Rewind, 0L, 0L)
#define Tload(a) bios(Tfunc, Load, 0L, a)
#define Tunload(a) bios(Tfunc, Unload, 0L, a)
#define Tfmark(a) bios(Tfunc, WrtFM, 0L, a)
#define Trsense(a, b) bios(Tfunc, ReqSen, a, b)
#define Tmselect(a, b) bios(Tfunc, ModSel, a, b)
#define Tmsense(a, b) bios(Tfunc, ModSen, a, b)
#define Tsetpar(a) bios(Tfunc, SetPar, 0L, a)
#define Tspace(a) bios(Tfunc, Space, 0L, a)
#define Terase() bios(Tfunc, Erase, 0L, 0L)
#define Tinquir(a, b) bios(Tfunc, Inquire, a, b)