*20
	PMODE
	EJECT
/
/
/
/
/
/			P    I    P    4
/
/
/
/
/			THIS IS THE FOURTH PART OF PIP
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/
/
	*5000
/
/
/
/
/
/			S  O  U  R  C  E     H  A  N  D  L  E  R
/
/
/
/
/
/
ASCINP=BININP			/SAME DEFINITIONS AS BINARY(FOR NOW , ANYWAY)
ASCOUT=BINOUT
ASCLST=BINLST
ASCLTO=ASCLST
/
/
/
/
/
/
ASCII,	DECODE			/GET THE INPUT REQUEST NOW
	ASCINP			/DISPLAY THE POSSIBLE INPUT DEVICES.
	DCA	BFLAG1
	DCA	BFLAG2
	DCA	BCOUNT
	DCA	ORIGIN
	DCA	BFIELD
	DCA	BOLDP
	DCA	CNTRLZ		/INITIALIE VARIOUS POINTERS AND COUNTS.
	ASMIFZ	CARD-1		/ASSEMBLE NEXT CHECK IF CARD READER DEISRED.
	JMS I	ACRCHK		/SEE IF ITS A "C" FOR THE CARD READER
	SEARCH			/SEARCH THE LIST FOR A GOOD OPTION
	ASCLST			/LIST OF GOOD CHARS
	ASCGO			/WHERE TO GO FOR THEM
	JMP	ASCII		/NO LEGAL REQUEST THERE.
/
/
	ASMIFZ	CARD-1		/ASSEMBLE IN CARD POINTER IF CARD READER DESIRED.
ACRCHK,	CRDLTT			/CARD READER POINTER.
/
/
ASCH1,	ISZ	BFLAG1		//SET FOR HIGH SPPEED READER
ASCT1,	ISZ	BFLAG1		/SET FO R  TTY
	JMP	APART2		/GO AND GET OUTPUT
/
/
	ASMIFZ	RF08		/DO WE HAVE THE DISK?
	ASMSKP	2		/NOPE. SKIP OVER DISK INSTRUCTIONS
ASRF8,	DISC			/SET UP FOR DISK OPERATION
	SKP
ASCT,	TAPE			/SET FOR TAPE OPERATION
	PONE			/SET TO INPUT AND SOURCE
	DCA	FWHAT
	PONE
	DCA	FTYPE
	DIRECT			/LOOKUP UP NAME NOW.
	HPUSH			/AND SAVE IT AWAY
/
APART2,	DECODE			/GET THE OUTPUT DEVICE
	ASCOUT
	SEARCH			/LOOKUP UP REPLY
	ASCLTO
	ASCGO2			/GO TO WHERE IT POINTS
	ASMIFZ	CARD-1		/IS LINE PRINTER THERE????
	JMS I	ASCLPT		/CHECK IF "P" TYPED AND INITIALIZE LINEPRINTER.
	JMP	APART2		/N OT   A GOOD REPLY
/
/
	ASMIFZ	CARD-1		/ASSEMBLE IN PRINTER POINTER?
ASCLPT,	LPT2			/POINTER TO CHECKER AND INITIALIZER.
/
/
ASCH2,	ISZ	BFLAG2		/SET TO HIGH OUTPUT
ASCT2,	ISZ	BFLAG2		/SET TO TTY OUTPUT
/
	ASMIFZ	RF08		/DO WE HAVE THE DISK ROUTINES?
	ASMSKP	2		/NOPE. SKIP NEXT TWO INSTRUCTIONS.
ASRF82,	DISC			/SET UP FOR DISK OPERATION
	SKP
