Google
 

Trailing-Edge - PDP-10 Archives - bb-m081z-sm - exec/exec2.mac
There are 47 other files named exec2.mac in the archive. Click here to see a list.
; Edit= 4439 to EXEC2.MAC on 21-May-90 by GSCOTT
;Clear control-O bit between TYPE of multiple files. 
; Edit= 4430 to EXEC2.MAC on 16-Feb-90 by LOMARTIRE
;Clear BUF0 in COPTTY so that COPY and APPEND don't randomly set bit 35
; Edit= 4404 to EXEC2.MAC on 7-Apr-88 by RASPUZZI, for SPR #21939
;Make EXEC echo control characters after one attaches by doing a wild and
;wolly ETYPE of nothing to the terminal. It works, I don't know why and I am
;not questioning.
; UPD ID= 4108, RIP:<7.EXEC>EXEC2.MAC.2,   7-Mar-88 18:20:51 by GSCOTT
;TCO 7.1255 - Update copyright notice.
; UPD ID= 218, SNARK:<6.1.EXEC>EXEC2.MAC.12,  10-Jun-85 08:42:29 by DMCDANIEL
; UPD ID= 197, SNARK:<6.1.EXEC>EXEC2.MAC.11,  14-May-85 10:32:32 by MCCOLLUM
;TCO 6.1.1386 - Remove SUPERSEDE subcommand from APPEND
; UPD ID= 162, SNARK:<6.1.EXEC>EXEC2.MAC.10,   3-May-85 08:29:27 by DMCDANIEL
;Update copyrights for 6.1.
; UPD ID= 128, SNARK:<6.1.EXEC>EXEC2.MAC.9,   7-Feb-85 09:38:27 by PRATT
;TCO 6.1.1179 - Remove ASCII PARITY/NOPARITY, they've never been coded. 
; UPD ID= 90, SNARK:<6.1.EXEC>EXEC2.MAC.8,  14-Nov-84 11:15:59 by MCCOLLUM
;Still more of TCO 6.1.1025 - Fix up call to MFSET
; UPD ID= 86, SNARK:<6.1.EXEC>EXEC2.MAC.6,  12-Nov-84 16:22:32 by MCCOLLUM
;TCO 6.1.1044 - Add NEWER option to COPY SUPERSEDE
; UPD ID= 53, SNARK:<6.1.EXEC>EXEC2.MAC.5,   5-Nov-84 15:18:44 by MCCOLLUM
;MORE OF TCO 6.1.1025 - FIX BUG
; UPD ID= 47, SNARK:<6.1.EXEC>EXEC2.MAC.4,  30-Oct-84 13:54:43 by MCCOLLUM
;TCO 6.1.1025 - Add SUPERSEDE subcommand to COPY command.
; UPD ID= 2, SNARK:<6.1.EXEC>EXEC2.MAC.2,  28-Sep-84 12:52:00 by PRATT
;TCO 6.1.1012 - Add UNFORMATTED subcommand to TYPE
; UPD ID= 361, SNARK:<6.EXEC>EXEC2.MAC.17,  16-Dec-83 11:50:26 by TSANG
;MORE FOR TCO 6.1731
; UPD ID= 300, SNARK:<6.EXEC>EXEC2.MAC.16,  18-Jul-83 16:15:33 by JCAMPBELL
;TCO 6.1730 - Copy and mask FB%FOR in .FBCTL in FDB on COPY.
; UPD ID= 235, SNARK:<6.EXEC>EXEC2.MAC.15,  15-Jan-83 19:23:49 by CHALL
;TCO 6.1464 - UPDATE COPYRIGHT NOTICE
; UPD ID= 216, SNARK:<6.EXEC>EXEC2.MAC.14,  10-Jan-83 14:10:44 by LOMARTIRE
;TCO 6.1449 - Get system-wide logical SYSTEM: for writing SYSJOB.COMMANDS
; UPD ID= 199, SNARK:<6.EXEC>EXEC2.MAC.13,  24-Nov-82 16:28:11 by TSANG
;TCO 6.1214 - CREATE WRN MSG INSTEAD OF ERR MSG WHEN COPY A FILE OF TYPE
; .DIRECTORY.
; UPD ID= 188, SNARK:<6.EXEC>EXEC2.MAC.12,  27-Oct-82 10:14:32 by CHALL
;MORE TCO 6.1200 - MAKE SURE BYTE ADJUSTMENT STAYS WITHIN ONE PAGE
; UPD ID= 182, SNARK:<6.EXEC>EXEC2.MAC.11,  13-Oct-82 15:35:05 by TSANG
; UPD ID= 174, SNARK:<6.EXEC>EXEC2.MAC.9,   8-Oct-82 17:25:41 by TSANG
;TCO 6.1302 - MAKE AC1 GET A CORRECT JFN.
; UPD ID= 157, SNARK:<6.EXEC>EXEC2.MAC.8,  10-Sep-82 14:59:58 by TSANG
;TCO 6.1200 OUTPUT A CR/LF AT END OF A FILE WHEN USING TYPE COMMAND.
; UPD ID= 112, SNARK:<6.EXEC>EXEC2.MAC.7,   9-Apr-82 10:13:12 by CHALL
;TCO 6.1067 ..DTCH- .DETAC- ^E DIDN'T ECHO AFTER DETACH/ATTACH
; UPD ID= 131, SNARK:<5.EXEC>EXEC2.MAC.8,  13-Jan-82 16:15:37 by TILLSON
;TCO 5.1671 Copy user settable word
; UPD ID= 120, SNARK:<5.EXEC>EXECIN.MAC.21,  28-Dec-81 11:14:01 by CHALL
;TCO 6.1052 - UPDATE COPYRIGHT NOTICE AND DELETE PRE-V4.1 EDIT HISTORY
; UPD ID= 33, SNARK:<5.EXEC>EXEC2.MAC.5,  14-Aug-81 19:12:18 by CHALL
;TCO 5.1454 CHANGE NAME FROM XDEF TO EXECDE
; UPD ID= 1816, SNARK:<5.EXEC>EXEC2.MAC.4,  16-Apr-81 18:20:36 by TILLSON
;TCO 5.1286 - Pass LBLSKP a JFN, not a device type
; UPD ID= 1808, SNARK:<5.EXEC>EXEC2.MAC.3,  15-Apr-81 11:12:56 by TILLSON
;TCO 5.1282 - Stop 512-page COPY from going long
; UPD ID= 1725, SNARK:<5.EXEC>EXEC2.MAC.2,  17-Mar-81 13:14:38 by SCHMITT
;TCO 5.1274 - Fix COPY from labelled EBCDIC tapes to use bytesize 7
;REMOVE MFRK CONDITIONALS
; UPD ID= 1190, SNARK:<5.EXEC>EXEC2.MAC.6,  23-Oct-80 14:08:40 by TILLSON
;tco 5.1178 - Fix COPY from labelled ANSI-ASCII tapes to use bytesize 7
; UPD ID= 803, SNARK:<5.EXEC>EXEC2.MAC.5,  28-Jul-80 09:53:36 by OSMAN
;tco 5.1113 - Don't type [OK] until after CLOSF
; UPD ID= 532, SNARK:<5.EXEC>EXEC2.MAC.4,  20-May-80 14:55:27 by MURPHY
;CHANGE SOME XTND TO NEWF OR MFRK
; UPD ID= 490, SNARK:<4.1.EXEC>EXEC2.MAC.6,  29-Apr-80 16:20:51 by TOMCZAK
;TCO 4.1.1152 - Add ERJMP after XCT in COPNCR, change SKIPE to JUMPE
;more 4.1.1099 - Handle files with page 777777
; UPD ID= 303, SNARK:<4.1.EXEC>EXEC2.MAC.2,   5-Mar-80 11:24:23 by OSMAN
;tco 4.1.1099 - Fix COPY to not go forever on files exactly one section long

;	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1976, 1990.
;	ALL RIGHTS RESERVED.
;
;	THIS SOFTWARE IS FURNISHED UNDER A  LICENSE AND MAY BE USED AND  COPIED
;	ONLY IN  ACCORDANCE  WITH  THE  TERMS OF  SUCH  LICENSE  AND  WITH  THE
;	INCLUSION OF THE ABOVE  COPYRIGHT NOTICE.  THIS  SOFTWARE OR ANY  OTHER
;	COPIES THEREOF MAY NOT BE PROVIDED  OR OTHERWISE MADE AVAILABLE TO  ANY
;	OTHER PERSON.  NO  TITLE TO  AND OWNERSHIP  OF THE  SOFTWARE IS  HEREBY
;	TRANSFERRED.
;
;	THE INFORMATION IN THIS  SOFTWARE IS SUBJECT  TO CHANGE WITHOUT  NOTICE
;	AND SHOULD  NOT  BE CONSTRUED  AS  A COMMITMENT  BY  DIGITAL  EQUIPMENT
;	CORPORATION.
;
;	DIGITAL ASSUMES NO  RESPONSIBILITY FOR  THE USE OR  RELIABILITY OF  ITS
;	SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
;TOPS20 'EXECUTIVE' COMMAND LANGUAGE

	SEARCH EXECDE
	TTITLE EXEC2

;THIS FILE CONTAINS CODE TO EXECUTE SOME OF THE LONGER COMMANDS:
; COPY/APPEND
; TYPE
; REDIRECT/DETACH
;TYPE.  CAUSE SOURCE FILE(S) TO BE COPIED TO TTY.
;SET UP ARGS AND JOIN COPY.

.TYPE::	MOVEI Q1,CP%TYP		;IDENTIFY
TYPE1::	MOVE A,COJFN		;USE COMMAND OUTPUT JFN
	MOVEM A,OUTDSG
	TLO Z,F1		;SIGNAL THAT THIS IS A COPY COMMAND
	CAIE Q1,CP%HEL		;NO NOISE IF ENTERING FROM HELP COMMAND
	NOISE (FILE)
	SETZ Q2,
	TLZ Z,F2		;NOT APPEND
	CAIN Q1,CP%HEL		;COMING FROM "HELP" COMMAND ?
	 JRST TPNFIL		;YES - NO FILE SPEC NEEDED NOW
	DMOVE A,[EXP 0,<(GJ%OLD!GJ%IFG!1B15!1B16)>] ;NO SPECIAL, OLD FILE, STARS ALLOWED, LIST O.K., LIST IS LAST ON LINE
	CALL SPECFN		;GATHER SPECS TO TYPE
	 SUBCOM $TYPE		;READ SUBCOMMANDS
TPNFIL:	SETZM TYPGRP		;DON'T PRINT NAME UNLESS GROUPF ON
	SETZM MCOJFN		;SAY NOT MULTI FILE OUTPUT
	SETOM TYPING		; SAY TYPING ON TERMINAL
	CALL COP1A		;GO JOIN COPY
TYPFIN::SKIPN TPCCOC
	 RET			;DON'T RESTORE SETTINGS IF NOT SAVED
	MOVEI Q1,ETTYMD		;RESET TERM CHARACTERISTICS 
	CALL LTTYMD		;RESTORE STATE OF LINE
	MOVEI A,.CTTRM
	MOVEI B,.MOSLW		;SPECIFY SETTING LINE WIDTH
	HRRZ C,TPTTYP		;PICK UP PREVIOUS WIDTH
	MTOPR			;DO IT
	 ERCAL CJERRE		;GO SAY WHY IT FAILED
	MOVEI A,.CTTRM
	MOVEI B,.MOSLL		;SPECIFY SETTING LINE LENGTH
	HLRZ C,TPTTYP		;PICK UP PREVIOUS WIDTH
	MTOPR			;DO IT
	 ERCAL CJERRE		;GO SAY WHY IT FAILED
	SETZM TPCCOC		;UNFLAG THE "CCOC CHANGED" FLAG
	RET
