Google
 

Trailing-Edge - PDP-10 Archives - BB-Y393T-SM - monitor-sources/magtap.mac
There are 58 other files named magtap.mac in the archive. Click here to see a list.
;Edit 3209 to MAGTAP.MAC by SHTIL on Tue 15-Jan-85, for SPR #20127
;		Clear UDBVID field after unloading tape
;Edit 3158 to MAGTAP.MAC by GLINDELL on Thu 30-Aug-84, for SPR #16186
;		Allow MTOPR .MOIEL for non-open JFN's
;Edit 3111 to MAGTAP.MAC by SHTIL on Fri 25-May-84, for SPR #20121
;		Count the lentgh of record with a suplus
;edit 2961 by haudel jun 15 83 for spr 18642
;edit 2954 by haudel jun 15 83 for spr 18642
; UPD ID= 247, FARK:<4-1-WORKING-SOURCES.MONITOR>MAGTAP.MAC.3,  17-Nov-82 09:17:52 by DONAHUE
;Edit 2872 - Remove previous edit
; UPD ID= 91, FARK:<4-1-WORKING-SOURCES.MONITOR>MAGTAP.MAC.2,  11-Jun-82 12:10:49 by DONAHUE
;Edit 2626 - Fix maximum size check at MTDIR5
;<4-1-FIELD-IMAGE.MONITOR>MAGTAP.MAC.2, 25-Feb-82 20:29:44, EDIT BY DONAHUE
;UPDATE COPYRIGHT DATE
; UPD ID= 733, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.10,  20-Aug-81 19:48:54 by ZIMA
;Edit 1927 - put edit 1900 in standard form.  No code changes.
; UPD ID= 728, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.9,  19-Aug-81 13:44:37 by ZIMA
;Edit 1926 - put edit 1850 in standard form.  No code changes.
; UPD ID= 627, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.8,  25-Jun-81 09:58:29 by MOSER
;EDIT 1900 - REWRITE 1894 AGAIN SO PERFORMANCE IS NOT THREATENED.
; UPD ID= 612, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.7,  22-Jun-81 13:35:21 by MOSER
;EDIT 1895 - REWRITE 1894 TO COVER ALL CASES.
; UPD ID= 610, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.6,  19-Jun-81 16:29:12 by MOSER
;EDIT 1894 - FIX A DUMPI/DUMPO RACE WHICH COULD CAUSE ILPAG1s.
; UPD ID= 538, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.5,  18-May-81 16:06:08 by ZIMA
;Edit 1876 - set ERRF on EOT for dump mode output so volume switch occurs.
; UPD ID= 536, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.4,  14-May-81 13:29:32 by DONAHUE
;Edit 1875 - Set modified bit in CST0 after locking buffer pages - someone
;commented the code out
; UPD ID= 458, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.3,  16-Apr-81 12:05:32 by SCHMITT
;Edit 1850 - Make MTAKIL external
; UPD ID= 443, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.2,  13-Apr-81 16:44:13 by SCHMITT
;Edit 1845 - Fix MTANOQ BUGCHKs after edit 1720 intalled
; UPD ID= 132, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.4,  22-Jul-80 15:09:58 by ZIMA
;Edit 1761 - Fix reversed entries in MTINFT table.
; UPD ID= 80, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.3,  11-Jun-80 15:45:29 by SCHMITT
; EDIT 1743 - Remove check for buffers before deciding to write tape marks
; UPD ID= 15, FARK:<4-WORKING-SOURCES.MONITOR>MAGTAP.MAC.2,   1-Jun-80 17:31:47 by ZIMA
;EDIT 1720 - fix magtape double buffering race in MTSTS.
;<4.MONITOR>MAGTAP.MAC.249,  3-Jan-80 08:09:30, EDIT BY R.ACE
;UPDATE COPYRIGHT DATE
; UPD ID= 65, SNARK:<4.MONITOR>MAGTAP.MAC.248,  30-Nov-79 10:35:09 by MILLER
;TCO 4.2586. CLEAR BUFFER WORDS IN MTAFLA
;<4.MONITOR>MAGTAP.MAC.247, 25-Oct-79 21:30:33, EDIT BY DBELL
;TCO 4.2552 - CHECK FOR ERRORS WHEN SPACING OR BACKSPACING FILES
;<4.MONITOR>MAGTAP.MAC.246,  4-Oct-79 15:57:05, EDIT BY MURPHY
;FIX BUG INTRODUCED BY PREVIOUS EDIT
;<4.MONITOR>MAGTAP.MAC.245, 20-Sep-79 15:46:42, EDIT BY HALL
;DUMPI AND DUMPO - APPLY PCS
;<OSMAN.MON>MAGTAP.MAC.1, 10-Sep-79 15:42:27, EDIT BY OSMAN
;TCO 4.2412 - Move definition of BUGHLTs, BUGCHKs, and BUGINFs to BUGS.MAC
;<4.MONITOR>MAGTAP.MAC.243, 11-Aug-79 22:26:53, EDIT BY ZIMA
;TCO 4.2387 - FIX BKUPDF BUGHLTS CAUSED BY DUMPO OF NONEXISTENT FILE PAGES
;<4.MONITOR>MAGTAP.MAC.242, 30-Jul-79 10:26:35, EDIT BY MILLER
;ONE MORE TRY. MAKE .MOCLE AND .MONOP REQUIRE MTA TO BE OPENED.
;<4.MONITOR>MAGTAP.MAC.241, 25-Jul-79 15:10:44, EDIT BY MILLER
;MOVE MTMTP1 LABEL TO INCLUDE CALLS TO MTACLW AND UPDSTS
;<4.MONITOR>MAGTAP.MAC.240, 11-Jun-79 19:18:21, EDIT BY MILLER
;MAKE FORWARD FILE RECOVER READ AHEAD BEFORE PROCEEDING.
;<4.MONITOR>MAGTAP.MAC.239, 11-Jun-79 09:34:09, EDIT BY MILLER
;MORE TCO 4.2281. FIX MTDIND TO DETECT RECORD LENGTH ERROR
;<4.MONITOR>MAGTAP.MAC.238, 10-Jun-79 14:21:53, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.237,  9-Jun-79 16:28:48, EDIT BY MILLER
;TCO 4.2281. ALLOW GDSTS TO RETURN STATUS OF LAST CALL, NOT NECESSARILY CURRENT
; STATUS
;<4.MONITOR>MAGTAP.MAC.236, 17-May-79 17:22:40, EDIT BY MILLER
;MAKE MTFLSH INTERNAL FOR USE BY TAPE
;<4.MONITOR>MAGTAP.MAC.235,  4-May-79 10:17:48, EDIT BY MILLER
;ALLOW MTOPR CODES 0 AND 31 EVEN IF MTA NOT OPENED
;<4.MONITOR>MAGTAP.MAC.234,  4-May-79 08:57:15, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.233, 20-Mar-79 13:53:05, EDIT BY MILLER
;FIX MTDIRQ TO PRE-WRITE PAGES FOR DUMPI
;<4.MONITOR>MAGTAP.MAC.232,  4-Mar-79 18:24:30, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.MONITOR>MAGTAP.MAC.231,  2-Mar-79 11:18:27, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.230,  1-Mar-79 17:26:18, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.229,  1-Mar-79 12:42:48, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.228,  1-Mar-79 12:05:37, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.227,  1-Mar-79 11:41:30, EDIT BY MILLER
;HANDLE READ AHEAD ERRORS WHEN DOING BACKSPACING
;<4.MONITOR>MAGTAP.MAC.226, 28-Feb-79 18:41:20, EDIT BY MILLER
;ADD MTAFLA
;<4.MONITOR>MAGTAP.MAC.225, 27-Feb-79 15:35:52, EDIT BY HALL
;CHANGE MTAINI TO INIT TAPE WORDS PROPERLY
;<2BOSACK>MAGTAP.MAC.1, 19-Feb-79 21:21:02, EDIT BY BOSACK
;RETURN HARDWARE DETERMINED DENSITY FOR READ DENSITY MTOPR
;<4.MONITOR>MAGTAP.MAC.223, 15-Feb-79 12:29:27, EDIT BY MILLER
;ADD SUPPORT FOR .MORVL. MAKE IT SAME ROUTINE AS .MOREW
;<4.MONITOR>MAGTAP.MAC.222, 10-Jan-79 14:06:40, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.221, 10-Jan-79 13:10:48, EDIT BY MILLER
;ADD CODE TO MTALOC THAT SETS VOLUME SET NAME
;<4.MONITOR>MAGTAP.MAC.220, 28-Dec-78 20:34:06, EDIT BY ZIMA
;TCO 4.2138 - CLEAR RH(AC3) FOR GDSTS
;<4.MONITOR>MAGTAP.MAC.219, 11-Dec-78 17:06:29, EDIT BY MILLER
;DON'T CHECK OFF-LINE OR WRITE-LOCKED IF DRIVE IS A TU7X
;<4.MONITOR>MAGTAP.MAC.218, 26-Nov-78 17:07:38, EDIT BY MILLER
;PASS CURRENT VOLUME NUMBER TO TAPE ON SETMTU FUNCTION
;<4.MONITOR>MAGTAP.MAC.217, 22-Nov-78 07:41:05, EDIT BY MILLER
;FIX MTALOC TO PASS DENSITY ON SETMTU CALL
;<4.MONITOR>MAGTAP.MAC.216, 22-Nov-78 07:33:29, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.215, 19-Nov-78 20:37:24, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.214, 24-Oct-78 14:06:41, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.213, 24-Oct-78 13:10:21, EDIT BY MILLER
;ADD LABELS READING TO MTALOC
;<4.MONITOR>MAGTAP.MAC.212, 23-Oct-78 12:43:31, EDIT BY MILLER
;REMOVE LABEL MTOPRS FROM MTA DISPATCH TABLE
;<4.MONITOR>MAGTAP.MAC.211, 19-Oct-78 14:55:16, EDIT BY R.ACE
;REARRANGED MTOPR DISPATCH TABLE AND LOGIC
;FIXED BUG IN .MOSTA MTOPR FUNCTION
;<4.MONITOR>MAGTAP.MAC.210, 16-Oct-78 09:24:40, EDIT BY MILLER
;MORE FIXES TO MATLOC
;<4.MONITOR>MAGTAP.MAC.209, 12-Oct-78 13:36:05, EDIT BY MILLER
;MAKE .MOLOC NOT REQUIRE JFN TO BE OPENED
;<4.MONITOR>MAGTAP.MAC.208, 12-Oct-78 11:27:17, EDIT BY MILLER
;FIX MTALOC
;<4.MONITOR>MAGTAP.MAC.207, 12-Oct-78 11:24:43, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.206, 11-Oct-78 11:21:46, EDIT BY MILLER
;FIX MTALOC TO PICK UP ARGS PROPERLY
;<4.MONITOR>MAGTAP.MAC.205,  2-Oct-78 13:46:33, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.204,  2-Oct-78 13:45:23, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.203,  2-Oct-78 13:40:43, EDIT BY MILLER
;<4.MONITOR>MAGTAP.MAC.202,  2-Oct-78 13:23:09, EDIT BY MILLER
;CHANGE .MOLOC FUNCTION
;<4.MONITOR>MAGTAP.MAC.201, 22-Aug-78 13:49:29, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.200, 17-Aug-78 21:13:38, EDIT BY PORCHER
;CHANGE "SETBW" TO "MTASBW" AND MAKE IT GLOBAL FOR TAPE
;<4.MONITOR>MAGTAP.MAC.199, 17-Aug-78 10:33:31, EDIT BY R.ACE
;TCO 1986 - FIX .MOSTA TO RETURN DEVICE TYPE CORRECTLY
;<4.MONITOR>MAGTAP.MAC.198, 15-Aug-78 23:58:55, Edit by MCLEAN
;DON'T BLOCK ON MOINF
;<4.MONITOR>MAGTAP.MAC.197, 28-Jul-78 00:00:48, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.196, 22-Jul-78 22:20:41, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.194, 22-Jul-78 22:16:54, Edit by MCLEAN
;TCO 1949 ADD WRITE/READ COUNT
;<4.MONITOR>MAGTAP.MAC.193, 21-Jul-78 14:55:27, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.192, 21-Jul-78 14:52:11, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.191, 21-Jul-78 03:38:17, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.190, 21-Jul-78 03:34:11, Edit by MCLEAN
;TCO 1950 FIX MTAINF SO IT HAS ERJMP AFTER UMOVEM
;<4.MONITOR>MAGTAP.MAC.189, 20-Jul-78 00:38:17, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.188, 20-Jul-78 00:16:34, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.187, 19-Jul-78 11:55:22, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.186, 19-Jul-78 01:34:45, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.185, 19-Jul-78 01:31:57, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.184, 18-Jul-78 14:11:55, Edit by MCLEAN
;FIX MTALN JSYS SO IT IS THE NEW ONE
;<4.MONITOR>MAGTAP.MAC.183, 18-Jul-78 00:41:55, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.182, 18-Jul-78 00:32:19, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.181, 18-Jul-78 00:08:53, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.180, 17-Jul-78 23:50:16, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.179, 17-Jul-78 23:44:13, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.178, 17-Jul-78 23:25:31, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.177, 17-Jul-78 23:23:36, Edit by MCLEAN
;<4.MONITOR>MAGTAP.MAC.176, 17-Jul-78 23:15:58, Edit by MCLEAN
;TCO 1939 PSI FOR ONLINE/OFFLINE MTA'S
;<4.MONITOR>MAGTAP.MAC.175, 14-Jul-78 01:03:35, Edit by MCLEAN
;ADD OPENED CHECK TO MTOPR
;<4.MONITOR>MAGTAP.MAC.174, 13-Jul-78 18:33:16, Edit by ENGEL
;PUT MTMXDM BACK IN MAGTAP WHERE IT BELONGS
;<4.MONITOR>MAGTAP.MAC.173, 12-Jul-78 03:17:58, Edit by MCLEAN
;TCO 1940 STARTED (RETURN TAPE STATUS)
;<4.MONITOR>MAGTAP.MAC.172, 22-Jun-78 14:48:47, Edit by FORTMILLER
;TCO 1925 Fix MTOPR function .MOINF to return Magtape type code
; in word .MOITP
;<4.MONITOR>MAGTAP.MAC.171, 15-Jun-78 15:31:32, Edit by MCLEAN
;TCO 1921 MAKE GDSTS RETURN DEFAULT DENSITY ALWAYS... NO LONGER
;SUPPORTED
;<4.MONITOR>MAGTAP.MAC.170, 14-Jun-78 07:11:04, Edit by JBORCHEK
;DELETE ASSIGNMENT TO MTMXDM, IT IS DONE CORRECTLY IN STG
;<4.MONITOR>MAGTAP.MAC.169,  6-Jun-78 15:11:19, EDIT BY MILLER
;CHECK FOR NEGATIVE CODE IN MAGTAP MTOPR
;<4-NEW>MAGTAP.MAC.168,  1-Jun-78 15:00:53, Edit by FORTMILLER
;ADD DX20 SUPPORT
;<3A.MONITOR>MAGTAP.MAC.7,  4-May-78 05:52:42, Edit by MCLEAN
;TEMP FIX TO REMOVE .MTT16
;<3A.MONITOR>MAGTAP.MAC.6,  2-May-78 23:05:53, Edit by MCLEAN
;PERMIT READ BACKWARDS FOR KS10
;<2BOSACK>MAGTAP.MAC.1, 24-Feb-78 01:41:48, EDIT BY BOSACK
;CHANGE TO NEW DEVICE/DATA ERROR BITS
;<3.SM10-RELEASE-3>MAGTAP.MAC.4,  9-Jan-78 16:29:10, EDIT BY ENGEL
;TCO #1890 FIX INCORRECT RECORD COUNT IN MTOPR .MOINF (REVERSE WORDS 6 AND 7)
;<3.SM10-RELEASE-3>MAGTAP.MAC.2, 13-Nov-77 14:41:03, Edit by MCLEAN
;READ BACKWARDS ILLEGAL ON KS10
;<4.MONITOR>MAGTAP.MAC.163,  5-Nov-77 00:24:01, EDIT BY CROSSLAND
;FIX MTOPR SO YOU CAN GET NUMBER OF HARD ERRORS.
;<4.MONITOR>MAGTAP.MAC.162,  5-Oct-77 10:13:29, Edit by HESS
;TCO 1873 - ADD FUNCTIONS TO MTALN JSYS
;<4.MONITOR>MAGTAP.MAC.161, 19-Aug-77 14:41:58, Edit by HESS
;ADD ROUTINE FOR TAPE TO CALL TO CLEAR EOF AND ABORTF

;COPYRIGHT (C) 1976,1977,1978,1979,1980,1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

	SEARCH PROLOG,PHYPAR
	TTITLE MAGTAP

;TEMP EXTERNAL DEFS

	EXTN <SETT20>

;SPECIAL AC DEFINITIONS USED HEREIN

DEFAC (U,Q1)			;UNIT NUMBER
DEFAC (IOS,Q2)			;STATUS BITS FROM MTASTS
DEFAC (STS,P1)			;DEVICE STATUS
DEFAC (JFN,P2)			;JFN
DEFAC (DEV,P4)			;DEVICE DISPATCH ADR


;DEFAULT VALUES FOR MAGTAPES

	MTSPCN==5		;MAX # OF SPACING OPERATIONS AT 1 TIME
	MINREC==4		;MINIMUM # OF WORDS FOR OUTPUT RECORD


;BIT DEFINITIONS FOR LH OF MTASTS

	OPN==1B0		;UNIT HAS BEEN OPENED
	OPND==:1B2		;UNIT WAS OPENED FOR DUMP MODE
	DMPWT==1B3		;WAITING FOR A DUMP MODE OP TO FINISH
	LTERR==1B4		;ERROR OCCURED ON LAST DUMP MODE OPER.
	BUFA==1B5		;BUFFERS HAVE BEEN ASSIGNED
	CLOF==1B6		;CLOSF IN PROGRESS
	MTOWT==1B7		;MTOPR IN PROGRESS
	MTIEL==1B8		;INHIBIT ERROR LOGGING
	MTNOWT==1B9		;DON'T SET MTOWT


;BITS IN RH OF MTASTS (DEFINED IN MONSYM)
;DATA STRUCTURE DEFINITIONS

DEFSTR (MTRS,MTANR1(U),35,18)	;RECORD SIZE IN HARDWARE BYTES
DEFSTR (MTDM,MTANR1(U),17,3)	;DATA MODE
DEFSTR (MTDN,MTANR1(U),14,4)	;DENSITY
DEFSTR (MTSTC,MTANR1(U),10,3)	;CLOSF FUNCTION COUNTER
DEFSTR (MTRBF,MTANR1(U),7,1)	;READING BACKWARDS FLAG
DEFSTR (MTPAR,MTANR1(U),6,1)	;PARITY
DEFSTR (MTFCN,MTANR1(U),5,4)	;LAST FUNCTION PERFORMED
DEFSTR (MTNTM,MTANR1(U),1,2)	;COUNT OF EOF'S WRITTEN
DEFSTR (MTBYT,MTANR2(U),17,18)	;INITIAL LH OF FILBYT
DEFSTR (MTBUF,MTANR2(U),35,18)	;POINTER TO START OF LIST OF BUF PAGES
DEFSTR (MTCUB,MTANR3(U),23,6)	;CURRENT USER BUFFER
DEFSTR (MTCSB,MTANR3(U),17,6)	;CURRENT SERVICE ROUTINE BUFFER
DEFSTR (MTUBW,MTANR3(U),11,6)	;USER BYTES PER WORD
DEFSTR (MTHBW,MTANR3(U),5,6)	;HARDWARE BYTES PER WORD
DEFSTR (MTCUP,MTANR4(U),35,18)	;CURRENT USER PAGE
DEFSTR (MTCIRB,MTANR4(U),17,18)	;CURRENT IORB IN USE
DEFSTR (MTUBP,MTANR5(U),35,18)	;USER BYTES PER PAGE
DEFSTR (MTUBB,MTANR5(U),17,18)	;USER BYTES PER BUFFER
DEFSTR (MTLIRB,MTANR6(U),35,18)	;LAST IORB ADR FOR DUMP MODE
DEFSTR (MTALTC,MTANR6(U),17,18)	;LAST TRANSFER COUNT

