*20
	PMODE
	EJECT
/
/	DIAL PHERIPERAL INTERCHANGE PROGRAM FOR THE PDP-12 COMPUTER.
/	COPYRIGHT 1969; DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.,01754
/	WRITTEN BY JACK BURNESS
/	RELEASED NOVEMBER, 1969.
/
/	PIP WILL RUN ON A PDP-12 B OR HIGHER.
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/          PPPPPPPPP         IIIIIIIIIIII      PPPPPPPPP
/          P       PP             II           P       PP
/          P       PPP            II           P       PPP
/          P       PP             II           P       PP
/          PPPPPPPPP              II           PPPPPPPPP
/          P                      II           P
/          P                      II           P
/          P                      II           P
/          P                      II           P
/          P                 IIIIIIIIIIII      P
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/
/
/
/			LOAD THE SYMBOLS FROM PIP4.
/
/
/
	LODSYM
/
/
	EJECT
	*0		/MAJOR PAGE 0 LOCATIONS.
/
/
/
/
	0		/RESERVED FOR JMP S IN L MODE.
LOC1,	0		/USED BY DISPLAY ROUTINE.
TAPE=JMS I .
TTAPE
HPOP=JMS I .
HHPOP
HPUSH=JMS I .
HHPUSH
LEADER=JMS I .
LLEDER
FILEC=JMP I .
FFILEC
PUTL=JMS I .
TTYPUT
	*10
AUTO1,	0		/AUTO REGISTER 1
AUTO2,	0
AUTO3,	0
AUTO4,	0
AUTO5,	0
AUTO6,	0
AUTO7,	0
AUTO8,	0
/
/
/
/
/
CARD=1				/SET THE CARD=1 TO CARD READER AND LINE PRINTER.
/				 ELSE SET CARD TO 0.
/
/
TERMC=00			/SET TO LOOK  OR A 00 AS THE EOF CHAR.
/
REMAKE=0			/DO NOT LOAD IN THE SOURCE FILE CONVERTER.
/				REMAKE WAS ORIGINALLY 1 BUT THE CONVERT ROUTINES NO LONGER ARE NEEDED.
/
ECHO=1				/SET THIS SWITCH TO 0 TUPPRESS ECHOING.
/
/
/
STAR20=1			/SET TO 1 IF YOU WANT TO HAVE A "*20" AT THE BEGINNING OF EVERY FILE.
/				 ELSE SET STAR20 TO 0000/
/
/
/
SYSWT=467			/LAST BLOCK OF DIAA WORK AREA.
TINDEX=346			/TAPE INDEX BLOCK
TILEN=2			/NUMBER OF BLOCKS IN INDEX
TLOWER=0			/FIRST BLOCK TO USE
TUPPER=777			/LAST BLOCK TO USE
TSYSLOWER=270		/START OF SYSTEM
TSYSUPPER=467		/LAST BLOCK OF SYSTEM.
SYSBBLOCK=370		/START OF BINARY WORK AREA.
SYSBIN=0001		/BINARY SCRATCH UNIT
SYSSBLOCK=370		/START OF ASCII WORK AREA.
SYSHDR=447			/BINARY HEADER BLOCK FOR "SB"2 COMMAND"
/
/
/		SOME BASIC DEFINITIONS
ZERO=CLA
PONE=ZERO+1		/(AWWWW)
PTWO=PONE+4+100		/CLA CLL IAC RAL
PTHREE=PTWO+20		/CML
PFOUR=PTWO+2		/(AWWW)
PSIX=PTHREE+2		/RTL
MONE=CLA CMA
MTWO=CLA CLL CMA RAL
MTHREE=CLA CLL CMA RTL
LEFT=000		/POINTER TO STARTING LEFT OF SCREEN
TOP=340			/POINTER TO TOP OF SCREEN
BOTTOM=-400			/SCREEN BOTTOM
/
/
	ASMIFZ	CARD-1		/IF CARD READER IS IN
BUFFER=6400			/SET THE BUFFER TO 6400
	ASMIFN	CARD-1		/IF NO CARD READER
