Directory of image this file is from
This file as a plain text file

/******* 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 CHARACTIT
/	ENCOUNTERS A 0000.
/	ENTERED OVER THE OUT) NO INPUT DEVICE SPECIFUSY 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 MONI100+"N&3777
/	 ERROR RE
/	NORMAL RETURN; ERRORNOTE! UPON RETURN DF STIFFER.

/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 A	TAD LINBEG	/MOVE POINTEPTR
LINE1,	JMP LINE2	/RMONITOR'
	   CALL
LINP 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 L/(-375+377
	SNA
	 JMP (-212+375
	SNA
	 JMP L+212
	SNA
	 JMP LINECR5
	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
	ACMPTR
	DCA LINPTR
	TAD (MS LINOUT
	JMP LINE1
F LATER <
	TAD LINONAM/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 000AT LINE1, IN ORDER THATER ITSELF. AS THERE ARE FFER, THE VERY FIRST ZER 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

$$$$$$