ASCTT,	TAPE			/SET FOR A TAPE OPERATION, SHOULD THERE BE ONE.
	PONE
	DCA	FTYPE		/SET FOR SOURCE MODD.
	MONE
	TAD	BFLAG1
	TAD	BFLAG2		/IS IT MASS STORAGE TO MASS STORAGE.
	SPA CLA			/????
	FILEC			/YEP. DO TRANSFER NOW.
	PUSH			/SAVE OUTPUT FILE INFORMATION
	HPOP			/BRING IN INPUT FILE INFORMATION
	JMS I	ASETI		/SET UP SEQUENTIAL TAPE INPUT
	TAD	BFLAG2		/ARE WE GOING TO TAPE
	SZA CLA
	LEADER			/NO. WE BETTER GENERATE SOME LEADER NOW.
/
/
/
/
ANTAPE,	6016			/INITIALIZE THE HIGH SPEED READER
	6032			/AND CLEAR THE TTY FLAG AND THE AC.
/
/
ALOOP,	TAD	BFLAG1		/GET THE INPUT DEVICE POINTER.
	SZA CLA			/FROM A FILE?
	JMP	.+3		/NOPE.
	JMS I	AAGET		/YEP. GET A CHAR NOW
	SKP			/SKP OVER BELOW GET.
	AUXIN			/IF NOT  FROM A FILE, GET THE CHAR NOW.	AND	L177
	AND	L177		/MAKE INTO A GOOD ASCII CHARACTER.
	TAD	L200		/WITH PARITY BIT ON.
	DCA	FTYPE		/AND STORE AWAY.
	TAD	CNTRLZ		/WAS A CONTROL Z TYPED?
	SZA CLA
	JMP	AEND		/YEP. DO END
	SEARCH			/SEARCH FOR POSIBLE SPECIAL CHARACTERS.
	AC1
	AG1
	JMS I	AALIMC		/CHECK TO SEE IF IT S IN 240-337 LIMITS.
	JMP	ABAD		/ IT ISN.T IGNORE IT.
/
AOK,	JMS	APUTIT		/CHAR OK AS IS. OUTPUTTIT.
	JMP	ALOOP		/GO BACK AND GET ANOTHER ONE.
/
/
ABAD,	JMP	ALOOP		/BAD CHAR. GET NEXT ONE
/
/
/
AEND,	TAD	BFLAG1		/IS IT MASS INPUT?
	SNA CLA
	JMP	AEND2		/YEP. IGNORE STANDARD PAPER TAPE CRAP.
	JMS I	PMORE		/ASK FOR MORE TAPES??
	JMP	ANTAPE		/HE S   GOT ANOTHER TAPE.
AEND2,	JMS	ACRR		/PLACE A CR IN THE BUFFER.
	TAD	AABLAH		/GETE  THE EOT-Z CHAR
	DCA	 FTYPE		/AND PLACE IN THE BUFFER	JMS	APUTIT
	JMS	APUTIT		/PLACE IT OUT THERE
	MONE			/IF LASS STOREAGE IT NEVER RETURNS TO HERE
	DCA	FTYPE		/PLACE A RUBOUT ON  BUS
	JMS	APUTIT		/AND SEND IT OUT
	JMS	ACRR		/DO ANOTHER CARRIGE RETURN.
	LEADER			/THEN GENERATE TRAILER
	PIP			/AND FINALLY GO BACK TO PIP
/
/
/
/
ACR,	JMS	ACRR		/COMES HERE IF A CR ENCOUNTERED.	JMP	ALOOP
	JMP	ALOOP		/GET NEXT CHAR
/
/
ACRR,	0			/GENERATES A CR,LF,RUBOUT
	TAD	AC1		/215
	DCA	FTYPE
	JMS	APUTIT		/OUT GOES THE C	R
	TAD	M212
	CIA
	DCA	FTYPE
	JMS	APUTIT		/OUT GOES THE L F
	MONE
	DCA	FTYPE
	JMS	APUTIT		/OUT GOES THE RUBOUT
	JMP I	ACRR		/RETURN