$TYPE:	TABLE			;TYPE SUBCOMMAND TABLE
	T UNFORMATTED,,.TRTYP
	TEND

.TRTYP:	NOISE (OUTPUT)		;UNFORMATTED 
	CONFIRM			
	SETOM TPCCOC		;FLAG THE UNFORMATTED TYPE 
	MOVEI A,.CTTRM
	MOVEI B,.MORLW		;SPECIFY READING LINE WIDTH
	MTOPR			;DO IT
	 ERCAL CJERRE		;GO SAY WHY IT FAILED
	MOVEM C,TPTTYP		;SAVE PREVIOUS WIDTH
	MOVEI A,.CTTRM
	MOVEI B,.MORLL		;SPECIFY SETTING READ LENGTH
	MTOPR			;DO IT
	 ERCAL CJERRE		;GO SAY WHY IT FAILED
	HRLM C,TPTTYP		;SAVE PREVIOUS WIDTH
	MOVEI A,.CTTRM		;CONTROLLING TERMINAL
	RFMOD
	 ERJMP CJERRE
	TXZ B,TT%LEN!TT%WID	;0 THE WIDTH AND THE LENGTH
	STPAR
	 ERJMP CJERRE
	MOVE B,[525252,,525252]
	MOVE C,B
	SFCOC			;SET CCOC WORDS. NO TRANSLATION OF ANY CHAR
	 ERJMP CJERRE
	RET
;COPY COMMAND:  COPY <FILE GROUP> (TO) <FILE>
;AND
;APPEND COMMAND:  APPEND <FILE GROUP> TO <FILE>

;TAKE SUBCOMMANDS.

;MODE SUBCOMMAND --   LEGAL FOR--	MODE-BYTESIZE USED--
;ASCII		ANY DEVICES		1-7 WHERE LEGAL, ELSE 0-7
;IMAGE		ONE DEVICE MUST ACCEPT	10-8 WHERE LEGAL, ELSE 0-8
;		MODE 10, OTHER MUST
;		NOT BE LPT:.
;IMAGE BINARY	NEITHER DEVICE CAN	13-36 WHERE LEGAL, ELSE 0-36
;		BE TTY: OR LPT:
;BINARY		NEITHER DEVICE CAN	14-36 WHERE LEGAL, ELSE 0-36
;		BE TTY: OR LPT:.
;ASCII PARITY	PAPER TAPE SOURCE	SEE ASCII	NOT IMPLEMENTED
;DUMP		NON-DIRECTORY DTA OR MTA		NOT IMPLEMENTED

;FLAGS IN LH Z
;F1 ON FOR PAGES COPY, OTHERWISE OFF
;F2 ON FOR APPEND, OFF FOR COPY
;F3 ON IF OUTFILE WAS ALREADY OPEN (GROUP SOURCE CASE)
;F4 ON IF NOT DISK TO DISK XFER

;FLAGS IN RH Z
;BITS FOR MODES SPECIFIED BY SUBCOMMANDS
; B35-N ON FOR MODE N, AS IN DVCHR WORD. THAT IS:
NRMF==1			;1	NORMAL - SET IF BYTE SIZE SPECIFIED
ASCF==2			;2	ASCII
			;400	IMAGE
			;4000	IMAGE BINARY
			;10000	BINARY
			;100000 DUMP

;AC USE
;P1  -1 OR BYTE SIZE AND MODE OF PREVIOUS COPY IN GROUP TO SAME DEST
;P2  - # BYTES PER PAGE WHEN COPYING BY BYTES
;P3  BYTE # OF EOF OF DISK SOURCE, # BYTES COPIED TO DSK DEST
;Q1, Q2   SEE 2 PAGES HENCE
;A, B, AND Q3 ALSO USED LOCALLY
;SPEAK COMMAND = COPY (FILE) TTY: (TO) SYSTEM:SYSJOB.COMMANDS

.SPEAK::NOISE <TO SYSJOB>
	CONFIRM
	SETZM MCOJFN		;SET UP SOME THINGS FOR COPY CODE
	SETZM TYPGRP
	HRROI B,[ASCIZ /SYSTEM:SYSJOB.COMMANDS/]
	CALL TRYGTS		;GET OUTPUT JFN
	 ERROR < Can't get JFN on SYSTEM:SYSJOB.COMMANDS>
	MOVEM A,OUTDSG
	HRROI B,[ASCIZ /TTY:/]
	CALL TRYGTJ		;INPUT FROM TTY
	 ERROR <Can't get JFN on TTY:>
	HRRZ A,JBUFP		;GET POINTER TO JFN JUST STACKED
	MOVEM A,INIFH1		;MAKE SINGLE JFN IN LIST
	MOVEM A,INIFH2
	TYPE < [Please type SYSJOB commands - end with ^Z]
>
	MOVEI Q1,CP%SPE		;IDENTIFY COMMAND
	CALL COP1A		;GO PERFORM COPY
	MOVEI A,0		;SET TO WAKE JOB 0
	TWAKE			;...
	  ERJMP CJERRE		;JSYS LOSAGE
	RET			;RETURN
;COPY/APPEND

.COPY::	SETOM TYPGRP		;TYPE ALL FILES
	SETOM SPRSED		;SUPERSEDE ALWAYS IS THE DEFAULT
	NOISE <FROM>
	TLZ	Z,F2!F1		;NOT APPEND, AND NOT TYPE
	CALL .INFG		;GET INPUT FILE GROUP DESCRIPTOR
				;ALLOWS *'S, AND COMMAS IF THEY ARE
				;IMMEDIATE FILE NAME TERMINATOR.
	NOISE <TO>
	CALL MFOUT		;MULTI FILE OUTPUT TERM
	SETOM TYPING		; MAYBE TYPING
	MOVEI Q1,CP%COP		;IDENTIFY FLAVOR
	JRST COP1A

.APPEN::SETOM TYPGRP		;TYPE ALL FILES
	NOISE <SOURCE FILE>
	TLO	Z,F2		;SAY APPEND, NOT COPY
	CALL .INFG		;GET INPUT FILE GROUP DESCRIPTOR
				;ALLOWS *'S, AND COMMAS IF THEY ARE
				;IMMEDIATE FILE NAME TERMINATOR.
	NOISE <TO>
	MOVSI A,-1		;NO DEFAULTS FOR OUTPUT
	MOVEI B,(GJ%MSG)	;PRINT NEW FILE, ETC.
	CALL SPECFN
	 JRST CERR
	MOVEM A,OUTDSG
	HRRZ A,OUTDSG
	DVCHR
	LDB D,[POINT 9,B,17]
				;NO OTHER DEVICES WORK 12/3/70
	CAIE D,.DVNUL		;DEVICE NULL IS OK
	JUMPN D,[ERROR <Destination file must be on disk>]
	SETZM MCOJFN		;SAY NOT MULTI FILE OUTPUT
	MOVEI Q1,CP%APP		;SAY IT'S AN APPEND COMMAND
COP1A:	TRVAR <CERRF,<CFBUF,EXTSIZ>,POJFLG,<TADBLK,TADLEN>,<TTBLK,10>,SAVPN,SRCTYP,DESTYP,PREPAG,SCRF,COPFLG>
	SETZM COPFLG		;ASSUME NOT A COPY COMMAND
	CAIN Q1,CP%COP		;IS THIS TRUE?
	 SETOM COPFLG		;NO
	CAIE Q1,CP%APP		;APPEND?
	CAIN Q1,CP%COP		;OR COPY?
	CAIA			;YES
	JRST COPFL		;NO, CONFIRMATION DONE
	CALL SPRTR		;ANALYZE TERMINATOR, READING MORE IF NEC.
	IFSKP.
	 JRST COPFL		;NO SUBCOMMANDS NEEDED
	ENDIF.
	CAIE Q1,CP%APP		;APPEND COMMAND?
	IFSKP.
	 SUBCOM $APPEN		;YES. GET SUBCOMMANDS
	 JRST COPFL		;DONE.
	ENDIF.	 
	SUBCOM $COPY		;READ SUBCOMMANDS
COPFL:	SETO P1,		;SAY NO PREVIOUS COPY IN GROUP
	MOVE A,JBUFP
	MOVEM A,.JBUFP		;SAVE ALL JFNS SO FAR
;TOP OF LOOP OVER INPUT FILE NAMES

COPFLN:	CALL RLJFNS		;RELEASE ANY TEMPORARY JFNS
	IORM A,CERRF		;ACCUMULATE ERRORS DURING THIS FILE
	CALL CTPOK		;TYPE OK IF APPROPRIATE
	SETZM CERRF		;NO ERROR YET
	TLZ Z,F4		;OK SO FAR
	CALL NXFILE		;CHECK FOR NON-EX FILE TERM
	 JRST [	SKIPE INIFH1	;ALL TERMS DONE?
		JRST COPFLN	;NO, NEXT
		JRST COPFLE]	;YES, DONE
	CALL TYPIF		;TYPE INPUT FILE NAME IF PROCESSING GROUP

;WHEN OUTPUT FILE GROUP DESCRIPTORS IMPLEMENTED, DETERMINE HERE
;THE DESTINATION, AND SETO P1, UNLESS THE SAME AS BEFORE.

	MOVE A,COPFLG		;GET STATUS OF COPY FLAG FOR MFSET
	CALL MFSET		;SET UP JFN FOR MULTI FILE COPY
	 JRST MCOERR		;ERROR DETECTED, MESSAGE ALREADY PRINTED
	SETZM POJFLG		;ASSUME NOT OUTPUTTING TO PRIMARY JFN
	MOVE A,OUTDSG
	CAMN A,COJFN		;QUICK CHECK HERE
	JRST ISPOJ		;WIN
	DVCHR
	LDB D,[POINT 9,B,17]
	HLL D,C
	MOVE A,COJFN
	DVCHR
	LDB B,[POINT 9,B,17]
	HLL B,C
	CAMN B,D		;SAME DEVICE?
ISPOJ:	SETOM POJFLG		;YES, OUTPUTTING TO PRIMARY JFN
;COPY/APPEND...
;CHOOSE MODE AND BYTE SIZE FOR COPY/APPEND AS A FUNCTION OF
;DEVICES AND SUBCOMMANDS GIVEN.

;AC USE
; RH Q1: BYTE(6) READ MODE,WRITE MODE,BYTE SIZE
; Q2: DISC SOURCE BYTE SIZE

;SET UP Q1 PER SUBCOMMAND, IGNORING FOR THE MOMENT WHETHER MODE
; IS LEGAL FOR DEVICES.

	SETZ Q1,		;FOR NO SUBCOMMAND, BYTE SIZE IS DEFAULTED LATER
	TRNE Z,1		;BYTE SIZE SPECIFIED?
	MOVE Q1,BYTSIZ		;LOAD THE BYTE SIZE, MODE ZERO
	TXNE Z,ASCF
	MOVEI Q1,010107
	TRNE Z,400
	MOVEI Q1,101044
	TRNE Z,4000
	MOVEI Q1,131344
	TRNE Z,10000
	MOVEI Q1,141444
;COPY/APPEND...
;DETERMINING MODE-BYTESIZE...
;FOR EACH FILE, DO A "DVCHR" TO GET TYPE NUMBER AND TO SEE IF MODE
; IS LEGAL FOR DEVICE.  CHANGE MODE TO 0 IF NOT LEGAL.
;DESTINATION

	HRRZ A,OUTDSG
	DVCHR
	TXNN B,DV%OUT
	ERROR <%1H: Can't do output>
	LDB D,[POINTR B,DV%TYP]
	MOVEM D,DESTYP		;REMEMBER DEVICE TYPE
	CAIE D,.DVDSK		;IS IT A DISK?
	TLO Z,F4		;NO - SET FLAG
	TRZ B,.DVDES
	TRNN Z,(B)		;SKIP IF MODE SUBCOM GIVEN & OK FOR THIS DEVICE
	JRST [	TRZ Q1,007700	;WRITE IN MODE 0
		TRNN B,DV%M0	;CAN DEVICE USE MODE 0 ?
		ERROR <%1H: Can't do normal mode output>
		JRST .+1]