DEFSTR (MTNIR,MTARS1(U),35,6)	;# OF IORB'S QUEUED UP
DEFSTR (MTANIR,MTARS1,35,6)	;ABSOULTE VERSION OF MTNIR
DEFSTR (MTPPB,MTARS1(U),29,9)	;NUMBER OF PAGES PER BUFFER
DEFSTR (ABORTF,MTARS1,20,1)	;AN ERROR OCCURED AND IORB'S ABORTED

DEFSTR (IRFLG,MTIRSD,8,9)	;FLAGS FOR USE BY HIGH LEVEL ROUTINE
	MSKSTR (IRBFR,MTIRSD,1B0)	;BUFFER READY FOR USER
	MSKSTR (IRBFQ,MTIRSD,1B1)	;CURRENT BUFFER FLAG
	MSKSTR (IRBFA,MTIRSD,1B2)	;ACTIVE FLAG, IORB BEING FILLED
					; OR EMPTIED BY SERVICE ROUTINE
	MSKSTR (IRBAB,MTIRSD,1B3)	;IORB ABORTED DUE TO AN ERROR
	MSKSTR (IRBFF,MTIRSD,1B4)	;IORB IS FREE
DEFSTR (IRBUN,MTIRSD,17,9)	;UNIT NUMBER
DEFSTR (IRBPB,MTIRSD,35,18)	;POINTER TO BUFFER OF PAGE POINTERS
DEFSTR (IRBOC,MTIRSD+1,35,18)	;ORIGINAL COUNT


DEFINE MTERET (X) <
	IFNB <X>,<
	JRST [	MOVEI A,X
		MOVX IOS,MT%DVE
		IORB IOS,MTASTS(U)
		TQO <ERRF>
		RET]>
	IFB <X>,<
	JRST [	MOVX IOS,MT%DVE
		IORB IOS,MTASTS(U)
		TQO <ERRF>
		RET]>>
;MAGTAPE DISPATCH TABLE

	SWAPCD

MTADTB::DTBDSP (MTASET)		;SET DIRECTORY
	DTBDSP (MTANAM)		;LOOKUP NAME
	DTBDSP (MTAEXT)		;LOOKUP EXTENTION
	DTBDSP (MTAVER)		;LOOKUP VERSION
	DTBBAD (DESX9)		;PROTECTION INSERTION
	DTBBAD (DESX9)		;ACCOUNT INSERTION
	DTBBAD (DESX9)		;STATUS INSERTION
	DTBDSP (MTAOPN)		;OPENF
	DTBDSP (MTASQI)		;BIN/SIN
	DTBDSP (MTASQO)		;BOUT/SOUT
	DTBDSP (MTACLZ)		;CLOSF
	DTBDSP (MTAREN)		;RENAME
	DTBDSP (MTADEL)		;DELETE
	DTBDSP (MTDMPI)		;DUMPI
	DTBDSP (MTDMPO)		;DUMPO
	DTBDSP (MTAMNT)		;MOUNT
	DTBDSP (MTADSM)		;DISMOUNT
	DTBDSP (MTINID)		;INIT DIRECTORY
	DTBDSP (MTMTAP)		;MTOPR
	DTBDSP (MTGTS)		;GETSTS
	DTBDSP (MTSTS)		;SETSTS
	DTBDSP (MTRECO)		;RECORD OUT
	DTBDSP (RFTADN)		;READ TAD
	DTBDSP (SFTADN)		;SET TAD
	DTBDSP (BIOINP)		;SET JFN FOR INPUT
	DTBDSP (BIOOUT)		;SET JFN FOR OUTPUT
	DTBBAD (GJFX49)		;CHECK ATTRIBUTE

	DTBLEN==:.-MTADTB	;GLOBAL LENGTH OF DISPATCH TABLE
;ROUTINE TO INITIALIZE THE MAGTAP DATA STRUCTURES

	SWAPCD

MTAINI::MOVSI A,-MTAN		;SET UP TO INIT UNITS
MTINI2:	SETOM MTALCK(A)		;INIT LOCK WORD
	SETZM MTASTS(A)		;ZERO STATUS WORD ALSO
	SETZM TLABL0(A)		;CLEAR ALL STATUS BITS
	SETZM TLABL1(A)		;CLEAR MT STATUS
	AOBJN A,MTINI2		;LOOP BACK FOR ALL UNITS
	RET			;ALL DONE

;ROUTINE TO MOUNT A MAGTAPE UNIT

MTAMNT:	RETSKP


;ROUTINE TO DISMOUNT A MAGTAPE UNIT

MTADSM:	RETSKP


;ROUTINE TO INITIALIZE THE DIRECTORY OF A MAGTAPE

MTINID:	RETBAD (DESX9)


;ROUTINE TO SET THE DIRECTORY

MTASET:	RETBAD (GJFX32)	;NO FILES IN DIR


;ROUTINE TO LOOKUP A NAME ON A MAGTAPE UNIT

MTANAM:	RETBAD (DESX9)


;ROUTINE TO FIND AN EXTENTION

MTAEXT:	RETBAD (DESX9)


;ROUTINE TO FIND A VERSION

MTAVER:	MOVEI A,0
	RETSKP


;ROUITNE TO DO RENAME ON A MAGTAPE

MTAREN:	RETBAD (DESX9)


;ROUTINE TO DELETE

MTADEL:	RETBAD (DESX9)
;ROUTINE TO GET MAGTAP STATUS BITS

MTGTS::	HLRZ U,DEV		;SET UP UNIT NUMBER
	CALL UPDSTS		;UPDATE THE STATUS
	 RET			;NEED TO BLOCK
MTGTS0:	HRRZ A,MTASTS(U)	;GET CURRENT STATUS BITS
	LOAD B,MTALTC		;GET LAST TRANSFER COUNT
	XCTU [HRLZM B,3]	;GIVE IT TO USER
	SETZ B,0		;DENSITY (DEFAULT (NO LONGER SUPPORTED))
	DPB B,[POINTR A,MT%DEN]	;DOESNT HANDLE 1600 BPI TOO WELL
	LOAD B,MTPAR		;GET PARITY
	DPB B,[POINTR A,MT%EVP]
	RET			;RETURN WITH STATUS IN A


;ROUTINE TO SET THE MAGTAP STATUS BITS

MTSTS::	STKVAR <MTSTSA,MTSTSE>
	SETZM MTSTSE		;ZERO THE ERROR BIT
	MOVEM A,MTSTSA		;SAVE NEW STATUS SETTING
	HLRZ U,DEV		;SET UP UNIT NUMBER
;**;[1720] Change one line at MTSTS: +4L	JGZ	1-JUNE-80
;**;[1845] Replace one line at MTSTS: +4L with 3 Lines  RAS  13-APR-81
	CALL MTACLW		;[1845] WAIT FOR ACTIVITY TO STOP
	 RET			;[1845] NEED TO BLOCK
	CALL UPDSTS		;[1845] UPDATE STATUS
	 RET			;NEED TO BLOCK
	MOVE A,MTASTS(U)	;GET CURRENT STATUS
	TXNE A,MT%DAE!MT%DVE!MT%IRL!MT%EOF!MT%EOT
	SETOM MTSTSE		;THERE WAS AN ERROR AT START OF THIS
	MOVE A,MTSTSA		;GET BACK NEW SETTING
	ANDI A,MT%DAE!MT%DVE!MT%IRL!MT%EOT!MT%EOF!MT%SER!MT%EVP!MT%DEN
	MOVX B,MT%DAE!MT%DVE!MT%IRL!MT%EOT!MT%EOF!MT%SER!MT%EVP!MT%DEN
	ANDCAM B,MTASTS(U)	;CLEAR BITS BEING SPECIFIED BY USER
	IORB A,MTASTS(U)	;SET BITS FROM USER
	LDB B,[POINTR A,MT%EVP]	;GET PARITY
	STOR B,MTPAR
	HRRZ B,MTCUTB(U)	;GET UDB ADDRESS
	MOVE B,UDBCHR(B)	;GET THE CHARACTERISTICS WORD
	TXNE B,UC.625		;IS DRIVE CAPABLE OF 6250?
	JRST MTSTS2		;YES, DON'T STORE INTO DENSITY FIELD OF UDB
	LDB B,[POINTR A,MT%DEN]	;AND DENSITY (NOT GOOD FOR 1600 BPI)
	SKIPN B			;DEFAULT WANTED
	JRST [	LOAD B,JSMTD	;YES, GET DEFAULT DENSITY
		SKIPN B
		MOVEI B,MTDFDN	;IF NO JOB DEFAULT, USE SYSTEM DEFAULT
		JRST .+1]
	STOR B,MTDN
MTSTS2:	SKIPE MTSTSE		;ANY ERRORS AT START?
	TXNE A,MT%DAE!MT%DVE!MT%IRL!MT%EOT!MT%EOF
	RET			;IF THERE ARE STILL SOME ERRORS, RETURN
	TQZ <ERRF,EOFF>		;CLEAR ERROR FLAGS
	JE ABORTF,(U),R		;IF ABORTF NOT ON ALREADY, DONT CLEAR IT
	SETZRO ABORTF,(U)	;ZERO THE ABORT FLAG
	RET			;AND EXIT
;ROUTINE TO UPDATE MTASTS
;	CALL UPDSTS
;RETURNS +1:	NEEDS TO BLOCK
;	 +2:	OK

UPDSTA:	TDZA C,C		;ALWAYS DO UPDATE
UPDSTS:	MOVEI C,1		;DO NORMAL SEQUENTIAL STUFF
	CALL SETWLK		;GO SET WRITE LOCK BIT CORRECTLY
	JUMPE C,UPDST1		;IF FORCED UPDATE, GET TO IT
	LOAD A,MTFCN		;GET FUNCTION CODE OF LAST OPERATION
	CAIE A,IRFRED		;READ?
	CAIN A,IRFRDR		;OR READ BACKWARDS?
	SKIPA IOS,MTASTS(U)	;YES
	JRST UPDST1		;NO, GO WAIT FOR ACTIVITY TO FINISH
	TXNN IOS,OPND		;OPENED FOR SEQUENTIAL READ?
	RETSKP			;YES, STATUS GETS UPDATED LATER
UPDST1:	CALL MTACLW		;WAIT FOR ACTIVITY TO STOP
	 RET			;NEED TO BLOCK
	CALL MTFLSH		;GO UPDATE STATUS FROM EACH IORB
	 TQZ <BLKF>		;DONT WANT TO BLOCK
	CALL SETBOT		;SET BOT BIT IN STATUS WORD
	RETSKP			;ALL DONE



;ROUTINE TO SET THE WRITE LOCK BIT CORRECTLY IN MTASTS

SETWLK:	HRRZ A,MTCUTB(U)	;GET UDB ADR
	MOVE A,UDBSTS(A)	;GET STATUS OF DRIVE
	MOVX B,MT%ILW		;GET WRITE LOCK BIT IN STATUS WORD
	ANDCAM B,MTASTS(U)	;START BY CLEARING IT
	TXNE A,US.WLK		;IS THIS DRIVE WRITE LOCKED?
	IORM B,MTASTS(U)	;YES, SET THE BIT IN THE STATUS WORD
	RET			;ALL DONE


;ROUTINE TO SET UP MT%BOT

SETBOT:	HRRZ A,MTCUTB(U)	;GET UDB ADR
	MOVE A,UDBSTS(A)	;GET STATUS BITS
	MOVX B,MT%BOT		;FIRST CLEAR THE BIT
	ANDCAM B,MTASTS(U)
	TXNE A,US.BOT		;AT BOT?
	IORM B,MTASTS(U)	;YES, SET THE BIT
	RET
;ROUTINE TO OPEN A MAG TAPE UNIT FOR READING OR WRITING
;CALLED BY OPENF

MTAOPN::STKVAR <DRVTYP>		;SAVE DRIVE TYPE HERE
	SETZM DRVTYP		;ASSUME NOT TU7X
	HLRZ U,DEV		;SET UP UNIT NUMBER
	TXNE STS,READF!WRTF	;MUST BE OPENED FOR AT LEAST ONE
	TXNE STS,XCTF!RNDF!NONXF
	RETBAD (OPNX15)		;ILLEGAL MODE FOR OPENING
	SKIPN A,MTCUTB(U)	;GET UDB ADR
	JRST MTAOFL		;IF NO UNIT, PRETEND IT IS OFF-LINE
	HRRZS A			;GET ADDRESS ONLY
	LOAD B,USTYP,(A)	;GET DRIVE TYPE
	CAIL B,.UTT70		;A TU7X?
	CAILE B,.UTT73		;STILL?
	SKIPA			;NO.
	JRST [	SETOM DRVTYP	;YES. SAY SO
		JRST MTAOP2]	;AND PROCEED
	JN USOFL,(A),[CALL CHKOFL ;SEE IF OPENS ALLOWED IF OFFLINE
		 JRST MTAOFL	;NO
		JRST .+1]	;YES
MTAOP2:	LDB A,[POINT 4,STS,35]	;GET DATA MODE
	CAIE A,17		;MUST BE 0 OR 17
	JUMPN A,MTAILM		;ILLEGAL MODE IF NOT 0 OR 17
	LOCK MTALCK(U),<CALL LCKTST>	;PREVENT MULTIPLE OPENS
	MOVX IOS,OPN		;SEE IF UNIT IS ALREADY OPENED
	TDNE IOS,MTASTS(U)	;...
	JRST BUSY		;YES, DONT OPEN IT TWICE
	CAIN A,17		;DUMP MODE?
	TXO IOS,OPND		;YES, REMEMBER THAT FOR CLOSE
	TXC STS,WRTF!READF	;SEE IF OPEN FOR BOTH READ AND WRITE
	TXCN STS,WRTF!READF	;ONLY ALLOWED IF DUMP MODE
	CAIN A,17		;OPEN FOR BOTH, IS THIS DUMP MODE?
	SKIPA			;YES, OK
	JRST MTAISM		;ILLEGAL SEQUENTIAL I/O MODE
	MOVEM IOS,MTASTS(U)	;MARK THAT UNIT IS NOW OPENED
	CALL SETWLK		;SET THE WRITE LOCK BIT CORRECTLY
	MOVE IOS,MTASTS(U)	;GET STATUS AGAIN
	SKIPE DRVTYP		;A TU7X?
	JRST MTOPNX		;YES. DON'T CHECK WRITE LOCKED
	TXNE IOS,MT%ILW		;IS DRIVE WRITE LOCKED?
	TQNN <WRTF>		;YES, IS THIS A WRITE OPENF?
	SKIPA			;NO, THEN DONT COMPLAIN ABOUT WRITE LOCK
	JRST MTAWLK		;GO COMPLAIN THAT DRIVE IS WRITE LOCKED
MTOPNX:	SETZM MTANR1(U)		;INITIALIZE PER UNIT STORAGE
	SETZM MTANR2(U)
	SETZM MTANR3(U)
	SETZM MTANR4(U)
	SETZM MTANR5(U)
	SETZM MTANR6(U)
	SETZM MTARS1(U)
	LOAD A,JSMTR		;GET DEFAULT RECORD SIZE
	SKIPG A			;IS THE DEFAULT SET?
	MOVEI A,MTDFRS		;NO, USE SYSTEM DEFAULT VALUE
	STOR A,MTRS		;USE THIS UNLESS CHANGED BEFORE BIN 1
	LOAD A,JSMTM		;GET DATA MODE
	SKIPG A			;IS IT SET YET?
	MOVEI A,MTDFDM		;NO, USE SYSTEM DEFAULT VALUE
	STOR A,MTDM
	;..
	;..
	CALL MTASBW		;SET UP BYTES PER WORD, ETC.
	 JRST MTOPNF		;FAILED
	LOAD A,JSMTD		;AND ALSO GET THE DEFAULT DENSITY
	SKIPG A			;SPECIFIED?
	MOVEI A,MTDFDN		;NO, USE SYSTEM DEFAULT VALUE
	STOR A,MTDN
	LOAD A,JSMTP		;GET DEFAULT PARITY
	STOR A,MTPAR		;STORE PARITY
	SETZM FILCNT(JFN)	;INITIALIZE COUNT OF BYTES IN BUFFER
	SETZM FILLEN(JFN)	;INITIALIZE LENGTH OF CURRENT BUFFER
	SETZM FILBYN(JFN)	;AND BYTE POSITION
	MOVEI A,^D36		;SET UP BYTE POSITION
	DPB A,PBYTPO		;STORE IN FILBYT(JFN)
	HLRZ A,FILBYT(JFN)	;GET INITIAL BYTE POINTER
	STOR A,MTBYT		;SAVE FOR LATER
	SETZRO MTNIR		;INIT COUNT OF IORB'S IN QUEUE
	MOVEI A,MTBUFN*MTIRBL	;NOW INITIALIZE THE IORB'S
	IMULI A,(U)		;GET START OF IORB AREA
	ADDI A,MTIRBF		;GET ABS ADR OF IORB
	MOVSI B,-MTBUFN		;SET UP COUNT
MTAOP1:	MOVSI C,(A)		;ZERO IORB
	HRRI C,1(A)
	SETZM 0(A)
	BLT C,MTIRBL-1(A)	;INITIALIZED TO ALL ZEROS
	SETONE IRBFF,(A)	;YES, MARK ALL BUFFERS AS FREE
	STOR U,IRBUN,(A)	;SAVE UNIT NUMBER FOR INTERRUPT LEVEL
	ADDI A,MTIRBL		;STEP TO NEXT IORB
	AOBJN B,MTAOP1		;LOOP BACK FOR ALL IORB'S
;**;[2961] change one line at mtaop1+10   rah    jun 15 83
;**;[2954] change one line at mtaop1+10     rah    jun 15 83
	MOVEI A,<MAXPPB+1>*MTBUFN	;[2954][2961]GET ADDRESS OF START OF LIST
	IMULI A,(U)		;  FOR THIS UNIT
	ADDI A,MTAPBF		;ADD IN BASE ADR OF PAGE BUFFER AREA
	STOR A,MTBUF		;REMEMBER ADR OF LIST
	STOR A,MTCUP		;SET UP CURRENT P TO BE EMPTIED
	SETZRO MTCUB		;START AT BUFFER 0
	SETZRO MTCSB		;FOR BOTH USER AND SERVICE ROUTINE BUF'S
	MOVE A,JOBNO		;GET USER PROGRAM NAME FOR SYSERR
	MOVE B,JOBPNM(A)
	HRRZ C,MTCUTB(U)	;GET UDB ADR
	MOVEM B,UDBPNM(C)	;STORE PROGRAM NAME IN UDB
	HRR B,JOBDIR(A)		;GET LOGGED-IN DIRECTORY
	HRLI B,USRLH		;MAKE IT A USER NUMBER
	MOVEM B,UDBUDR(C)	;STORE IT IN UDB ALSO
	UNLOCK MTALCK(U)	;UNLOCK THE LOCK ON THIS UNIT
	RETSKP			;SUCCESSFULLY OPENED
BUSY:	SKIPA A,[OPNX9]		;UNIT ALREADY OPENED
MTOPNF:	SETZM MTASTS(U)		;CLEAR STATUS WORD
	UNLOCK MTALCK(U)	;UNLOCK THIS UNIT
	RET			;NOT OPENED!

MTAILM:	MOVEI A,OPNX14		;ILLEGAL MODE
	RET

MTAOFL:	MOVEI A,OPNX8		;DEVICE IS OFF-LINE
	RET

MTAWLK:	MOVEI A,OPNX25		;RETURN WRITE LOCKED ERROR CODE
	JRST MTOPNF		;OPENF FAILED

MTAISM:	MOVEI A,OPNX15		;ILLEGAL SEQUENTIAL I/O MODE
	JRST MTOPNF		;GO UNLOCK AND BOMB OUT