/
/
/
APUTIT,	0			/SENDS A CHAR ALONG CORRECTLY
	TAD	BFLAG2		/WHERES IT GOING?
	SZA CLA
	JMP	.+3		/TO THE SEQUENTIAL DEVICE
	JMS I	AAAPUT		/PLACE IN MASS BUFFER.
	JMP I	APUTIT		/AND RETURN
	TAD	FTYPE		/GET THE CHAR
	AUXOUT			/GOOD BYE
	JMP I	APUTIT		/AND RETURN.
/
/
AAAPUT,	AAPUT
ASETI,	SETI
AAGET,	AAAGET
AALIMC,	GGLIMC			/LIMIT CHECKER
/
/
/
/
AC1,	215
	300
	337
	243
	ASMIFZ	TERMC-44	/IS 44 A LEGAL CHAR???
	244			/NO. ASSEMBLE INTO THE EXCEPTION TABLE.
	247
AABLAH,	232
	4211			/END OF THE LIST
/
/
/
/
/
ASCGO,	ASCH1
	ASCT
	ASMIFN	RF08		/DO WE HAVE DISK?
	ASRF8			/YEP. ASSEMBLE IN BRANCH
	ASCT1
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/			THIS PAGE OVERLAPS A LITTLE FROM PREVIOUS PAGE.
/
/
/
/			MORE OF THE ASCII HANDLER.
/
/
/
/
/
AAPUT,	0
	SEARCH			/CHECK FOR A SPECIAL CONTROL CHAR.
	AC1			/SAME LIST IS OK.
	AG2
	TAD	FTYPE		/GET THE CHAR
	TAD	M240
	SPA CLA
	JMP	AP		/TOO SMALL. NOG A REGULAR CHAR.
	TAD	FTYPE
	TAD	M340
	SMA CLA
	JMP	AP		/TOO BIG. IT S NO GOOD.
	TAD	FTYPE		/GET THE CHAR AGAIN
	AND	L77		/JUST THE LOW ORDER BITS.
AAA1,	JMS	AAAAAA		/PLACE THE CHAR IN THE BUFFER.
	JMP I	AAPUT		/AND EXIT
/
/
/
AP,	JMP I	AAPUT		/BAD CHAR.
/
APCR,	TAD	AL43		/CR FOUND. PLACE A "43" IN THE BUFFER
	JMP	AAA1		/STICK IN BUFFER
/
AATAB,	TAD	L7
	TAD	AL40		/CONVERT TAB TO A 47
	JMP	AAA1
/
/
/
AAEND,	ASMIFN	TERMC-44	/IS 44 THE END OF FILE CHARACTER?
	ASMSKP	2		/NO. ZERO IS. IGNORE NEXT TWO STATEMENTS.
	PFOUR			/DOLLAR SIGN IS THE END OF BUFFER CRAP
	TAD	AL40		/MAKE IT INTO A DOLLAR SIGN
	JMS	AAAAAA		/AND PLACE EOF CHAR IN THE BUFFER.
	TAD	AAAORG		/SEE IF BUFFER IS WRITTEN OUT.
	CMA
	AND	BOLDP		/BY CHECKING ENDING ADDRESS
	SNA CLA
	JMP	.+3		/BUFFER IS CLEAR AND WRITTEN OUT.
	JMS	AAAAAA		/BUFFER STILL IN USE. ADD 1 CHAR AND SEE IF DUMPED.
	JMP	.-6		/NOT DUMPED. WAIT.
	TAD	AAUNIT		/GET THE UNIT
	DCA	FUNIT		/AND FLACE AWAY
	TAD	AABLOCK		/GET THE FIRST BLOCK
	DCA	FBNUM		/AND STASH AWAY.
	TAD	AABLOCK		/GET THE FIRST BLOCK
	CIA
	TAD	AAOUTB		/ADD IN NEXT BLOCK TO GET SIZE.
	DCA	FSIZE		/AND STASH AWAY.
	PONE			/SET FOR SEOURCE
	DCA	FTYPE
	HPUSH			/NOW STASH THIS AWAY FOR FILEC TO USE.
	POP			/REGET THE OUTPUT UNIT CONFIGUARTATION.
	FILEC			/AND DO A DIRCTORY TYPE COPY.