BUFFER=6000			/THEN SET TR TO 6000
/				 IN ANY EVENT BUFFER MUST BE A MULTIPLE OF 400 OCTAL WORDS.
/
/
P20,	20
M10,	-10
L7770=M10
M4,	-4
M20,	-20
L77,	77
L200,	200
M301,	-301
M322,	-322
L4000,	4000
L5000,	5000
L6000,	6000
L7000,	7000
L7757,	7757
L60,	60
L700,	700
M12,	-12
L400,	400
L54,	54
M54,	-54
M60,	-60
M70,	-70
M73,	-73
M77,	-77
L7777,	7777
M32,	-32
L333,	333
M34,	-34
L7700,	7700
L10,	10
L4,	4
L7740,	7740
M40=L7740
M5757,	-5757
L7,	7
M314,	-314
L30,	30
M43,	-43
M6,	-6
L7400,	7400
M400=L7400
/
/
TEMP,	0
TEMP1,	0
TEMP2,	0
TEMP3,	0
TEMP4,	0
/
KEYCHAR,	0
BNUM,	0
DFIRST,	0
/
INBLOCK,	0
INUNIT,	0
OUTBLOCK,	0
OUTUNIT,	0
OUTNUM,	0
/
BFLAG1=INBLOCK
BFLAG2=OUTBLOCK
BOLDP=INUNIT
BCHAR=OUTUNIT
/
/
INDEX,	TINDEX
ILEN,	TILEN
ELOWER,	TLOWER
EUPPER,	TUPPER
CLOWER,	TSYSLOWER
CUPPER,	TSYSUPPER
/
L5757,	5757
	5757
	5757
	5757
FSIZE,	0
FUNIT,	0
FTYPE,	0
FBNUM,	0
FWHAT,	0
FNAME,	7777
	7777
	7777
	7777
/
/
ORIGIN,	0
DATA,	0
BTEMP1,	0
BTEMP2,	0
BTEMP3,	0
BFIELD,	0
BOLDO,	0
BOFIELD,	0
BCOUNT,	0
/
/
COUNT,	0
L177,	177
M215,	-215
M212,	-212
M377,	-377
M240,	-240
M340,	-340
DISPLAY=JMS I .
PPDIS
PIP=JMP I .
PIPPIP
DIAL=JMP I .
EXIT
COPY=JMS I .
CCOPY
SETA=JMS I .
ASET
GETA=TAD I AUTO8
CHECKIO=JMS I .
IOCHECK
	ASMIFZ	ECHO		/ECHOING DESIRED?
	ASMSKP	2		/NOPE. DON T ASSEMBLE CRLF PROCESS IN.
CRLF=JMS I .
TTYCR
GETL=JMS I .
TTYGET
LINE=JMS I .
GLINE
DECODE=JMS I .
DDCODE
SYSERR=HLT
DIRECTORY=JMS I .
DYRECT
MOVE=JMS I .
MMOVE
POP=JMS I .
PPOP
PUSH=JMS I .
PPUSH
NO=JMS I .
NODIS
REPLACE=JMS I .
REPDIS
READ=JMS I .
TREAD
WRITE=JMS I .
TWRITE
SEARCH=JMS I .
SSERCH
AUXIN=JMS I .
SEQIN
AUXOUT=JMS I .
SEQOUT
PUTWORD=JMS I .
BBOUT
/
/
	*177
	0000			/USED AS A JMS PIPPIP FOR CERTAIN ERROR RESTARTDS.
/
/
/
/
/
	EJECT
/
/
/
/
/
/
/			P   I   P       C   E   N   T   R   A   L       L   O   O   P
/
/
/
/
	*200
/
/
/
/
/
	LMODE			/JUST INCASE SOME JACKASS STARTS IT OFF IN THE WRONG MODE.
PIPPIP,	PDP			/GET INTO 8 MODE.
	PMODE
	JMS	RESTART		/CLEAN UP SYSTEM.
	ASMIFN	ECHO		/DO A CRLF ONLY IF ECHOING.
	CRLF			/GIVE INITIAL CARRIGE RETURN LINE FEED.
PIPL,	DECODE			/DISPLAY OPTIONS
	MAINDIS			/FROM MY LIST OF GOODIES.
	SEARCH			/LOOK FOR LEAGAL OPTIONS
	PIPLST			/LIST OF PIP OPTIONS
	PIPGO			/WHERE TO GO IF FOUND
	JMP	PIPL		/NOT A LEGAL REQUEST.
/
/
/
PIPLST,	301			/A=ABSOLUTE MODE
	302			/B=BINARY MODE
	4323			/S=SOURCE MODE, 4000=END LIST
/
PIPGO,	ABSOL			/ABSOLUTE HANDLER.
	BINARY			/POINTER TO BINARY HANDLER
	ASCII			/SOURCE HANDLER