;ROUTINE TO SET UP MTUBW, MTHBW, MTUBB, AND MTUBP

MTASBW:: LOAD A,MTDM		;GET DATA MODE
	CAILE A,MTMXDM		;LEGAL MODE?
	RETBAD (MTOX5)		;NO
	MOVE A,HBWTB(A)		;GET BYTES PER WORD
	STOR A,MTHBW		;SAVE HARDWARE BYTES PER WORD
	LDB A,PBYTSZ		;GET SIZE OF USER BYTES
	MOVEI C,^D36		;GET USER BYTES PER WORD
	SKIPN A			;SIZE = 0?
	MOVEI A,^D36		;YES, PRETEND IT IS WORD MODE
	IDIV C,A		;GET BYTES PER WORD
	STOR C,MTUBW		;USER BYTES PER WORD
	LOAD A,MTRS		;NOW CALCULATE USER BYTES PER BUFFER
	IMUL A,C		;RECORD SIZE * USER BYTES PER WORD
	OPSTR <IDIV A,>,MTHBW	;NOW HAVE DESIRED VALUE
	SKIPE B			;ANY REMAINING BITS IN RECORD?
	AOS A			;YES, INCR USER BYTES PER BUFFER
	STOR A,MTUBB		;SAVE COUNT OF USER BYTES PER BUFFER
	IMULI C,PGSIZ		;GET USER BYTES PER PAGE
	STOR C,MTUBP		;SAVE USER BYTES PER PAGE
	IDIV A,C		;SEE IF RECORD SIZE TOO LARGE
	SKIPE B			;GET NUMBER OF PAGES PER BUFFER
	AOS A			;PARTIAL PAGE
	CAILE A,MAXPPB		;WITHIN LEGAL RANGE?
	RETBAD (MTOX4)		;NO
	RETSKP			;EXIT OK


HBWTB:	1			;TABLE OF HARDWARE BYTES PER WORD
	1			;36 BIT BYTES
	6			;6 BIT BYTES
	5			;7 BIT BYTES
	4			;8 BIT BYTES
	1			;36 BIT BYTES (HI-DENSITY)
MTMXDM==:.-HBWTB-1
;ROUTINE TO CLOSE A MAGTAPE UNIT
;CALLED BY CLOSF

MTACLZ::HLRZ U,DEV		;SET UP UNIT NUMBER
	MOVX IOS,MTOWT!DMPWT	;CLEAR WAIT FLAGS
	ANDCAB IOS,MTASTS(U)
	TXNN IOS,CLOF		;ALREADY STARTED THE CLOSE?
	JRST [	SETZRO MTSTC	;NO, INITIALIZE CLOSE FUNCTION COUNT
		MOVX IOS,CLOF	;AND MARK THAT CLOSE IS IN PROGRESS
		IORB IOS,MTASTS(U)
		TXNN IOS,OPND	;DUMP MODE?
		JRST .+1	;NO
		INCR MTSTC	;YES, DONT FORCE OUT LAST BUFFER
		JRST .+1]
	TXNE A,CZ%ABT		;AN ABORT TYPE CLOSE?
	JRST MTACLA		;YES, GO ABORT
	CALL MTACLW		;WAIT FOR ACTIVITY TO CEASE
	 RET			;NEED TO BLOCK
	MOVE IOS,MTASTS(U)	;GET STATUS
;**;[1743] Remove following two lines at MTACLZ:+16L  RAS   11-JUN-80
;	TXNN IOS,BUFA!OPND	;ANY BUFFERS?
;	JRST MTACLR		;NO, NOTHING TO DO
	TQNE <WRTF>		;WRITING?
	JRST MTACL1		;YES, GO CLOSE THE WRITE
	TXNN IOS,OPND		;DUMP MODE
	TQNN <READF>		;NO, READING?
	JRST MTACLR		;NOTHING TO DO
	SETZRO ABORTF,(U)	;CLEAR ERROR ABORT BIT
	CALL MTPOS0		;SEQUENTIAL READ, GO LEAVE TAPE IN
	 RET			; CORRECT POSITION
	CALL MTACLW		;WAIT FOR ACTIVITY TO STOP
	 RET			;NEED TO BLOCK
	JRST MTACLR
MTACL1:	CALL MTACLW		;WAIT FOR ALL ACTIVITY TO STOP
	 RET			;NEED TO BLOCK
	MOVE IOS,MTASTS(U)	;GET STATUS FLAGS
	TXNE IOS,MT%DAE!MT%DVE	;ERROR IN PROGRESS?
	RETBAD (IOX5)		;YES, GIVE ERROR RETURN
	LOAD A,MTSTC		;GET CLOSE FUNCTION COUNT
	CAIL A,MTACLN		;FINISHED YET?
	JRST MTACLR		;YES, GO RELEASE PAGES
	XCT MTACLT(A)		;PERFORM THE NEXT FUNCTION IN LIST
	 RET			;NEED TO BLOCK
	INCR MTSTC		;STEP TO NEXT FUNCTION TO BE DONE
	JRST MTACL1		;LOOP BACK TIL CLOSE IS COMPLETE

MTACLT:	CALL MTRECO		;FORCE OUT THE LAST PARTIAL BUFFER
	CALL MTCHKE		;CHECK IF EOF'S NEED WRITING
	CALL MTABKE		;THEN BACKSPACE OVER SECOND EOF
	CALL MTFLSH		;FLUSH OUT ALL REMAINING IORBS
MTACLN==.-MTACLT		;NUMBER OF FUNCTIONS IN TABLE

MTACLA:	NOSKED			;DONT ALLOW SCHEDULING
	CALL MTAKIL		;KILL ALL REQUESTS IN QUEUE
	OKSKED
MTCLA1:	LOAD A,MTNIR		;GET NUMBER OF IORBS STILL ACTIVE
	JUMPE A,MTACLR		;IF NONE, CLOSE OUT
	MOVEI A,MTAWAT		;WAIT FOR IT TO FINISH
	HRL A,U
	MDISMS
	JRST MTCLA1		;LOOP BACK TO CHECK IF DONE
;ROUTINE TO CHECK IF EOF'S SHOULD BE WRITTEN
;	CALL MTCHKE
;RETURNS +1:	NEED TO BLOCK
;	 +2:	EOF'S WRITTEN OR NOT NEEDED

MTCHKE:	LOAD A,MTFCN		;GET LAST FUNCTION PERFORMED
	CAIE A,IRFWRT		;A WRITE?
	CAIN A,IRFWTM		;OR WRITE TAPE MARK?
	SKIPA A,[2]		;YES, GO MAKE SURE TWO EOF'S ARE WRITTEN
	RETSKP			;NO NEED FOR ANY EOF'S
	CALLRET MTAWTM		;GO WRITE TAPE MARKS


;ROUTINE TO BACKSPACE OVER SECOND TAPE MARK

MTABKE:	LOAD A,MTFCN		;GET LAST FUNCTION
	CAIE A,IRFWTM		;MUST HAVE BEEN WRITE TAPE MARK
	RETSKP			;NOTHING TO BE DONE IF NOT
	LOAD A,MTNTM		;GET # OF TAPE MARKS WRITTEN
	CAIE A,2		;EXACTLY 2?
	RETSKP			;NO, ALL DONE
	CALL GETIRB		;GET AN IORB TO USE
	 RET			;MUST WAIT FOR ONE
	MOVEI B,IRFBSB		;GET FUNCTION CODE OF BACKSPACE BLOCK
	MOVEI C,1		;DO ONE
	CALL MTPIRQ		;QUEUE IT UP
	RETSKP			;ALL DONE

;SPECIAL ROUTINE USED BY TAPE TO "RETIRE" ALL IORBS.
;THIS IS NEEDED WHEN DUMP MODE AND SEQ MODE CONFLCIT
;E.G. IF A LABEL IS READ IN DUMP MODE AND THEN A
;POSITIONING OPERATION IS PERFORMED WITH THE TAPE
;OPENED FOR SEQ ACCESS, THE CODE IN MAGTAP REALLY SCREWS UP.

MTAFLA::CALL MTFLSH		;RETIRE ALL REQUESTS
	 TQZ <BLKF>		;IGNORE BLOCK REQUEST
	SETZM FILLEN(JFN)
	SETZM FILCNT(JFN)
	SETZM FILBYN(JFN)	;NO MORE BUFFER ACTIVE
	RET			;AND DONE
;ROUTINE TO WAIT FOR ALL IORB'S TO BE FINISHED
;	CALL MTACLW
;RETURNS +1:	NEEDS TO BLOCK
;	 +2:	NO IORB'S LEFT IN QUEUE

MTACLW:	LOAD A,MTNIR		;GET NUMBER OF IORB'S IN QUEUE
	JUMPE A,RSKP		;IF NONE, RETURN
	MOVEI A,MTAWAT		;SET UP TO WAIT FOR REQUESTS TO FINISH
	HRL A,U			;FOR THIS UNIT
	TXO STS,BLKF		;SET WAIT FLAG FOR IO
	RET			;AND GIVE NON-SKIP RETURN

MTACLR:	CALL MTARLB		;RELEASE PAGES (IF ANY)
	SETZM MTASTS(U)		;INITIALIZE STATUS
	RETSKP			;CLOSE IS COMPLETE


;ROUTINE TO WAIT FOR ALL REQUESTS TO BE FINISHED

	RESCD

MTAWAT::LOAD B,MTANIR,(A)	;GET NUMBER OF IORB'S OUTSTANDING
	JUMPLE B,1(4)		;IF 0, RETURN +2
	JRST 0(4)		;OTHERWISE CONTINUE WAITING

	SWAPCD


;ROUTINE TO RETURN ALL IORBS TO THE FREE STATE AND CHECK FOR I/O ERRORS
;	CALL MTFLSH
;RETURNS +1:	NEED TO BLOCK
;	 +2:	OK

MTFLSH::SAVEQ
	CALL MTACLW		;WAIT FOR ALL QUIET
	 RET			;NEED TO BLOCK
	MOVEI Q3,MTBUFN		;SET UP COUNT OF IORBS
MTFL0:	CALL GETIRB		;GET NEXT IORB
	 JRST MTFL1		;IGNORE ERRORS, (THEY WERE ADDED TO MTASTS)
	CALL IRBDON		;YES, MARK IT DONE
	 JFCL			;IGNORE ERRORS
MTFL1:	LOAD B,MTCSB		;STEP TO NEXT IORB
	AOS B
	IDIVI B,MTBUFN
	STOR C,MTCSB
	SOJG Q3,MTFL0		;LOOP BACK FOR ALL IORBS
	TQZ <BLKF>		;MAKE SURE WAIT FLAG IS NOT SET
	RETSKP			;ALL FLUSHED OUT
;ROUTINE TO DO SEQUENTIAL INPUT FROM MAGTAPE

MTASQI::HLRZ U,DEV		;SET UP UNIT NUMBER
	CALL MTAASB		;GO ASSIGN BUFFER SPACE (IF NEEDED)
	 MTERET ()		;NO ROOM IN JSB FOR BUFFERS
	MOVX IOS,MTOWT		;CLEAR MTOPR WAIT FLAG
	ANDCAB IOS,MTASTS(U)
	LOAD A,MTFCN		;GET LAST FUNCTION DONE
	CAIE A,IRFRED		;LAST ONE A READ?
	CAIN A,IRFRDR		;OR READ REVERSE?
	JRST MTSQI6		;YES, DONT NEED TO UPDATE STATUS
	CALL UPDSTS		;UPDATE STATUS
	 RET			;NEED TO BLOCK
MTSQI6:	CALL CHKERI		;SEE IF ANY ERRORS
	 RET			;YES, DONT GO ANY FURTHER
	MOVE A,FILBYN(JFN)	;SEE IF THE BUFFER IS EMPTY YET
	CAMGE A,FILLEN(JFN)	;...
	JRST MTSQI1		;NO, JUST STEP TO NEXT PAGE IN BUFFER
	JUMPE A,MTSQI5		;IF NO BUFFER YET, DONT CALL IRBDON
MTSQI0:	CALL CLRINP		;CLEAR FILLEN ETC
	 MTERET ()		;ERROR
MTSQI5:	LOAD A,MTRS		;GET RECORD SIZE
	MOVEI B,IRFRED		;MARK THAT A READ IS BEING DONE
	LOAD C,MTRBF		;GET READ BACKWARDS FLAG
	SKIPE C			;READING BACKWARDS?
	MOVEI B,IRFRDR		;YES, GET CORRECT FUNCTION CODE
	CALL MTIRQI		;QUEUE UP ANY FREE IORBS FOR FILLING
	 RET			;ERROR OCCURED
	CALL GETUBF		;GET NEXT IORB TO BE EMPTIED
	 RET			;MUST WAIT FOR ONE TO FILL UP
	JUMPE B,MTSQI0		;IF NO CHARACTERS IN IORB, GET ANOTHER
	OPSTR <IMUL B,>,MTUBW	;CALCULATE USER BYTES IN BUFFER
	OPSTR <IDIV B,>,MTHBW	; HDW BYTES * USER BPW / HDW BPW
	SKIPE C			;PARTIAL BYTE?
	AOS B			;YES, COUNT TOTAL BYTES BY ONE
	LOAD C,MTUBB		;GET MAX USER BYTES PER BUFFER
	CAMLE B,C		;LIMIT TO MAX BYTES
	MOVE B,C		;...
	MOVEM B,FILLEN(JFN)	;THIS = # OF BYTES TO BE BIN'D OR SIN'D
	SETZM FILBYN(JFN)	;SET BYTE NUMBER TO ZERO
	SETZM FILCNT(JFN)	;ZERO COUNT TOO
	JE MTRBF,,MTSQI1	;READING BACKWARDS?
	IDIVI B,PGSIZ		;YES, GET NUMBER OF PAGES OF DATA
	SKIPE C			;PARTIAL PAGES INCLUDED
	AOS B
	MOVEI B,-1(B)		;PAGES GO FROM 0 TO N-1
	OPSTRM <ADDM B,>,MTCUP	;START AT END OF LIST OF PAGES
	;..
	;..
MTSQI1:	SKIPLE FILCNT(JFN)	;ARE THERE ANY MORE BYTES IN BUFFER
	JRST MTSQI2		;YES
	LOAD A,MTCUP		;GET NEXT BUFFER PAGE TO BE EMPTIED
	MOVE A,(A)		;GET VIRTUAL ADDRESS OF THE PAGE
	OPSTR <HRL A,>,MTBYT	;SET UP BYTE POINTER
	MOVEM A,FILBYT(JFN)	;SAVE BYTE POINTER FOR BIN/SIN
	MOVE A,FILLEN(JFN)	;GET LENGTH OF BUFFER
	SUB A,FILBYN(JFN)	;GET NUMBER OF BYTES LEFT IN BUFFER
	LOAD B,MTUBP		;GET NUMBER OF USER BYTES PER PAGE
	CAMLE A,B		;IS THERE MORE THAN 1 PAGE OF BYTES
	MOVE A,B		;YES, LIMIT COUNT TO 1 PAGE ONLY
	MOVEM A,FILCNT(JFN)	;SAVE COUNT OF BYTES IN THIS PAGE
	JN MTRBF,,MTSQI3	;IF READING BACKWARDS, GO FIX UP FILBYT
	INCR MTCUP		;STEP TO NEXT PAGE IN BUFFER
MTSQI2:	SOS FILCNT(JFN)		;NOW GET THE NEXT BYTE
	AOS FILBYN(JFN)		;DECREMENT COUNT AND INCREMENT POSITION
	ILDB A,FILBYT(JFN)	;GET BYTE FROM BUFFER
	RET			;GIVE SUCCESSFUL RETURN


MTSQI3:	DECR MTCUP		;STEP TO NEXT USER PAGE
	MOVE C,FILLEN(JFN)	;GET NUMBER OF BYTES ON THIS PAGE
	SUB C,FILBYN(JFN)	;GET NUMBER OF BYTES LEFT IN RECORD
	IDIV C,B		;DIVIDE BY USER BYTES PER PAGE
	JUMPE D,MTSQI2		;IF ON A PAGE BOUNDRY, USE FULL COUNT
	MOVEM D,FILCNT(JFN)	;IF FIRST TIME THRU, USE THIS COUNT
	SUB B,D			;GET NUMBER OF BYTES TO SKIP
	OPSTR <IDIV B,>,MTUBW	;SPLIT INTO WORDS AND BYTES
	ADDM B,FILBYT(JFN)	;STEP OVER THE FULL WORDS
MTSQI4:	SOJL C,MTSQI2		;THEN STEP OVER BYTES (IF ANY)
	IBP FILBYT(JFN)
	JRST MTSQI4		;LOOP BACK TIL ALL BYTES SKIPPED
;ROUTINE TO WAIT FOR AN IORB TO GO INACTIVE
;ACCEPTS IN A/	IORB ADR
;	JRST MTAWTR
;RETURNS +1:	ALWAYS, WITH BLKF SET AND A SET UP FOR MDISMS

MTAWTR:	HRLI A,MTARWT		;SET UP FOR DISMIS
	MOVSS A
	TQO <BLKF>		;MARK THAT ROUTINE WANTS TO BLOCK
	RET			;GO BLOCK


;ROUTINE TO WAIT FOR AN IORB TO BECOME READY

	RESCD

MTARWT::JN IRBFA,(A),0(4)	;IF STILL ACTIVE, TAKE NON-SKIP RET
	JRST 1(4)		;NO LONGER ACTIVE

	SWAPCD

;ROUTINE TO CLEAR EOFF AND ABORTF FOR UNIT IN A

MTACEF::MOVX IOS,MT%EOF!MT%EOT	;BITS TO CLEAR
	ANDCAB IOS,MTASTS(A)	;CLEAR THEM
	TQZ <EOFF,ERRF>		; AND THESE ALSO (IN STS)
	SETZRO ABORTF,(A)	; AND THIS
	RET			;RETURN
;ROUTINE TO DO SEQUENTIAL OUTPUT
;CALLED FROM IO

MTASQO::STKVAR <MTSQOB>
	MOVEM A,MTSQOB		;SAVE THE BYTE
	HLRZ U,DEV		;SET UP UNIT
	MOVX IOS,MTOWT		;CLEAR MTOPR WAIT FLAG
	ANDCAB IOS,MTASTS(U)
	CALL CHKERO		;CHECK FOR ERRORS
	 RET			;THERE ARE SOME, EXIT NOW
	CALL MTAASB		;ASSIGN BUFFERS IF NEEDED
	 MTERET ()		;NO ROOM IN JSB FOR BUFFERS
	SKIPG FILLEN(JFN)	;IS THIS THE VERY FIRST TIME THROUGH?
	JRST [	CALL GETIRB	;GET NEXT IORB TO USE
		 RET		;WAIT FOR AN IORB
		JRST MTSQO2]	;GO USE THIS BUFFER FOR FILLING
	MOVE A,FILBYN(JFN)	;GET BYTE COUNT
	CAMGE A,FILLEN(JFN)	;ANY BYTES LEFT IN THIS BUFFER?
	JRST MTSQO1		;YES, GO STEP TO NEXT PAGE
	CALL MTSQO0		;GO OUTPUT THE BUFFER
	CALL GETIRB		;GET NEXT BUFFER FOR USER TO FILL
	 RET			;NONE AVAILABLE, GO WAIT FOR A BUFFER
MTSQO2:	CALL CHKERO		;CHECK FOR ERRORS
	 RET			;ERRORS EXIST
	LOAD A,MTUBB		;GET USER BYTES PER BUFFER
	MOVEM A,FILLEN(JFN)	;SET UP NUMBER OF BYTES TO BE BOUT'ED
	SETZM FILBYN(JFN)	;START AT BYTE 0
	SETZM FILCNT(JFN)	;GUARANTEE TO SET UP FILCNT