/
/
/
/
/
AAAAAA,	0			/PLACES HALF A CHAR IN THE BUFFER.
	DCA	BTEMP1
	TAD	BFIELD		/FIRST TIME THROUGH?
	SZA CLA
	JMP	AAA		/NOPE. IGNORE SETUP
	ISZ	BFIELD		/SET SWITCH
	TAD	AABLOCK		/GET START OF BINARY CRAP.
	DCA	AAOUTB		/AND SET UP WRITE BLOCK.
	TAD	AAAORG		/GET THE LOCATION OF START
	DCA	BOLDP		/AND SAVE IN THE ADDRESS
	MONE			/SET THE SWITCH TO PLACE IN LEFT HALF OFWORD.
	DCA	ORIGIN
	TAD	M400		/SET THE WORD COUNTER
	DCA	BTEMP3		/TO 400 WORDS TO GO IN BUFFER.
/
/
	ASMIFN	STAR20-1	/DO WE WANT TO STICK IN A "*20" AT BEGINNING OF FILE???
	ASMSKP	13		/NOPE. DONT ASSEMBLETHEM IN.
/
	TAD	A5262		/GET A "*20" AND PLACE IT
	DCA I	BOLDP
	ISZ	BOLDP		/IN FIRST TWO WORDS OF FILE.
	TAD	A6043
	DCA I	BOLDP
	ISZ	BOLDP		/BOP UP THE IN POINTER.
	ISZ	BTEMP3
	ISZ	BTEMP3		/INCREMENT THE BUFFER COUNTER BY 2.
/
	TAD	AL43		/TELL BUFFERS WE JUST PUT A "43" IN IT.
	DCA	ALASTC		/BY PLACING IT IN LAST CAR INSERTED.
/
AAA,	TAD	BTEMP1		/GET THE CAR
	CIA
	TAD	AL43		/IS IT A 43
	SZA CLA
	JMP	.+6		/NOPE. INSERT IT
	TAD	ALASTC		/GET PREVIOUS CHAR
	CIA
	TAD	AL43		/WAS  IT ALSO A 43
	SNA CLA
	JMP I	AAAAAA		/YEP. IGNORE IT.
	TAD	BTEMP1		/UPDATE OLD CHAR
	DCA	ALASTC
	ISZ	ORIGIN		/TEST LEFT OR RIGHT SWITCH
	JMP	AAA2		/RIGHT HALF
	TAD	BTEMP1		/LEFT HALF
	RTL
	RTL
	RTL
	AND	L7700		/PLACE IN LEFT HALF OF WORD
	DCA I	BOLDP		/AND STASH AWAY.
	JMP I	AAAAAA		/AND EXIT NOW.
/
AAA2,	MONE
	DCA	ORIGIN		/RESET HALF SWITCI.
	TAD	BTEMP1		/PLACE IN RIGHT HALF OF WORD.
	AND	L77
	TAD I	BOLDP
	DCA I	BOLDP		/AND PLACE IT AWAY.
	ISZ	BOLDP		/THAT ALL>
	NOP			/THIS CAN SKIP IF BUFFER=7400
	ISZ	BTEMP3		/INCREMENT THE COUNTER. ALL DONE WITH THIS BUFFER?
	JMP I	AAAAAA		/NOPE. BUFFER STILL GOOD.
	TAD	AAAORG		/BUFFER FULL. RESET POINTER.
	DCA	BOLDP
	TAD	M400
	DCA	BTEMP3		/RESET COUNTER.
	TAD	AAOUTB		/GET THE OUTPUT BLOCK
	TAD	AALIM		/WILL IT EXCEED WORKING AREA?
	SNA CLA
	NO			/YEP, IT WILL. GIVE ERROR MESSAGE.
	WRITE			/WRITE OUT FULL BUFFER.