;SOURCE

	HRRZ A,@INIFH1
	DVCHR
	TXNN B,DV%IN
	ERROR <%1H: Can't do input>
	LDB C,[POINTR B,DV%TYP]
	MOVEM C,SRCTYP		;REMEMBER DEVICE TYPE
	CAIE C,.DVDSK		;OUTPUT A DISK?
	TLO Z,F4		;NO - SET FLAG
	CAIN C,.DVTTY		;INPUT A TERMINAL?
	SETOM POJFLG		;YES - SET FLAG
	TRZ B,.DVDES
	TRNN Z,(B)		;SUBCOMMAND GIVEN & OK ?
	JRST [	TRZ Q1,770000	;READ IN MODE 0
		TRNN B,DV%M0	;CAN DEVICE USE MODE 0?
		ERROR <%1H: Can't do normal mode input>
		JRST .+1]
				;ALSO FOR DISK SOURCE GET BYTE SIZE IN Q2
	JUMPN C,COP2A
	HRRZ A,@INIFH1
	MOVE B,[XWD 1,.FBBYV]	;BYTE SIZE IN B6-11
	MOVEI C,Q2
	CALL $GTFDB		;DO GTFDB, NO SKIP ON NO ACCESS
	ERROR <Access to source not allowed>
	LDB Q2,[POINTR Q2,FB%BSZ]
COP2A:
;COPY/APPEND...
;DETERMINING MODE-BYTESIZE...

;IF MODE SUBCOMMAND IS ACCEPTABLE TO ONE DEVICE,
;IT IS ACCEPTED AND MODE 0 USED FOR OTHER DEVICE, PROVIDED OTHER
; DEVICE WILL ACCEPT THE BYTE SIZE (ONLY TTY AND LPT ARE RESTRICTED).
;IF MODE IS ACCEPTABLE TO NEITHER, ACTION DEPENDS ON SUBCOMMAND;
; IF UNACCEPTABLE A WARNING MESSAGE IS TYPED AND DEFAULT EXECUTION
; PROCEEDS, SO THAT A WHOLE GROUP COPY DOESN'T GET ABORTED.

	TRNN Z,177777		;ANY MODE SUBCOMMANDS GIVEN?
	JRST COPDEF		;NO, GO DEFAULT MODE AND BYTE SIZE
	TXNN Z,NRMF		;MODE 0 REQUESTED, OR
	TRNE Q1,777700		;EITHER MODE NON-0?
	JRST COP3		;YES, SUBCOMMAND ACCEPTABLE TO ONE DEVICE

;SUBCOMMAND-DEPENDENT ACTION FOR SBCMD WHOSE MODE IS LEGAL FOR
;NEITHER SOURCE NOR DESTINATION DEVICE

	TXNE Z,ASCF
	JRST [	MOVEI Q1,7	;ASCII ALWAYS LEGAL, USE 0-7.
		JRST COP3]
	TRNN Z,4000		;TREAT "IMAGE BINARY" AS "BINARY"
	TRNE Z,10000
	JRST [	MOVEI Q1,44	;"BINARY", USE 0-36, LEGAL EXCEPT FOR
		JRST COP3]	;TTY OR LPT, DETECTED AT COP3.
				;ONLY IMAGE GETS THRU TO HERE
	JRST COPDF1		;GO TYPE MESSAGE AND DEFAULT
				;IMAGE IS NOT INTERPRETED FOR DEVICES OTHER THAN PAPER
				;TAPE BECAUSE ITS BYTE SIZE WILL PRESUMABLY BE
				;DIFFERENT WHEN IT IS DEFINED FOR OTHER DEVICES.

;IF HERE, ALL SET EXCEPT SUBCOMMAND MAY HAVE SPECIFIED A BYTE SIZE
;ILLEGAL FOR DEVICE. CHECK FOR THAT.

COP3:	LDB B,[POINT 6,Q1,35]	;CHOSEN BYTE SIZE
	MOVE C,SRCTYP
	CAIE C,12
	MOVEM D,DESTYP		;GET DEVICE TYPE OF DESTINATION
	CAIN D,12
	JRST [	CAIE B,7	;TTY TAKES 7 OR 8 ONLY
		CAIN B,10
		JRST .+1
		JRST COPDF1]	;TYPE MESSAGE AND DEFAULT
	CAIN D,7		;LPT TAKES 7 ONLY
	CAIN B,7
	JRST COP4		;ALL IS OK
				;JRST COPDF1
;COPY/APPEND...
;DETERMINING MODE-BYTESIZE...   DEFAULT CASE...
;NO ACCEPTABLE SUBCOMMAND GIVEN.
;DEFAULT MODE AND BYTE SIZE AS A FUNCTION OF DEVICES USED.
;MODE ALWAYS 0 AT PRESENT.

COPDF1:	TYPE < [Illegal mode subcommand being ignored]
>
COPDEF:	JUMPN D,.+3
	SKIPN SRCTYP
				;DISK TO DISK USES SOURCE BYTE SIZE
	SKIPA Q1,Q2		;DISK SOURCE BYTE SIZE IS IN Q2
				;MOST OTHER CASES USE 0-36
	MOVEI Q1,^D36
				;IF TTY: OR LPT: INVOLVED, USE 0-7
	MOVE C,SRCTYP
	CAIN C,.DVCDR		;READING FROM CARD READER?
	MOVEI Q1,7		;YES, USE BYTE SIZE OF 7
	CAIE C,12
	CAIN D,12
	JRST .+2
	CAIN D,7
	JRST [	MOVEI Q1,7
		JRST COP4]
;COPY/APPEND...
;DETERMINING MODE-BYTESIZE...   DEFAULT CASE...
;SPECIAL CASES FOR PAPER TAPE

	CAIE C,4		;PTR
	JRST [	CAIE C,.DVMTA	;MAGTAPE?
		JRST COPDF3
		HRRZ A,@INIFH1
		CALL LBLSKP	;LABELED?
		JRST COPDF3
		CAIE A,.LTANS	;ANSI-ASCII?
		CAIN A,.LTEBC	;EBCDIC?
		SKIPA		;YES, ASCII OR EBCDIC
		JRST COPDF3
		MOVEI Q1,7	;YES, SAY BYTESIZE 7
		JRST COPDF3]
	CAIN D,5		;PTP
	JRST [	MOVEI Q1,^D8	;USES 0-8 TO DUPLICATE PAPER TAPE
		JRST COP4]
	HRRZ B,OUTDSG		;PTR TO OTHER DEVICES DEPENDS ON DEST EXT
	JRST COPDF4
COPDF3:	CAIE D,5		;PTP
	JRST COPDF6
	JUMPE C,[MOVE Q1,Q2	;DSK TO PTP
		CAIN Q2,7	;IF SC BYTE SIZE 7, USE IT, NO MESSAGE.
		JRST COP4
		CAIE Q2,10	;IF 8, USE IT, TYPE MESSAGE
		MOVEI Q1,^D36	;OTHERWISE ASSUME 36 AND TYPE MESSAGE
		JRST COPDF5]	;NOTE THAT CAN'T TRUST SIZE OF 36 IN
				;FILE BECAUSE OTHER SIZES CAN BECOME
				;36 IF FILE IS COPIED TO DTA AND BACK.
	HRRZ B,@INIFH1		;OTHER DEVICES TO PTP, DEPENDS ON SC EXT
COPDF4:				;ONE IS PAPER TAPE, OTHER ISN'T. USE 0-36 FOR FILES
				;WITH EXTENSION OF .REL OR .SAV, 0-7 FOR OTHERS.
				;TYPE MESSAGE.  JFN OF NON-PAPERTAPE DEVICE NOW IN B.
	HRROI A,CFBUF		;SOME STRING SPACE
	SETZM CFBUF		;MAKE SURE NULLS AFTER EXTENSION
	MOVX C,FLD(.JSAOF,JS%TYP)	;GET FILE TYPE
	JFNS
	 ERCAL JERRE
	MOVE A,CFBUF
	CAME A,[ASCIZ /REL/]
	CAMN A,[GETSAVE()]
	JRST .+2		;REL OR SAV, USE 36 (ALREADY IN Q1)
	MOVEI Q1,7		;OTHER EXT OR NON-DIR DEVICE, USE 0-7
				;A MARGINAL ASSUMPTION HAS BEEN MADE ABOUT PAPER TAPE,
				;TYPE EXPLANATORY MESSAGE.
COPDF5:	TYPE < [>
	CAIN Q1,7
	TYPE <ASCII>
	CAIN Q1,10
	TYPE <IMAGE>
	CAIN Q1,44
	TYPE <BINARY>
	TYPE < mode assumed.]
>
				;JRST COP4
COPDF6:				;ADD CASES TO THE DEFAULTING STUFF HEHE
COP4:				;NOW HAVE MODES AND BYTE SIZE IN Q1
;COPY/APPEND...
;HAVE FINISHED CHOOSING MODE-BYTESIZE.
;OPEN FILES NOW, SO FFUFP WILL WORK.

				;SOURCE
	LDF B,OF%RD		;OPEN FOR READ
	LDB A,[POINT 6,Q1,23]	;GET READ MODE FROM Q1
	DPB A,[POINT 4,B,9]
	MOVE C,SRCTYP
	CAIN C,.DVPTR		;PAPER TAPE READER?
	CAIE A,10		;YES, MODE 10?
	CAIA			;NO, USE SPECIFIED BYTE SIZE
	SKIPA A,[8]		;YES, USE 8 BIT BYTES FOR IMAGE MODE
	LDB A,[POINT 6,Q1,35]	;BYTE SIZE
	DPB A,[POINT 6,B,5]
	HRRZ A,@INIFH1		;JFN
	TXO B,OF%PLN		;PASS LINE SEQUENCE NUMBERS
	CAIN C,.DVTTY		;OPEN TERMINAL FOR WRITE ALSO, SO TEXTI WILL WORK
	TXO	B,OF%WR
	CALL OPENX		;OPENF WITH CHECK FOR PRI IO FILES
				;AND FANCY ERROR MESSAGES
				;DESTINATION
	 JRST MCOERR		;FAILED, ERROR PRINTED, GO TO NEXT FILE
	HRRZ A,OUTDSG
	GTSTS
	JUMPGE B,COP5A
				;DEST ALREADY OPEN, ITS ANOTHER COPY IN GROUP, SEE IF
				;MODE-BYTESIZE CONSISTENT, CHANGE WHERE POSSIBLE
	TLO Z,F3		;SAY IT WAS ALREADY OPEN
	MOVE B,Q1		;MODES-BYTESIZE CHOSEN FOR THIS COPY
	XOR B,P1		;COMPARE TO THOSE USED FOR LAST COPY
	CAME P1,[EXP -1]	;First time, always OK.
	TRNN B,7777		;OUTPUT MODE & SIZE THE SAME?
	JRST COP5B		;YES, ALL IS OK
	MOVE D,DESTYP
	JUMPN D,.+2		;IF DEST NOT DSK, CHANGE ILLEGAL
	TRNE B,7700		;FOR DSK SIZE CAN CHANGE BUT MODE CAN'T
	ERROR <Illegal mode or byte size change,
 multiple source copy cannot procede>
	LDB B,[POINT 6,Q1,35]
	JUMPE B,[TYPE < [Byte size = 0, will use 36]>
		MOVEI B,^D36
		JRST .+1]
	SFBSZ
	 CALL JERR
	JRST COP5B
