!specs for low-level magtape I/O procedures
%end %of %list

!event
%const %integer tape event = 14
!subevents
%const %integer tape mark hit = -9

%external %routine %spec                 CLAIM TAPES (%integer mask)
%external %routine %spec                 SELECT TAPE (%integer drive no)
%external %routine %spec                 TAPE FN (%integer fn code)
%external %routine %spec                 MARK TAPE
%external %routine %spec                 REWIND
%external %routine %spec                 SKIP FORWARD
%external %routine %spec                 SKIP BACK
%external %routine %spec                 BACKSPACE
%external %routine %spec                 READ TAPE (%integer bytes, %name buf)
%external %routine %spec                 WRITE TAPE(%integer bytes, %name buf)
%external %integer %function %spec       TAPE SUB EVENT
%external %string(23) %function %spec    TAPE ERROR (%integer sub event)
%external %routine %spec                 RELEASE TAPES (%integer mask)

%list
%end %of %file