AAUNIT,	SYSBIN
AAAORG,	BUFFER
	1
AAOUTB,	0
	ISZ	AAOUTB		/BOP UP BLOCK
	JMP I	AAAAAA		/AND EXIT
/
DSYS4=AAUNIT
/
/
	ASMIFN	STAR20-1	/DO WE WANT THE "*20" LITERALS IN???
	ASMSKP	3		/NOPE. DON T PUT THEM IN.
/
A5262,	5262
A6043,	6043
/
AABLOCK,SYSBBLOCK
AL40,	40
AL43,	43
ALASTC,	0
AALIM,	-SYSWT-1		/MAXIMUM SIZE OF THE WORKSPACE.
/
/
/
/
/
/
/
/
/
/
/
/
AG1,	ACR
	ABAD
	ABAD
	ABAD
	ASMIFZ	TERMC-44	/SHOULD WE IGNORE DOLLAR SIGNS?
	ABAD			/YEP. ASSEMBLE IN THE POINTER
	ABAD
	AEND
	AOK
/
/
/
/
/
/
/
ASCGO2,	ASCH2
	ASCTT
	ASMIFN	RF08		/DISK THERE?
	ASRF82			/YEP.
	ASCT2
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/			MORE ASCII HANDLERS
/
/	WHICH OVERLAP SOME MORE FROM THE PREVIOUS PAGE.
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
AAAGET,	0			/MAIN BUFFER GETTER ROUTINE
	CLA
	TAD	BFIELD
	SZA CLA			/ARE WE ACTIVE?
	JMP	AAGET2		/YEP. IGNORE NEXT.
	ISZ	BFIELD		/SET STATUS SWITCH
/
	ASMIFN	STAR20-1	/DO WE WANT TO SKIP PAST A "*20"
	ASMSKP	3		/NOPE. NO *20 SKIP.
/
	JMS I	AGETI		/GET A WORD
	JMS I	AGETI		/GET TWO WORDS (BYPASS "*20")
/
	MONE
	DCA	ORIGIN		/ LEFT HALF OF WORD CHAR.
/
AAGET2,	ISZ	ORIGIN		/WHICH HALF?
	JMP	AAGET3		/RIGHT HALF .
	JMS I	AGETI		/GET A WORD.
	DCA	BOLDP		/AND STASH AWAY
	TAD	BOLDP		/RETURN WITH ITS VALUE.
	ROR6			/SHIFT LEFT HALF OF AC TO THE RIGHT HALF
	JMP	AAGET4		/GO DOWN AND GET REST.
/
AAGET3,	MONE
	DCA	ORIGIN		/RESET RIGHT-LEFT SWITHC.
	TAD	BOLDP		/GET THE RIGHT CHAR
AAGET4,	AND	L77		/JUST GET 6 BITS
	DCA	FTYPE		/STORE AWAY.
	SEARCH			/CHECK FOR A NO NO.
	AAGL1
	AAGO1
	TAD	FTYPE
	TAD	M40		/FIGURE OUT CORRECT BIT 4
	SPA			/>40. A 20 0  TYPE CHARACTER
	TAD	L100		/<40 A 300 TXPE CHAR.
	TAD	AAGET3		/ADD IN 240 (ACTUALLY 7240)
	AND	A377		/JUST MAKE IT8 BITS
	JMP I	AAAGET		/AND EXIT.
/
/
A377,	377
AGETI,	GETI
/
/
AACR,	TAD	M215		/CARRIGE RETURN
	CIA
	JMP I	AAAGET
/
AAATAB,	PONE
	TAD	L10
	TAD	L200
	JMP I	AAAGET
/
AAAEND,	PTWO
	TAD	L30
	TAD	L200
	JMP I	AAAGET		/EXIT WITH A CONTROL Z IN THE AC.