COP5A:				;DEST WASN'T OPEN (NORMAL CASE), OPEN IT
	TLZ Z,F3		;SAY JUST OPENED (HENCE PAGE COPY OK)
	LDF B,OF%WR		;"WRITE" BIT FOR OPENF
	TLNE Z,F2		;SKIP IF "COPY" NOT "APPEND"
	LDF B,OF%APP		;"APPEND" BIT FOR OPENF
	LDB A,[POINT 6,Q1,29]	;GET WRITE MODE FROM Q1
	DPB A,[POINT 4,B,9]
	MOVE C,DESTYP
	CAIN C,.DVPTP		;PAPER TAPE PUNCH?
	CAIE A,10		;YES, MODE 10?
	CAIA			;NO, USE SPECIFIED BYTE SIZE
	SKIPA A,[8]		;YES, USE 8 BIT BYTES FOR IMAGE MODE
	LDB A,[POINT 6,Q1,35]	;BYTE SIZE
	DPB A,[POINT 6,B,5]
	HRRZ A,OUTDSG		;JFN
	CALL OPENX		;OPEN THE OUTPUT FILE
	 JRST MCOERR		;FAILED, DON'T BOMB ENTIRE COPY JUST FOR THIS ONE FILE!
	SETZM SCRF		;NOT STRIPPING CARRIAGE RETURNS
	MOVE D,DESTYP		;GET DEVICE TYPE
	CAIN D,.DVMTA		;MAGTAPE?
	JRST [	MOVE A,OUTDSG	;YES, SEE IF LABELED
		CALL LBLSKP
		 JRST .+1	;NOT
		TXNN Z,ASCF	;WRITING IN ASCII?
		JRST .+1	;NO
		MOVE A,OUTDSG	;PREPARE TO SET MODE OF TAPE
		MOVEI B,.MOSMV	;SAY WE'RE SETTING MODE
		MOVEI C,.TPFNC	;SAY THERE ARE NO FORMATTERS (ONE LINE OF TEXT
				;ASSUMED PER TAPE RECORD)
		MTOPR
		SETOM SCRF	;REMEMBER TO STRIP CRLF'S AND USE SOUTR
		JRST .+1]
COP5B:	MOVE P1,Q1		;SAVE MODE AND BYTE SIZE (NEEDED IF ANOTHER
				;COPY TO SAME FILE OCCURS IN GROUP)
;COPY/APPEND...
;HAVE ESTABLISHED MODE-BYTESIZE AND OPENED FILES.
;NOW DECIDE WHETHER A COPY WITH DISK SOURCE IS TO BE DONE BY BYTES
;OR PAGES (SET F1 FOR PAGES), BECAUSE BYTES CASE REQUIRES SPECIAL
;CHECKS BELOW.

	TLZ Z,F1		;SAY BYTES FOR NOW
	SKIPE SRCTYP
	JRST COP6Z		;NON-DISC SOURCE, NO SPECIAL CHECK
	MOVE D,DESTYP
	TLNN Z,F2+F3		;"APPEND" COMMAND AND OUTFILE ALREADY OPEN
				;(GROUP CASE) CAUSE BYTE COPYING
	JUMPE D,[		;NON-DISK DEST ALWAYS REQUIRES BYTE COPY.
				;BUT IF HERE, DEST IS ALSO DISK, CAN COPY BY
				;PAGES.
		TRNN Z,177777	;DON'T CPY BY PAGES IF MODES SPECIFIED
		TLO Z,F1	;SAY COPY BY PAGES
		JRST COP6Z]	;SKIP SPECIAL CHECK
;COPY/APPEND...
;SPECIAL WARNING CHECKS FOR COPYING/APPENDING FROM DSK BY BYTES.
;(OTHER CASES BRANCHED AROUND THIS CODE ABOVE.)
;CHECK FOR HOLES NOT BEYOND EOF AND ANY PAGES BEYOND EOF IN SOURCE FILE
; AND TYPE WARNING MESSAGES IF FOUND.

				;GET PAGE # OF LAST DATA BYTE INTO B
	HRRZ A,@INIFH1
	SIZEF			;BYTE # OF EOF INTO B
	 CALL JERR
	SUBI B,1		;CONVERT BYTE # OF EOF TO BYTE # LAST DATA BYTE
	JUMPL B,COP6C		;IF IT WAS 0, ITS NOW -1, WHICH IS PAGE #.
	MOVEI C,^D36
	IDIV C,Q2		;36 / BYTESIZE = # BYTES PER WORD
	IDIV B,C		;BYTE # / THAT   MAKES IT WORD #
	IDIVI B,1000		;MAKE IT PAGE # OF LAST DATA BYTE

;TEST FOR FIRST FREE PAGE NOT BEING AFTER LAST DATA BYTE'S PAGE

COP6C:	HRRZ A,@INIFH1
	FFFFP			;FIND FIRST FREE FILE PAGE
	CAMN A,[-1]
	JRST .+3		;NO FREE PAGES IN FILE
	CAIL B,(A)
	TYPE < [Holes in file]
>
				;CHECK FOR USED PAGES AFTER LAST DATA BYTE PAGE
	HRL A,@INIFH1
	HRR A,B			;LAST DATA BYTE'S PAGE
	CALL $FNUFP		;INCREMENT A AND FIND NEXT USED PAGE
	JUMPE A,.+2		;0 RETURNED MEANS NO USED PAGE
	TYPE < [Pages after EOF will not be copied]
>
COP6Z:
;COPY/APPEND...
;IF WE WISH TO CONFIRM EACH COPY IN GROUP, HERE IS WHERE TO DO IT.

;HERE WE TYPE <CRLF> IF OUTPUTTING TO PRIMARY JFN
;THIS IS TO END FILE NAME PREVIOUSLY TYPED OUT

	SKIPN POJFLG
	JRST COP6Y		;SKIP IF TTY NOT INVOLVED
	SKIPN TYPGRP		;PRINT IF FORCED
	TLNE Z,GROUPF		;BUT ONLY IF NAME TYPED BEFORE
	TYPE <

>
COP6Y:

;NOW, AT LAST, WE ARE READY TO COPY. WELL, ALMOST.
;THERE ARE SEVERAL CASES:
; DISK TO DISK,
;	DONE BY PAGES, REPRODUCING "HOLES" AND PAGES AFTER BYTE EOF
; TTY TO ANYTHING, TERMINATED BY ^Z
; DISK TO OTHER DEVICE OR DISK-DISK FOR APPEND OR OUTFILE ALREADY OPEN,
;	PAGE READ AND BYTE WRITE.
; OTHER DEVICE TO DISK, USUALLY BYTE READ AND PAGE WRITE.
; ANY OTHER COMBINATION, DONE ENTIRELY BY BYTES.

				;COMPUTE NEGATIVE NUMBER OF BYTES PER PAGE INTO P2
				;(DONE NOW CAUSE CAN CLOBBER P3)
	MOVEI P2,^D36		;# BITS PER WORD
	LDB P3,[POINT 6,Q1,35]	;# BITS PER BYTE
	IDIV P2,P3		;FORM # BYTES PER WORD
	IMUL P2,[-1000]		;FORM - # BYTES PER PAGE
				;GET DISK SOURCE BYTE EOF IN P3
	HRRZ A,@INIFH1
	MOVE C,SRCTYP
	JUMPN C,COP7A
	SIZEF			;GETS BYTE # OF EOF IN FILE'S BYTESIZE INTO B
	 CALL JERR

;TRANSLATE FROM BYTE SIZE OF FILE TO BYTE SIZE OF COPY.
;NEW PTR = (OLD PTR*(36/NEW BYTE SIZE))/(36/OLD BYTE SIZE)
; WITH ALL DIVISIONS INTEGER AND OUTERMOST ONE ROUNDED UP

	MOVEI C,^D36
	IDIV C,Q2		;Q2: SOURCE FILE (OLD) BYTE SIZE
	MOVE P3,C
	MOVEI C,^D36
	LDB D,[POINT 6,Q1,35]	;COPY (NEW) BYTE SIZE
	IDIV C,D
	MUL B,C
	DIV B,P3
	JUMPE C,.+2		;REMAINDER 0 ?
	ADDI B,1		;NO, ROUND UP.
	MOVE P3,B		;BYTE # OF EOF IN COPY BYTE SIZE
COP7A:
	TLNE Z,F1		;COPY BY PAGES FLAG ON?
	JRST PAGES		;YES, GO COPY BY PAGES
;COPY/APPEND...  DISPATCHING TO VARIOUS EXECUTION CASES...
;COPY BY BYTES OR A COMBINATION OF BYTES AND PAGES.

				;HRRZ A,@INIFH1	;ONE JFN IN A
	HRRZ Q2,OUTDSG		;OTHER ALWAYS IN Q2
				;GENERATE POINTER TO BUFFER W PROPER BYTE SIZE IN Q3
	MOVE Q3,[XWD 440000,BUF1] ;P FIELD AND ADDRESS
	DPB Q1,[POINT 6,Q3,11]	;BYTE SIZE = S FIELD
				;NOW DISPATCH TO THE VARIOUS CASES
	MOVE C,SRCTYP
	MOVE D,DESTYP
	CAIN C,.DVTTY		;SOURCE TTY: ?
	JRST COPTTY		;YES, SPECIAL CODE TO END ON ^Z.
	SKIPE SCRF		;STRIPPING CRLF'S?
	JRST COPBY		;YES, SO DO BY BYTES
	JUMPE C,CPGBYT		;JUMP IF SOURCE DISK
	JUMPN D,COPBY		;JUMP IF DEST NOT DISK
	TLNE Z,F2+F3		;PG OUTPUT OK IF NOT "APPEND" AND
	JRST COPBY		;OUTFILE WASN'T ALREADY OPEN (GROUP)
	JRST CBYTPG		;USE PAGES TO WRITE ON DISK

;COPY BY BYTES WITH TELETYPE SOURCE
;DO BYTE BY BYTE, WATCHING FOR ^Z TERMINATOR