MTSQO1:	SKIPLE FILCNT(JFN)	;ANY BYTES LEFT ON THIS PAGE?
	JRST MTSQO3		;YES, GO FINISH OUT THIS PAGE
	LOAD A,MTCUP		;GET POINTER TO CURRENT PAGE
	INCR MTCUP		;STEP TO NEXT PAGE
	MOVE A,(A)		;GET ADDRESS OF BUFFER PAGE
	OPSTR <HRL A,>,MTBYT	;SET UP FILBYT
	MOVEM A,FILBYT(JFN)
	HRLI B,0(A)		;ZERO BUFFER
	HRRI B,1(A)
	SETZM 0(A)
	BLT B,PGSIZ-1(A)
	MOVE B,FILLEN(JFN)	;GET LENGTH OF BUFFER
	SUB B,FILBYN(JFN)	;GET REMAINING BYTES IN BUFFER
	LOAD A,MTUBP		;GET USER BYTES PER PAGE
	CAML A,B		;ENOUGH BYTES LEFT IN BUFFER?
	MOVE A,B		;NO, SET FILCNT CORRECTLY
	MOVEM A,FILCNT(JFN)	;SET UP COUNT OF BYTES TO BE BOUT'ED
MTSQO3:	SOS FILCNT(JFN)		;NOW PUT IN THE ORIGINAL BYTE
	AOS FILBYN(JFN)		;KEEP THE COUNTS RIGHT
	MOVE A,MTSQOB		;GET BACK THE BYTE
	IDPB A,FILBYT(JFN)	;PUT THE BYTE INTO THE BUFFER
	RET			;AND GIVE SUCCESSFUL RETURN
;ROUTINE TO WRITE OUT A PARTIAL BUFFER
;	CALL MTRECO
;RETURNS +1:	ERROR
;	 +2:	DONE

MTRECO::HLRZ U,DEV		;SET UP UNIT NUMBER
	MOVE IOS,MTASTS(U)	;GET STATUS BITS
	TQNN <OPNF>		;CHECK OPENED
	RETBAD (IOX2)		;NOT (CAN GET HERE ON MTOPR)
	TQNE <WRTF>		;OPENED FOR WRITE?
	TXNE IOS,OPND		;AND NOT IN DUMP MODE?
	RETBAD (IOX9)		;NO, RECORD OUT LEGAL FOR SEQUENTIAL WRITE ONLY
	SKIPLE FILLEN(JFN)	;ANY BUFFERS SET UP YET?
	SKIPG FILBYN(JFN)	;YES, ANY THING IN THEM YET?
	RETSKP			;NO, NOTHING TO DO
	CALL MTSQO0		;OUTPUT THE BUFFER
	RETSKP			;ALL DONE



;ROUTINE TO OUTPUT A BUFFER AS SPECIFIED BY FILBYN, FILCNT, AND FILLEN
;	CALL MTSQO0
;RETURNS +1:	NEEDS TO BLOCK
;	 +2:	BUFFER HAS BEEN QUEUED

MTSQO0:	CALL GETCSB		;GET CURRENT IORB BEING USED
	LOAD B,MTHBW		;GET RECORD SIZE FOR OUTPUT
	LOAD D,MTUBW		;GET USER BYTES PER WORD
	IMUL B,FILBYN(JFN)	;BYN * HBW / UBW
	IDIV B,D
	SKIPE C			;ANY PARTIAL BYTES?
	AOS B			;YES, WRITE OUT PARTIAL BYTE
	LOAD D,MTHBW		;NOW GET MIN # OF HDW BYTES PER RECORD
	IMULI D,MINREC		;GET # OF BYTES IN MIN RECORD
	CAMGE B,D		;IS THIS RECORD TOO SMALL?
	MOVE B,D		;YES, MAKE IT THE MINIMUM SIZE
	MOVEI C,IRFWRT		;FUNCTION IS WRITE
	CALL MTAIRQ		;QUEUE UP THIS IORB
	SETZM FILLEN(JFN)	;MARK THAT BUFFER WAS QUEUED UP
	SETZM FILBYN(JFN)
	SETZM FILCNT(JFN)
	MOVX C,MT%EOT		;CHECK FOR EOT
	TDNN C,MTASTS(U)	;...
	RET			;NOT AT EOT
	TQO <ERRF>		;SET ERROR FLAG
	RET			;WILL BE NOTICED LATER
;ROUTINE TO ASSIGN BUFFER SPACE IN THE JSB
;THIS ROUTINE SETS UP MTBUF, MTCUB, AND MTNBF
;ACCEPTS U/	UNIT #
;	CALL MTAASB
;RETURNS +1:	NO ROOM IN JSB FOR BUFFERS
;	 +2:	BUFFERS ASSIGNED
;**;[3111] ADD 2 LINES AT MTAASB+5
MTAASB:	MOVX A,BUFA		;BUFFERS ALREADY ASSIGNED?
	TDNE A,MTASTS(U)	;...
	RETSKP			;YES, NO NEED TO GO ANY FURTHER
	SAVEP			;SAVE PERMANENT ACS
	LOAD B,MTRS		;GET RECORD SIZE
	OPSTR <IDIV B,>,MTHBW	;GET NUMBER OF WORDS PER RECORD
	SKIPE C			;[3111] WAS THERE A REMAINDER
	AOS B			;[3111] YES ADD 1 TO THE RESAULT
	ADDI B,PGSIZ-1		;CALCULATE NUMBER OF PAGES REQUIRED
	IDIVI B,PGSIZ		;...
	CAILE B,MAXPPB		;WITHIN BOUNDS?
	RETBAD (MTOX4)		;NO, RECORD SIZE TOO LARGE
	STOR B,MTPPB		;SAVE PAGES PER BUFFER
	LOAD P5,MTBUF		;SET UP BASE ADR OF LIST
	LOAD P3,MTPPB		;SET UP COUNTER
	IMULI P3,MTBUFN
MTAAS1:	CALL ASGPAG		;GET A PAGE FROM JSB
	 JRST MTAAS2		;NO MORE LEFT, GO RELEASE SPACE
	HRRZM A,0(P5)		;STORE ADDRESS IN LIST
	AOS P5			;STEP POINTER TO LIST
	SOJG P3,MTAAS1		;LOOP BACK TIL ALL PAGES ASSIGNED
	MOVX A,BUFA		;MARK THAT BUFFERS ARE NOW ASSIGNED
	IORM A,MTASTS(U)	;...
	RETSKP			;BUFFERS ASSIGNED

MTAAS2:	LOAD A,MTPPB		;GET MAX NUMBER OF ASSIGNABLE PAGES
	IMULI A,MTBUFN		;...
	SUB P3,A		;GET NEGATIVE COUNT OF PAGES ASSIGNED
MTAAS3:	AOJG P3,MTAAS4		;ANY MORE PAGES TO BE RELEASED?
	MOVE A,-1(P5)		;YES, GET ADDRESS
	CALL RELPAG		;AND RELEASE IT
	SOJA P5,MTAAS3		;LOOP BACK TIL ALL PAGES RELEASED

MTAAS4:	MOVEI A,IOX7		;NO ROOM IN JSB FOR BUFFERS
	RETBAD			;GIVE FAIL RETURN
;ROUTINE TO RELEASE ALL OF THE BUFFER PAGES
;	CALL MTARLB
;RETURNS +1:	ALWAYS

MTARLB:	MOVX A,BUFA		;ARE THERE ANY BUFFERS ASSIGNED?
	TDNN A,MTASTS(U)	;...
	RET			;NO, DONT RELEASE ANY
	SAVEP
	LOAD P3,MTPPB		;GET COUNT OF NUMBER OF PAGES
	IMULI P3,MTBUFN		;...
	LOAD P5,MTBUF		;GET STARTING ADR OF LIST OF PAGES
MTARL1:	HRRZ A,0(P5)		;GET NEXT PAGE TO BE RELEASED
	CALL RELPAG		;RELEASE IT
	AOS P5			;STEP POINTER TO LIST
	SOJG P3,MTARL1		;LOOP BACK TIL ALL PAGES RELEASED
	MOVX A,BUFA		;NOW MARK THAT THERE ARE NO BUFFERS
	ANDCAM A,MTASTS(U)	;...
	RET			;AND RETURN
;ROUTINE TO GET AN IORB TO USE AND STEP TO NEXT IORB
;	CALL GETIRB
;RETURNS +1:	NEED TO WAIT OR ERROR
;	 +2:	A/	IORB ADR

GETIRB:	CALL GETCSB		;GET CURRENT IORB ADR
	JN IRBFA,(A),MTAWTR	;IF ACTIVE STILL, GO WAIT
	JN IRBFF,(A),GETIR1	;IF FREE, DONT CALL IRBDON
	CALL SETSTS		;CHECK FOR ERRORS IN IORB
	CALL IRBDON		;MARK IORB AS DONE
	 RET			;ERROR
GETIR1:	LOAD B,MTCSB		;GET BUFFER NUMBER AGAIN
	OPSTR <IMUL B,>,MTPPB	;GET OFFSET INTO LIST OF PAGES
	OPSTR <ADD B,>,MTBUF	;ADD START ADR OF BUFFER
	STOR B,MTCUP		;SAVE CURRENT PAGE BEING EMPTIED
	SETONE IRBFQ,(A)	;MARK IT AS QUEUED UP
	SETZRO <IRBAB,IRBFF,IRBFR,IRBFA>,(A)
	RETSKP			;GIVE OK RETURN
;ROUTINE TO GET THE NEXT BUFFER TO BE GIVEN TO USER ON INPUT
;	CALL GETUBF
;RETURNS +1:	WAIT OR ERROR
;	 +2:	A/	IORB ADR
;		B/	# OF CHARACTERS IN BUFFER

GETUBF:	CALL GTUBFA		;GET NEXT USER IORB
	 JRST GTUBF1		;NONE AVAILABLE
	CALL SETSTS		;SEE IF ANY ERRORS IN THIS IORB
	CALL CHKERI		;SEE IF ANY ERRORS OR EOF
	 JRST [	PUSH P,A	;SAVE ERROR CODE
		CALL GETCUB	;GET CURRENT IORB
		CALL IRBDON	;RELEASE IT
		 JFCL
		JRST PA1]	;GIVE ERROR RETURN
	MOVE B,IRBCNT(A)	;GET # OF BYTES IN RECORD
	RETSKP			;GOT ONE

GTUBF1:	JUMPE A,[CALL GETCUB	;GET BACK THE IORB ADR
		JRST MTAWTR]	;GO WAIT FOR ACTIVE BIT TO GO OFF
	SKIPL A			;NONE QUEUED UP?
	RETBAD ()		;NO, JUST PLAIN ERROR
	BUG(MTANOI)
	JRST MTASIC		;GO BOMB


;ROUTINE TO GET A BUFFER FOR INPUTING
;	CALL GTUBFA
;RETURNS +1:	A = 0		;NEED TO WAIT FOR ACTIVITY TO FINISH
;		A = -1		;NO IORB'S QUEUED UP FOR INPUT
;		A POSITIVE	;ERROR CODE
;	 +2:	A/	IORB ADR

GTUBFA:	CALL GETCUB		;GET IORB FOR USER TO EMPTY
	JN IRBFA,(A),RETZ	;GO WAIT FOR AN IORB
	LOAD B,MTCUB		;GET BUFFER NUMBER AGAIN
	OPSTR <IMUL B,>,MTPPB	;GET OFFSET INTO LIST OF PAGES
	OPSTR <ADD B,>,MTBUF	;ADD START ADR OF BUFFER
	STOR B,MTCUP		;SAVE CURRENT PAGE BEING EMPTIED
	JN <IRBFF,IRBAB>,(A),GETUB1
	LOAD C,ISFCN,(A)	;GET FUNCTION CODE
	CAIE C,IRFRDR		;READ BACKWARDS?
	CAIN C,IRFRED		;OR READ?
	RETSKP			;YES, GIVE THIS BUFFER TO USER
	CALL IRBDON		;MARK THIS BUFFER AS DONE
	 RET			;ERROR OCCURED
GETUB1:	JRST RETO		;NONE QUEUED UP
;ROUTINE TO GET CURRENT USER IORB ADR
;	CALL GETCUB
;RETURNS +1:	ALWAYS, A/	IORB ADR

GETCUB:	MOVEI A,MTBUFN
	IMULI A,(U)		;GET BUFFER NUMBER FOR THIS UNIT
	OPSTR <ADD A,>,MTCUB	;GET RELATIVE BUFFER NUMBER
	IMULI A,MTIRBL
	ADDI A,MTIRBF		;GET ACTUAL ADR
	RET			;AND RETURN


;ROUTINE TO GET CURRENT IORB ADR
;	CALL GETCSB
;RETURNS +1:	ALWAYS, A/	IORB ADR

GETCSB:	MOVEI A,MTBUFN
	IMULI A,(U)		;GET BUFFER NUMBER FOR THIS UNIT
	OPSTR <ADD A,>,MTCSB	;GET RELATIVE BUFFER NUMBER
	IMULI A,MTIRBL
	ADDI A,MTIRBF		;GET ACTUAL ADR
	RET			;AND RETURN


;ROUTINE TO STEP TO NEXT USER BUFFER
;	CALL STPCUB
;RETURNS +1:	ALWAYS

STPCUB:	LOAD B,MTCUB		;STEP USER BUFFER
	AOS B
	IDIVI B,MTBUFN		;MODULO NUMBER OF IORBS
	STOR C,MTCUB		;SAVE NEW BUFFER NUMBER
	RET


;ROUTINE TO CLEAR FILLEN, FILBYN, FILCNT AND AN IORB

CLRINP:	SETZM FILLEN(JFN)	;MARK THAT THERE IS NO MORE BUFFER
	SETZM FILBYN(JFN)	;  IN CASE WE NEED TO BLOCK
	SETZM FILCNT(JFN)
	CALL GETCUB		;GET ADR OF THE BUFFER BEING USED
	CALL IRBDON		;MARK IT DONE
	 RET			;SOME SORT OF ERROR OCCURED
	CALL STPCUB		;STEP TO NEXT USER BUFFER
	RETSKP
;ROUTINE TO MARK AN IORB AS DONE
;ACCEPTS IN A/	IORB ADR
;	CALL IRBDON
;RETURNS +1:	ERROR
;	 +2:	A/	IORB ADR

IRBDON:	JE IRBFQ,(A),IRBDN1	;IF NOT QUEUED UP, ERROR
	JN IRBFA,(A),IRBDN2	;IF STILL ACTIVE, ERROR
	SETZM IRBSTS(A)		;INIT THE IORB
	SETZM IRBMOD(A)
	SETZM IRBXFL(A)		;CLEAR OUT POINTER TO TRANSFER LIST
	SETZRO <IRBFQ,IRBFR,IRBAB,IRBFA>,(A)
	SETONE IRBFF,(A)	;MARK IT AS FREE
	RETSKP			;FINISHED

IRBDN1:	BUG(MTANOQ)
	JRST MTASIC

IRBDN2:	BUG(MTANOA)
MTASIC:	MOVX A,MT%DVE		;MAKE THIS BE A HARD ERROR
	IORM A,MTASTS(U)
	MTERET (IOX8)		;SOFTWARE CONFUSION
;ROUTINE TO QUEUE UP AN IORB
;ACCEPTS IN A/	IORB ADR
;	CALL QUEIRB
;RETURNS +1:	ALWAYS

QUEIRB:	MOVE IOS,MTASTS(U)	;GET STATUS BITS
	MOVX C,IS.IER		;SEE IF USER DOESNT WANT ERROR RECOVERY
	TXNE IOS,MT%SER		;...
	IORM C,IRBSTS(A)	;DONT DO ANY ERROR RECOVERY ACTION
	MOVX C,IS.IEL		;USER WANT TO IGNORE ERROR LOGGING?
	TXNE IOS,MTIEL		;...
	IORM C,IRBSTS(A)	;YES
	LOAD B,MTCSB		;GET CURRENT IORB NUMBER
	SETONE IRBFA,(A)	;MARK THIS IORB AS ACTIVE
	LOAD C,ISFCN,(A)	;GET FUNCTION
	LOAD D,MTFCN		;GET LAST FUNCTION
	CAIE C,IRFRED		;READING?
	JRST [	CAIE C,IRFRDR	;OR READ REVERSE?
		JRST QUEIR1	;NO, UPDATE MTCUB
		CAIE D,IRFRDR	;YES, WAS LAST ONE A READ REVERSE TOO?
		JRST QUEIR1	;NO, SET POINTER TO BUFFER
		JRST QUEIR2]	;YES, DONT RESET BUFFER POINTER
	CAIE D,IRFRED		;LAST ONE A READ?
QUEIR1:	STOR B,MTCUB		;NO, SET USER BUFFER POINTER HERE
QUEIR2:	STOR C,MTFCN		;SET LAST FUNCTION
	AOS B			;NOW STEP IORB NUMBER
	IDIVI B,MTBUFN		;MODULO NUMBER OF IORBS
	STOR C,MTCSB
	INCR MTNIR		;COUNT UP NUMBER OF QUEUED IORBS
	MOVE B,MTCUTB(U)	;GET CDB,,UDB
	NOSKED			;PHYSIO REQUIRES NOSKED
	CALL PHYSIO		;QUEUE UP REQUEST
	OKSKED
	RET			;RETURN
;ROUTINE TO CHECK AN IORB FOR ERRORS
;	CALL CHKERI	OR	CALL CHKERO
;RETURNS +1:	ERROR
;	 +2:	OK, A-D UNCHANGED

CHKERI:	MOVE IOS,MTASTS(U)	;GET STATUS BITS
	TXNN IOS,MT%EOF!MT%DAE!MT%DVE!MT%IRL
	RETSKP			;NO ERRORS OR EOF
	JRST CHKER1

CHKERO:	MOVE IOS,MTASTS(U)	;GET STATUS BITS
	TXNN IOS,MT%DAE!MT%DVE!MT%IRL
	RETSKP			;NO ERRORS
CHKER1:	MOVEI A,IOX4		;SET UP FOR EOF ERROR
	TXNE IOS,MT%DAE!MT%DVE!MT%IRL	;ANY ERRORS?
	SKIPA A,[IOX5]		;YES, GET ERROR CODE
	TQOA <EOFF>		;MARK EOF FLAG
	TQO <ERRF>		;OR ERROR FLAG
	RET			;AND GIVE ERROR RETURN
;ROUTINE TO SET UP THE STATUS WORD
;ACCEPTS IN A/	IORB ADR
;	CALL SETSTS
;RETURNS +1:	ALWAYS

SETSTS:	JN <IRBAB,IRBFF>,(A),R ;ABORTED OR FREE ARE OK
	JE IRBFR,(A),R		;IF NEVER QUEUED UP, DONT SET STATUS
	MOVE B,IRBSTS(A)	;GET STATUS BITS
	MOVX C,MT%EOT!MT%BOT!MT%EOF ;SET UP TO TEST CONDITIONS
	ANDCAM C,MTASTS(U)	;CLEAR THESE BITS FIRST
	TXNN B,IS.TPM		;EOF SET?
	TXZ C,MT%EOF		;NO
	TXNN B,IS.EOT		;AT END OF TAPE?
	TXZ C,MT%EOT		;NO
	TXNN B,IS.BOT		;OR AT BEGINING OF TAPE
	TXZ C,MT%BOT		;NO
	TXNE B,IS.DTE		;DATA ERROR?
	TXO C,MT%DAE		;YES
	TXNE B,IS.DVE		;DEVICE (HARDWARE) ERROR?
	TXO C,MT%DVE		;YES
	TXNE B,IS.RTL		;RECORD TOO LONG?
	TXO C,MT%IRL		;YES
	IORB C,MTASTS(U)	;SET BITS IN STATUS WORD
	LOAD D,ISFCN,(A)	;GET THE FUNCTION
	CAIN D,IRFRDR		;READ BACKWARDS?
	JRST SETST1		;YES, CHECK RECORD LENGTH
	CAIE D,IRFRED		;READ?
	CAIN D,IRFWRT		;OR WRITE?