/
/
/
/
/
AAGL1,	0
	ASMIFZ	TERMC-44	/IS 44 THE END OF FILE CHAR?
	44			/YEP. ON 44 GO TO THE CONTROL Z GENERATOR.
	43
	47
	4037			/END OF LIST
/
AAGO1,	ASMIFN	TERMC-44
	AAAEND			/00 IS THE END OF FILE CHARQACTER.
	ASMIFZ	TERMC-44
	AAAGET+1		/44 (DOLLAR SIGN) IS THE TERMINATOR.
	ASMIFZ	TERMC-44	/IS DOLLAR SIGN LEGAL?
	AAAEND			/NOPE. IT S THE END OF FILE CHAR.
	AACR
	AAATAB
	AAAGET+1
/
AG2,	APCR
	AP
	AP
	ASMIFZ	TERMC-44	/ASMEBLE IGNORE CHARACTER IF DOLLA.R IS THE END OF FILE CAHR...
	AP
	AP
	AP
	AAEND
	AATAB
/
/
/
/
/
/
/
/
/
/
/
/
ABDIS,	LEFT+200
	TOP-240
	ASMIFN	REMAKE!RF08	/DO WE WANT REMAKE OPTION OR THE DISK?
	ASMSKP	5		/YEP. SKIP NEXT MESSAGE.
	TEXT	"FAUXILIARY OPTIONS:
 
 
HC --- COPY SPECIFED BLOCKS
HD --- DUPLICATE TAPE 0 ONTO 1\"
/
/
/
/
/
	ASMIFZ	REMAKE		/DO WE WANT REMAKE MESSAGE?
	ASMSKP	6		/YEP. PUT IN MESSAGE.
	TEXT	"FAUXILIARY OPTIONS:
 
 
HC --- COPY SPECIFIED BLOCKS
HD --- DUPLICATE TAPE 0 ONTO 1
HR --- REFORMAT FILE\"
/
/
/
/
/
/
/
/
/
/
	ASMIFZ	RF08		/DO WE WANT THE RF08 OPTIONS.
	ASKSKP	6		/NOPE. DON T  PUT IN THE MESSAGE.
/
/
	TEXT	"FAUXILIARY OPTIONS:
 
 
C --- COPY SPECIFIED BLOCKS
D --- DUPLICATE TAPE 0 ONTO 1
S --- COPY SYSTEM
U --- COPY UNIT\"
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/
/
/
/
/
	*5600
/
/
/
/
/		THIS IS THE ABSOLUTE BLOCK HANDLER
/
/
/
/
/
/
/
/
/
CINPUT=ASCINP			/SAME AS SOURCE INPUT(FOR NOW)
COUTPUT=ASCOUT			/SAME AS SOURCE FOR NOW.
/
/
/
ABSOL,	DECODE			/GIVE THE MESSAGE AND WAIT FOR A REPLY.
	ABDIS			/ABSOLUTE DISPLAY CRAP.
	TAD	FUNIT		/GET THE NUMBER OF ADDITION AL  UNITS.
	AND	L7		/ONLY 3 GOOD BITS ALWLOED.
	SNA			/WAS IT ZERO?
	PONE			/YEP. MAKE IT INTO A ONE.
	CIA			/COMP TO SET UP COUNT
	DCA	ABSTMP		/AND STORE AWAY IN COUNTER SET.
	SEARCH			/LOOKUP THE RELYP.
	ABL1
	ABG1
	JMP	ABSOL		/ILLEGAL REPLY.
/
/
/
/
DUP,	DCA	INUNIT		/COPIES 0 TO 1 OR MORE TAPES.
	DCA	INBLOCK		/SET UP INPUT UNIT AND BLOCK TO 0, OUTPUT BLOCK TO 0.
	DCA	OUTBLOCK
	PONE
	DCA	OUTUNIT		/SET THE OUTPUT UNIT TO 1
	CLA CLL CML RTR		/2000
	RAR			/1000. A 1000 BLOCK COPY.
	DCA	FSIZE		/SET UP SIZE.
	TAD	ABSTMP		/RECALL THE NUMBER OF COPIES TO MAKE
	DCA	OUTNUM		/AND SAVE IN THE COPIER PARAMETER TABLE.
	COPY			/THEN GO DO OCPY.
	PIP			/RETURN TO PIP WHEN DONE
