/******* MULTI8 LINE IN-/OUTPUT *******
/NAME:	IN ("I^100+"N&3777) LIN
/LENGTH: ONE PAGE
/FUNCTION:THIS MODULE READS ONE LINE OF TEXT AND PUTS THE
/	CHARACTERS ONE BY ONE INTO THE BUFFER OF THE CALLING
/	MODULE, WHICH ALSO SPECIFIES THE INPUT DEVICE NAME.
/	THE MODULE SERVES ALSO FOR OUTPUT ONLY.
/
/CONCEPT:A LOT OF MODULES NEED PROPER INPUT FROM SOME
/	INPUT DEVICE, WHILE NOT BOTHERING ABOUT THINGS LIKE
/	RUBOUT CHARACTERS ETC. THE CALLING MODULE ONLY
/	SPECIFIES THE INPUT DEVICE AND THE SIZE OF THE
/	RESERVED BUFFER. THE BUFFER MAY BE LOCATED IN
/	IANY FIELD. (SEE FORMAT)
/THE FOLLOWING CONTROLCHARS ARE RECOGNISED:
/	RUBOUT	:DELETE ONE CHAR TO THE LEFT
/	CTRL/U	:DELETE THE WHOLE LINE
/	LF	:REPEAT THE WHOLE LINE
/	CR	:TERMINATES THE LINE;TAKES NORMAL RETURN
/	ALTMODE	:TERMINATES THE LINE;TAKES NORMAL RETURN
/	ANY OTHER CONTROL CHAR. :TAKES THE ERROR RETURN
/
/	THE VERY FIRST THING THE MODULE DOES, IS TO
/	PRINT ALL CHARACTERS IN THE BUFFER UNTIL IT
/	ENCOUNTERS A 0000. THEN THE INPUTSTRING IS
/	ENTERED OVER THE OUTPUTSTRING.
/
/ERRORS:1) NO INPUT DEVICE SPECIFIED
/	2) INPUT MODULE BUSY OR NOT AVAILABLE
/	3) ILLEGAL CONTROL CHARACTER TYPED
/	4) LINE TOO LONG FOR BUFFER;TYPES "?"
/
/TASKCIRCULATION:BETWEEN TYPE-INS AND ECHOES
/USE:	CDF TO FIELD OF BUFFER
/	TAD (POINTER TO BUFFER
/	JMS MONITOR
/	   CALL
/	   "I^100+"N&3777
/	 ERROR RETURN	/"IN" NOT AVAILABLE
/	NORMAL RETURN; ERROR RETURN IF AC UNEQ. 0
/NOTE! UPON RETURN DF STILL POINTS TO FIELD OF BUFFER.

/FORMAT IN:
/BUFFER,NAME OF INPUT DEVICE
/	-LENGTH OF BUFFER
/	ZBLOCK (-LENGTH)	/THE ACTUAL BUFFER AREA

/THE BUFFER MAY ALSO CONTAIN TEXT TO BE PUT OUT:
/BUFFER,NAME OF INPUT DEVICE
/	-LENGTH OF BUFFER
/	"T;"E;"X;"T;0000	/TEXT;ZERO IS TERMINATOR
/	ZBLOCK (THE REST)	/IF 215=TERMINATOR:NO INPUT!!
/
/NOTE THAT THE INPUTSTRING STARTS AT BUFFER+2 !!
/NOT THAT THE DATAFIELD POINTS TO THE CALLER'S FIELD
/NEARLY ALL THE TIME.

*200
LINPTR,	"I^100+"N&3777	/NAME 'IN'
LINCNT,	200		/ONE PAGE;NO CONNECTS
LINSWI,	0

LINE,	DCA LINBEG	/SET UP POINTER TO FETCH ARGS
	TAD I LINBEG	/SAVE INPUT DEVICENAME
	DCA LINPUT
	TAD LINPUT
	TAD ("T-"K^100	/FORM OUTPUT DEVICE NAME
	DCA LINONAM
	ISZ LINBEG
	TAD I LINBEG	/-MAX LENGTH
	DCA LINLENG
	TAD I ZMYCDF	/SAVE CDF A NUMBER OF TIMES
	DCA LICDF
	TAD LICDF
	DCA LINCDF
	ISZ LINBEG	/POINTS TO BEGINNING OF BUFFER
LISTAR,	TAD C215	/TYPE CRLF
	JMS LINOUT
	TAD C212
	JMS LINOUT
LINE0,	TAD LINLENG	/USE LINCNT AS COUNTER
	DCA LINCNT
	TAD LINBEG	/MOVE POINTER TO BEGINNING
	DCA LINPTR
LINE1,	JMP LINE2	/READ A CHAR;BECOMES 'JMS MONITOR'
	   CALL
LINPUT,	   0		/NAME OF INPUT MODULE
	 JMP LINE1	/MODULE BUSY?
LICDF,	 HLT		/RESTORE DF;YOU NEVER CAN TELL
	DCA I LINPTR	/SAVE IN BUFFER
LINE2,	TAD I LINPTR	/BRANCH FOR CONTROLS
	SNA		/IGNORE BLANKS
	 JMP LIPATCH
	TAD (-377
	SNA
	 JMP LINERUB	/RUBOUT
	TAD C2	/(-375+377
	SNA
	 JMP LINALTM	/ALT MODE
	TAD (-212+375
	SNA
	 JMP LINLF	/LF
	TAD M3	/(-215+212
	SNA
	 JMP LINECR	/CR
	TAD M10	/(-225+215
	SNA
	 JMP LINEU	/CTRL/U, LINE OVER
	TAD (-240+225
	SPA
	 JMP LINERR	/OTHER CONTROL CHAR'S GIVE ERROR
	TAD C240
	JMS LINOUT	/ECHO THE CHAR
	ISZ LINPTR	/MOVE PNTR
	ISZ LINCNT	/BUF FULL?
LINJMP,	 JMP LINE1	/N
LINERR,	ACM1		/AC=7777=ERROR
	DCA LINSWI	/PRINT "?(CRLF)", TAKE ERROR RET.
	TAD ("?-"$
LINALTM,TAD ("$		/PRINT "$(CRLF)", TAKE NORMAL R.
	JMS LINOUT
LINECR,	TAD C215	/PRINT "(CRLF)", TAKE NORMAL RET.
	JMS LINOUT
	TAD (4212	/RELEASE OUTPUT TASK
	JMS LINOUT
	TAD LINSWI
	JMS MONITOR
	   EXIT SWPOUT	/FORCES A NEW IMAGE EVERY TIME

LINEU,	TAD ("^		/ECHO ^U CRLF
	JMS LINOUT
	TAD ("U
	JMS LINOUT
	JMP LISTAR	/START ALL OVER AGAIN

LINOUT,	.-.		/OUTPUT ONE CHAR
	TAD (4000
LINO1,	JMS MONITOR
	   CALL
LINONAM,   0		/NAME FILLED IN HERE
	 JMP LINWAIT	/DEVICE BUSY
	CLA
LINCDF,	 HLT		/RESTORE DF
	JMP I LINOUT

LINERUB,TAD LINCNT	/BUF EMPTY?
	CIA
	TAD LINLENG
	SNA CLA
	 JMP LINE0	/Y
	ACM1		/N;COUNTER -1
	TAD LINCNT
	DCA LINCNT
	ACM1		/POINTER -1
	TAD LINPTR
	DCA LINPTR
	TAD ("\		/PRINT BACKSLASH
	JMS LINOUT
	JMP LINE1
LINWAIT,DCA LINTEM
IFDEF LATER <
	TAD LINONAM
	SMA CLA
	 JMP LINERR	/BAD DEVICE NAME >
	JMS MONITOR
	   STALL
	   DGNTICK%12	/WILL COME THROUGH BACKGROUND
	CLA
	TAD LINTEM
	JMP LINO1

/LF: REPEAT THE WHOLE LINE
/THE MECHANISM IS AS FOLLOWS: THE LF CHAR IS REPLACED
/BY A 0000. THEN A PATCH IS MADE AT LINE1, IN ORDER THAT
/INPUT IS FROM THE BUFFER ITSELF. AS THERE ARE NEVER
/ZEROES IN THE BUFFER, THE VERY FIRST ZERO RESTORES THE
/PATCHED LOCATION. IN FACT IT DOES NO HARM TO DO IT
/FOR EVERY BLANK:

/THE LINEFEED PATCHES A 'JMP LINE2'
LINLF,	DCA I LINPTR	/PUT A ZERO IN BUFFER
	TAD (JMP LINE2
	DCA LINE1
	JMP LISTAR	/PRINT CRLF* AND THE WHOLE LINE

LIPATCH,TAD LINO1	/'JMS MONITOR'
	DCA LINE1
	JMP LINE1
/FOR THE VERY FIRST TIME A 0000 HAS A DIFFERENT MEANING:
/IT TERMINATES THE BUFFER-TYPEOUT.THERE IS A PATCH
/OVER A PATCH:
*LIPATCH+2
	TAD LINJMP	/RESTORE 'JMP LINE1'
	DCA .-1
	JMP LINE0

LINTEM,	0
LINBEG,	0		/BEGINNING OF BUFFER
LINLENG,0		/ALLOWED LENGTH OF BUFFER

$$$$$$