SETST1:	SKIPA D,IRBCNT(A)	;YES, CHECK RECORD LENGTH
	JRST SETST2		;NO, DONT SET MT%IRL
	TXNN C,MT%EOF!MT%BOT	;IF NO TRANSFER, DON'T LOSE RECORD SIZE
	STOR D,MTALTC		;REMEMBER THIS FOR MTGTS
	OPSTR <SUB D,>,IRBOC,(A) ;SUBTRACT ORIGINAL COUNT
	TXNE C,OPND		;DUMP MODE?
	SKIPN D			;YES, MUST BE 0 ELSE ERROR
	JRST SETST2		;NO RECORD LENGTH ERROR
	MOVX C,MT%IRL		;SET UP FOR RECORD LENGTH ERROR
	TXNN B,IS.TPM		;SAW A TAPE MARK THIS TIME?
	IORB C,MTASTS(U)	;NO, SET MT%IRL IN MTASTS
SETST2:	RET			;ALL DONE
;ROUTINE TO CHECK IF AN IORB SHOULD BE ABORTED
;ACCEPTS IN A/	IORB ADR
;	CALL MTCHKA		;CALLED FROM PHYTM2
;RTURNS +1:	ABORT THE IORB
;	 +2:	OK

	RESCD

MTCHKA:	LOAD B,IRBUN,(A)	;GET UNIT NUMBER
	JE ABORTF,(B),RSKP	;IF ABORT FLAG = 0, GIVE OK RETURN
	SETONE IRBAB,(A)	;MARK THAT THE IORB WAS ABORTED
	RET			;LET PHYSIO MARK THIS AS DONE

	SWAPCD



;ROUTINE TO QUEUE UP IORB'S FOR FILLING
;ACCEPTS IN A/	RECORD SIZE
;	    B/	FUNCTION CODE
;	CALL MTIRQI
;RETURNS +1:	ERROR
;	 +2:	SUCCESSFUL

MTIRQI:	STKVAR <MTIRQR,MTIRQF>
	MOVEM A,MTIRQR		;SAVE THE RECORD SIZE
	MOVEM B,MTIRQF		;SAVE FUNCTION CODE
MTIRQ0:	CALL GETCSB		;GET ADR OF THIS IORB
	JN IRBFA,(A),RSKP	;IF IORB IS STILL ACTIVE, ALL DONE
	JN IRBAB,(A),MTIRQ1	;IF ABORTED, USE THIS IORB
	LOAD B,IRBFQ,(A)	;GET QUEUED FLAG
	LOAD C,ISFCN,(A)	;GET FUNCTION CODE OF THIS IORB
	CAIE C,IRFRDR		;READ BACKWARDS
	CAIN C,IRFRED		;OR READ AHEAD?
	JUMPN B,RSKP		;YES, CAUGHT UP WITH USER
MTIRQ1:	CALL GETIRB		;GET NEXT IORB (SHOULD NOT BLOCK)
	 RET			;AN ERROR OCCURED
	MOVE B,MTIRQR		;GET RECORD SIZE
	MOVE C,MTIRQF		;AND FUNCTION CODE
	CALL MTAIRQ		;QUEUE UP THIS IORB FOR READING
	JRST MTIRQ0		;LOOP BACK TILL CAUGHT UP WITH EMPTIER
;ROUTINE TO QUEUE 1 IORB FOR FILLING
;ACCEPTS IN A/	ADR OF IORB TO BE USED
;	    B/	RECORD SIZE
;	    C/	FUNCTION CODE
;	CALL MTIRQ1
;RETURNS +1:	ALWAYS

MTAIRQ:	STKVAR <MTIRQA,MTIRQB,MTIRQC,MTIRQP,MTIRQT,MTIRQF>
	MOVEM A,MTIRQA		;SAVE ADDRESS OF IORB
	MOVEM B,MTIRQT		;SAVE SIZE OF RECORD
	MOVEM B,IRBCNT(A)	;STORE CHARACTER COUNT
	STOR B,IRBOC,(A)	;SAVE ORIGINAL COUNT FOR CHKERR
	MOVEM C,MTIRQF		;SAVE FUNCTION FOR LATER
	STOR C,ISFCN,(A)	;STORE FUNCTION CODE
	ADDI A,MTIRTL		;GET POINTER TO IO LIST AREA
	MOVEM A,MTIRQC		;SAVE FOR STORING LIST LATER
	LOAD B,MTPPB		;GET PAGES PER BUFFER
	MOVEM B,MTIRQP		;SAVE THIS COUNT
	OPSTR <IMUL B,>,MTCSB	;THEN GET START OF AREA FOR THIS BUFFER
	OPSTR <ADD B,>,MTBUF	;GET ADR OF PAGE TO BE FILLED
	MOVEM B,MTIRQB
	MOVE A,MTIRQA		;GET IORB ADR AGAIN
	STOR B,IRBPB,(A)	;SAVE ADR OF LIST OF PAGES FOR MTAINT
MTIRQ2:	HRRZS A,(B)		;ZERO PHYSICAL PAGE IN CASE NOT LOCKED
	SKIPG MTIRQT		;ANY MORE BYTES TO BE TRANSFERED?
	JRST [	MOVE C,MTIRQC	;NO, GO END TRANSFER LIST
		JRST MTIRQ4]
	CALL MLKMA		;LOCK DOWN THIS PAGE
	MOVE B,MTIRQB		;GET INDEX INTO PAGE LIST AGAIN
	HRLM A,(B)		;STORE PHYSICAL PAGE ADDRESS
	MOVE B,MTIRQF		;GET FUNCTION
	CAIE B,IRFRED		;READING?
	CAIN B,IRFRDR		;OR READ REVERSE?
	CALL MRKMPG		;YES, MARK THAT PAGE IS MODIFIED
	MOVE B,MTIRQB		;GET PAGE NUMBER AGAIN
	HLRZ B,(B)		;...
	LSH B,PGSFT		;GET ADDRESS FROM PAGE NUMBER
	LOAD A,MTHBW		;GET HARDWARE BYTES PER WORD
	IMULI A,PGSIZ		;ASK FOR A PAGE TO BE FILLED
	CAMLE A,MTIRQT		;ENOUGH BYTES FOR A FULL PAGE?
	MOVE A,MTIRQT		;NO, JUST DO THE REMAINDER OF BYTES
	SUBM A,MTIRQT		;DECREMENT THE COUNT OF BYTES LEFT
	MOVNS MTIRQT		;SUBM DOESNT DO WHAT WAS DESIRED
	OPSTR <HRL A,>,MTDM	;GET MODE OF TRANSFER
	;..
	;..
	MOVE D,MTIRQF		;GET FUNCTION AGAIN
	CAIE D,IRFRED		;READING?
	CAIN D,IRFRDR		;OR READING BACKWARDS
	SKIPA			;YES
	JRST MTIRQ3		;NO
	JE MTRBF,,MTIRQ3	;READING BACKWARDS?
	TRO B,777		;START AT END OF THIS PAGE
	TXO A,1B0		;YES, TELL PHYSIO THAT
MTIRQ3:	HLRZ C,MTCUTB(U)	;GET CDB FOR THIS UNIT
	CALL PHYCCW		;GET IOWD FOR TRANSFER LIST
	MOVEM A,@MTIRQC		;SAVE IOWD IN TRANSFER LIST
	AOS B,MTIRQB		;STEP TO NEXT PAGE
	AOS C,MTIRQC		;STEP POINTER TO IORB TRANSFER LIST
	SOSLE MTIRQP		;ANY MORE PAGES TO BE DONE?
	JRST MTIRQ2		;LOOP BACK FOR ALL IOWD'S
MTIRQ4:	SKIPLE MTIRQP		;IF USED ALL PAGES IN LIST, DONT SETZM
	SETZM 0(C)		;END TRANSFER LIST WITH A ZERO
	MOVE A,MTIRQA		;GET POINTER TO IORB
	STOR C,IRBTL,(A)	;SAVE POINTER TO TAIL
	MOVEI C,MTIRTL(A)	;GET POINTER TO TRANSFER LIST HEAD
	STOR C,IRBHD,(A)	;STORE HEAD POINTER
	CALL SETMOD		;SET UP MODE WORD
	MOVE D,[MTCHKA,,MTAINT]	;NOW SET UP INTERRUPT LEVEL HANDLER ADR
	MOVEM D,IRBIVA(A)	;IN IORB
	CALLRET QUEIRB		;GO QUEUE UP THE IORB


;ROUTINE TO SET UP MODE WORD IN IORB
;ACCEPTS IN A/	IORB ADR
;	CALL SETMOD
;RETURNS +1:	ALWAYS - IORB ADR STILL IN A

SETMOD:	LOAD D,MTDM		;SET UP DATA MODE
	STOR D,IRBDM,(A)
	LOAD D,MTDN		;SET UP DENSITY
	STOR D,IRBDN,(A)
	LOAD D,MTPAR		;AND SET UP PARITY
	STOR D,IRBPAR,(A)
	RET
;ROUTINE TO MARK THAT IORB IS READY AND UNLOCK BUFFER PAGES
;CALLED AT INTERRUPT LEVEL BY PHYSIO
;ASSUMES IN A/	ADR OF IORB
;	CALL MTAINT
;RETURNS +1:	ALWAYS

	RESCD

MTAINT:	LOAD B,IRBFA,(A)	;MAKE SURE THIS IORB IS REALLY ACTIVE
	JUMPE B,NOACTV		;IF 0, A FATAL STATE OF CONFUSION
	MOVE B,IRBSTS(A)	;GET STATUS BITS FROM IORB
	TXNE B,IS.ERR!IS.TPM	;ERROR OR EOF?
	JRST MTAINE		;YES, GO FLUSH ALL QUEUED REQUESTS
MTAIN0:	CALLRET MTAIND		;NO, GO UNLOCK PAGES AND MARK DONE

MTAINE:	TXNN B,IS.TPM!IS.DTE!IS.DVE!IS.WGU!IS.NRT
	JRST MTAIN0		;DONT ABORT FOR NO GOOD REASON
	SAVEQ			;GET SOME PERMANENT ACS
	LOAD U,IRBUN,(A)	;GET UNIT NUMBER
	CALL MTAIND		;UNLOCK PAGES
	CALLRET MTAKIL		;KILL ALL IORBS LEFT ON QUEUE


NOACTV:	BUG(MTARIN)

	SWAPCD


;ROUTINE TO KILL ALL QUEUED UP REQUESTS

	RESCD

;**;[1926] Change 1850 lines at MTAKIL: +0L	JGZ	19-AUG-81
;**;[1850] Change one line at MTAKIL: +0L	RAS	16-APR-81
MTAKIL::STKVAR <MTAKLA>		;[1850]
	SETONE ABORTF,(U)	;MARK THAT IORB'S SHOULD BE ABORTED
	MOVE A,MTCUTB(U)	;SET UP CDB ,, UDB FOR PHYKIL
	CALL PHYKIL		;DEQUEUE ALL IORB'S
MTAKL1:	HRRZM A,MTAKLA		;SAVE ADR OF NEXT IORB
	JUMPE A,R		;IF NONE, RETURN
	HRRZS A			;CLEAR HIGH ORDER BITS
	SETONE IRBAB,(A)	;MARK IORB AS BEING ABORTED
	HRRZ B,IRBIVA(A)	;GET INTERRUPT LEVEL ROUTINE TO  CALL
	CALL 0(B)		;CLEAN UP IORB
	HRRZ A,@MTAKLA		;GET NEXT IORB
	JRST MTAKL1		;LOOP BACK TIL ALL IORB'S DEQUEUED

	SWAPCD
;ROUTINE TO DEQUEUE ONE IORB

	RESCD

MTAIND:	SAVEQ			;SAVE ALL PERMANENT ACS USED
	MOVX B,IRBFR		;MARK THAT BUFFER IS READY
	IORM B,MTIRSD(A)
	MOVX B,IRBFA		;AND CLEAR ACTIVE BIT
	ANDCAM B,MTIRSD(A)
	LOAD U,IRBUN,(A)	;GET UNIT NUMBER
	LOAD B,MTPPB		;GET COUNT OF PAGES THAT NEED UNLOCKING
	MOVNS B			;SET UP FOR AOBJN POINTER
	LOAD Q3,IRBPB,(A)	;GET ADDRESS OF LIST OF LOCKED PAGES
	HRL Q3,B		;Q3 = -MTPPB ,, ADR OF LOCKED PAGES
MTAIN1:	HLRZ A,(Q3)		;GET PHYSICAL ADR OF LOCKED PAGE
	JUMPE A,MTAIN2		;IF AT END OF LOCKED PAGES, STOP
	CALL MULKCR		;UNLOCK IT
	AOBJN Q3,MTAIN1		;LOOP BACK TILL ALL PAGES UNLOCKED
MTAIN2:	DECR MTNIR		;DECREMENT NUMBER OF REQUESTS PENDING
	RET			;AND RETURN

	SWAPCD
;JSYS TO SET UP LOGICAL TO PHYSICAL CORRESPONDENCE. ;INPUT IS:
;	USER A/ SLAVE,,UNIT NUMBER
;	USER B/ SERIAL NUMBER

.MTALN::MCENT
	MOVX B,SC%WHL!SC%OPR
	TDNN B,CAPENB		;IS THIS A PRIVILEGED JOB?
	ITERR (WHELX1)		;NO. COMPLAIN
	HRLI A,600002		;MAGTAPE TYPE
	CALL CHKDES		;MAKE SURE IS A VALID UNIT
	 ITERR()		;CAN'T GET IT
	HLRZ U,DEV		;GET UNIT
	XCTU [SKIPN B,B]	;A VALID SERIAL #
	ITERR ()		;NO
	XCTU [HLRZ P5,A]	;GET DEVICE TYPE
	SKIPN P5		;IS THERE ONE?
	MOVEI P5,.MTT45		;NO ASSUME 45
	JRST MTALNA

	RESCD			;MUST BE RESIDENT

MTALNA:	IOPIOF			;DISABLE INTERRUPTS
	MOVSI P3,-MTAN		;SET UP TO SEARCH ALL UNITS
MTLUN1:	SKIPN C,MTCUTB(P3)	;GET UDB ADDRESS FOR THIS UNIT
	JRST MTLUN2		;NONE THERE. FORGET IT
	HRRZ D,C		;GET ADDRESS ONLY
	CAME B,UDBDSN(D)	;IS THIS THE ONE?
	JRST MTLUN2		;NO. KEEP LOOKING
	LOAD P6,USTYP,(D)	;GET TYPE OF SLAVE
	CAIE P6,0(P5)		;MATCH?
	JRST MTLUN2		;NOPE TRY NEXT ENTRY
	CAIN U,0(P3)		;IS THIS ALREADY CORRECT?
	JRST MTALNX		;YES. JUST RETURN GOOD
	MOVX B,OPN		;SEE IF UNIT NOW ASSIGNED
	TDNN B,MTASTS(U)	;IS THIS ONE BEING USED?
	TDNE B,MTASTS(P3)	;IS IT NOW BEING USED?
	JRST [	IOPION	;TURN DISKS BACK ON
		ITERR (OPNX7)]	;UNAVAILABLE
	EXCH C,MTCUTB(U)	;SWITCH ASSIGNMENTS
	MOVEM C,MTCUTB(P3)	;DITTO
MTALNX:	IOPION			;ENABLE I/O
	JRST MRETN		;GOOD

MTLUN2:	AOBJN P3,MTLUN1		;DO ALL UNITS
	IOPION			;TURN DISKS ON AGAIN
	ITERR()			;NONE FOUND
	SWAPCD			;BACK TO SWAPPABLE CODE
;MTOPR JSYS
;ACCEPTS IN B/	OPERATION
;	CALL MTMTAP
;RETURNS +1:	ROUTINE WANTS TO BLOCK (BLKF SET) OR ERROR
;	 +2:	DONE

MTMTAP::STKVAR <MTMTAO,MTMTAE>
	MOVEM B,MTMTAO		;SAVE OPERATION CODE
	HLRZ U,DEV		;SET UP UNIT NUMBER
	MOVX IOS,DMPWT!MTNOWT	;CLEAR THESE FLAGS
	ANDCAB IOS,MTASTS(U)
	SKIPL B			;LEGAL OPERATION?
	CAIL B,MTMTBL		;LEGAL OPERATION?
	RETBAD (MTOX1)		;NO, ERROR
	SKIPN A,MTMTAB(B)	;GET FLAGS
	RETBAD (MTOX1)		;ILLEGAL OPERATION
	TRNE A,MTONOF		;NEED OPEN JFN?
	JRST MTMTP1		;NO, SKIP OPEN CHECKS
	TXNN IOS,MTOWT		;OK IF NOT FIRST TIME
	TXNE IOS,OPN		;OPENED?
	SKIPA			;YES
	RETBAD (CLSX1)		;FILE NOT OPENED ERROR
	CALL MTACLW		;WAIT FOR ACTIVITY TO STOP
	 RET			;NEED TO BLOCK
	CALL UPDSTS		;UPDATE STATUS
	 RET			;NEED TO BLOCK
MTMTP1:	MOVE B,MTMTAO		;GET BACK OPERATION CODE
	HLRZ A,MTMTAB(B)	;GET ROUTINE ADDRESS
	CALL 0(A)		;DO THE OPERATION
	 TDZA B,B		;ERROR OR WAIT
	SETO B,			;SUCCESSFUL
	MOVX C,MTOWT		;ALWAYS CLEAR WAIT BIT
	ANDCAM C,MTASTS(U)
	JUMPN B,RSKP		;IF SUCCESSFUL, RETURN NOW
	TXNE IOS,MTNOWT		;SUPPRESS WAIT BIT?
	RET			;YES. RETURN NOW THEN
	TQNE <BLKF>		;BLOCKING?
	IORM C,MTASTS(U)	;YES, REMEMBER THIS FOR NEXT PASS
	RET


;ROUTINE TO INIT DRIVE STORAGE IF IT IS NOT OPENED

MTNOPN:	LOCK MTALCK(U),<CALL LCKTST>
	CALL MTOPNX		;INIT DATA BASE
	 RET			;ERROR , PASS ON
	RETSKP			;OK - RETURN
;FLAGS FOR MTOPR OPERATIONS

MTONOF==1B18			;NOT NECESSARY TO HAVE JFN OPEN

;TABLE OF MTOPR FUNCTIONS

MTMTAB:	MTACLE,,0		;0  - CLEAR ERRORS
	MTAREW,,0		;1  - REWIND
	MTARBK,,0		;2  - SET READ BACKWARDS
	MTATPM,,0		;3  - WRITE TAPE MARK
	MTASDM,,0		;4  - SET DATA MODE
	MTASRS,,0		;5  - SET RECORD SIZE
	MTAFRC,,0		;6  - FORWARD RECORD
	MTABRC,,0		;7  - BACKWARD RECORD
	MTAEOT,,0		;10 - SKIP TO EOT
	MTARWU,,0		;11 - REWIND AND UNLOAD
	MTARDN,,0		;12 - READ DENSITY
	MTAERT,,0		;13 - ERASE TAPE
	MTARDM,,0		;14 - GET DATA MODE
	MTARRS,,0		;15 - GET REC SIZE
	MTAFFL,,0		;16 - FORWARD FILE
	MTABFL,,0		;17 - BACKWARD FILE
	MTASPA,,0		;20 - SET PARITY
	MTARPA,,0		;21 - READ PARITY
	MTANRB,,0		;22 - GET # OF BYTES LEFT IN RECORD
	MTRECO,,0		;23 - OUTPUT RECORD
	MTASDN,,0		;24 - SET DENSITY
	MTAINF,,MTONOF		;25 - GET TAPE INFO
	MTARDR,,0		;26 - READ DIRECTION
	MTASID,,MTONOF		;27 - SET REEL ID
;**;[3158] Change 1 line at MTMTAB:+30L		GPL	30-AUG-1984
	MTAIEL,,MTONOF		;[3158] 30 - INHIBIT ERROR LOGGING
	RSKP,,0			;31 - WAIT NOP
	MTALOC,,MTONOF		;32 - ATTACH MT TO MTA
	0
	0
	0
	0
	MTASTA,,MTONOF		;37 - MAGTAPE DRIVE STATUS
	MTAONL,,MTONOF		;40 - ENABLE ON/OFFLINE PSI
	REPEAT 2,<0>		;41-42 UNDEFINED
	MTAREW,,0		;SAME AS .MOREW (IS .MORVL)