/
/
/
ACOPY,	DECODE			/GET THE INPUT DEVICE AND BLOCK NUMBER.
	CINPUT			/FROM THE COPY INPUT CRAP.
	SEARCH			/LOOK-UP REPLY.
	ACPL1			/INPUT LIST
	ACPG1			/GO TO LIST
	JMP	ACOPY		/NO GOOD REPLY FOUND
/
/
/
/
/
/
	ASMIFZ	RF08		/DISK?
	ASKSKP	2		/NO DISK HANDLERS THERE.
ACOPR,	DISC			/SET UP FOR DISK
	SKP
ACOPT,	TAPE			/SET UP FOR TAPE
	TAD	FUNIT
	DCA	INUNIT		/SET UP THE INPUT UNIT NOW.
	PUSH			/SAV THE SIZE BECUASE DECODE MIGH ZAP IT.
	JMS	AGETN		/GET THE STARTING BLOCK NUMBER.
	JMP	ACOPY		/NOT ALL LEGAL NUMBERS.
	TAD	AGNUM		/GET THE BLOCK NUMBER
	DCA	INBLOCK		/AND SAVE AWAY.
ACOPY2,	DECODE			/GET THE OUTPUT DEVICE
	COUTPUT			/DISPLAY CHOICES
	SEARCH			/LOOK UP THE REPLY
	ACPL1
	ACPG2
	JMP	ACOPY2		/NOT A LEGAL REPLY
/
/
/
/
/
	ASMIFZ	RF08		/DISK?
	ASMSKP	2		/NOPE.
ACOPR2,	DISC			/SET UP FOR DISK
	SKP
ACOPT2,	TAPE			/SET UP FOR TAPE
	TAD	FUNIT		/GET THE CORRECT OUTPUT UNIT
	DCA	OUTUNIT		/AND STASH AWAY.
	JMS	AGETN		/GET THE BLOCK NUMBER.
	JMP	ACOPY2		/NOT A LEBGAL NUMBER
	TAD	AGNUM		/GET THE STARTING BLOCK
	DCA	OUTBLOCK		/AND STASH AWAY.
	POP			/RESTORE THE SIZE OF THE COPY.
	TAD	ABSTMP		/RECALL THE NUMBER OF COPIES TO MAKE
	DCA	OUTNUM		/AND SAVE IN THE COPY PARAMETER
	COPY			/AND DO IT.
	PIP			/RETURN TO PIP WHEN DONE.
/
/
/
/
/
/
/
/
	ACPL1=BINLST
/
ACPG1,	ACOPY			/ILLEGAL REPLY
	ACOPT			/LINC TAPE
	ASMIFN	RF08		/DISK?
	ACOPR			/YES. DISK
	ACOPY			/ILLEGAL
/
/
/
ACPG2,	ACOPY2			/ILLEGAL
	ACOPT2			/LINC TAPE
	ASMIFN	RF08		/DISK?
	ACOPR2			/YES.
	ACOPY2			/ILLEGAL
/
/
AGETN,	0			/CONVERTS FNAME INTO A NUMBER(IF NOT THERE RETURNS TO .+1, OTHERWSIE TO .+2)
	LINC			/GO OVELMODE
	LMODE
	SET I	1		/SET 1 TO POINT TO FNAME BLOCK.
	FNAME+6000-1
	LDF	0		/IN DF 0
	STC	AGNUM		/ZAP OUT PRESENT NUMBER.
	SET I	2		/SET 2 TO A COUNT.
	-5