COPTTY:	MOVEI B,CTTEOF		;WHERE TO GO ON EOF PSI
	MOVEM B,EOFDSP		;(DON'T THINK IT CAN OCCUR 11/20/70)
	MOVEI B,4		;ONLY 4 WORD TEXTI HERE
	MOVEM B,TTBLK
	MOVE B,[RD%BRK+RD%BEL+RD%JFN]
	MOVEM B,1+TTBLK
	MOVEM A,2+TTBLK
	HRLM A,2+TTBLK
	SETZM 5+TTBLK
	SETZM 6+TTBLK
	SETZM BUF0		;[4430] Clear the first word
	MOVE B,[BUF0,,BUF0+1]	;[4430] Prepare to clear all of BUF0
	BLT B,BUF0+777		;[4430] Clear the page
COPTT0:	MOVE B,[POINT 7,BUF0]	;INPUT TO FREE PAGE
	MOVEM B,3+TTBLK
	MOVEI B,1000*5		;MAX NUMBER OF CHRS
	MOVEM B,4+TTBLK
COPTT1:	MOVEI A,TTBLK
	TEXTI
	 CALL JERR
	LDB B,3+TTBLK		;GET LAST BYTE STORED
	CAIN B,CTRLZ
	JRST COPTT2
	CAIE B,.CHLFD		;END OF LINE?
	JRST COPTT1		;NO, READ MORE BEFORE DUMPING (IN CASE SCRF)
	CALL COPTTS		;DUMP STRING
	JRST COPTT0		;GET MORE
COPTTS:	SKIPN SCRF		;STRIPPING CRLF'S?
	JRST COPNCR		;NO
	MOVNI A,1		;REMOVE LINEFEED
	ADJBP A,.RDDBP+TTBLK
	MOVEM A,.RDDBP+TTBLK
	AOS .RDDBC+TTBLK	;SAY THERE'S ROOM FOR ONE MORE CHAR NOW
	LDB A,.RDDBP+TTBLK	;GET CHARACTER BEFORE LINEFEED
	CAIE A,.CHCRT		;CARRIAGE RETURN BEFORE LINEFEED?
	JRST COPNCR		;NO
	MOVNI A,1		;YES, REMOVE IT.
	ADJBP A,.RDDBP+TTBLK	;FIX BYTE POINTER TO NO LONGER INCLUDE CR.
	MOVEM A,.RDDBP+TTBLK	;STORE NEW BYTE POINTER
	AOS .RDDBC+TTBLK	;SAY THERE'S ROOM FOR ANOTHER CHAR NOW
COPNCR:	MOVE A,Q2
	MOVE B,[POINT 7,BUF0]
	MOVNI C,1000*5
	ADD C,4+TTBLK		;NUMBER OF BYTES TO SEND
	MOVE D,[SOUT]		;FIRST ASSUME STANDARD OUTPUT
	SKIPE SCRF		;STRIPPING CRLF'S?
	MOVE D,[SOUTR]		;YES, OUTPUT TO INDIVIDUAL RECORD
	JUMPE C,R		;JUST IN CASE NO BYTES
	XCT D
	ERJMP CJERRE		;To catch problems
	RET

COPTT2:	AOS 4+TTBLK		;FUDGE CHAR COUNT TO NOT SEND ^Z
	CALL COPNCR		;NO CRLF TO REMOVE IF JUST TYPED ^Z
CTTEOF:	HRRZ A,2+TTBLK
	HRROI B,[ASCIZ /
/]
	SETZ C,
	SOUT			;CRLF AFTER ^Z
	JRST CBYEF1		;GO DELETE EXTRA PAGES IF DEST IS DSK
;COPY/APPEND...
;COPY/APPEND BY BYTES, NON-TTY-SOURCE CASE
;USE FULL PAGE SINS AND SOUTS FOR SPEED.

COPBY:	MOVEI B,CBYEOF
	MOVEM B,EOFDSP		;WHERE TO GO ON EOF PSI
	SKIPE SCRF		;STRIPPING CRLF'S?
	JRST COPSCR		;YES, USE DIFFERENT LOOP
COPB1:	MOVE B,Q3		;BYTE PTR
	MOVE C,P2		;BYTE COUNT, NEG FOR NO SPECIAL TERM CHARACTER
	SIN			;INPUT A STRING (JFN ALL SET IN A)
				;SIN CAUSES EOF PSI AFTER READING WHATEVER CHARACTERS
				;THERE ARE IF NOT A WHOLE "COUNT"'S WORTH LEFT IN FILE
	EXCH A,Q2		;GET DESTINATION JFN, SAVE SOURCE JFN
	MOVE B,Q3		;BYTE PTR AGAIN
	MOVE C,P2		;SAME COUNT
	SOUT			;OUTPUT STRING
	EXCH A,Q2		;BACK TO SOURCE JFN
	JRST COPB1		;LOOP TILL EOF PSI

;EOF PSI WHILE COPYING BY BYTES (NON-TTY CASE)
;OUTPUT PARTIAL STRING INPUT BEFORE EOF OCCURRED
; (NOTE THAT C IS UPDATED TO REFLECT THOSE BYTES WHICH WERE READ)

CBYEOF:	EXCH A,Q2		;GET DEST JFN
	MOVE B,Q3		;THAT GOOD OLD BYTE PTR
	SKIPN SCRF		;COUNT IS POSITIVE IF STRIPPING CRLF'S
	SUBM P2,C		;CREATE COUNT IN C OF CHARS THAT WERE INPUT
	SKIPE SCRF
	ADD C,P2		;C HAS POSITIVE NUMBER IF STRIPPING CRLF'S
	JUMPE C,.+2		;0 COUNT, NO SOUT!
	SOUT			;OUTPUT THE LAST PART
;IF DESTINATION WAS DISK, DELETE ANY ADDITIONAL PAGES
; (CLOSF DOES NOT DO THIS, BUT WILL LATER ZERO REST OF LAST PAGE).
;TTY CASE JOINS HERE.

CBYEF1:	HRRZ A,OUTDSG
	DVCHR
	LDB A,[POINT 9,B,17]	;DEVICE TYPE 0 IS DSK
	JUMPN A,COPEOF		;IF NOT DISK, DONE HERE
	LDB D,[POINT 6,Q1,35]	;GET BYTE SIZE USED IN COPYING
	HRRZ A,OUTDSG
	RFPTR			;GETS BYTE # OF LAST DATA BYTE IN B
	 CALL JERR
	MOVEI C,^D36
	IDIV C,D		;36/BYTESIZE = # BYTES PER WORD
	IDIV B,C		;BYTE # /THAT = WORD # OF LAST DATA BYTE
	IDIVI B,1000		;MAKE IT PAGE #
	HRR A,B
	HRL A,OUTDSG
CBYEF2:	CALL $FNUFP		;FIND A PAGE
	JUMPE A,COPEOF		;NO MORE PAGES IN FILE, DONE
	MOVE B,A
	SETO A,
	HRLZI C,1
	PMAP			;DELETE THE PAGE
	MOVE A,B
	JRST CBYEF2
;COPY INDIVIDUAL LINES OF TEXT TO INDIVIDUAL OUTPUT RECORDS
;A & Q2/ JFNS, P2/ NEGATIVE COUNT OF BUFFER SPACE, Q3/ POINTER TO BUFFER SPACE

COPSCR:	MOVE B,Q3		;READ DATA INTO BUFFER SPACE
	MOVN C,P2		;USE POSITIVE COUNT SO WE CAN FIND END OF LINE
	MOVEI D,.CHLFD		;SEARCH FOR END OF LINE
	SIN			;READ NEXT LINE (TRAP TO CBYEOF IF END OF FILE)
	ADD C,P2		;CALCULATE NEGATIVE NUMBER OF BYTES TO OUTPUT
	MOVEI D,.CHNUL		;PUT NULL ON LINEFEED IN CASE BUFFER NOW NULL
	DPB D,B
	MOVNI D,1
	ADJBP D,B		;FIX POINTER TO POINT AT POSSIBLE CR
	AOJE C,COPSC1		;IF ONLY LINEFEED, THERE'S NO CR BEFORE IT!
	LDB B,D			;NOW GET CHARACTER BEFORE LINEFEED
	CAIE B,.CHCRT		;CARRIAGE RETURN?
	JRST COPSC1		;NO
	MOVEI B,.CHNUL		;YES, NULLIFY IT IN CASE BUFFER NOW NULL
	DPB B,D
	AOJ C,			;SHRINK BUFFER DUE TO CR (MIGHT BE 0 LENGTH NOW!)
COPSC1:	EXCH A,Q2		;GET OUTPUT JFN, SAVE INPUT JFN
	MOVE B,Q3		;POINT AT BUFFER
	SOUTR			;WRITE A RECORD WITHOUT THE END-OF-LINE (MIGHT BE 0 IN C)
	EXCH A,Q2		;GET INPUT JFN AGAIN
	JRST COPSCR		;LOOP FOR REST OF DATA
;COPY/APPEND...
;COPY FROM DISK, READING BY PAGES AND WRITING BY BYTES.
;TRANSFERS ZEROS FOR HOLES OR BEYOND BYTE EOF.
;ADDED TO SPEED UP DISK TO LPT COPY.
;AT ENTRY: A,Q2: JFNS
;	Q3: BYTE PTR TO BUFFER PAGE
;	P2: - # BYTES / PAGE
;	P3: BYTE # OF EOF
;ALSO:	A: SOURCE JFN,,PAGE #

CPGBYT:	SETOM PREPAG		;INITIALIZE PREFAULTED PAGE WORD
	HRLZ A,@INIFH1
CPGBY2:	MOVEM A,SAVPN		;SAVE PAGE NUMBER
	CALL PREFLT		;PERHAPS IT'S TIME FOR PREFAULTING
	MOVE A,SAVPN		;RESTORE PAGE NUMBER
	RPACS
	TLNN 2,(1B5)		;PAGE EXISTS?
	JRST .+4		;NO, DON'T MAP IT
	MOVE B,[XWD .FHSLF,<BUF1>B44]
	LDF C,PM%RD
	PMAP			;MAP IN THE PAGE

;HAVE A PAGE IN SOURCE FILE, DECIDE WHAT TO DO WITH IT BY
;COMPARING PAGE # AND FILE'S BYTE EOF

	HRRZ C,A		;PAGE #
	IMUL C,P2		; - BYTE # OF FIRST BYTE IN PAGE
	ADD C,P3		;P3: BYTE # OF EOF
	MOVN C,C		;FORM - # BYTES IN OR BEYOND THIS PAGE
	JUMPGE C,CPBEOF		;NONE, DONE.

;TRANSFER PARTIAL PAGE IF THIS IS EOF PAGE, ELSE WHOLE PAGE.

	CAMGE C,P2		;- # BYTES/PAGE
	MOVE C,P2		;MAXIMUM TRANSFER
	RPACS
	TLNN 2,(1B5)		;PAGE EXISTS?
	JRST CPGBY4		;NO, USE ZEROS

;OUTPUT # BYTES IN C

	EXCH A,Q2		;GET DEST JFN
	MOVE B,Q3		;STRING PTR TO BUFFER
	SOUT			;STRING OUTPUT
CPGBY3:	EXCH A,Q2
	AOJA A,CPGBY2		;DO NEXT PAGE

CPGBY4:	EXCH A,Q2
	SETZ 2,
	BOUT			;DO PAGE WORTH OF ZEROS
	AOJL C,.-1
	JRST CPGBY3
;COPY BY PAGES-BYTES EOF. CLEAR BUFFER.

CPBEOF: HRRZ A,OUTDSG		;GET OUTPUT JFN
	DVCHR
	LDB D,[POINTR B,DV%TYP] ;GET DEVICE TYPE
	CAIE D,.DVTTY		;IS IT TTY ?
	 JRST NXLF		;NO - SKIP THIS
	MOVN B,P2		;GET THE BYTES # IN A PAGE
	MOVE A,P3		;YES - GET THE NUMBER OF BYTES
	IDIV A,B		; IN THE LAST FILE PAGE IN AC B
	CAIN B,0		;END RIGHT ON A PAGE BOUNDARY?
	MOVN B,P2		;YES - SET TO THE MAXIMUM NUMBER OF BYTES
	IBP B,Q3		;POINT TO THE LAST CHARACTER OF THE FILE
	LDB A,B			;GET THE LAST CHARACTER
	CAIN A,.CHLFD		;IS IT A LINEFEED?
	JRST NXLF		;YES - O.K.
	MOVE A,Q2		;NO - GET DESTINATION JFN
	HRROI B,[15B6+12B13]	;FORCE OUT A CRLF TO ENSURE THAT THE
	SETZ C,			; CURSOR ENDS AT THE LEFT MARGIN
	SOUT
NXLF:	SETO A,
	MOVE B,[XWD .FHSLF,<BUF1>B44]
	SETZ C,
	PMAP
	HRRI B,<BUFPRE>_-9	;GET RID OF PREFAULT PAGES
	MOVE C,[PM%CNT+NPRE]	;COUNT BIT+THE COUNT
	PMAP
	JRST COPEOF
;COPY/APPEND...
;COPY NON-DISK TO DISK IN NON-APPEND, NON MULTIPLE SOURCE CASE.
;USES BYTES FOR INPUT, PAGES FOR OUTPUT.
;ADDL ACS: Q2: DEST JFN,,PAGE #
;	P3: # BYTES TRANSFERRED+1, USED TO SET DEST EOF PTR.

CBYTPG:	HRLZ Q2,OUTDSG
	MOVEI B,CBPGEF
	MOVEM B,EOFDSP		;WHERE TO GO ON EOF
	SETZ P3,
CBYPG2:	SETO A,			;CLEAR BUFFER AT TOP OF LOOP TO MAKE SURE
	MOVE B,[XWD .FHSLF,<BUF1>B44] ;...OF EOF PAGE IS 0
	SETZ C,
	PMAP
	HRRZ A,@INIFH1
	MOVE B,Q3
	MOVE C,P2		;NEG # BYTES/PAGE
	SUB P3,C		;COUNT BYTES TRANSFERRED
	SIN			;READ A PAGE'S WORTH OF BYTES
	MOVE B,Q2
	MOVE A,[XWD .FHSLF,<BUF1>B44]
	LDF C,PM%WT
	PMAP			;MAP OUT THE PAGE
	AOJA Q2,CBYPG2		;NEXT PAGE AND LOOP

;BYTES-PAGES END OF FILE

CBPGEF:	ADD P3,C		;ADJUST FOR UNUSED PART OF BYTE COUNT
	CAMN C,P2		;WHOLE PAGE UNUSED?
	SKIPA A,[-1]		;YES, PUT NO PAGE IN DESTINATION
	MOVE A,[XWD .FHSLF,<BUF1>B44]
	MOVE B,Q2
	LDF C,PM%WT
	PMAP			;MAP OUT LAST PAGE OR DELETE PAGE

;FAKE THINGS UP AND ENTER PAGES-PAGES ROUTINE TO DELETE RESET OF DEST
;AND SET EOF AND BYTE SIZE

	SETZ D,			;SAYS NO MORE SOURCE "PAGES"
	JRST PAGE5A
;COPY/APPEND...
;COPY DISK TO DISK BY PAGES
;NOTE THAT BYTE SIZE IN Q1 MUST BE PRESERVED

NPAGES:	^D25			;MOUTH SIZE (LOOK HOW MUCH I GOT IN ONE BITE, MA!)
PAGES:	MOVE A,@INIFH1		;GET SOURCE JFN
	MOVE B,OUTDSG		;AND DESTINATION JFN
	CALL DSKCPY		;COPY THE DATA
	MOVE C,NPAGES		;GET SIZE OF BUFFER
	LSH C,1			;THERE ARE TWO OF THEM
	IORX C,PM%CNT		;REPEATE COUNT
	HRROI A,-1		;SAY REMOVING PAGES
	MOVE B,[.FHSLF,,BUF0PN]	;START FROM BEGINNING OF BUFFER
	PMAP			;REMOVE (ONLY SO CLOSF WILL SUCCEED)
				;POSSIBLE SPEEDUP WOULD BE TO NOT DO
				;CLOSF UNTIL JFN'S WERE USED UP.  THAT
				;WOULD MEAN ONLY HAVING TO DO THIS
				;PMAP ABOUT ONCE PER 100 FILES (BUT
				;AT LEAST ONCE PER COPY COMMAND)
	JRST PAGES1		;GO PUT ON FINISHING TOUCHES
;DISK TO DISK COPY LOOP.  CALL WITH SOURCE JFN IN A AND DESTINATION
;JFN IN B.
;THIS LOOP DOES NOTHING EXCEPT COPY THE DATA, I.E. DOES NO CLOSF OR
;CHFDB'S.

DSKCPY:	STKVAR <NXTBEG,DESBFR,DESPN,BLTPTR,ENDPTR,SAVBLT,SRCJFN,DESJFN,ENDPT0>
	MOVEM A,SRCJFN
	MOVEM B,DESJFN		;REMEMBER JFN'S
	SETZM NXTBEG		;INITIALIZE NEXT PAGE TO BEGIN BUFFER WITH
	MOVE A,NPAGES		;GET NUMBER OF PAGES
	LSH A,9			;MAKE RELATIVE ADDRESS OF DESTINATION BUFFER
	ADDI A,BUF0		;MAKE ACTUAL ADDRESS
	MOVEM A,DESBFR		;REMEMBER WHERE DESTINATION BUFFER STARTS
	LSH A,-9		;CALCULATE DESTINATION PAGE NUMBER
	MOVEM A,DESPN		;REMEMBER THAT TOO
	ADD A,NPAGES		;CALCULATE FIRST PAGE NUMBER BEYOND DESTINATION BUFFER
	LSH A,9			;MAKE ADDRESS
	SOJ A,			;GET LAST ADDRESS IN DESTINATION
	MOVEM A,ENDPTR		;REMEMBER END OF DESTINATION
	MOVEM A,ENDPT0		;REMEMBER VERSION FOR NORMAL FULL FILE CHUNKS
DSKLUP:	HRL A,SRCJFN		;MAP FROM SOURCE JFN
	HRR A,NXTBEG		;STARTING WITH FIRST PAGE OF NEW GROUP
	MOVE B,[.FHSLF,,BUF0PN]	;MAP INTO OUR BUFFER AREA
	MOVX C,PM%RD!PM%PLD!PM%CNT	;READ, PRELOAD, REPEAT COUNT GIVEN
	HRR C,NPAGES		;DO AS MANY AS OUR BUFFER SIZE
	PMAP			;MAP SOME SOURCE PAGES IN
	 ERJMP [CALL DGETER	;PMAP FAILED, SEE WHY
		CAIE A,LNGFX1	;OFF INTO NONEXISTENT SECTION
		CAIN A,ARGX06	;OR OFF THE END OF ALL POSSIBLE PAGES?
		JRST DSKNEW	;YES, EXPECTED
		CALL JERR]	;NO, UNEXPECTED
DSKLP1:	HRL A,DESJFN		;MAP FROM DESTINATION
	HRR A,NXTBEG		;CORRESPONDING PAGES OF SOURCE
	MOVE B,DESPN		;MAP INTO DESTINATION BUFFER
	HRLI B,.FHSLF		;OURSELF
	MOVX C,PM%WR!PM%CNT	;WRITE, REPEAT COUNT
	HRR C,NPAGES
	MOVE D,ENDPTR		;GET END POINTER
	CAMN D,ENDPT0		;WAS IT CHANGED
	JRST DSKLP2		;NO, PROCEED WITH PMAP
	AOS D			;YES, HOW MUCH DO WE REALLY NEED TO MAP?
	SUB D,DESBFR		;NUMBER OF WORDS
	LSH D,-9		;MAKE IT PAGES
	HRR C,D			;MAP THAT MANY FROM THE DESTINATION FILE
DSKLP2:	PMAP			;SET UP DESTINATION PAGES
	 ERJMP [CALL DGETER	;FAILED, PRESUMABLY BECAUSE TRYING TO GO OFF END OF WORLD
		CAIE A,ARGX06	;MAKE SURE THAT'S THE PROBLEM
		CALL JERR	;NO, SO UNEXPECTED ERROR
		JRST .+1]	;ENDPTR HAS ALREADY ACCOUNTED FOR THIS
	HRLI A,BUF0		;COPY FROM SOURCE
	HRR A,DESBFR		;TO DESTINATION
	MOVEM A,BLTPTR		;REMEMBER BLT POINTER
DSKBLT:	MOVE B,ENDPTR		;GET ADDRESS OF LAST WORD OF DESTINATION BUFFER
	BLT A,(B)		;COPY THE DATA
	 ERJMP DSKDIS		;DISCONTINUITY, PROBABLY END OF FILE, HOLE, OR QUOTA EXCEEDED
	MOVEM A,SAVBLT		;SAVE HOW FAR WE GOT BEFORE ERROR
	MOVE B,ENDPTR		;GET POINTER TO END OF DESTINATION WE JUST SET UP
	CAME B,ENDPT0		;IS IT A FULL BUFFERFUL?
	JRST DSKDS1		;NO, WE'VE HIT HOLE OR END.
	MOVE A,NPAGES		;GET NUMBER OF PAGES PER BUFFER
	ADDM A,NXTBEG		;UPDATE PAGE TO START WITH
	JRST DSKLUP		;LOOP FOR NEXT PAGE GROUP

DSKDIS:	MOVEM A,SAVBLT		;SAVE HOW FAR WE GOT BEFORE ERROR
	MOVEI A,.FHSLF
	GETER			;GET TYPE OF ERROR
	CAMN B,[.FHSLF,,IOX11]	;NO ROOM?
	CALL CJERRE		;YES
	CAME B,[.FHSLF,,ILLX01]	;NOT ROOM PROBLEM, HIT HOLE OR END?
	CALL JERRE		;NO, UNEXPECTED PROBLEM
DSKDS1:	MOVE A,ENDPT0		;RESTORE BLT POINTER FOR FULL CHUNKS
	MOVEM A,ENDPTR
	LDB A,[331100,,SAVBLT]	;GET MEMORY PAGE NUMBER ASSOCIATED WITH NONX SOURCE PAGE
	SUBI A,BUF0PN-1		;GET RELATIVE POSITION IN BUFFER
	ADD A,NXTBEG		;GET ACTUAL FILE PAGE NUMBER
DSKDS2:	TLNE A,-1		;ARE WE OFF THE END OF THE WORLD?
	RET			;YES, SO WE MUST BE DONE
	HRL A,SRCJFN		;SET UP FOR FFUFP
	FFUFP			;FIND NEXT USED PAGE
	 ERJMP DSKMEF		;FAILED, PROBABLY END OF FILE
	HRRZ C,A		;COPY PAGE NUMBER
	SUB C,NXTBEG		;SEE WHERE IN BUFFER PAGE IS
	CAML C,NPAGES		;IN SUBSEQUENT BUFFER?
	JRST DSKNXT		;YES
	LSH C,9			;NO, IN THIS BUFFER.  MAKE MEMORY OFFSET
	MOVE A,BLTPTR		;GET ORIGINAL BLT POINTER
	ADJSP A,(C)		;ADJUST FOR CONTINUATION
	JRST DSKBLT		;CONTINUE THIS BUFFER

DSKNXT:	HRRZM A,NXTBEG		;REMEMBER NEXT PAGE TO START WITH
	JRST DSKLUP		;GO START NEW BUFFER
DSKMEF:	MOVEI A,.FHSLF
	GETER			;GET REASON FOR FFUFP FAILING
	CAME B,[.FHSLF,,FFUFX3]	;NO MORE USED PAGES?
	CALL JERRE		;NO, UNEXPECTED ERROR
	RET			;YES, DONE!

;COME HERE WHEN PMAP FAILS SOMEWHERE IN THE MIDDLE OF A SOURCE CHUNK.
;THIS IS BECAUSE WE HAVE HIT A NONEXISTENT FILE SECTION.
;WE NOW ASSUME THAT SOME PORTION OF THE SOURCE BUFFER HAS BEEN MAPPED, AND THE
;REST OF THE SOURCE BUFFER IS STILL MAPPED TO PART OF THE PREVIOUS CHUNK.
;HENCE WE CAN'T RELY ON THE BLT TO STOP AT THE END OF THE CURRENT CHUNK!

DSKNEW:	LDB A,[001100,,NXTBEG]	;SEE WHERE IN SECTION WE STARTED
	JUMPE A,[MOVE A,NXTBEG	;ABORTED CHUNK HAD NONE, START IN VOID.
		 JRST DSKDS2]	;GO FIND NEXT EXISTING CHUNK
	MOVN A,A		;NEGATE TO PREPARE TO SUBTRACT
	ADDI A,1000		;SEE HOW MANY PAGES WE MAPPED IN IN ABORTED CHUNK
	LSH A,9			;GET NUMBER OF WORDS MAPPED IN
	ADD A,DESBFR		;GET FIRST WORD OUT OF BOUNDS IN DESTINATION BUFFER
	SOJ A,			;GET LAST WORD TO BE USED IN DESTINATION BUFFER
	MOVEM A,ENDPTR		;SET UP SHORTENED BLT POINTER
	JRST DSKLP1		;GO DO SHORTENED VERSION
;COPY BY BYTES-PAGES COMES HERE AFTER EOF WITH D 0 AND P2,P3,Q2 CORRECT
;TO DELETE REST OF DEST FILE AND SET ITS PTR AND BYTE SIZE.

PAGE5A:	MOVE A,Q2
	CALL $FNUFP		;NEXT PAGE IN DEST
	MOVE Q2,A
PAGES6:	MOVE A,D
	CALL $FNUFP		;ALWAYS NEXT PAGE IN SOURCE
	MOVE D,A
	;...

;HAVE A PAGE IN EACH FILE. DECIDE WHAT TO DO WITH THEM.

PAGES3:	JUMPE Q2,[JUMPE D,PAGES9 ;NO MORE PAGES IN DEST. NOR SOURCE - DONE
		  JRST PAGES5]	;GO COPY PAGE
	JUMPE D,PAGES4		;NO MORE PAGES IN SOURCE, DELETE REST OF DEST
	MOVEI A,(D)
	CAIG A,(Q2)		;COMPARE SOURCE PAGE # TO DEST PAGE #
	JRST PAGES5

;DELETE DEST PAGES CORRESPONDING TO "HOLE" IN SOURCE

PAGES4:	SETO A,
	MOVE B,Q2
	HRLZI C,1		;PMAP DISPOSAL INFO
	PMAP
	MOVE A,Q2
	CALL $FNUFP		;NEXT PAGE IN DEST
	MOVE Q2,A
	JRST PAGES3		;GO DECIDE AGAIN
;COPY/APPEND...
;COPY BY PAGES...
;COPY A PAGE

PAGES5:	MOVE A,D		;SOURCE JFN AND PAGE NUMBER
	CALL PREFLT		;PERHAPS IT'S TIME FOR PREFAULTING
	MOVE A,D		;SOURCE JFN AND PAGE NUMBER
	MOVE B,[XWD .FHSLF,<BUF1>B44]
	LDF C,PM%RD
	PMAP			;MAP SOURCE PAGE INTO BUFFER
	HRL A,OUTDSG		;DON'T USE Q2 HERE, MAY BE 0!
	HRRI B,<BUF2>B44
	LDF C,PM%WT
	PMAP			;MAP DESTINATION PAGE INTO ANOTHER BUFFER
	 ERJMP CJERRE		;REPORT FAILURE (PROBABLY OVER QUOTA)
	MOVE A,[XWD BUF1,BUF2]
	BLT A,BUF2+777		;COPY DATA
	MOVEI A,(D)		;MASK PAGE # OF PAGE JUST COPIED
	CAIGE A,(Q2)		;COMPARE TO DEST PAGE #
	JRST PAGES6		;PAGE WAS COPIED INTO A HOLE IN DEST
;COPY/APPEND...
;FINISH UP COPY BY PAGES.
;ALSO USED FOR BYTES-PAGES, SO NOTHING DISK-DEPENDENT CAN BE DONE HERE.

PAGES9:	SETO A,			;CLEAR BUFFERS
	MOVE B,[XWD .FHSLF,<BUF1>B44]
	SETZ C,
	PMAP
	HRRI B,<BUF2>B44
	PMAP
	HRRI B,<BUFPRE>_-9	;CLEAR PREFAULT PAGES
	MOVE C,[PM%CNT+NPRE]	;DESIGNATE HOW MANY PAGES TO CLEAR
	PMAP			;CLEAR 'EM

;SET END POINTER OF DESTINATION FILE

PAGES1:	MOVE B,P3		;BYTE COUNT OF SOURCE EOF
	HRRZ A,OUTDSG		;SET POINTER FOR THIS OPENING OF FILE, IN CASE
	SFPTR			;SEQUENTIAL I/O FOLLOWS (GROUP SOURCE CASE)
	 CALL JERR
	HRLI A,.FBSIZ		;SET EOF PTR IN FILE (CLOSF DOES NOT WHEN
	MOVE C,B		;NO SEQUENTIAL OUTPUT HAS BEEN DONE)
	SETO B,
	CALL $CHFDB		;SET FILE DESCRIPTOR BLOCK
	 CALL JERR

;SET BYTE SIZE OF DESTINATION FILE
;(CLOSF DOES NOT SET IT WHEN NO SEQUENTIAL OUTPUT HAS BEEN DONE)

	HRLI A,.FBBYV
	SETZ C,
	DPB Q1,[POINTR C,FB%BSZ] ;BYTE SIZE STILL IN Q1
	HRLZI B,<77B11>B53
	CALL $CHFDB
	 CALL JERR
;COPY OR APPEND COMPLETE.
;PAGE-COPY FALLS IN, ALL OTHER CASES BRANCH HERE.

COPEOF:	TDNE Z,[F2,,-1]		;APPEND/LIST OR ANY SUBCOMMANDS?
	JRST COPDON		;YES, LEAVE NEW DATES
	TLNE Z,F4		;DISK DEVICE?
	JRST COPEF1		;NO - SKIP THIS
	HRRZ	A,@INIFH1	;INPUT JFN
	MOVE	B,[1,,.FBCTL]	;GET CTL WORD FROM FDB
	MOVEI	C,C		;WHERE TO PUT IT
	CALL	$GTFDB		;GET IT
	  CALL	JERR		;SHOULDN'T
	HRRZ	A,OUTDSG	;OUTPUT JFN
	HRLI	A,.FBCTL	;WORD TO CHANGE
	AND	C,[FB%FCF!FB%FOR] ;BITS TO SET
	LDF	B,FB%FCF!FB%FOR	;MAKE A MASK
	CALL	$CHFDB		;SET IN OUTPUT FILE
	  CALL	JERR		;CHFDB DIED
	HRRZ	A,@INIFH1	;INPUT JFN
	HRLI	B,1
	HRRI	B,.FBUSW	;USER SETTABLE WORD
	MOVEI	C,C		;WHERE TO PUT IT
	CALL	$GTFDB		;GET IT
	  CALL 	JERR		;LOSAGE
	HRRZ 	A,OUTDSG	;OUTPUT JFN
	HRLI	A,.FBUSW	;USER SETTABLE WORD
	SETO	B,
	CALL	$CHFDB		;PUT USER WORD INTO NEW FDB
	  CALL	JERR		;LOSAGE
COPEF1:	HRRZ A,@INIFH1		;INPUT JFN
	MOVEI B,TADBLK		;WHERE TO PUT DATES
	MOVEI C,TADLEN		;HOW MUCH TO GET
	RFTAD			;READ DATES
	 ERJMP [CALL %MESS
		TYPE <Failed to read dates from source file - >
		JRST TDERR]	;MESSAGE AND WRAPUP
	MOVE C,.RSWRT+TADBLK	;GET WRITE DATE
	CAMN C,[-1]		;IF NO WRITE DATE,
	JRST COPDON		;THEN ASSUME NO DATES AVAILABLE
	MOVE D,.RSCRV+TADBLK	;GET CREATION DATE
	CAMN D,[-1]		;IF NO CREATE DATE,
	MOVE D,C		;USE WRITE DATE
	SETOM TADBLK		;CLEAR BLOCK FOR SFTAD
	HRLI A,TADBLK
	HRRI A,1+TADBLK		;MAKE BLT POINTER
	BLT A,TADLEN-1+TADBLK
	MOVEM C,.RSWRT+TADBLK
	MOVEM D,.RSCRV+TADBLK	;STORE DATES TO SET
	MOVE A,OUTDSG
	MOVEI C,TADLEN
	SFTAD
	 ERJMP [CALL %MESS
		TYPE <Failed to set dates for destination file - >
		JRST TDERR]	;MESSAGE AND WRAPUP
COPDON:	SETZM EOFDSP		;(REDUNDANT EXCEPT IN ^Z ON TTY CASE)
	SKIPE HELPSN		;IS IT A HELP COMMAND?
	JRST COPFLE		;YES, DON'T DO ANY MORE.
	CALL GNFIL		;GET NEXT FILE IN INPUT GROUP
	 JRST COPFLE

	SKIPN POJFLG		;[4439] Skip if output to COJFN
	JRST COPFLN		;[4439] Nope, get another filename
	MOVE A,COJFN		;[4439] Load the terminal designator
	RFMOD%			;[4439] Read JFN mode word 
	IFNJE.			;[4439] If that worked
	  TXZE B,TT%OSP		;[4439] Clear control-O bit, skip if off now
	  SFMOD%		;[4439] Insure that output suppress is off
	   ERJMP .+1		;[4439] Ignore error
	ENDIF.			;[4439] End of RFMOD-worked
	ETYPE <%_>		;[4439] Separate filenames with CRLF 
	JRST COPFLN		;[4439] Get another filename
MCOERR:	SETOM CERRF		;REMEMBER THAT THIS FILE HAD ERROR
	JRST COPDON

COPFLE:	SETZM HELPSN		;RESTORE THE FLAG
	CALLRET CTPOK		;TYPE OK ON LAST FILE IF APPROPRIATE

;CTPOK TYPES [OK] IF APPROPRIATE.

CTPOK:	SKIPE CERRF		;ERRORS?
	RET			;YES, SO NOT OK.
	SKIPN POJFLG		;IF NOT OUTPUTTING TO PRIMARY JFN, TYPE [OK] HERE
	CALL TYPOK
	RET

TDERR:	CALL	%GETER		;GET ERROR CODE
	MOVE	A,ERCOD		;...
	CALL	$ERSTR		;PRINT MSG
	ETYPE<%_>		;CRLF
	JRST	COPDON		;FINISH UP
;COPY/APPEND...
;SUBROUTINE TO GET NEXT USED PAGE # OF DISK FILE.
;TAKES IN A:  JFN,,CURRENT PAGE #.  RETURNS A 0 IF NO MORE PAGES.
;MUST BE NEAR COPY TO MINIMIZE PAGE FAULTS

$FNUFP:	JUMPE A,[RET]		;ALREADY AT END, NOP.
	ADDI A,1		;NEXT PAGE NUMBER
	TRNN A,-1
	JRST [	SETZ A,		;WRAP-AROUND FROM MAX PAGE NUMBER
		RET]

;ENTRY TO GET FIRST USED PAGE NUMBER. DOESN'T INCREMENT FIRST.

$FFUFP:	FFUFP
	 CALL [	CAIE A,FFUFX3	;"NO MORE PAGES" ERROR?
		JRST JERR
		SETZ A,
		RET]
	RET
;ROUTINE TO PREFAULT DISK PAGES IN.  CALL IT WITH PAGE NUMBER IN RIGHT
;HALF OF "A".  IT RETURNS +1 ALWAYS.  THIS ROUTINE LOOKS IN VARIABLE
;"PREPAG" TO DETERMINE WHICH PAGE NUMBER STARTS THE LAST GROUP OF
;PAGES THAT WAS PREFAULTED IN.  IF THE PAGE NUMBER IN R.H. OF A ISN'T
;IN THIS GROUP, THIS ROUTINE PREFAULTS IN THE GROUP OF WHICH R.H. A
;IS A MEMBER.  THE PAGES ARE PREFAULTED IN TO MEMORY STARTING AT
;LOCATION "BUFPRE", ASSUMED TO BE ON A PAGE BOUNDARY.  "NPRE" (DEFINED
;IN XDEF) DEFINES HOW MANY PAGES TO PREFAULT IN.
;ALSO ASSUMES INIFH1 POINTS TO WORD CONTAINING JFN OF
;FILE OPEN AS SOURCE

PREFLT:	HRRZ A,A		;KEEP ONLY PAGE NUMBER
	IDIVI A,NPRE
	IMULI A,NPRE		;CALCULATE FIRST PAGE OF THE GROUP
	CAMN A,PREPAG		;IS THIS GROUP ALREADY IN?
	JRST PREOUT		;YES, WE'RE DONE

;THE FOLLOWING WAS ADDED TO CORRECTLY HANDLE LONG FILES.
;IF AN ATTEMPT IS MADE TO PRELOAD A PAGE FROM A NONEXISTENT
;SECTION, A FILE OPENED FOR READ-ONLY ACCESS (OF%RD IN OPENF)
;PMAP WILL BARF SINCE IT CAN'T CREATE A PAGE TABLE WITHOUT WRITE
;ACCESS TO THE FILE. ALL THIS CODE DOES IS ELIMINATE THE ANNOYING
;ERROR MESSAGE GENERATED BY JWARN WHEN THIS OCCURS.
;					B.TOMCZAK 9/14/79

	HRRZ A,A		;NO - CLEAR OUT ANY OTHER TRASH
	CAIG A,777		;SEC GREATER THAN 0?
	JRST PREMAP		;NO, SEC 0 ALWAYS EXISTS

	PUSH P,A		;SAVE THE PAGE NUMBER DESIRED
	SKIPGE B,PREPAG		;HAVE WE ALREADY DONE A MAPPING?
	JRST CHKSEC		;NO, SO JUST CHECK CURRENT

	ADDI B,NPRE-1		;GET LAST PG# OF LAST GROUP
	XOR B,A			;CHECK SEC#'S
	TRNE B,777000		;CURR IN SAME SEC AS PREVIOUS?
CHKSEC:	 JRST [	ANDI A,777000	;NO, GET 1ST PG IN CURRENT SEC
		MOVEM A,B	;AND SAVE IT
		HRL A,@INIFH1	;A/   JFN,,PG#
		CALL $FFUFP	;FIND NEXT USED PAGE
		JUMPE A,[POP P,A ;ZERO MEANS NOTHING IN USE AFTER THIS
			 RET]
		XOR B,A
		TRNN B,777000	;NEXT USED PAGE IN SAME SEC?
		JRST .+1	;YES, MAPPING WILL BE OKAY
		POP P,A		;NO, NONEXISTENT SEC
		RET]		;MAPPING WILL FAIL
	POP P,A			;RESTORE T1 TO PREVIOUS GLORY
PREMAP:	MOVEM A,PREPAG		;READ IN THIS GROUP
	HRL A,@INIFH1		;GET HANDLE ON FIRST PAGE OF GROUP TO BE READ IN
	MOVE B,[.FHSLF,,<BUFPRE>_-9]	;GET HANDLE ON AREA WE'RE READING INTO
	MOVE C,[PM%CNT+PM%PLD+NPRE]	;COUNT GIVEN, PREFAULT, HOW MANY PAGES]
	PMAP			;START THE PAGES IN
	 JWARN			;GIVE WARNING IF THIS PMAP FAILS