MTMTBL==.-MTMTAB		;SIZE OF MTOPR DISPATCH TABLE
;ROUTINE TO CLEAR ERRORS

MTACLE:	MOVX A,MT%DVE!MT%DAE!MT%IRL!MT%EOT!MT%EOF
	TDNN A,MTASTS(U)	;ANY ERRORS SHOWING?
	RETSKP			;NO, DONT CLEAR ABORTF
	ANDCAM A,MTASTS(U)
	SETZRO ABORTF,(U)
	TQZ <ERRF,EOFF>		;CLEAR STS ALSO
	RETSKP			;EXIT SUCCESSFULLY


;ROUTINE TO SET OR CLEAR THE READ BACKWARDS FLAG

MTARBK:	CALL MTPOS0		;POSITION TAPE TO WHERE USER EXPECTS IT
	 RET			;NEED TO BLOCK
	UMOVE T1,3		;GET NEW VALUE
	STOR T1,MTRBF		;SAVE NEW SETTING OF FLAG
	RETSKP			;EXIT


;ROUTINE TO POSITION TAPE TO WHERE USER THINKS IT SHOULD BE
;	CALL MTPOS0
;RETURNS +1:	NEEDS TO BLOCK
;	 +2:	DONE

MTPOS0:	MOVEI A,0		;SET UP TO POSITION HEAD CORRECTLY
	JE MTRBF,,MTPOS1	;READING BACKWARDS?
	CALLRET MTFRC0		;NO, MOVE TAPE FORWARD OVER READ AHEAD

MTPOS1:	CALLRET MTBRC0		;BACK UP OVER READ AHEAD


;ROUTINE TO READ THE DIRECTION OF READ TRANSFER

MTARDR:	LOAD T1,MTRBF		;GET READ BACKWARDS FLAG
	UMOVEM T1,3		;GIVE IT TO USER
	RETSKP


;ROUTINE TO SET DATA MODE

MTASDM:	SAVEQ
	XCTU [HRRZ Q3,3]	;GET NEW DATA MODE
	CAILE Q3,MTMXDM		;LEGAL?
	RETBAD (MTOX5)		;NO, ILLEGAL DATA MODE
	CALL MTAPBO		;OUTPUT PARTIAL BUFFER IF ANY
	 RET			;NEEDS TO BLOCK
	SKIPN Q3		;IS THIS 0?
	LOAD Q3,JSMTM		;YES, GET JOB DEFAULT
	SKIPN Q3		;IS THAT NOT SET YET?
	MOVEI Q3,MTDFDM		;YES, USE SYSTEM DEFAULT
	STOR Q3,MTDM		;STORE NEW DATA MODE
	CALL MTARLB		;RELEASE ANY BUFFERS
	SETZM FILLEN(JFN)	;THROW AWAY ANY DATA IN BUFFERS
	SETZM FILBYN(JFN)
	SETZM FILCNT(JFN)
	CALLRET MTASBW		;SET UP OTHER PARAMETERS BASED ON MODE


;ROUTINE TO READ DATA MODE

MTARDM:	LOAD T1,MTDM		;GET DATA MODE
	UMOVEM T1,3		;RETURN IT TO USER
	RETSKP			;AND GIVE SUCCESSFUL RETURN
;ROUTINE TO SET RECORD SIZE

MTASRS:	MOVE IOS,MTASTS(U)	;GET STATUS
	TXNE IOS,OPND		;DUMP MODE IN EFFECT?
	RETBAD (MTOX3)		;YES, ERROR
	TXNE IOS,BUFA		;BUFFERS ASSIGNED YET?
	RETBAD(MTOX2)		;YES, RECORD SIZE MUST BE SET BEFORE I/O IS DONE
	XCTU [HRRZ T1,3]	;GET NEW SIZE
	STOR T1,MTRS		;STORE NEW RECORD SIZE
	CALLRET MTASBW		;GO COMPUTE NEW PARAMETERS


;ROUTINE TO READ RECORD SIZE

MTARRS:	LOAD T1,MTRS		;GET RECORD SIZE
	UMOVEM T1,3		;RETURN IT TO USER
	RETSKP			;AND GIVE SUCCESSFUL RETURN



;ROUTINE TO SET REEL I.D.

MTASID:	MOVE T1,CAPENB		;CHECK CAPABILITIES
	TRNN T1,SC%WHL!SC%OPR	;WHEEL OR OPERATOR?
	RETBAD (MTOX7)		;NO, NOT PRIVILEGED TO DO THIS FUNCTION
	UMOVE T1,3		;GET I.D.
	HRRZ T2,MTCUTB(U)	;GET UDB ADR
	MOVEM T1,UDBVID(T2)	;STORE NEW I.D.
	RETSKP


;ROUTINE TO SET ERROR LOGGING FLAG

MTAIEL:	MOVX T1,MTIEL		;GET FLAG
	ANDCAM T1,MTASTS(U)	;CLEAR IT
	XCTU [SKIPE 3]		;USER WANT TO SET IT?
	IORM T1,MTASTS(U)	;YES
	RETSKP
;ROUTINE TO SET DENSITY
;ENTRY FROM JSYS

MTASDN:	XCTU [HRRZ T1,3]	;GET NEW DENSITY

;ENTRY FROM MT TO SET DENSITY FROM VAULE IN REG
MTADNS::CAILE T1,MTMXDN		;LEGAL?
	RETBAD (MTOX6)		;NO, ILLEGAL DENSITY
	SKIPN T1		;WANT DEFAULT?
	LOAD T1,JSMTD		;YES, GET JOB DEFAULT
	SKIPN T1		;GOT ONE YET?
	MOVEI T1,MTDFDN		;NO, USE SYSTEM DEFAULT
	STOR T1,MTDN		;STORE IT
	RETSKP


;ROUTINE TO READ THE DENSITY

MTARDN:	HRRZ T1,MTCUTB(U)	;GET UDB
	SKIPGE T1,UDBDDP+0(T1)	;HARDWARE DETERMINED DENSITY SET?
	LOAD T1,MTDN		;NO - GET THE USER DENSITY
	UMOVEM T1,3		;RETURN IT TO USER
	RETSKP			;AND GIVE SUCCESSFUL RETURN



;ROUTINE TO SET PARITY

MTASPA:	UMOVE T1,3		;GET NEW PARITY SETTING
	STOR T1,MTPAR		;SAVE IT
	RETSKP


;ROUTINE TO READ PARITY SETTING

MTARPA:	LOAD T1,MTPAR		;GET PARITY SETTING
	UMOVEM T1,3		;RETURN IT TO USER
	RETSKP			;AND GIVE SUCCESSFUL RETURN



;ROUTINE TO GET THE NUMBER OF BYTES LEFT IN BUFFER

MTANRB:	MOVE IOS,MTASTS(U)	;GET STATUS
	TXNE IOS,OPND		;MUST BE SEQUENTIAL I/O MODE
	RETBAD (MTOX3)		;THIS FUNCTION NOT LEGAL FOR DUMP MODE
	SKIPE T1,FILLEN(JFN)	;ANY BUFFER SET UP
	SUB T1,FILBYN(JFN)	;YES, GET NUMBER OF BYTES REMAINING
	UMOVEM T1,3		;RETURN IT TO USER
	RETSKP			;AND GIVE SUCCESSFUL RETURN
;ROUTINE TO RETURN INFORMATION ABOUT A TAPE

MTAINF:	SAVEPQ			;SAVE PERMANENT ACS
	UMOVE P3,3		;GET POINTER TO ARGUMENT BLOCK
	HRRZ Q3,MTCUTB(U)	;GET POINTER TO UDB
	XCTU [HRRZ P5,0(P3)]	;GET COUNT OF WORDS TO BE RETURNED
	CAILE P5,MTIFTL		;TOO MANY?
	RETBAD (MTOX8)		;YES, ARGUMENT BLOCK TOO LONG
	MOVNS P5
	HRLZS P5		;SET UP AOBJN POINTER
MTAIFL:	AOS P3			;STEP POINTER TO ARGUMENT BLOCK
	XCT MTINFT(P5)		;GET NEXT WORD
	UMOVEM T1,0(P3)		;STORE IT IN USER'S BLOCK
	ERJMP [	RETBAD (MTOX13)]
	AOBJN P5,MTAIFL		;LOOP BACK UNTIL DONE
	RETSKP

MTINFT:	LOAD T1,USTYP,(Q3)	;TAPE TYPE CODE
	MOVE T1,UDBVID(Q3)	;TAPE ID
	CALL MTASER		;DRIVE SERIAL NUMBER
;**;[1761] Replace 2 lines at MTINFT: +3L	JGZ	22-JUL-80
	MOVE T1,UDBRCT(Q3)	;[1761] READ COUNT
	MOVE T1,UDBWCT(Q3)	;[1761] WRITE COUNT
	MOVE T1,UDBPS2(Q3)	;RECORD # WITHIN CURRENT FILE
	MOVE T1,UDBPS1(Q3)	;FILE # ON TAPE
	MOVE T1,UDBSRE(Q3)	;SOFT READ ERRORS
	MOVE T1,UDBSWE(Q3)	;SOFT WRITE ERRORS
	MOVE T1,UDBHRE(Q3)	;HARD READ ERRORS
	MOVE T1,UDBHWE(Q3)	;HARD WRITE ERRORS
;**;[1761] Replace 2 lines at MTINFT: +11L	JGZ	22-JUL-80
	MOVE T1,UDBRED(Q3)	;[1761] FRAMES READ
	MOVE T1,UDBWRT(Q3)	;[1761] FRAMES WRITTEN
MTIFTL==.-MTINFT

;ROUTINE TO GET SERIAL # OF UNIT

MTASER:	HRRZ B,UDBDSN(Q3)	;GET DRIVE SERIAL #
	MOVE C,UDBSLV(Q3)	;GET SLAVE NUMBER
	DPB C,[POINT 3,B,17]
	MOVE C,UDBADR(Q3)	;GET TM02 NUMBER
	DPB C,[POINT 3,B,14]
	MOVE A,UDBCDB(Q3)	;GET CHANNEL #
	MOVE C,CDBADR(A)
	DPB C,[POINT 3,B,11]
	MOVE A,B		;RETURN CHAN,CONTRL,UNIT ,, SERIAL #
	RET
;ROUTINE TO REWIND THE TAPE

MTAREW:	CALL MTARWX		;FINISH OUTPUT/CLEAR INPUT
	 RET			;NEEDS TO BLOCK
	CALL GETIRB		;GET AN IORB TO USE
	 RET			;NEED TO WAIT FOR ONE TO BE FREE
	MOVEI B,IRFREW		;GET REWIND FUNCTION CODE
MTARW1:	MOVEI C,1		;DO ONE OPERATION
	CALL MTPIRQ		;QUEUE UP THIS REQUEST
	RETSKP			;ALL DONE


;ROUTINE TO REWIND AND UNLOAD

MTARWU:	CALL MTARWX		;FINISH OUTPUT/CLEAR INPUT
	 RET			;NEEDS TO BLOCK
	CALL GETIRB		;GET AN IORB
	 RET
	MOVEI B,IRFRUN		;SET UP OPERATION CODE
;**;[3209] REPLACE 1 LINE AND ADD 4 LINES AT MTARWU+4 SPR #20127
	MOVEI C,1  		;[3209] GO DO THE OPERATION
	CALL MTPIRQ		;[3209] 
	HRRZ A,MTCUTB(U)	;[3209] GET UDB ADRESS
	SETZM UDBVID(A)		;[3209] CLEAR VOLUME ID
	RETSKP			;[3209] RETURN 

;COMMON ROUTINE FOR REWINDS TO FINISH OUTPUT OR CLEAR INPUT

MTARWX:	TQNE <OPNF>		;IF NOT OPENED
	TXNE IOS,OPND		;DUMP MODE?
	RETSKP			;YES - DO NOTHING
	TQNN <WRTF>		;WRITING?
	JRST MTRWXR		;NO
	CALLRET MTAPBO		;YES - DO PARTIAL BUFFER OUTPUT

MTRWXR:	SKIPN FILBYN(JFN)	;BUFFER EXIST?
	RETSKP			;NO
	CALL CLRINP		;YES - CLEAR IT
	 MTERET()		;ERROR
	RETSKP

;ROUTINE TO ERASE GAP

MTAERT:	TQNE <OPNF>		;MUST BE OPENED
	TQNN <WRTF>		;MUST BE OPENED FOR WRITE
	RETBAD (IOX2)		;ILLEGAL WRITE ATTEMPT
	CALL MTAPBO		;OUTPUT PARTIAL BUFFER IF ANY
	 RET			;NEEDS TO BLOCK
	CALL GETIRB		;GET AN IORB TO USE
	 RET
	MOVEI B,IRFERG		;GET OPERATION CODE
	JRST MTARW1		;GO DO OPERATION
;ROUTINE TO FORCE OUT ANY PARTIAL BUFFER
;	CALL MTAPBO
;RETURNS +1:	NEED TO BLOCK
;	 +2:	OK

MTAPBO:	CALL MTRECO		;OUTPUT RECORD
	 JFCL			;NOT DOING SEQUENTIAL OUTPUT
	CALLRET UPDSTS		;WAIT FOR IT TO STOP WRITING


;ROUTINE TO SKIP TO END OF TAPE

MTAEOT:	MOVE IOS,MTASTS(U)	;GET FLAGS
	TXNE IOS,MTOWT		;FIRST TIME THRU?
	JRST MTAET1		;NO
	CALL MTABRC		;FIRST TIME, DO A BACKSPACE
	 RET			;NEED TO BLOCK
MTAET2:	SETZRO MTSTC		;SET COUNT OF EOF'S SEEN TO ZERO
	CALL MTAFFL		;FORWARD SPACE OVER A FILE
	 RET			;NEED TO BLOCK
	JRST MTAET1		;GO SEE IF NEXT RECORD IS AN EOF ALSO

MTAET1:	CALL UPDSTS		;GET CURRENT STATUS
	 RET			;NEED TO BLOCK
	LOAD A,MTFCN		;GET LAST OPERATION DONE
	CAIN A,IRFBSB		;BACKSPACE?
	JRST MTAET2		;YES, GO START SEARCHING FOR EOT
	MOVE IOS,MTASTS(U)	;GET STATUS
	TXNN IOS,MT%EOF		;AT END OF FILE?
	JRST MTAET2		;NO, GO SKIP A FILE
	INCR MTSTC		;STEP STATE CODE
	LOAD A,MTSTC		;GET COUNT OF EOF'S SEEN
	CAIL A,2		;LESS THAN 2?
	JRST MTAET3		;NO, FOUND EOT
	CALL MTAFRC		;SPACE FORWARD ONE RECORD
	 RET			;NEED TO BLOCK
	JRST MTAET1		;GO SEE IF ON ANOTHER EOF

MTAET3:	CAIE A,2		;JUST FOUND THE SECOND TAPE MARK?
	RETSKP			;NO, MUST BE DONE NOW
	CALLRET MTABRC		;YES, BACKSPACE OVER SECOND EOF
;ROUTINE TO SPACE OVER A FILE

MTAFFL:	MOVE IOS,MTASTS(U)	;GET THE STATUS
	TXNN IOS,MTOWT		;FIRST TIME THRU?
	JRST [	CALL MTCNCL	;CANCEL READ AHEAD
		 JRST [	TXO IOS,MTNOWT ;NO MTOPR WAIT
			RETBAD()] ;DONE
		JRST MTAFF1]	;TRY FOR ONE TO START
MTAFF0:	CALL UPDSTA		;UPDATE THE STATUS WORD
	 RET			;NEED TO BLOCK
	CALL CHKERO		;SEE IF ANY ERRORS OCCURED
	 RET			;YES, STOP NOW
	TXNE IOS,MT%EOF		;HIT A TAPE MARK YET?
	RETSKP			;YES, ALL DONE
	SKIPA A,[MTSPCN]	;GET MAX # OF RECORDS TO DO AT A TIME
MTAFF1:	MOVEI A,1		;DO 1 RECORD FOR THE FIRST TIME ONLY
	CALL MTFRC0		;GO SPACE FORWARD A BIT
	 RET			;NEED TO BLOCK
	JRST MTAFF0		;LOOP BACK TIL A TAPE MARK SEEN


;ROUTINE TO SPACE THE TAPE FORWARD ONE RECORD

MTAFRC:	MOVEI A,1		;SPACE FORWARD ONE RECORD
	CALLRET MTFRC0		;DO THE WORK

MTFRC0:	STKVAR <MTAFRS>
	MOVEM A,MTAFRS		;SAVE THE SPACING COUNT
	MOVE IOS,MTASTS(U)	;GET CURRENT STATUS
	TQNE <OPNF>		;IF NOT OPENED
	TXNE IOS,OPND		;IN DUMP MODE?
	JRST MTFRC2		;YES, JUST GO DO OPERATION
	TQNE <WRTF>		;WRITING?
	JRST [	CALL MTRECO	;YES, WRITE OUT ANY PARTIAL BUFFERS
		 RET		;NEED TO BLOCK
		JRST MTFRC2]	;GO SPACE
	SETZ B,			;SPECIFY THAT DIRECTION IS FORWARD
	CALL MTBCNT		;COUNT THE READ AHEAD BUFFERS
	 RET			;ERROR
	MOVEM A,MTAFRS		;SAVE COUNT OF RECORDS TO SPACE OVER
MTFRC2:	SKIPG MTAFRS		;ANYTHING TO DO?
	RETSKP			;NO
	CALL GETIRB		;GET AN IORB TO USE
	 RET			;NEED TO BLOCK
	MOVEI B,IRFFSB		;GET FUNCTION CODE
	MOVE C,MTAFRS		;GET COUNT OF RECORDS TO SPACE OVER
	CALL MTPIRQ		;DO THE SPACING OPERATION
	RETSKP			;ALL DONE
;ROUTINE TO BACKSPACE OVER ONE FILE

MTABFL:	MOVE IOS,MTASTS(U)	;GET FLAGS
	TXNN IOS,MTOWT		;FIRST TIME THRU?
	JRST [	CALL MTCNCL	;CANCEL READ AHEAD
		 JRST [	TXO IOS,MTNOWT ;NO MTOPR WAIT
			RETBAD ()]
		JRST MTABF1]	;AND DO BS
MTABF0:	CALL UPDSTA		;UPDATE THE STATUS WORD
	 RET			;NEED TO BLOCK
	CALL CHKERO		;SEE IF ANY ERRORS OCCURED
	 RET			;YES, ABORT THIS
	TXNE IOS,MT%EOF!MT%BOT	;HIT TAPE MARK YET?
	RETSKP			;YES, ALL DONE
	SKIPA A,[MTSPCN]	;GET MAX # OF RECORDS TO DO AT A TIME
MTABF1:	MOVEI A,1		;DO 1 RECORD FOR THE FIRST TIME ONLY
	CALL MTBRC0		;BACKSPACE SOME
	 RET			;NEED TO BLOCK
	JRST MTABF0		;LOOP BACK TILL EOF HIT


;ROUTINE TO BACKSPACE ONE RECORD

MTABRC:	CALL MTCNCL		;CANCEL READ AHEAD
	 RETBAD ()		;BLOCK OR ERROR
	MOVEI A,1		;SET UP TO BACK SPACE ONE RECORD
	CALLRET MTBRC0		;DO IT