AALOOP,	LDH I	1		/GET THE NEXT CHAR FROM FNAME.
	SHD I			/IS IT A 77
	7777			/WHICH IS END OF NUMBER?
	JMP	ALD		/YEP. EXIT.
	ADA I			/IS IT TOO SMALL?
	-57			/(BELOW 60)
	APO
	JMP	AALL		/YEP. BAD CHAR.
	ADA I			/IS IT TOO LARGE
	-11			/(ABOVE 70)
	APO I
	JMP	AALL		/YEP. BAD CHAR.
	LDA I			/GET OLD TOTAL
AGNUM,	0
	ROL	3		/MULTIPLY BY 10
	BCL I
	7
	STC	AGNUM		/MULTIPLY DONE
	LDH	1		/REGET THE NUMBER
	ADA I
	-60			/CHOP OFF CHAR BITS
	ADD	AGNUM		/ADD IN OLD TOTAL.
	AZE I			/IF NOT ZERO THEN SKP
	CLR			/IF ZERO , ZERO AC TO 0000, IN CASE IT WAS 7777, WHICH IS EVIL IN 8 MODE.
	STC	AGNUM		/STASH AWAY SOMEPLACE O OTHER.
	XSK I	2		/BOP UP COUNT
	JMP	AALOOP		/MORE TO GO.
	JMP	AALL		/TOO MANY DIGITS. NUM TOO LARGE.
/
/
/
/
ALD,	PDP			/GET INTO PMODE
	PMODE
	ISZ	AGETN		/GO TO GOOD RETURN
/
	LMODE
/
AALL,	PDP			/GET INTO 8 MODE
	PMODE			/WE RE BACK IN PMODE NOW.
	CLA			/CLEAR THE AC
	JMP I	AGETN		/AND EXIT.
/
/
/
/
/
/
/
/
/
/
/
/
ABL1,	303
	ASMIFN	REMAKE		/REMAKE OPTION INCLUDED???
	322			/YEP. PLACE CHECK CHAR IN LIST.
	ASMIFZ	RF08		/DISK THERE
	ASMSKP	2		/NOPE. DO NTT OUT IN S AND U
	323
	325
	4304
/
ABG1,	ACOPY
	ASMIFN	REMAKE		/REMAKE OPTION???
	KONVRT			/YEP. PLACE IN POINTER OPTION.
	ASMIFZ	RF08		/HOW ABOUT THE POINTERS?
	ASKSKP	2		/NOT THERE
	AASYSC
	AAUNTC
	DUP
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	ASMIFN	CARD-1		/DO WE WANT LINE PRINTRTER.???
	ASMSKP	30		/NOPE. DONT ASEEMBLE IT N.
/
/
/
LPT2,	0			/LINE PRINTER CHECKER AND INITIALIZER.
	TAD	FTYPE		/GET THE OUTPUT DEVICE
	TAD	LPM320		/IS IT A "P"
	SZA CLA			/?
	JMP I	LPT2		/NOPE. RETURN TO CHECK SOME MORE.
	JMS I	LLPEJ2		/YEP. GIVE TWO EJECTS TO GET THINGS GOING.
	ISZ	BFLAG2		/PREPARE TO SET OUTPUT FLAG TO 3
	JMP I	.+1		/RETURN AND ADD TWO MORE TO BFLGA2
	ASCH2			/HIGH SPPEED PUNCH SETTER
/
LPM320,	-320			/"P"
LLPEJ2,	LPEJ2			/POINTER TO EJECTOR ROUTINE.
/
/
/
/
/
/
/
/
/
/
/
/
	ASMIFZ	CARD		/L.P. THERE?
ABSTMP,	0			/NOPE. DEFINE THE TEMPORARY NOW
/
/
	ASMIFN	CARD		/L.P. THERE?
ABSTMP=LPT2			/YEP. USE ENTRY AS THE TEMP
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/
/
/
/
/
/
/
/		GET THE LAST PART OF PIP
/
/
/
	CHAIN	"PIP5"
/
/
/
/
/
/
/
/
	EJECT