PREOUT:	RET
;COPY/APPEND SUBCOMMAND TABLE AND ROUTINES

$COPY:	TABLE
	T ASCII
	T BCD,ONEWRD,NIYE,CM%INVIS
	T BINARY,ONEWRD
	T BYTE
	T DUMP,ONEWRD,NIYE,CM%INV
	T IMAGE
	T RECORD,,,CM%INVIS
	T SUPERSEDE
	TEND

$APPEN:	TABLE
	T ASCII
	T BCD,ONEWRD,NIYE,CM%INVIS
	T BINARY,ONEWRD
	T BYTE
	T DUMP,ONEWRD,NIYE,CM%INV
	T IMAGE
	T RECORD,,,CM%INVIS
	TEND
.ASCII::CONFIRM
	MOVX P3,ASCF		;ASCII FLAG
ASCII2:	HRR Z,P3 		;ENTRY FROM OTHER PLACES
	RET


.BINAR::HRRI Z,10000		;"BINARY" MODE BIT (MODE 14)
	RET

.BYTE:	NOISE (SIZE)
	DECX <Byte size in decimal>
	 CMERRX
	CONFIRM
	MOVEM B,BYTSIZ		;BYTE SIZE GOES IN BYTSIZ
	HRRI Z,NRMF		;SAY NORMAL MODE
	RET