MTBRC0:	STKVAR <MTABRN>
	MOVEM A,MTABRN		;STORE COUNT OF RECORDS TO SPACE OVER
	MOVE IOS,MTASTS(U)	;GET STATUS BITS
	TQNE <OPNF>		;IF NOT OPENED
	TXNE IOS,OPND		;DUMP MODE?
	JRST MTBRC2		;YES, GO DO THE OPERATION DIRECTLY
	TQNE <WRTF>		;WRITING?
	JRST [	CALL MTRECO	;YES, FORCE OUT THE LAST PARTIAL BUFFER
		 RET		;NEED TO BLOCK
		JRST MTBRC2]	;THEN GO BACKSPACE
	SETO B,			;SPECIFY THAT DIRECTION IS BACKWARDS
	CALL MTBCNT		;COUNT BUFFERS OF READ AHEAD
	 RET			;ERROR
	MOVEM A,MTABRN		;SAVE COUNT OF RECORDS TO SKIP OVER
MTBRC2:	SKIPG MTABRN		;ANYTHING TO DO?
	RETSKP			;NO
	MOVE IOS,MTASTS(U)	;GET STATUS AGAIN
	TXNE IOS,MT%BOT		;AT TAPE MARK ALREADY?
	RETSKP			;YES, DONT DO ANYTHING
	CALL GETIRB		;GET AN IORB TO USE
	 RET			;MUST WAIT
	MOVEI B,IRFBSB		;SET UP TO DO THE BACKSPACE
	MOVE C,MTABRN		;GET COUNT OF RECORDS TO SKIP
	CALL MTPIRQ		;GO QUEUE UP THIS REQUEST
	RETSKP			;AND EXIT
;SPECIAL ROUTINE USED TO CANCEL READ AHEAD BUFFERS

MTCNCL:	SKIPL IOS,MTASTS(U)	;OPEN?
	RETSKP			;NO. NOTHING TO DO THEN
	TXNE IOS,OPND		;OPEN I DUMP MODE?
	RETSKP			;YES. NOTHING TO CANCEL THEN
	CALL MTACLW		;WAIT FOR ALL IO TO FINISH
	 RETBAD ()		;MUST BLOCK
	CALL MTPOS0		;DO POSITIONING
	 RETBAD()		;BLOCK OR ERROR
	CALL UPDSTA		;UPDATE STATUS
	 RETBAD ()		;NEED TO WAIT FOR ACTIVITY TO CEASE
	MOVX IOS,MT%EOF		;MAKE SURE EOF NOT ON
	ANDCAB IOS,MTASTS(U)	;""
	RETSKP			;AND DONE
;ROUTINE TO COUNT THE BUFFERS OF READ AHEAD
;ACCEPTS IN A/	THE COUNT OF RECORDS TO SKIP
;	    B/	0 = SPACING FORWARD
;		-1= SPACING BACKWARDS
;	CALL MTBCNT
;RETURNS +1:	ERROR
;	 +2:	COUNT OF RECORDS TO SPACE OVER IN AC A

MTBCNT:	STKVAR <MTBCTA>
	MOVEM A,MTBCTA		;SAVE STARTING COUNT
	JE MTRBF,,MTBCT0	;IF NOT READING BACKWARDS, NOT SPECIAL
	SETCA B,		;READING BACKWARDS, COMPLEMENT B
MTBCT0:	JUMPN B,MTBCT3		;GO COUNT BUFFERS
	MOVE A,FILLEN(JFN)	;GET CURRENT END OF BUFFER
	CAMG A,FILBYN(JFN)	;ANY BYTES LEFT IN BUFFER?
	JUMPE A,MTBCT1		;IF NO BUFFER SET UP, DONT CLEAR IT
	CALL CLRINP		;AT END OF BUFFER, CLEAR FILLEN
	 RET			;ERROR
MTBCT1:	SOSGE MTBCTA		;ANYTHING MORE TO DO?
	JRST MTBCT2		;NO
	CALL GTUBFA		;GET A BUFFER IF ANY
	 JRST MTBCT2		;NONE THERE
	CALL SETSTS		;UPDATE THE ERROR AND STATUS WORDS
	CALL IRBDON		;JUST THROW THIS AWAY INSTEAD OF SPACING
	 RET
	CALL STPCUB		;DONE WITH THIS IORB
	JRST MTBCT1		;LOOP BACK TILL DONE

MTBCT2:	AOS A,MTBCTA		;GET COUNT OF RECORDS TO SKIP
	RETSKP			;AND EXIT

MTBCT3:	SKIPG FILLEN(JFN)	;ANY BUFFER SET UP?
	JRST MTBCT4		;NO, JUST COUNT QUEUED UP BUFFERS
	CALL CLRINP		;YES, CLEAR OUT THE BUFFER IN PROGRESS
	 RET			;ERROR OCCURED
MTBCT4:	CALL GTUBFA		;GET NEXT BUFFER QUEUED UP
	 JRST [	MOVE A,MTBCTA	;NO MORE, GET COUNT
		RETSKP]		;AND RETURN
	CALL SETSTS		;UPDATE THE STATUS
	MOVX B,IS.BOT		;HIT BOT?
	TDNN B,IRBSTS(A)	;IF YES, NO TAPE MOVED SO DONT COUNT UP
	AOS MTBCTA		;COUNT UP NUMBER OF RECORDS TO PASS OVER
	CALL IRBDON		;MARK THIS BUFFER AS DONE
	 RET			;ERROR OCCURED
	CALL STPCUB		;STEP TO NEXT USER BUFFER
	JRST MTBCT4		;LOOP BACK TIL ALL QUEUED UP IORBS DONE
;ROUTINE TO QUEUE A MTOPR REQUEST
;ACCEPTS IN A/	IORB ADR
;	    B/	FUNCTION CODE
;	    C/	COUNT
;	CALL MTPIRQ
;RETURNS +1:	ALWAYS

MTPIRQ:	STOR B,ISFCN,(A)	;SAVE FUNCTION CODE IN IORB ALSO
	MOVEM C,IRBCNT(A)	;SAVE COUNT IN IORB
	STOR C,IRBOC,(A)	;SAVE ORIGINAL COUNT ALSO
	MOVE C,[MTCHKA,,MTPINT]	;NOW SET UP INTERRUPT LEVEL HANDLER ADR
	MOVEM C,IRBIVA(A)	;SAVE IT IN IORB
	SETZRO MTCIRB		;CLEAR DUMP MODE MEMORY OF IORB
	CALL SETMOD		;SET UP DENSITY ETC.
	SETZRO ABORTF,(U)	;ALWAYS DO THE OPERATION
	CALLRET QUEIRB		;QUEUE UP THE REQUEST


;ROUTINE TO BE CALLED AT INTERRUPT LEVEL WHEN IORB IS DONE

	RESCD

MTPINT:	LOAD B,IRBFA,(A)	;MAKE SURE THIS IORB IS ACTIVE
	JUMPE B,NOACTV		;IF NOT, BUGHLT
	MOVX B,IRBFR		;MARK THAT BUFFER IS READY
	IORM B,MTIRSD(A)
	MOVX B,IRBFA		;AND CLEAR ACTIVE BIT
	ANDCAM B,MTIRSD(A)
	LOAD B,IRBUN,(A)	;GET UNIT NUMBER
	DECR MTANIR,(B)		;COUNT DOWN # OF BUSY IORB'S
	RET			;AND EXIT

	SWAPCD
;ROUTINE TO WRITE A TAPE MARK

MTATPM:	TQNN <OPNF>		;FILE OPENED?
	RETBAD (IOX2)		;NO - ERROR
	CALL MTAPBO		;OUTPUT PARTIAL BUFFERS IF ANY
	 RET			;NEED TO BLOCK
	LOAD A,MTFCN		;GET LAST FUNCTION
	CAIN A,IRFWTM		;TAPE MARK?
	JRST MTTPM1		;YES
	SETZRO MTNTM		;NO, SET COUNT TO 0
MTTPM1:	CALL GETIRB		;GET AN IORB TO USE
	 RET			;NEED TO BLOCK
	MOVEI B,IRFWTM		;WRITE A TAPE MARK
	MOVEI C,1		;JUST 1
	CALL MTPIRQ		;QUEUE IT UP
	CALL NTMINC		;INCREMENT # OF TAPE MARKS WRITTEN
	RETSKP			;ALL DONE


;ROUTINE TO WRITE N TAPE MARKS
;ACCEPTS IN A/	NUMBER OF TAPE MARKS TO BE WRITTEN
;	CALL MTAWTM
;RETURNS +1:	NEED TO BLOCK
;	 +2:	DONE

MTAWTM:	STKVAR <MTAWTC>
	TQNN <WRTF>		;MUST BE OPENED FOR WRITE
	RETBAD (IOX2)		;ILLEGAL ATTEMPT TO WRITE
	MOVEM A,MTAWTC		;SAVE NUMBER OF TAPE MARKS TO WRITE
	LOAD B,MTFCN		;GET LAST FUNCTION TO BE DONE
	CAIN B,IRFWTM		;WAS A TAPE MARK JUST WRITTEN?
	JRST MTWTM1		;YES
	SETZRO MTNTM		;NO, CLEAR COUNT OF TAPE MARKS WRITTEN
MTWTM1:	LOAD B,MTNTM		;GET COUNT OF TAPE MARKS WRITTEN
	CAML B,MTAWTC		;WRITTEN ENOUGH YET?
	RETSKP			;YES, EXIT
	CALL GETIRB		;GET AN IORB TO USE
	 RET			;NONE AVAILABLE, GO WAIT
	MOVEI B,IRFWTM		;GET FUNCTION CODE
	MOVEI C,1		;ONE OPERATION
	CALL MTPIRQ		;QUEUE UP REQUEST
	CALL NTMINC		;INCREMENT # OF EOF'S WRITTEN
	JRST MTWTM1		;LOOP BACK TIL ALL WRITTEN


;ROUTINE TO INCREMENT # OF TAPE MARKS WRITTEN

NTMINC:	LOAD T1,MTNTM		;GET NUMBER OF TAPE MARKS
	CAIGE T1,2		;ONLY COUNT TO 2
	AOS T1			;INCREMENT COUNT
	STOR T1,MTNTM		;STORE COUNT
	RET
;ROUTINE TO ATTACH AN MTA TO A GIVEN MT
; T2/ ARG ADDRESS

MTALOC:	SAVEAC <Q3,P3>		;SAVE WORK REGS
	MOVE T1,CAPENB		;GET CAPABILITIES
	TXNN T1,SC%WHL!SC%OPR	;*** CHECK FOR TLP INSTEAD ***
	RETBAD (MTOX7)
	UMOVE T2,3		;GET USER BLOCK ADDRESS
	UMOVE T1,0(T2)		;GET COUNT FROM ARG BLOCK
	CAIGE T1,2		;ENOUGH ROOM?
	RETBAD (ARGX04)		;NO.
	MOVEI Q3,-1(T1)		;GET COUNT MINUS THE HEADER
	MOVE P3,T2		;GET ADDRESS
	UMOVE T1,.MOMTN(P3)	;GET MT #
	SETZM T3		;ASSUME DEFAULT DENSITY
	CAIL Q3,.MODNS		;DENSITY GIVEN?
	UMOVE T3,.MODNS(P3)	;YES. GET SPECIFIED DENSITY
	CAILE T3,MTMXDN		;VALID?
	RETBAD (MTOX6)		;NO. ERROR THEN
	CAIGE Q3,.MOCVN		;CURRENT VOLUME NUMBER GIVEN?
	TDZA T2,T2		;NO. SAY NONE GIVEN
	UMOVE T2,.MOCVN(P3)	;YES. GET IT
	CALL SETMTU		;SET CORRESPONDENCE
	 RETBAD ()		;BAD
	CAIL Q3,.MONVL		;HAVE VOLUME LABELS TO DECLARE?
	 JRST [	UMOVE T1,.MOMTN(P3) ;YES. MT UNIT NUMBER
		UMOVE T2,.MOAVL(P3) ;GET ADDRESS OF LABELS
		UMOVE T3,.MONVL(P3) ;GET # OF LABELS
		CALL PUTVOL	;PUT LABELS INTO TAPE'S DATA BASE
		 RETBAD ()	;SOME SORT OF ERROR
		JRST .+1]	;PROCEED
	SOJLE Q3,RSKP		;IF NO MORE, ALL DONE
	UMOVE T1,.MOMTN(P3)	;GET MT UNIT NUMBER AGAIN
	UMOVE T2,.MOLBT(P3)	;GET LABEL TYPE
	SETZM T3		;ASSUME NO VOLUME # PRESENT
	CAIL Q3,.MOCVN-1	;VOLUME # PRESENT
	UMOVE T3,.MOCVN(P3)	;YES. FETCH IT THEN
	SOSL T2			;A VALID TYPE?
	CAILE T2,.LTMAX-1	;STILL?
	RETBAD (ARGX05)		;NO
	XCT [	CALL SETVV	;SET VALID VOLUME
		CALL SETLBL	;SET LABELED
		CALL SETEBD	;SET EBCDIC VOLUME
		CALL SETT20](T2) ;SET TOPS20 VOLUME
	 RETBAD ()		;BAD
	CAIGE Q3,.MOVSN-1	;HAVE A VOLUME SET NAME?
	RETSKP			;ALL DONE
	UMOVE T1,.MOMTN(P3)	;YES. GET MT #
	UMOVE T3,.MOVSN(P3)	;AND GET VOLUME SET NAME
	CALL SETVSN		;SET IT
	 RETBAD ()		;ERROR
	RETSKP			;AND DONE

;ROUTINE TO RETURN CURRENT STATUS OF MTA
;

MTASTA:	SAVEP			;SAVE REGISTERS
	UMOVE P3,3		;GET ADDRESS OF ARGUMENT BLOCK
	UMOVE T3,0(P3)		;GET SIZE OF BLOCK
	ERJMP [	MOVE T1,LSTERR	;GET ERROR CODE
		RETBAD ()]	;RETURN IT TO USER
	SKIPG T3		;DOES USER WANT ANY ARGUMENTS?
	RETBAD (ARGX04)		;NO, ARGUMENT BLOCK TO SMALL
	CALL MTSTGS		;GET STATUS
	SETZ T1,0		;START WITH 0
	TXNE T2,UC.200		;CHECK FOR 200 BPI
	TXO T1,SJ%CP2		;SET 200 BPI
	TXNE T2,UC.556		;556 BPI
	TXO T1,SJ%CP5
	TXNE T2,UC.800		;800 BPI
	TXO T1,SJ%CP8
	TXNE T2,UC.160		;1600 BPI
	TXO T1,SJ%C16
	TXNE T2,UC.625		;6250 BPI
	TXO T1,SJ%C62
	CAIL T3,.MODDN
	UMOVEM T1,.MODDN(P3)	;STORE DENSITIES CAPABLE
	SETZ T1,0		;DO DATA MODES
	TXNE T2,UC.CD		;CORE DUMP
	TXO T1,SJ%CMC
	TXNE T2,UC.6B		;SIXBIT
	TXO T1,SJ%CM6
	TXNE T2,UC.AA		;ANSI ASCII
	TXO T1,SJ%CMA
	TXNE T2,UC.IC		;INDUSTRY COMPATABLE
	TXO T1,SJ%CM8
	TXNE T2,UC.HD		;HIGH DENSITY
	TXO T1,SJ%CMH
	CAIL T3,.MODDM
	UMOVEM T1,.MODDM(P3)	;STORE DATA MODES CAPABLE
	SETZ T1,0		;RESET T1
	TXNE T2,UC.7TK		;CHECK FOR 7 TRACK
	TXOA T1,SJ%7TR		;YES
	TXO T1,SJ%9TR		;NO MUST BE 9 TRACK
	CAIL T3,.MOTRK
	UMOVEM T1,.MOTRK(P3)
	SETZ T1,0		;RESET T1
	TXNE P6,US.OFS		;OFLINE
	TXO T1,SJ%OFS
	TXNE P6,US.MAI
	TXO T1,SJ%MAI		;MAINT MODE
	TXNE P6,US.MRQ		;MAINT MODE REQUESTED
	TXO T1,SJ%MRQ
	TXNE P6,US.BOT		;BOT
	TXO T1,SJ%BOT
	TXNE P6,US.REW		;REWIND
	TXO T1,SJ%REW
	TXNE P6,US.WLK		;WRITE LOCK
	TXO T1,SJ%WLK
	CAIL T3,.MOCST
	UMOVEM T1,.MOCST(P3)	;STORE WORD
	LDB P6,[POINT USSTYP,P6,USPTYP] ;GET DEVICE TYPE
	CAIL T3,.MODVT
	UMOVEM P6,.MODVT(P3)	;STORE DEVICE TYPE
	RETSKP			;DONE AT LAST

	RESCD			;MUST BE RESIDENT CODE
MTSTGS:	IOPIOF			;INTERLOCK WITH MTALN TO PREVENT A MESS
	HRRZ T2,MTCUTB(U)	;GET UDB POINTER
	MOVE P6,UDBSTS(T2)	;GET STATUS WORD
	MOVE T2,UDBCHR(T2)	;GET CHARACTERISTICS WORD
	IOPION			;ENABLE INTERRUPTS AGAIN
	RET
	SWAPCD			;SWAPABLE CODE AGAIN
;
; .MOOFL - ENABLE FOR ONLINE/OFFLINE PSI INTERRUPTS

MTAONL:	MOVX T1,SC%WHL!SC%OPR!SC%MNT	;CHECK PRIVS
	TDNN T1,CAPENB
	RETBAD (CAPX2)			;NOT ENOUGH CAPABILITIES
	MOVEI T1,1		;GET OFFSET TO PSI CHANNEL IN ARG BLOCK
	CALL GETWRD		;GET PSI CHANNNEL TO ENABLE
	 RETBAD (MTOX13)	;ARGUMENT BLOCK TOO SMALL
	CAIN T2,-1		;CHECK FOR -1 (CLEAR)
	JRST [	SETZM MTPSFK(U)	;CLEAR PSI
		RETSKP]		;QUIT
	CAIL T2,0		;CHECK THAT GIVEN PSI CHANNEL IS VALID
	CAILE T2,5		; ASSIGNABLE CHANNEL
	JRST [	CAIL T2,^D24	;CHECK THAT GIVEN PSI CHANNEL IS VALID
		CAILE T2,^D35	; ASSIGNABLE CHANNEL
		RETBAD (MTOX14)	;BAD PSI CHANNEL NUMBER GIVEN
		JRST .+1]	;PSI CHANNEL OK
	HRRM T2,MTPSFK(U)	;SAVE PSI
	MOVE T2,FORKX		;GET FORK NUMBER
	HRLM T2,MTPSFK(U)	;SAVE FORK NUMBER
	RETSKP			;SUCCESS RETURN

;ROUTINE TO KILL ENTRIES IN MTPSFK. IT IS CALLED BY KSELF

MTAKFK::MOVE T1,[-MTAN,,MTPSFK]	;POINTER TO TABLE
MTAFKL:	HLRZ T2,0(T1)		;GET FORK #
	CAIN 7,0(2)		;CHECK AGAINST TABLE
	SETZM 0(T1)		;CLEAR ENTRY
	AOBJN T1,MTAFKL		;NEXT ENTRY
	RET			;QUIT
;ROUTINES TO DO DUMP MODE IO TO AND FROM MAGTAPE
;CALLED FROM IO AND TAPE
;ACCEPTS IN A/	IOWD

MTDMOX::TDZA B,B		;FLAG FOR EXEC ADDRS
MTDMPO::SETO B,			;FLAG FOR USER ADDRS
	TRVAR <MTDMOT,MTDMOF,MTDMAD>
	MOVEM B,MTDMAD		;SAVE FOR LATER
	MOVEM A,MTDMOT		;SAVE IOWD
	SETOM MTDMOF		;MARK THAT A DUMPO WAS DONE
	HLRZ U,DEV		;SET UP UNIT NUMBER
	MOVE IOS,MTASTS(U)	;GET STATUS BITS
	TQNN <WRTF>		;OPENED FOR WRITE?
	RETBAD (IOX2)		;NO
	CALL CHKERO		;ANY ERRORS?
	 RET			;YES
	JRST MTDMO1		;ENTER COMMON CODE

