/LNK811.PA
/COPYRIGHT 1972, 1973, 1980
/DIGITAL EQUIPMENT CORPORATION
/MAYNARD,  MASS.  01754
/
/THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE
/ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION
/OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT
/AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
/NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
/EQUIPMENT CORPORATION.
/
/DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
/OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
/

/LNK811 PROGRAM
/
/TIMOTHY J. DOLAN  ?FEB. 31, 1980?
/DIGITAL EQUIPMENT  - ROLLING MEADOWS
/"T"ECHNICAL "B"ACKUP "S"UPPORT "U"NIT
/WILLL ENABLE THE TRANSFER OF COS 300 DATA FILES
/TO A RSTS/E SYSTEM.
/
/***********************************
/
/ASSEMBLY INSTRUCTIONS
/	.PAL LNK811.PA
/	.R ABSLDR
/	*COSPG0.SV/I
/	*LNK811.BN$
/	.SAVE SYS LNK811.SV 0-4377,14200-17577;200
/
/**********************************
/
/TWO SECTIONS -
/
/	1. BUILD COMMAND FILE
/	  CREATES A SERIES OF COMMAND RECORDS
/	  CONSISTING OF
/	$JOB	-	START OF JOB
/	$BOF	--	RSTS FILE SPECS
/	$MSG	-	MESSAGE LINE
/	$SOD	-	DATA FILENAME AND LUN
/	$EOF	-	END OF RSTS FILE
/	$EOJ	-	END OF JOB
/	ENSURES ALL FILES EXIST AT TIME OF
/	COMMAND FILE CREATION.
/	2. THE "BEGIN" RTN PROMPTS IF XMIT TO START
/	  OPENS AND SENDS ALL COMMAND FIL RECORDS.
/	IF RECORD IS  $SOD, THEN OPENS AND SENDS DATA FILE.
/	AT EOF ON DATA FILE, CLOSES, AND CONTINUES WITH
/	COMMAND FILE.	AT EOF ON COMMAND FILEE,
/	SENDS MESSAGE,SENDS "EOT" CODE TO LNK118 AND WAITS
/		UNTIL  EVERYBODY SETTLES DOWNS.
/	THEN "FINISH" RTN RESTORES PROPER CODE IN
/	RESIDENT COS CODE.
/

/THE "RECLOP" RTN  HANDLES THE XMIT OF A COS DATA/COMMAND
/RECORDS.
/SETS COUNT OF 7 TO RETRY SENDING THE SAME RECORD.
/LOOKS AT STATUS OF EVERYTHING.
/CHECKS IF LINE AVAILABLE FROM RSTS.
/CHECKS MESSAGE REQUEST FROM COS 300 KBD
/CALLS "RECLEN" TO FIND AND PUT THE BYTE COOUNT.
/CLEANS UP THE CHECKSUM AND SENDS IT.
/SENDS A CARRIAGE RETURN TO LNK118 AS A DELIMITER.
/WAITS FOR A ACK OR NAK
/IF ACK - EXITS
/IF NAK - RETRYS 7 TIMES
/IF NEITHER - AFTER FIFTEEN SECONDS - ABORTS
/OTHER NOTES
/THE WAIT RTN CHECKS IF RSTS HAS SENT A
/XOF AND IF TOO LONG OF A DELAY.
/CHECKS IF COS CNTL/C
/CHECKS IF RSTS CNTL/C
/CHECK "USER NOTES" FOR CAUTIONS IN "INIT" CODE.
/********************************
/
/CONTROL		OCTAL	MEANING
/CODES
/ 
/ NAK		25	LNK118 DID NOT GET SAME
/			LENGTH OR CHECKSUM AS
/			LNK811 SENT.
/ ACK		06	LNK118 RECEIVED REC OK
/ XOF		23	RSTS SENDS TO SUSPEND XMITING
/ XON		21	RSTS SENDS TO RESUME XMITING
/ DLE		20	LNK118 OR LNK811 SENDS PRIOR TO MESSAGE
/ EOT		04	LNK118 OR LNK811 SENDS TO ABORT

/FUTURE ENHANCEMENTS FOR SOMEONE ELSE TO DO.
/
/1. ALLOW COMMAND FILE GENERATION WITHOUT SPECIFIED
/DATA FILES EXISTING.
/2. ALLOW "RUN LNK811[,CMDFIL][/S]" TO BYPASS
/ANY OPERATOR INTEVENTION.
/3. ALLOW $SOD RECORD TO CONTAIN SOURCE FILE NAME , IE
/$SOD TYPE  NAME  .  THIS WOULD BYPASS THE CONVERT PROCEDURE.
/
/4. ** MOST INPORTANT ** 
/ ALLOW COS 300 TO RECEIVE SOURCE OR DATA FILES FROM THE
/ RSTS SYSTEM.
/5. IN THE "BEGIN" RTN SOME NOTES EXIST FOR THE
/LNK811 PROGRAM TO "ENQ" THE RSTS SYSTEM.  PROBABLY A BETTER
/WAY WOULD BE TO WAIT UNTIL RSTS SENT LNK811 A "ENQ".
/6. MAKE COS KBD RING BUFFER TO ALLOW TYPING MESSAGES 
/WHILE XMITING.

/FUTURE ENHANCEMENTS FOR SOMEONE ELSE TO DO.
/
/1. ALLOW COMMAND FILE GENERATION WITHOUT SPECIFIED
/DATA FILES EXISTING.
/2. ALLOW "RUN LNK811[,CMDFIL][/S]" TO BYPASS
/ANY OPERATOR INTEVENTION.
/3. ALLOW $SOD RECORD TO CONTAIN SOURCE FILE NAME , IE
/$SOD TYPE  NAME  .  THIS WOULD BYPASS THE CONVERT PROCEDURE.
/
/4. ** MOST INPORTANT ** 
/ ALLOW COS 300 TO RECEIVE SOURCE OR DATA FILES FROM THE
/ RSTS SYSTEM.
/5. IN THE "BEGIN" RTN SOME NOTES EXIST FOR THE
/LNK811 PROGRAM TO "ENQ" THE RSTS SYSTEM.  PROBABLY A BETTER
/WAY WOULD BE TO WAIT UNTIL RSTS SENT LNK811 A "ENQ".
/6. MAKE COS KBD RING BUFFER TO ALLOW TYPING MESSAGES 
/WHILE XMITING.