.IMAGE::MOVEI B,[FLDDB. .CMCFM,,,,,[FLDDB. .CMKEY,,$IMAGE]]
	CALL FLDSKP		;CONFIRMATION OR KEYWORD
	 CMERRX <"BINARY" or nothing>
	LDB C,[POINT 9,(C),8]	;PICK UP FUNCTION CODE
	CAIN C,.CMCFM		;NO ARG TO "DETACH"?
	MOVEI B,[T ,,400]	;DUMMY ARG FOR NOTHING TYPED
	CAIE C,.CMCFM
	CONFIRM			;IF NO CONFIRMATION YET, DO IT NOW
	MOVE P3,(B)		;GET TABLE ENTRY
	MOVE P3,(P3)		;GET CONTENTS OF WORD POINTED TO BY TABLE ENTRY
	JRST ASCII2		;GO PROCESS MODE

$IMAGE:	TABLE
	T BINARY,,4000
	TEND

.RECOR::NOISE (LENGTH)
	JRST NIYE
$SUPER:	TABLE
	T ALWAYS,,<0,,-1>	;CANNOT HAVE A NEGATIVE VALUE
	T NEVER,,0
	T NEWER,,2
	T OLDER,,1
	TEND

.SUPER:	KEYWD $SUPER		;GET A KEYWORD
	T OLDER,,1		;DEFAULT IS "SUPERSEDE OLDER"
	 JRST CERR
	CONFIRM			;CONFIRM INPUT NOW
	HRREM P3,SPRSED		;SET UP FLAG WORD WITH VALUE
	RET	