MTDMIX::TDZA B,B		;FLAG FOR EXEC ADDRS
MTDMPI::SETO B,			;FLAG FOR USER ADDRS
	TRVAR <MTDMOT,MTDMOF,MTDMAD>
	MOVEM B,MTDMAD		;SAVE FLAG
	MOVEM A,MTDMOT		;SAVE IOWD
	SETZM MTDMOF		;MARK THAT A DUMPI WAS DONE
	HLRZ U,DEV		;SET UP UNIT NUMBER
	TQNN <READF>		;OPENED FOR READ?
	RETBAD (IOX1)		;NO
	LOAD A,MTFCN		;GET LAST FUNCTION DONE
	CAIE A,IRFRED		;LAST ONE A READ?
	CAIN A,IRFRDR		;OR READ REVERSE?
	JRST MTDMI0		;YES, DONT NEED TO UPDATE STATUS
	CALL UPDSTS		;UPDATE STATUS
	 RET			;NEED TO BLOCK
MTDMI0:	CALL CHKERI		;ANY ERRORS OR EOF?
	 RET			;YES
MTDMO1:	MOVX IOS,MTOWT		;CLEAR MTOPR WAIT FLAG
	ANDCAB IOS,MTASTS(U)
	TXC IOS,OPN!OPND	;OPENED FOR DUMP MODE
	TXCE IOS,OPN!OPND	; AND OPENED?
	RETBAD (DUMPX2)		;NO, MUST BE MODE 17 FOR DUMPI/O
	TXNE IOS,DMPWT		;IN A DUMP MODE WAIT?
	JRST MTDMI1		;YES, GO SEE IF WAIT IS FINISHED
	;..
	;..
	CALL GETIRB		;GET AN IORB TO USE
	 RET			;NEED TO WAIT FOR ONE
	MOVEI B,IRFRED		;SET FUNCTION
	LOAD C,MTRBF		;GET READ BACKWARDS FLAG
	SKIPE C			;READING BACKWARDS?
	MOVEI B,IRFRDR		;YES, GET CORRECT FUNCTION CODE
	SKIPE MTDMOF		;OPENED FOR WRITE
	MOVEI B,IRFWRT		;YES, SET WRITE FUNCTION
	MOVE C,MTDMOT		;GET THE IOWD
	LOAD D,MTCIRB		;GET LAST IORB IN USE
	STOR D,MTLIRB		;SAVE IT FOR STATUS CHECK LATER
	STOR A,MTCIRB		;SAVE CURRENT IORB ADR
	CALL MTDIRQ		;GO BUILD AN IORB AND CALL PHYSIO
	 RETBAD			;FAILED, GIVE ERROR RETURN
MTDMI1:	CALL MTDWAT		;WAIT FOR APPROPRIATE TIME
	 RET			;ROUTINE WANTS TO BLOCK
	LOAD A,MTLIRB		;GET ADR OF LAST IORB
	TQNN <NWTF>		;IN NO-WAIT MODE?
	LOAD A,MTCIRB		;NO, GET CURRENT IORB
	JUMPE A,MTDMI2		;IF NONE, OK
	CALL SETSTS		;SEE IF ANY ERRORS OCCURED
MTDMI2:	SKIPE MTDMOF		;WRITING?
	JRST [	CALL CHKERO	;YES, CHECK FOR ERRORS
		 RET		;THERE ARE ERRORS
		JRST MTDMI3]
	CALL CHKERI		;CHECK FOR ERRORS OR EOF
	 RET			;TAKE ERROR RETURN
MTDMI3:	MOVE IOS,MTASTS(U)	;GET STATUS
	SKIPE MTDMOF		;WRITING?
	TXNN IOS,MT%EOT		;AND AT EOT?
	RETSKP			;NO, ALL DONE
;**;[1876] Add one line at MTDMI3: +4L	JGZ	18-MAY-81
	TQO <ERRF>		;[1876] SET ERROR
	RETBAD (IOX5)		;RETURN ERROR
;ROUTINE TO QUEUE AN IORB FOR PHYSIO
;ACCEPTS IN A/	IORB ADR
;	    B/	FUNCTION CODE
;	    C/	IOWD TO BE TRANSFERED (IN CONTEXT OF USER PROGRAM)
;	CALL MTDIRQ
;RETURNS +1:	ALWAYS

;NOTE: THIS ROUTINE ASSUMES THE EXISTENCE OF THE TRVAR IN
;MTDMPO AND MTDMPI

MTDIRQ:	STKVAR <MTDIRA,MTDIRC,MTDIRI,MTDIRM,MTDIRT,MTDIRL,MTDIRF,MTDIRZ>
	MOVEM A,MTDIRI		;SAVE IORB ADR
	MOVEM B,MTDIRF		;SAVE FUNCTION CODE
	HLRO B,C		;GET COUNT
	MOVNM B,MTDIRC		;SAVE POSITIVE COUNT
	HRRZI C,1(C)		;POINT TO FIRST WORD
	SKIPN MTDMAD		;CALLED FROM THE MONITOR?
	JRST MTDIR5		;YES. DON'T APPLY PCS
	XSFM B			;GET FLAGS
	ANDI B,EXPCS		;GET ONLY PREVIOUS CONTEXT SECTION
	HRL C,B			;ADD PCS TO THE ADDRESS
MTDIR5:	MOVEM C,MTDIRA		;SAVE ADDRESS OF FIRST WORD
	MOVE B,MTDIRA		;NOW CALCULATE NUMBER OF PAGES
	ADD B,MTDIRC		;GET END OF USER BUFFER
	SOS B			;GET ADR OF LAST WORD REFERENCED
	TRZ B,777		;GET PAGE ADDRESS
	TRZ C,777		; OF START AND END OF BUFFER
	SUB B,C			;GET # OF PAGES -1
	LSH B,-PGSFT
;**;[2954] change one line at mtdir5+10   rah    jun 15 83
;**;[2872] Change 1 [2626] line at MTDIR5:+8.L	PED	17-NOV-82
;**;[2626] Change 1 line at MTDIR5:+8.L	PED	11-JUN-82
	CAILE B,MAXPPB-1	;[2626][2872][2954] LEGAL LENGTH? (LEAVING ROOM FOR 0 WORD)
	RETBAD (DUMPX3)		;NO, NOT ENOUGH ROOM IN IORB FOR IOWD'S
	MOVE A,MTDIRF		;GET FUNCTION
	CAIE A,IRFRED		;READ?
	CAIN A,IRFRDR		;OR READ BACKWARDS?
	JRST [	CALL WRPGS	;YES. PRE-WRITE THE PAGES THEN
		 RETBAD ()	;ERROR
		JRST .+1]	;PROCEED
	MOVE A,MTDIRF		;GET FUNCTION AGAIN
	CAIN A,IRFWRT		;WRITE?
	JRST [	CALL RDPGS	;YES.  PRE-READ THE PAGES THEN
		 RETBAD ()	;ERROR
;**;[1927] Change/add 1900 lines at MTDIR5: +20L	JGZ	20-AUG-81
;**;[1900] Delete edit 1895 lines at MTDIR5: +20L	TAM	25-JUN-81
		JRST .+1]	;PROCEED
	MOVE A,MTDIRI		;GET IORB ADR
	LOAD D,ISFCN,(A)	;GET THE FUNCTION CODE
	SKIPE D			;IT SHOULD BE ZERO
	BUG(MTAORN)
	ADDI A,MTIRTL		;GET ADDRESS OF START OF TRANSFER LIST
	MOVEM A,MTDIRZ		;SAVE POINTER TO START OF LIST
	MOVE D,MTDIRF		;GET FUNCTION
	CAIE D,IRFRDR		;READING BACKWARDS?
	JRST MTDIR0		;NO
	ADDI A,0(B)		;YES, PUT ENTRIES IN FROM END OF LIST
MTDIR0:	MOVEM A,MTDIRL
	SKIPN MTDMAD		;EXEC XFER?
	JRST [	MOVE B,U	;YES - GET UNIT #
		LSH B,1		; TIMES 2
		ADDI B,TLABBP	; INDEX INTO POINTER LIST
		JRST MTDR1A]
	LOAD B,MTCSB		;GET ADDRESS OF LIST OF LOCKED PAGES
;**;[2954] change one line at mtdir0+4   rah    jun 15 83
	IMULI B,MAXPPB+1		;[2954]USED AT INTERRUPT LEVEL TO UNLOCK
	OPSTR <ADD B,>,MTBUF	;GET ABSOLUTE ADR OF LIST
MTDR1A:	MOVEM B,MTDIRM		;SAVE FOR LATER
	MOVE A,MTDIRI		;GET ADR OF IORB
	STOR B,IRBPB,(A)	;STORE LIST ADR IN IORB
	LOAD B,MTHBW		;GET BYTES PER WORD
	IMUL B,MTDIRC		;GET TOTAL BYTES IN TRANSFER
	MOVEM B,IRBCNT(A)	;SET UP COUNT IN IORB
	STOR B,IRBOC,(A)	;SAVE COUNT TWICE FOR CHKERR
	;..
	;..
MTDIR1:	SETZM @MTDIRM		;ZERO THIS LIST ELEMENT FIRST
	SKIPG MTDIRC		;ANY MORE WORDS TO BE TRANSFERED?
	JRST MTDIR3		;NO, GO POST REQUEST
	MOVE B,MTDIRA		;GET ADDRESS OF FIRST WORD
	ANDI B,777		;GET OFFSET IN PAGE
	MOVEI C,PGSIZ		;GET NUMBER OF WORDS LEFT ON PAGE
	SUB C,B			;...
	CAMLE C,MTDIRC		;NOW SEE IF THERE ARE ENOUGH LEFT
	MOVE C,MTDIRC		;NO, JUST TRANSFER THE REMAINDER
	MOVEM C,MTDIRT		;SAVE COUNT
	SUBM C,MTDIRC		;UPDATE THE COUNT
	MOVNS MTDIRC		;DO WHAT SUBM DOESNT
	MOVE A,MTDIRA		;GET ACTUAL ADDRESS
	SKIPE MTDMAD		;SKIP IF EXEC PAGE
	TXO A,1B0		;MARK THIS AS A USER PAGE
	CALL MLKMA		;LOCK DOWN THE PAGE
	MOVEM A,@MTDIRM		;SAVE PHYSICAL ADDRESS FOR UNLOCKING
;**;[1875] Change 4 lines at MTDIR1:+ 17L	PED	14-MAY-81
	MOVE B,MTDIRF		;[1875] GET FUNCTION
	CAIE B,IRFRED		;[1875] READING?
	CAIN B,IRFRDR		;[1875] OR READ REVERSE?
	CALL MRKMPG		;[1875] YES, MARK THAT PAGE IS MODIFIED
	MOVE B,@MTDIRM		;GET PHYSICAL PAGE FOR PHYCCW
	LSH B,PGSFT		;MAKE IT INTO AN ADDRESS
	MOVE C,MTDIRA		;GET USER ADDRESS AGAIN
	ANDI C,777		;LOW ORDER BITS ONLY
	IOR B,C			;SET STARTING WORD WITHIN PAGE
	MOVE C,MTDIRT		;GET COUNT OF WORDS ON THIS PAGE
	ADDM C,MTDIRA		;UPDATE THE ADDRESS OF USER BUFFER
	LOAD A,MTHBW		;GET # OF HARDWARE BYTES PER WORD
	IMUL A,MTDIRT		;GET # OF BYTES TO BE TRANSFERED
	OPSTR <HRL A,>,MTDM	;ADD IN MODE OF TRANSFER
	MOVE D,MTDIRF		;GET FUNCTION CODE
	CAIE D,IRFRDR		;READING BACKWARDS?
	JRST MTDIR2		;NO
	ADDI B,-1(C)		;YES, START AT LAST WORD OF BLOCK
	TXO A,1B0		;SET BIT 0 TO INDICATE BACKWARDS
MTDIR2:	HLRZ C,MTCUTB(U)	;GET CDB FOR THIS UNIT
	CALL PHYCCW		;GET TRANSFER COMMAND
	MOVEM A,@MTDIRL		;SAVE COMMAND IN TRANSFER LIST
	MOVE D,MTDIRF		;GET FUNCTION
	CAIN D,IRFRDR		;READING BACKWARDS?
	SOSA MTDIRL		;YES, STEP BACK THROUGH LIST
	AOS MTDIRL		;STEP TO NEXT ITEM IN TRANSFER LIST
	AOS MTDIRZ		;STEP POINTER TO END OF LIST
	AOS MTDIRM		;STEP TO NEXT ITEM IN PAGE LIST
	JRST MTDIR1		;LOOP BACK TILL FINISHED
MTDIR3:	MOVE C,MTDIRZ		;GET POINTER TO TAIL OF TRANSFER LIST
	SETZM 0(C)		;END WITH A ZERO
	MOVE A,MTDIRI		;GET ADR OF IORB
	STOR C,IRBTL,(A)	;SAVE ADR OF TAIL IN IORB
	MOVEI C,MTIRTL(A)	;GET POINTER TO TRANSFER LIST HEAD
	STOR C,IRBHD,(A)	;STORE HEAD POINTER
	CALL SETMOD		;SET UP DENSITY, DATA MODE, PARITY
	MOVE D,MTDIRF		;GET FUNCTION CODE
	STOR D,ISFCN,(A)	;PUT IT IN IORB
	MOVE D,[MTCHKA,,MTDINT]	;NOW SET UP INTERRUPT LEVEL HANDLER ADR
	MOVEM D,IRBIVA(A)	; IN IORB
	CALL QUEIRB		;QUEUE THE IORB
	RETSKP			;GIVE OK RETURN

;SUBROUTINE OF MTDIRQ TO PRE-WRITE ALL PAGES FOR DUMP MODE INPUT.
;	B/	#PAGES -1
;	C/	STARTING PAGE NUMBER
;CLOBBERS ONLY A AND D
;RETURNS:	+1 ERROR
;		+2 ALL SET

WRPGS:	MOVE D,C		;COPY PAGE #
	MOVE A,B		;COPY COUNT
	SKIPE MTDMAD		;MONITOR OR USER?
	SKIPA CX,[XCTU [MOVES 0(D)]] ;USER. GET PROPER INSTRUCTION
	MOVE CX,[MOVES 0(D)]	;EXEC.
WRPG0:	XCT CX			;MODIFY THE PAGE
	 ERJMP [RETBAD (DUMPX4)] ;ACCESS ERROR
	ADDI D,PGSIZ		;NEXT PAGE
	SOJGE A,WRPG0		;DO THEM ALL
	RETSKP			;AND DONE

;**;[1927] Change/add 1900 lines at WRPG0: +6L	JGZ	20-AUG-81
;**;[1900] Delete edit 1895 lines at WRPG0: +6L	TAM	25-JUN-81

;SUBROUTINE OF MTDIRQ TO PRE-READ PAGES FOR DUMP MODE OUTPUT
;	B/	#PAGES-1
;	C/	STARTING PAGE NUMBER
;CLOBBERS A AND D
;RETURNS:	+1 ERROR, CODE IN A
;		+2 OK

RDPGS:	MOVE D,C		;COPY PAGE NUMBER
	MOVE A,B		;COPY PAGE COUNT
	SKIPE MTDMAD		;CHECK MONITOR OR USER
	SKIPA CX,[XCTU [SKIP 0(D)]] ;USER
	MOVE CX,[SKIP 0(D)]	;MONITOR, GET PROPER INSTRUCTION
RDPG0:	XCT CX			;ACCESS THE PAGE
	 ERJMP [RETBAD (DUMPX4)] ;REPORT ACCESS ERROR
	ADDI D,PGSIZ		;NEXT PAGE
	SOJGE A,RDPG0		;LOOP FOR THEM ALL
	RETSKP			;AND DONE
;ROUTINE TO WAIT FOR APPROPRIATE EVENT AFTER QUEUEING IORB
;	CALL MTDWAT
;RETURNS +1:	ROUTINE WANTS TO BLOCK
;	 +2:	WAITING IS NOT NECESSARY

MTDWAT:	LOAD A,MTNIR		;GET NUMBER OF REQUESTS IN QUEUE
	JUMPE A,MTDWTR		;IF 0, RETURN IMMEDIATELY
	TQNE <NWTF>		;"NO WAIT" MODE?
	CAILE A,1		;YES, WAIT FOR COUNT TO GO TO 1
	JRST MTDWT0		;MUST WAIT
MTDWTR:	MOVX IOS,DMPWT		;MARK THAT WAITING IS OVER
	ANDCAB IOS,MTASTS(U)
	RETSKP			;GIVE SKIP RETURN

MTDWT0:	MOVX IOS,DMPWT		;MARK THAT WE ARE WAITING
	IORB IOS,MTASTS(U)
	MOVEI A,MTAWAT		;GET ADR OF ROUTINE TO DO TEST
	TQNE <NWTF>		;IF "NO WAIT" MODE,
	MOVEI A,MTDWT1		; THEN WAIT FOR COUNT TO GO TO 1
	HRL A,U			;GET UNIT NUMBER
	TQO <BLKF>		;SET BLOCK FLAG
	RET			;AND GIVE NON-SKIP RETURN


;ROUTINE TO WAIT FOR COUNT OF REQUESTS TO GO TO 1

	RESCD

MTDWT1::LOAD B,MTANIR,(A)	;GET COUNT OF OUTSTANDING REQUESTS
	CAILE B,1		;DOWN TO 1 YET?
	JRST 0(4)		;NO
	JRST 1(4)		;YES, WAIT IS OVER

	SWAPCD
;ROUTINE TO HANDLE AN INTERRUPT FROM END OF A DUMP MODE REQUEST

	RESCD

MTDINT:	LOAD B,IRBFA,(A)	;MAKE SURE THE IORB IS ACTIVE
	JUMPE B,NOACTV		;IF NOT, THEN BUGHLT
	MOVE B,IRBCNT(A)	;GET FINAL COUNT
	OPSTR <CAME B,>,IRBOC,(A) ;MUST BE THE SAME
	JRST MTDIN3		;NOT. RECORD LENGTH ERROR
	MOVE B,IRBSTS(A)	;GET STATUS OF REQUEST
	TXNE B,IS.ERR!IS.TPM	;ERROR OR TAPE MARK?
	JRST MTDINE		;YES, GO ABORT OTHER IORBS
MTDIN0:	CALLRET MTDIND		;NO, GO UNLOCK THIS IORB

MTDINE:	TXNN B,IS.WGU!IS.TPM!IS.DTE!IS.DVE!IS.NRT
	JRST [	LOAD C,ISFCN,(A) ;GET FUNCTION
		CAIN C,IRFWRT	;WRITING?
		TXNN B,IS.EOT	;YES, THEN CHECK FOR EOT ALSO
		JRST MTDIN0	;NO, THIS IS NOT AN ERROR
		JRST .+1]	;EOT ABORTS FURTHER WRITES
MTDIN3:	SAVEQ
	LOAD U,IRBUN,(A)	;SET UP UNIT NUMBER FOR MTAKIL
	CALL MTDIND		;CLEAN UP THE CURRENT IORB FIRST
	CALLRET MTAKIL		;THEN ABORT ALL OTHER IORBS

MTDIND:	SAVEQ			;SAVE PERMANENT ACS USED
	MOVX B,IRBFR		;MARK THAT BUFFER IS READY
	IORM B,MTIRSD(A)
	MOVX B,IRBFA		;AND CLEAR ACTIVE BIT
	ANDCAM B,MTIRSD(A)
	LOAD U,IRBUN,(A)	;GET UNIT NUMBER
	LOAD Q3,IRBPB,(A)	;GET POINTER TO LIST OF PAGES TO UNLOCK
	HRLI Q3,-MAXPPB		;SET UP AOBJN POINTER
MTDIN1:	MOVE A,0(Q3)		;GET PAGE TO UNLOCK
	JUMPE A,MTDIN2		;IF 0, REACHED END OF LIST
	CALL MULKCR		;UNLOCK THE PAGE
	AOBJN Q3,MTDIN1		;LOOP BACK FOR ALL PAGES
MTDIN2:	DECR MTNIR		;DECREMENT COUNT OF REQUESTS IN QUEUE
	RET			;AND RETURN

	SWAPCD

	TNXEND
	END