/
/
/
/
/
RESTART,	0
	IOF			/TURN OFF INTERUPTS(THO THEY SHOULDN T  BE ON.
	KCC			/MAKE SURE THERE IS NOT A PREVIOUS  CONTROL CHARACTER IN THEE WINGS.
	MONE			/SET UP COPIER FOR 1 COPY
	DCA	OUTNUM		/-NUMBER OF OUTPUT TAPES FOR COPY
	JMS I	FCORE		/GET NUMBER OF BUFFERS.
	DCA	.-1		/ZAP OUT. CAN ONLY BE USED ONCE.
	TAD	M10
	DCA	0
	DISPLAY			/JUST WAIT A SECOND.
	MAINDIS
	ISZ	0
	JMP	.-3		/NOT DONE YET
	DCA	KEYCHAR		/NO NEW CHAR.
	LINC		/ENTER LINC MODE
	LMODE
	ADD	P20		/GET THE I/O PRESET BIT
	ESF			/AND DO AA I/O PRESET
	CLR
	PDP
	PMODE
	6026
	TLS
	6016
	KCC
	ASMIFZ	CARD-1		/SHOULD WE INITIALIZE PRINTER???
	LCB			/YEP. CLEAR THE PRINTER BUFFER AND SET THE FLAG SO IT LL BE READY IF WE NEED IT.
	MOVE			/ZERO UPPER CORE BY A HIDEOUS MOVE.
	BUFFER-1
	BUFFER
	-BUFFER
	JMP I	RESTART
/
/
/
EXIT,	JMS	RESTART		/RESTART DIAL
	MOVE			/PLACE DIAL RESTART INSTRUCTIONS
	READIN
EXITLOC,	4014		/IN PROPER PLACE FOR REBOOTSTRAP.
	4			/BOOTSTRAP IS 4 WORDS LONG
	JMP I	EXITLOC		/RETURN TO DIAL
/
/
FCORE,	COREF
READIN,	6141			/MAIN BOOTSTRAP.
	643			/MAKE SURE DATA FIELD IS SET AT 3
	701			/READ GROUP
	7300			/FROM 300.
/
/
/
/
MAINDIS,	LEFT+200
	TOP-200
	TEXT	"FPIP OPTIONS:
 
 
HA --- AUXILIARY MODE
HB --- BINARY MODE
HS --- SOURCE MODE\"
/
/
/
/
/
/
/
SSERCH,	0			/COMPARES "FTYPE" AGAINST GIVEN LIST.
	CLA CLL			/CLEAR AC TO BE SURE
	TAD I	SSERCH		/GET POINTER TO USER LIST
	DCA	TEMP		/AND STOORE AWAY
	ISZ	SSERCH		/BOP PAST FIRST ARG.
	TAD I	SSERCH		/GET JMP LIST
	DCA	TEMP1		/STORE POINTER N TEMP1
	ISZ	SSERCH		/BOP PAST SECOND ARG FOR RETRUN.
/
SSLOOP,	TAD I	TEMP		/GET NEXT WORD TO COAMPARE
	SPA			/IF POSIITIVE SKIP
	TAD	L4000		/NEGATIVE. LAST CHAR. MAKE POSIITIVE FOR CHECK.
	CIA
	TAD	FTYPE		/DOES IT EQUAL CONTENTS O F  FTYPE
	SZA CLA
	JMP	SSNO		/NO. TEST FOR END
	TAD I	TEMP1		/YES. GET FOUND RETURN ADDRESS
	DCA	TEMP
	JMP I	TEMP		/AND GO THERE
/
SSNO,	ISZ	TEMP1		/BOP UP JUMP TABLE POINTER
	TAD I	TEMP		/WAS THIS LAST CHARACTER?
	SPA CLA
	JMP I	SSERCH		/YEP. IT S   NEGATVIE
	ISZ	TEMP		/NOP. BOP UP CHAR POINTER AND TRY AGAIN
	JMP	SSLOOP		/BACK UP TO TRY NEXT.
/
/
/
/
/
/
/
/
/
/
	ASMIFZ	ECHO		/DO WE WANT ECHOING???
	ASMSKP	12		/NOPE. CR NEVER CALLED, SO DO NOT PUT IT IN.
/
TTYCR,	0
	TAD	M215		/GET A C.R. IN THE AC.
	CIA
	PUTL			/AND AWAY IT GOES
	TAD	M212		/N THE L.F.
	CIA
	PUTL			/AND AWAY IT GOES
	JMP I	TTYCR		/AND RETURN TO CALLER.
/
/
/
/
/
/
/
/
/
/
/
	EJECT
	*400
/
/
/		DISPLAY ROUTINE
/
/		GENERAL CALL:
/
/	DISPLAY
/	PTEXT
/		WHERE PTEXT POINTS TO THE FOLLOWING:
/
/PTEXT,	XCOOR.
/	YCOOR
/	TEXT	"F THIS IS MY MESSAGE\"
/
/
PPDIS,	0		/MAIN ENTRY
PINST1,	CLA CLL		/CLEAR AC.
	CHECKIO			/CHECKIO FOR IO NOW AND AFTER EVERY C.R.
	TAD I	PPDIS		/GET MAIN POINTER
	DCA	PDIS		/AND PLACE IN TEMP POINTER.
	ISZ	PPDIS		/PAST POINTER ON RETURN.
	TAD I	PDIS		/GET POINTER
	DCA	PHOR		/X POS
	ISZ	PDIS		/BOP UP
	TAD I	PDIS		/GET VERTICAL
PDCAVR,	DCA	PVER		/AND STASH AWAY.
	TAD	PDIS		/START OF TEXT
	DCA	PSTART		/BOP DOWN BY 1
	MONE		/SET SWITHC TO LEFT OF NEXT WORD.
	DCA	PSWITCH
	TAD	PINST1		/GET A CLA FOR FIRST TIME THROUGH.
	DCA	PNOT1		/AND STORE SO NO VERTICAL BOP.
/
PPSTART,	JMS	PGETL		/GET NEXT CHAR FROM TEXT.
	MONE		/SET CHAR SIZE TO HALFWORD
	DCA	PCSW		/IN CASE OF NO F OR H.
	TAD	PCHAR		/GET IN AC.
	TAD	M10		/IS IT AN "H"
	SNA	CLA		/IF IT IS,SKIP PAST AND IGNORE.
	JMP	PPAST		/ITS AN "H"
	TAD	PCHAR
	TAD	M6		/IS IT AN "F"
	SZA	CLA
	JMP	PDO		/NOT AN "F" OR AN "H". USE IT AS A CHAR IN HALFWORD.
	DCA	PCSW		/SET SIZE TO FULL.
PPAST,	JMS	PGETL		/GET FIRST CHAR TO BE DISPLAYED.
PDO,	TAD	PCSW		/GET SIZE.
	SNA	CLA		/IS IT FULL SIZE.
	TAD	M4		/YES. SET BACK LEFT BY 8.
	TAD	M4		/ IF HALF SET IT BACK BY 4.
	TAD	PHOR
	DCA	LOC1		/THIS IS A REAL LOC1(0001)
	TAD	PCSW		/GET SIZE
	SNA	CLA		/FULL?
	TAD	M20		/YES. BOP DOWN BY 40, NOT 20
	TAD	M20		/M20 IF HALF SIZE
	TAD	PVER
PNOT1,	DCA	PVER		/MADE A CLA FOR THE FIRST TIME THROUGH
	TAD	PDCAVR		/GET CORRECT INST.
	DCA	PNOT1		/SET UP FOR FUTURE CALLS.
	TAD	PCSW		/CHAR SIZE.
	CMA			/COMPLEMENT BIT.
	AND	L200		/BIT4 OF ESF
	LINC
	LMODE		/GET INTO LINC MODE
	ESF		/SET CHARS TO CORRECT SIZE
	CLR
	PDP		/BACK OVER INTO 8 MODE
	PMODE
/
PLOOP,	TAD	PCHAR		/GET THE CHAR IN THE AC.
	CLL RAL		/MULTIPLY BY 2.
	TAD	PTABLE		/POINTER TO DISPLAY TABLE.
	DCA	AUTO7		/AUTO FOR PICKING UP THE DISPLAY CHARS.
	TAD	PVER		/GET THE VERTICAL IN THE AC.
	LINC		/GO OVER TO LMODE AND START TO DISPLAY.
	LMODE
	DSC I	AUTO7		/FIRST PART OF CHAR
	DSC I	AUTO7		/SECOND PART OF CHAR.
	PDP
	PMODE		/BACK INTO 8 MODE
	PTWO		/GET A +2 IN THE AC
	TAD	LOC1		/GET NEXT DISPLAY POINT.
	DCA	LOC1		/AND BOP BY 1/2 CHAR.
	JMS	PGETL		/GET ANOTHER CHARACTER.
	JMP	PLOOP		/ AND DISPLAY IT.
/
PGETL,	0		/CHAR GETTER ROUTINE
	ISZ	PSWITCH		/IS IT LEFT HALF?
	JMP	PRIGHT		/GET CHARACTER
	ISZ	PSTART		/GET NEXT WORD
	TAD I	PSTART		/IN THE AC
	RTR
	RTR
	RTR		/MOVE TO RIGHT SIDE
	JMP	PCOM		/GO DO THE AND.
PRIGHT,	MONE		/RESET SWITCH
	DCA	PSWITCH		/FOR NEW WORD NEXT TIME.
	TAD I	PSTART		/WORD IN AC
PCOM,	AND	L77		/JUST THE LOW ORDER BITS.
	DCA	PCHAR		/SAVE FOR LATTER USE.
	TAD	PCHAR		/BACK IN AC.
	TAD	M34		/IS IT "\"
	SNA	CLA
	JMP I	PPDIS		/YES!  E X I T.
	TAD	PCHAR		/GET IT AGAIN
	TAD	M43		/IS IT A CR.
	SZA	CLA
	JMP I	PGETL		/NO. RETURN.
	CHECKIO		/CHECK I/O FLAGS AND SERVICE.
	JMP	PPSTART		/RESET TO START NEXT LINE.
/
/
PDIS,	0		/TEMPORARY POINTER
PHOR,	0		/HORIZONTAL COORDINATE
PVER,	0		/VERTICAL COORDINATE
PSTART,	0		/POINTS TO NEXT TEXT WORD.
PSWITCH,	0	/0=GET RIGHT HALF,-1=GET LEFT HALF OF NEXT WORD.
PCSW,	0		/0=FULL SIZE,-1=HALF SIZE.
PCHAR,	0		/CONTAINS NEXT TEXT CHARACTER.
PTABLE,	TABLED-1		/POINTS TO DISPLAY TABLE -1  FOR INDEXING.
/
/
/
/
DDCOM,	0			/DECODE CALLS THIS ROUTINE TO GET A CHAR FROM PGETL
	JMS	PGETL		/GET A CHAR.
	TAD	PCHAR		/PLACE IN AC.
	JMP I	DDCOM		/RETURN.
/
/
IOCHECK,	0			/CHECKS IO DEVICES.
	CLA CLL
	KSF			/IS IT KEYBOARD?
	JMP I	IOCHECK		/NOPE. RETURN.
	KRS			/READ IN THE FLAG BUT DON T TURN OFF THE FLAG.
	TAD	IOCD		/IS IT A CONTROL D
	SNA			/????
	DIAL			/YEP. RESTART DIAL
	TAD	IOCP		/HOW ABOUT A CONTROL P
	SNA CLA			/????
	PIP			/YEP. RESTART PIP.
	TAD	KEYCHAR		/DO WE HAVE A CHARACTER IN BUFFER?????
	SMA
	KRB			/READ IN NEW CHAR IF NONE THERE
	RAL
	CLL CML RAR		/TURN ON SIGN BIT.
	DCA	KEYCHAR		/STASH AWAY.
	JMP I	IOCHECK		/ALL DONE. RETURN TO CALLER
/
/
/
IOCD,	-204			/CONTROL D
IOCP,	-220+204		/CONTROL P MINUS CONTROL D
/
/
/
/
/
/
/
/
/
	EJECT
	*600
/	DISPLAY CHARACTER TABLE.
/
TABLED=.
/
	7777		/00=ILLEGAL
	7777
	4477		/01=A
	7744
	5177		/02=B
	2651
	4136		/03=C
	2241
	4177		/04=D
	3641
	4577		/05=E
	4145
	4477		/06=F
	4044
	4136		/07=G
	2645
	1077		/10=H
	7710
	7741		/11=I
	0041
	4142		/12=J
	4076
	1077		/13=K
	4324
	0177		/14=L
	0301
	3077		/15=M
	7730
	3077		/16=N
	7706
	4177		/17=O
	7741
	4477		/20=P
	3044
	4276		/21=Q
	0376
	4477		/22=R
	3146
	5121		/23=S
	4651
	4040		/24=T
	4077
	0177		/25=U
	7701
	0176		/26=V
	7402
	0677		/27=W
	7701
	1463		/30=X
	6314
	0770		/31=Y
	7007
	4543		/32=Z
	6151
	4177		/33=[
	0000
	7777		/34=ILLEGAL
	7777
	0000		/35=]
	7741
	2000		/36=^
	2076
	7777		/37=ILLEGAL
	7777
	0000		/40=SPACE
	0000
	7500		/41=!
	0000
	7000		/42="
	0070
	7777		/43=ILLEGAL
	7777
	5721		/44=DOLLAR SIGN
	4671
	6661		/45=PER CENT SIGN
	4333
	5166		/46=?
	0526
	0000		/47=TAB
	0000
	3600		/50=(
	0041
	4100		/51=)
	0036
	2050		/52=*
	0050
	0404		/53=+
	0437
	0500		/54=,
	0006
	0404		/55=-
	0404
	0001		/56=.
	0000
	0601		/57=/
	4030
	4536		/60=0
	3651
	2101		/61=1
	0177
	4523		/62=2
	2151
	4122		/63=3
	2651
	2414		/64=4
	0477
	5172		/65=5
	0651
	1506		/66=6
	4225
	4443		/67=7
	6050
	5126		/70=8
	2651
	5122		/71=9
	3651
	2200		/72=:
	0000
	4601		/73=;
	0000
	7777		/74=ILLEGAL
	7777
	1212		/75==
	1212
	7777		/76=ILLEGAL
	7777
	4020		/77=?
	2055
/
/
/
	EJECT
	*1000
/
/
/		ROUTINE TO GET A LINE FROM TTY.
/
/		GENERAL CALL:
/
/	LINE
/	PDIS
/
/			WHERE PDIS POINTS TO THE STUFF TO BE DISPLAYED WHILE WAITING FOR A LINE OF INPUT.
/
/
/
/
GLINE,	0		/MAIN ENTRY FPR LINE GETTER ROUTINE.
	CLA CLL		/CLEAR AC.
	TAD I	GLINE		/GET POINTER TO DISPLAY
	DCA	G1		/AND SAVE IT.
	ISZ	GLINE		/SET UP RETURN.
	TAD	G1		/GET POINTER
	DCA	G2		/AND STASH IT IN THE SECOND LOOP.
GCLEAR,	DCA I	GGNUM		/CLEAR NUMBER OF CHARS TO ZERO.
GMAIN,	PONE		/GET A +1 IN THE AC.
	TAD I	GGNUM		/GNUM+1, NEXT SPOT IN BUFFER.
	JMS	GIN		/STICKS NEXT CHARACTER INTO GNUM+1
	0		/0=ILLEGAL=A SOLID BLOCK.
	PTWO		/GET A PTWO INTO THE AC.
	TAD I	GGNUM		/NUMBER OF CHARS+2
	JMS	GIN		/PUT A 34 AT END FOR DISPLAY ROUTINE.
	34		/ FORM.
	TAD	GCOUNT		/AN OSCILLATING NUMBER.
	DCA	COUNT		/GENERAL COUNT LOCATION.
/
GLOOP1,	DISPLAY		/DISPLAY CALLERS MESSAGE.
G1,	0		/HIS POINTER HERE
	DISPLAY		/NOW DO OUR LINE OF CRAP.
	GTEXT		/POINTER TO OUR BUFFER.
	GETL		/IS THERE A TTY CHAR?
	SKP		/NO!
	JMS I	GGINSERT		/YES. PLACE IN BUFFER.
	ISZ	COUNT		/BOP UP FLICKER COUNT.
	JMP	GLOOP1		/STILL GOOD. DISPLAY AGAIN.
	TAD	GCOUNT		/GET FLICKER COUNTER
	DCA	COUNT		/AND RESET TEMPORARY COUNTER.
	PONE		/+1
	TAD I	GGNUM		/SET A "\" AT END WITH NO BLOCK FLICKER.
	JMS	GIN		/PLACE IN BUFFER
	34
GLOOP2,	DISPLAY		/NOW DISPLAY USERS MESSAGE.
G2,	0		/HIS POINTER.
	DISPLAY		/NOW OUR BUFFER
	GTEXT		/BUFFER POINTER.
	GETL		/TEST LOW READER.
	SKP		/NO CHAR THERE
	JMS I	GGINSERT		/INSERT INTO BUFFER
	ISZ	COUNT		/DONE YET???
	JMP	GLOOP2		/NO. DISPLAY AGAIN.
	JMP	GMAIN		/RESET FLICKER POINTER.
/
/
/
GIN,	0		/PUTS A CHAR IN BUFFER
	TAD	GMLEN		/BASIC MESSAGE BEFORE USER DOES ANYTHING.
	DCA	TEMP		/SAVE CHARACTER NUMBER.
	TAD	TEMP		/GET CHARACTER NUMBER.
	CLL RAR		/DIVIDE BY 2 TO GET WORD NUMBER.
	TAD	GGTEXT		/POINTER TO ACTUAL TEXT.
	DCA	TEMP2		/AND STASH AWAY.
	TAD	TEMP		/REGET CHAR NUMBER.
	RAR			/IS IT ODD OR EVEN.
	SNL CLA
	JMP	GLEFT		/EVEN. GET LEFT HALF.
	TAD I	TEMP2		/GET RIGHT HALF
	AND	L7700		/BLAH OUT RIGHT 6 BITS
	TAD I	GIN		/GET DESIRED SAVE CHAR.
GINTO,	ISZ	GIN		/BOP PAST CALLING CHAR.
	DCA I	TEMP2		/AND STASH AWAY.
	JMP I	GIN		/RETURN.
GLEFT,	TAD I	TEMP2		/LEFT CHAR.
	RTR
	RTR
	RTR			/MOVE INTO RIGHT HALF
	AND	L7700		/BLAH OUT RIGHT BITS
	TAD I	GIN		/STICK IN GOOD CHAR.
	RTL
	RTL
	RTL		/AND SHIFT BACK
	JMP	GINTO		/NOW GO AND STASH AND RETURN.
/
GGNUM,	GNUM
GMLEN,	LBNUM-1		/LEN OF MESS ALREADY IN BUFF -1 TO COMPENSATE FOR 0 CHAR.
GGINSERT,	GINSERT		/POINTER TO INSERT ROUTINE.
GCOUNT,	-10		/FLICKER COUNTER
GGTEXT,	GTEXT+2		/ACTUAL TEXT POINTER.
/
/
/
/
TTYGET,	0			/ROOM FOR NON-OVERLAPPED TTY ROUTINE HERE
	CHECKIO			/CHECK IO DEVICES NOW.
	TAD	KEYCHAR		/GET SAVED CHAR.
	SNA			/IS THERE REALLY ONE THERE???
	JMP I	TTYGET		/NO. RETURN
	ISZ	TTYGET		/YES. BOP UP RETURN ADDRESS.
	TAD	L4000		/CHOP OFF STUCK ON BIT.
	DCA	0		/0 CAN BE USED RIGHT ONW.
	DCA	KEYCHAR		/ZAP OUT OLD CHAR.
	TAD	0		/RETRIEVE CHAR.
	JMP I	TTYGET		/EXIT TO SECOND LOCATION WITH CHAR IN THE AC.
/
/
LINEB,	LEFT		/START AT BOTTOM LEFT FOR DISPLAY.
GTEXT=LINEB
	BOTTOM			/BOTTOM OF SCREEN.
	TEXT	"REPLY:\"		/HALFWORD ASSUMED.
LBNUM=6			/NUMBER OF PREVIOUS CHARS IN BUFFER.
LBMAX=62-LBNUM			/MAXIMUM NUMBER OF USER CHARACTERS.
/			FOUND BY GETTING MAX ON LINE(62) AND SUBTRACTING THOSE IN BUFFER(LBNUM).
/
/
/
	EJECT
/
/
/
	*1200
/		SECOND PAGE OF LINE GETTER ROUTINE.
/
/
/
/
GINSERT,	0		/CHECKS CHAR AND STICKS IN BUFFER.
	AND	L177		/MAKE INTO EVEN PARITY.
	TAD	L200		/WITH 200 BIT ON.
	DCA	GPUT		/SAVE CHAR.
	TAD	GPUT		/GET AGAIN.
	TAD	M215		/IS IT A CR.
	SNA CLA
	JMP	GALL		/YEP. CLEAN UP AND EXIT.
	TAD	GPUT
	TAD	M212		/MAYBE IT S A LINEFEED?
	SZA CLA
	JMP	GNEXT1		/NO. NOT A LEGAL CONTROL CHAR.
	ASMIFN	ECHO		/ASSEMBLE CRLF IF ECHOING HCARS ONLY.
	CRLF		/GIVE A CARRIAGE RETURN, LINE FEED.
	JMP I	GGCLEAR		/AND RESTART INPUT BUFFER.
GNEXT1,	TAD	GPUT		/GET THE CHAR AGAIN.
	TAD	M377		/IS IT A RUBOUT?
	SZA CLA
	JMP	GNEXT2		/NO. CHECK FOR SOMETHING ELSE.
	MONE		/-1 IN AC.
	TAD	GNUM		/BACKSPACE BUFFER !
	SMA		/ARE WE TOO FAR GONE.
	DCA	GNUM		/NO. BACKSPCE DONE.
	CLA		/JUST IN CASE.
	JMP I	GGMAIN		/GO BACK AND DO NEXT.
GNEXT2,	TAD	GPM1		/POINTER TO SPECIAL TABLE OF EXCEPTIONS.
	DCA	AUTO5		/PLACE IN AUTO REG.
GBACK,	TAD I	AUTO5		/GET NEXT EXCEPTION
	SNA			/END OF TABLE?
	JMP	GDONE		/YEP. CHECK NEXT FEATURE.
	CIA		/NEGATE.
	TAD	GPUT		/TEST AGAINST PRESENT CHAR.
	SZA CLA		/IS IT A MATCH?
	JMP	GBACK		/NO. GET NEXT ITEM.
	JMP I	GINSERT		/YEP. IGNORE CHAR.
GDONE,	TAD	GPUT		/GET CHAR.
	TAD	M240		/CHECK FR LIMIT
	SPA CLA
	JMP I	GINSERT		/RANDOM CRAP. IGNORE.
	TAD	GPUT
	TAD	M340
	SMA CLA		/IS IT TOO BIG?
	JMP I	GINSERT		/YES. IGNORE IT.
	TAD	GNUM		/GET NUMBER OF CHARS.
	IAC		/TEST TO SEE IF IT LL  FIT.
	CIA
	TAD	GLIMIT		/NUMBOER OF SPACES IN BUFFER.
	SNA CLA
	JMP I	GGCLEAR		/TOO MANY. RESTART.
	ASMIFN	ECHO		/LOAD THE CHAR IN AC TO ECHO IF ECHOING CHARS!
	TAD	GPUT
	ASMIFN	ECHO		/ECHO CHAR ONLY IF SWITCH IS SET.
	PUTL		/ECHO ON TTY.
	TAD	GPUT		/GET CHAR.
	AND	L77		/MAKE INTO A SIXBITTER
	DCA	GPUT
	ISZ	GNUM		/BOP UP COUNT
	TAD	GNUM		/PLACE IN AC.
	JMS I	GGIN		/PLACE CHAR IN BUFFER
GPUT,	0		/HERE IS CHAR.
	JMP I	GGMAIN		/ALRIGHT, GO BACK AND DO NEXT
GALL,	ASMIFN	ECHO		/DO A CRLF ONLY IF  SWITCH IS SET.
	CRLF			/DO A CAR RET AND LIN FED.
	PONE		/+1 IN AC
	TAD	GNUM		/NUMBER OF CH?SS IN BUFFER.
	JMS I	GGIN		/PLACE A "0" IN BUFFER.
	0000			/0
	TAD I	GGLINE
	DCA	GINSERT
	JMP I	GINSERT
/
/
/
GGLINE,	GLINE		/COMMUNICATION.
GNUM,	0			/NUMBER OF CHARS IN BUFFER
GLIMIT,	LBMAX			/MAX NUM OF USER CHARS IN BUFFER.
GGIN,	GIN
GGMAIN,	GMAIN
	GGCLEAR,	GCLEAR			/CROSS PAGE REFEREENCES.
GPM1,	GEXPT-1		/POINTER TO EXCEPTIONS (-1)
GEXPT,	300
	334
	337
	243
	ASMIFZ	TERMC-44		/IS DOLLAR SIGN LEGAL????
	244			/NOT IN THIS VERSION. SORRY ABOUT THAT.
	274
	276
	0			/END OF TABLE.
/
/
MMOVE,	0
	MONE
	TAD	MMOVE
	DCA	AUTO3
	MONE
	TAD I	AUTO3
	DCA	AUTO4
	MONE
	TAD I	AUTO3
	DCA	AUTO5
	TAD I	AUTO3
	CMA
	DCA	COUNT
	JMP	MMEXIT-2
	TAD I	AUTO4
	DCA I	AUTO5
	ISZ	COUNT
	JMP	.-3
MMEXIT,	JMP I	AUTO3
/
/
PPUSH,	0
	MOVE
	FSIZE
	PPTEMP
	FNAME+3-FSIZE+1
	JMP I	PPUSH
/
PPOP,	0
	MOVE
	PPTEMP
	FSIZE
	FNAME+3-FSIZE+1
	JMP I	PPOP
/
/
PPTEMP,0
	*PPTEMP+FNAME+3-FSIZE
	0000			/JUST TO SEE WHERE IT IS. NEXT LOCATION IS COMPLETELY FREE.
/
/
/
	EJECT
/
/
/
/
/
/		SAVE THE SYMBOLS FOR     P    I    P    2    !    !    !    !    !
/
/
/
/
/
/
/
/
	SAVSYM	2
/
/
/
/
/
/
/
/
/
/
	EJECT