;OPEN FILE SUBROUTINE
;DOES OPENF, RETURNS ON SUCCESS, GIVES MESSAGE ON FAILURE
;CALL WITH A & B SET UP FOR "OPENF" JSYS.
;CHECKS FOR AND DOES NOT RE-OPEN PRI I/O FILES
; (PRI FILES ARE SOMETIMES DEFAULT ARG VALUES).

$OPEN7::HRLI B,<7B5+0B9>B53	;ENTER HERE FOR 7 BIT BYTES NORMAL MODE
$OPENF::CALL OPENX		;TRY TO OPEN FILE
	 JRST ERRFIN		;GO BACK TO TOP LEVEL IF FAILS
	RET			;SUCCEEDED

;ROUTINE LIKE ABOVE, BUT SKIPS IFF SUCCESS.

OPENX:	STKVAR <OFJFN>
	MOVEM A,OFJFN
	CALL $IOCHK		;SPECIAL CHECK FOR PRIMARIES AND EXEC IO
	RETSKP			;SPECIAL (ALREADY OPEN)
	OPENF			;OPEN FILE
	 CAIA			;FAILED
	RETSKP
	MOVE C,OFJFN		;RETRIEVE JFN FOR %S
;ENTER HERE WITH ERROR CODE IN A AND JFN IN C
;SHOULD BE CALLED WITH "CALL OPNERR" SO JERR PRINTS CORRECT PC

OPNERR::MOVEI D,0		;SO WE'LL KNOW IF WE CATCH A FISH
	CAIN A,OPNX2		;NONX FILE?
	MOVE D,[LERROR <File is empty: %3S>]
	CAIN A,OPNX3
	MOVE D,[LERROR <Read protection violation for: %3S>]
	CAIN A,OPNX4
	MOVE D,[LERROR <Write protection violation for: %3S>]
	CAIN A,OPNX6
	MOVE D,[LERROR <Append protection violation for: %3S>]
	CAIN A,OPNX7
	JRST [	MOVE A,C
		DVCHR
		HLRZ C,C
		MOVE D,[LERROR <%1H: is assigned to job %3Q>]
		JRST OPNE1]
	CAIN A,OPNX8
	MOVE D,[LERROR <%3H: is not on-line>]
	CAIN A,OPNX9
	MOVE D,[LERROR <File is busy: %3S>]
	CAIN A,OPNX9+4
	MOVE D,[ETYPE <%_ %%Invalid access requested: %3S %_>]
	CAIN D,0		;IF OTHER ERROR, USE SYSTEM'S VERSION
	MOVE D,[LERROR <%?: %3S>]
OPNE1:	XCT D			;PRINT ERROR MESSAGE
	RET			;SINGLE SKIP RETURN

;ENTER HERE TO CHECK FOR PRIMARY OR EXEC IO ALREADY OPEN
;IF PRIMARY OR EXEC IO, CHECK MODE AND BYTE SIZE

$IOCHK:	CAIE A,.PRIIN		;DON'T OPEN PRIMARY IO
	CAIN A,.PRIOU
	RET
	CAME A,CIJFN		;DON'T OPEN EXEC IO FILES
	CAMN A,COJFN
	RET
	RETSKP			;TELL CALLER NOT SPECIAL
;"REDIRECT" AND "DETACH" COMMANDS

;REDIRECT (INFILE) <NAME>/* (OUTFILE) <NAME>/* (AND) START/REENTER/CONT

;DETACH IS SAME SYNTAX AND HAS SAME MEANING EXCEPT IT DETACHES
; TERMINAL AFTER REDIRECTING IO.
;ALL ARGUMENTS CAN BE OMITTED AND DEFAULT TO NULL

.DETAC::TLO Z,DTACHF		;SET "DETACH" FLAG

;START/REENTER/CONTINUE ARGUMENT

	NOISE <AND>
	MOVEI B,[FLDDB. .CMCFM,,,,,[FLDDB. .CMKEY,,$REDIR]]
	CALL FLDSKP		;CONFIRMATION OR KEYWORD
	 CMERRX <"START", "REENTER", "CONTINUE", or nothing>
	LDB C,[331100,,(C)]	;PICK UP FUNCTION CODE
	CAIN C,.CMCFM		;NO ARG TO "DETACH"?
	MOVEI B,[T NOTHING,,<[XWD ..DTCH,[RET]]>] ;DUMMY ARG FOR NOTHING TYPED
	CAIE C,.CMCFM
	CONFIRM			;IF NO CONFIRMATION YET, DO IT NOW
	MOVE P3,(B)		;GET TABLE ENTRY
	MOVE P3,(P3)		;GET CONTENTS OF WORD POINTED TO BY TABLE ENTRY

;P3 POINTS TO A WD WHOSE RH POINTS TO A SUBR TO FINISH DECODING
;  AND CHECK THE ARGUMENT.

	MOVE A,FORK		;SET FORK HANDLE OF CURRENT FORK
	MOVE B,(P3)
	CALL (B)		;CALL ARGUMENT-DEPENDENT DECODE & CHECK SUBR
	TLNE Z,DTACHF
	ETYPE < Detaching job # %J
>
	HLRZ A,(P3)
	JRST (A)		;DISPATCH TO
				;FINAL-ARGUMENT-DEPENDENT EXECUTION ROUTINE
;TABLE FOR THIRD ARGUMENT
;VALUE POINTS TO A WORD --
;	RH: DECODE-AND-CHECK SUBR ADDRESS
;	LH: EXECUTION DISPATCH ADDRESS

$REDIR:	TABLE
	T CONTINUE,,<[XWD ..CONT,$CONTI]>
	T REENTER,,<[XWD ..REEN,$REENT]>
	T START,,<[XWD ..STRT,$START]>
	TEND

;EXECUTION ROUTINE FOR NULL THIRD ARGUMENT

..DTCH::TLNE Z,DTACHF
	DTACH
;
;Nota Bene - This "bogus" ETYPE was inserted to force the EXEC to
;do a SOUT% to the .CTTRM. This forces something to happen such that
;control characters will be echoed after an ATTACH is done. Don't
;ask me why, but this fixes the problem even though it makes me
;puke.
;
	ETYPE <>		;[4404] "Activate" CCOC words.
	MOVEI Q1,ETTYMD		;TTY MODES FOR USE WHEN EXEC IS RUNNING
	CALL LTTYMD		;PUT SAME INTO EFFECT NOW.
	JRST CMDIN4

;..CONT, ..REEN, ..STRT ARE WITH THE CORRESPONDING COMMANDS.
END