REP 3/1	;05C1
	;COPYRIGHT (C) 1975,1981,1982 BY
 WIT
	;COPYRIGHT (C) 1975,1982,1983 BY
 REP 20/2	;05C2
		IFN FTGETCHK,<PRINTX HEAP INTEGRITY CHECKER LOADED>>
 WIT
		IFN FTGETCHK,<PRINTX Heap integrity checker loaded>>
 REP 34/11	;05C3
		POPJ	SP,0
 WIT
		POPJ	SP,
 DEL 5/21	;05C4
	EDIT(100); Chain DL for debugger
 REP 26/26	;05C5
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 32/26	;05C6
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 17/27	;05C7
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 23/27	;05C8
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 17/28	;05C9
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 23/28	;05C10
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 17/29	;05C11
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 23/29	;05C12
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 44/29	;05C13
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 5/30	;05C14
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 26/30	;05C15
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 33/30	;05C16
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 27/31	;05C17
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 31/31	;05C18
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 31/35	;05C19
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 16/38	;05C20
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 22/38	;05C21
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 40/38	;05C22
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 8/39	;05C23
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 18/39	;05C24
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 25/39	;05C25
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 37/39	;05C26
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 48/39	;05C27
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 9/40	;05C28
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 16/40	;05C29
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 26/40	;05C30
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 37/40	;05C31
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 49/40	;05C32
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 58/40	;05C33
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 11/41	;05C34
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 18/41	;05C35
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 22/43	;05C36
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 23/44	;05C37
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 43/44	;05C38
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 19/46	;05C39
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 42/54	;05C40
		POPJ	SP,0		; [E053] AND RETURN
 WIT
		POPJ	SP,		; [E053] AND RETURN
 REP 16/56	;05C41
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 9/57	;05C42
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 20/57	;05C43
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 31/57	;05C44
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 10/58	;05C45
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 21/58	;05C46
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 32/58	;05C47
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 10/59	;05C48
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 20/59	;05C49
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 17/62	;05C50
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 12/63	;05C51
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 21/63	;05C52
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 30/63	;05C53
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 39/63	;05C54
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 48/63	;05C55
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 8/64	;05C56
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 17/64	;05C57
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 40/64	;05C58
		POPJ	SP,0		; NO
 WIT
		POPJ	SP,		; NO
 REP 44/64	;05C59
		POPJ	SP,0		; IF REQUIRED
 WIT
		POPJ	SP,		; IF REQUIRED
 REP 23/65	;05C60
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 27/65	;05C61
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 10/66	;05C62
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 15/66	;05C63
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 26/66	;05C64
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 31/66	;05C65
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 15/72	;05C66
		MOVEI	A0,0		; SET A0 FOR GETOWN

	BLKE1:	POP	SP,A1		; UNSTACK
		JUMPL	A1,BLKE2	; BLOCK POINTER?
		TLZE	A1,(<Z 17,0>)	; [E057] IS THIS A STRING ARRAY ?
		PUSHJ	SP,DELSCN	; [E057] YES - DELETE SUB-STRINGS
		MOVEI	A1,@A1		; GETSTRING ITSELF, IF STRING VARIABLE.
		JUMPE	A1,BLKE1	; IF NO STRING ASSIGNED, DON'T DELETE.
		PUSHJ	SP,GETOWN	; NO - DELETE ITEM
		JRST	BLKE1
 WIT
		MOVE	A2,[-20,,%IODR+20] ; [316] AOBJN PTR. TO SCAN LOGICAL I/O TABLE
		ADDI	A2,(DB)		; [316] RELOCATE
		SETZM	A01TMP(DB)	; [316] CLEAR "LOGICAL CHANNELS IN USE" FLAG
	BLKELP:	SKIPN	A3,(A2)		; [316] IS THIS LOGICAL CHANNEL IN USE?
		JRST	BLKE1A		; [316] NO, SKIP TO NEXT ENTRY
		HRRZ	A3,1(A3)	; [316] YES, LOAD CURRENT ADDR. OF I/O STRING
		MOVEM	A3,%DDTCB-%IODR-20(A2) ; [316] PUT ADDR. INTO TABLE FOR LATER
		SETOM	A01TMP(DB)	; [316] SET FLAG TO SAY WE FOUND A CHANNEL
		TRNA			; [316] AND SKIP THE NEXT SETZM
	BLKE1A:	SETZM	%DDTCB-%IODR-20(A2) ; [316] UNASSIGNED CHANNEL, CLEAR ENTRY
		AOBJN	A2,BLKELP	; [316] LOOP UNTIL DONE SCANNING I/O TABLE

		MOVEI	A0,0		; [316] SET A0 FOR GETOWN
	BLKE1B:	POP	SP,A1		; [316] UNSTACK
		JUMPL	A1,BLKE2	; [316] JUMP IF THIS ISN'T A BLOCK POINTER
		TLZE	A1,(<Z 17,0>)	; [316] [E057] ELSE, IS THIS A STRING ARRAY?
		PUSHJ	SP,DELSCN	; [316] [E057] YES, DELETE SUB-STRINGS
		MOVEI	A1,@A1		; [316] NO, STATICISE
		JUMPE	A1,BLKE1B	; [316] LOOP IF NO STRING ASSIGNED
		SKIPN	A01TMP(DB)	; [316] ELSE, ANY LOGICAL I/O CHANNELS IN USE?
		JRST	BLKE1C		; [316] NO, JUMP AHEAD
		MOVE	A2,[-20,,%DDTCB]; [316] YES, LOAD PTR. TO SCAN I/O TABLE
		ADDI	A2,(DB)		; [316] RELOCATE
	BLKEL1:	SKIPN	(A2)		; [316] GET NEXT I/O ENTRY - UNUSED CHANNEL?
		JRST	BLKE1D		; [316] YES, SKIP TO NEXT ENTRY
		CAMLE	A1,(A2)		; [316] NO, RETURNED SPACE ABOVE I/O SPACE?
		JRST	BLKE1D		; [316] YES, STRING IS OK
		HLRZ	A3,-1(A1)	; [316] NO, GET STRING'S HEAP SPACE LENGTH
		ADDI	A3,-1(A1)	; [316] CALCULATE STRING END ADDR.
		CAMG	A3,(A2)		; [316] IS I/O CHANNEL OPEN TO THIS STRING?
		JRST	BLKE1D		; [316] NO, STRING AND CHANNEL ARE BOTH OK
		SETZM	%IODR+20-%DDTCB(A2)  ; [323] AND SHUTDOWN THE CHANNEL
		SETZM	%IOSTS+20-%DDTCB(A2) ; [323] ALSO CLEAR EXTRA STATUS BITS
	BLKE1D:	AOBJN	A2,BLKEL1	; [316] LOOP UNTIL DONE WITH I/O TABLE
	BLKE1C:	PUSHJ	SP,GETOWN	; [316] DELETE STRING SPACE
		JRST	BLKE1B		; [316] LOOP UNTIL ALL STRINGS RELEASED
 REP 3/88	;05C67
		POPJ	SP,0		; AND EXIT
 WIT
		POPJ	SP,		; AND EXIT
 REP 26/90	;05C68
	GETKNL:	; KERNEL OF GETOWN - A2 = TABLE POINTER (-LENGTH,,ADDR)
	Edit(062); Use current top of heap if possible
		PUSH	SP,A2		; [E062] SAVE TABLE POINTER
 WIT
	;	EDIT(062); Use current top of heap if possible

	; KERNEL OF GETOWN - A2 = TABLE POINTER (-LENGTH,,ADDR)
	GETKNL:	PUSH	SP,A2		; [E062] SAVE TABLE POINTER
 REP 33/90	;05C69
	GET1:				; ORDINARY GET-N-WORDS ENTRY
		ADDI	A0,1		; ALLOW FOR LINK-WORD
 WIT
	; ORDINARY GET-N-WORDS ENTRY
	GET1:	ADDI	A0,1		; ALLOW FOR LINK-WORD
 REP 50/90	;05C70
		CAIN	A5,0		; [246] IS THIS HEAP ENTRY ALREADY IN USE?
		JRST	[			; [246]
			POP	SP,A5		; [246] YES, IT'S NO GOOD - RESTORE A5
			JRST	GET15		; [246] KEEP SCANNING HEAP TABLE
			]			; [246]
		POP	SP,A5		; [246] NO, RESTORE A5
		MOVEI	A3,(A1)		; [246] THIS ENTRY IS GOOD - REMEMBER IT
		HRLI	A3,(A2)

 WIT
		JUMPE	A5,[POP	SP,A5		; [316] [246] JUMP IF ENTRY IN USE
			JRST	GET15]		; [316] [246] KEEP SCANNING HEAP TABLE
		POP	SP,A5		; [316] [246] ELSE RESTORE A5
		MOVEI	A3,(A1)		; [246] THIS ENTRY IS GOOD - REMEMBER IT
		HRLI	A3,(A2)

 REP 9/91	;05C71
		  TDZA	A1,A1		; [E062] NOT FOUND - LENGTH = 0
 WIT
		 TDZA	A1,A1		; [E062] NOT FOUND - LENGTH = 0
 REP 20/91	;05C72
	GET17:	MOVS	A2,A3		; A2 IS LENGTH,,TABLE POINTER
 WIT
	GET17:	MOVS	A2,A3		; GET LENGTH,,TABLE POINTER
 REP 1/92	;05C73
	GET2:				; A0 = 0 - RETURN SPACE ADDRESSED BY A1
		TLZ	DB,TMPFL1!TMPFL2; CLEAR TEMPORARY FLAG BITS
		HLRZ	A0,-1(A1)	; A0 IS LENGTH OF RETURNED PIECE
		ADDI	A0,-1(A1)	; NOW TOP ADDRESS + 1
		MOVEI	A1,-1(A1)	; GET ADDRESS OF BOTTOM OF PIECE
 WIT

	GET2:				; A0 = 0 - RETURN SPACE ADDRESSED BY A1
		TLZ	DB,TMPFL1!TMPFL2; CLEAR TEMPORARY FLAG BITS
		MOVEI	A1,-1(A1)	; [326] GET BOTTOM ADDR. OF RETURNED SPACE
	IFN FTGETCHK,<			; [326] MAKE SURE SPACE ISN'T RETURNED TWICE
	GET2A:	SKIPN	A3,(A2)		; [326] GET TABLE ENTRY ADDR.
		 JRST	GET2B		; [326] NULL ENTRY, IGNORE
		CAIGE	A1,(A3)		; [326] IS RETURNED SPACE BELOW THIS ENTRY?
		 JRST	GET2B		; [326] YES, OK SO FAR
		HLRZ	A0,A3		; [326] NO, CHECK IF COMPLETELY ABOVE ENTRY
		ADDI	A0,-1(A3)	; [326] GET END ADDR. OF HEAP ENTRY
		CAMG	A1,A0		; [326] IS RETURNED SPACE ABOVE THIS ENTRY?
		 PUSHJ	SP,GETERR	; [326] NO, SPACE IS BEING RETURNED TWICE
	GET2B:	AOBJN	A2,GET2A	; [326] LOOP UNTIL DONE WITH HEAP TABLE
		SKIPE	A2,(A2)		; [326] ANY MORE HEAL TABLES TO USE?
		 JRST	GET2A		; [326] YES, KEEP WORKING
		MOVE	A2,%SYS2(DB)	; [326] NO, RESTORE HEAP TABLE PTR.
	> ; [326] END IFN FTGETCHK
		HLRZ	A0,(A1)		; [326] A0 IS LENGTH OF RETURNED PIECE
		ADDI	A0,(A1)		; [326] NOW TOP ADDRESS + 1
 REP 23/93	;05C74
	;[251] IS NOT, THEN SOME PARTS OF EACH TABLE ENTRY OVERLAP AND THE TABLE IS BAD.
 WIT
	;[251] IS NOT, THEN SOME PART OF EACH TABLE ENTRY OVERLAP AND THE TABLE IS BAD.
 REP 31/93	;05C75
	GET001:	SKIPN	A4,(A2)		;[251] GET REFERENCE ENTRY'S LOW ADDRESS LIMIT
		JRST	GET003		;[251] NULL ENTRY, SKIP IT
		TLZ	A4,-1		;[251] CLEAR LENGTH OUT OF LEFT HALF
		SKIPN	A5,(A3)		;[251] GET NEXT HEAP COMPARISON ENTRY
 WIT
		SKIPN	A4,(A2)		;[326] [251] GET REF. ENTRY'S LOW ADDR. LIMIT
		JRST	GET003		;[251] NULL ENTRY, SKIP IT
		HLRZ	A5,(A4)		;[326] GET LENGTH OF HEAP AREA FROM MEMORY
		MOVSS	A4		;[326] GET LENGTH FROM HEAP TABLE
		SKIPN	A5		;[326] LENGTH=0?
		 PUSHJ	SP,GETERR	;[326] YES, BAD HEAP
		CAIE	A5,(A4)		;[326] NO, LENGTHS THE SAME?
		 PUSHJ	SP,GETERR	;[326] NO, HEAP PROBLEMS
		HLRZS	A4		;[326] YES, GET ADDR. BACK
		HRRZ	A5,(A4)		;[326] GET TABLE ADDR. W/O LENGTH
		CAIE	A5,(A2)		;[326] HEAP & TABLE PTRS. POINT TO EACH OTHER?
		 PUSHJ	SP,GETERR	;[326] NO, HEAP PROBLEMS
	GET001:	HRRZ	A4,(A2)		;[326] YES, GET REF. ENTRY ADDR. BACK
		SKIPN	A5,(A3)		;[251] GET NEXT HEAP COMPARE ENTRY
 REP 44/93	;05C76
		SUB	A5,A4		;[251] DO AREAS OVERLAP AT ALL?
		JUMPL	A5,GETERR	;[251] YES HEAP TABLE IS BAD
 WIT
		SUB	A5,A4		;[316] [251] CALCULATE IF THEY OVERLAP
		SKIPGE	A5		;[316] [251] DO THEY OVERLAP?
		PUSHJ	17,GETERR	;[316] YES, FATAL ERROR
 REP 1/94	;05C77
	GETOWN:	MOVE	A2,%SYS2(DB)	; GET POINTER TO PUBLIC HEAP-TABLE
		PUSHJ	SP,GETKNL	; DO THE JOB
		IFN	FTGETCHK,<
		; ***** OPTIONAL HEAP INTEGRITY CHECKER *****

 WIT

	GETOWN:	MOVE	A2,%SYS2(DB)	; GET POINTER TO PUBLIC HEAP-TABLE
		PUSHJ	SP,GETKNL	; DO THE JOB
	IFN	FTGETCHK,<
 REP 11/94	;05C78
		HRRZ	A2,%SYS2(DB)
		HLRE	A3,%SYS2(DB)	; - (LENGTH OF LIST -1)
 WIT
		HLRE	A3,A2		; [326] - (LENGTH OF LIST -1)
		MOVEI	A2,(A2)		; [326] CLEAR LENGTH OUT
 REP 21/94	;05C79
		JUMPE	A0,GETERR	; [263] ERROR IF ENTRY IS ZERO
		ADD	A2,A0		; MOVE TO NEXT CHUNK
 WIT
		SKIPN	A0		; [316] [263] IS ENTRY ZERO?
		PUSHJ	17,GETERR	; [316] YES, FATAL ERROR
		ADD	A2,A0		; [316] NO, MOVE TO NEXT CHUNK
 REP 26/94	;05C80
		JRST	GETERR		; NO
 WIT
		PUSHJ	17,GETERR	; [316] NO
 REP 36/94	;05C81
		JRST	GETERR		; [263] NO, ERROR
 WIT
		PUSHJ	17,GETERR	; [316] [263] NO, ERROR
 REP 41/94	;05C82
		JRST	GETERR		; NOPE
		JRST	GETX3		; YES - OK

	GETX9:	>	; END OF FTGETCHK
 WIT
		PUSHJ	17,GETERR	; [316] NOPE
		JRST	GETX3		; YES - OK
	GETX9:
	> ; END OF FTGETCHK
 REP 50/94	;05C83
	?ALGCEH CONSISTENCY ERROR IN HEAP HANDLER/]  ;[251]
 WIT
	?ALGCEH CONSISTENCY ERROR IN HEAP HANDLER
	/]				;[316][251] P.C. OF FAILING CODE IS ON STACK
 REP 26/96	;05C84
		POPJ	SP,0		; YES - EXIT
 WIT
		POPJ	SP,		; YES - EXIT
 REP 34/96	;05C85
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 44/96	;05C86
		POPJ	SP,0		; NO - EXIT
 WIT
		POPJ	SP,		; NO - EXIT
 REP 41/98	;05C87
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 51/98	;05C88
		POPJ	SP,0		; YES - TAKE ERROR RETURN
 WIT
		POPJ	SP,		; YES - TAKE ERROR RETURN
 REP 5/99	;05C89
		POPJ	SP,0		; AND TAKE ERROR RETURN - A13 = CHAN #
 WIT
		POPJ	SP,		; AND TAKE ERROR RETURN - A13 = CHAN #
 REP 16/99	;05C90
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 30/101	;05C91
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 40/101	;05C92
		POPJ	SP,0		; YES - TAKE ERROR RETURN
 WIT
		POPJ	SP,		; YES - TAKE ERROR RETURN
 REP 6/102	;05C93
		POPJ	SP,0		; AND GIVE ERROR RETURN - A13 = CHAN #
 WIT
		POPJ	SP,		; AND GIVE ERROR RETURN - A13 = CHAN #
 REP 13/102	;05C94
		TLNE	A11,TTYDEV!TTYTTC;[E112] not going to terminal, ignore.
	EDIT(174); do not duplicate last byte is redirected dump mode
		JRST	OUBT11		;[174] NOT ALGDDT CASE (USE EXISTING CODE)
		JUMPL	A10,OUBT3	;[174] ALGDDT CASE AND BREAK OUTPUT (IGNORE)
		JRST	OUBT12		;[174] ALGDDT CASE AND OUTBYTE
	OUBT11:	JUMPL	A10,OUBT4	;[174] BREAK OUTPUT?
	OUBT12:	TLNE	A11,TTYTTC	; [255] NO, IF TTY DON'T SEND NULL BYTES
		JUMPE	A13,OUBT3	; [255] JUMP IF NULL
		IDPB	A13,BYTPTR(A11)	;[174] NO - PLANT BYTE
 WIT
		TLNE	A11,TTYDEV!TTYTTC ; [E112] not going to terminal, ignore.
	EDIT(174); do not duplicate last byte is redirected dump mode
		JRST	OUBT11		; [174] NOT ALGDDT CASE (USE EXISTING CODE)
		JUMPL	A10,OUBT3	; [174] ALGDDT CASE AND BREAK OUTPUT (IGNORE)
		JRST	OUBT12		; [174] ALGDDT CASE AND OUTBYTE
	OUBT11:	JUMPL	A10,OUBT4	; [174] BREAK OUTPUT?
	OUBT12:	TLNE	A11,TTYTTC	; [255] NO, IF TTY DON'T SEND NULL BYTES
		JUMPE	A13,OUBT3	; [255] JUMP IF NULL
		IDPB	A13,BYTPTR(A11)	; [174] NO - PLANT BYTE
 REP 26/102	;05C95
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 6/104	;05C96
	INCHAR:
		TLNE	DB,INDDT	; IF DDT 
		  JRST	DDTIN%		;  LET HIM DO IT.
		PUSHJ	SP,INBYTE	; GET NEXT BYTE
		IOERR	6,(A13)		; END OF FILE - A13 = CHAN #
		JRST	CNC.AX

		;
		EDIT(145) ; Make EOF a terminator.
		;
	INCHR0:	TLNE	DB,INDDT	; [E145] If in DDT
		  JRST	DDTIN%		; [E145] ..then let him do it.
		PUSHJ	SP,INBYTE	; [E145] Get next byte.
	EDIT (206); IF TRAPPING FOR EOF, USE TRAP
		SKIPA			;[206] EOF, CHECK TO SEE IF WE ARE TRAPPING IT
		JRST	CNC.AX		; [E145]
		PUSH	SP,A13		;[206] SAVE THE CHANNEL NUMBER
		MOVEI	A13,^D38	;[206] CHECK TO SEE IF WE ARE TRAPPING EOF
		ADDI	A13,(DB)	;[206] RELOCATE THE TRAP NUMBER IN THE D.B.
		HRRZ	A13,%TRAPS(A13)	;[206] GET ADDRESS OF TRAP BLOCK, OR ZERO
		SKIPN	A13		;[206] SKIP IF A TRAP IS SET HERE
		 JRST	INCHR1		;[206] NONE SET, GIVE A LF
		POP	SP,A13		;[206] TRAP SET, RESTORE CHANNEL NUMBER
		IOERR	6,(A13)		;[206] AND GIVE THE ERROR
		JRST	CNC.AX		;[206] AND RETURN
	INCHR1:	POP	SP,A13		;[206] NO TRAP SET, RETURN LF LIKE EDIT 145
		MOVEI	A13,LF		;[206] AFTER POPPING THE STACK
		JRST	CNC.AX		;[206] RETURN WITH FREE LF
 WIT
	INCHAR:	TLNE	DB,INDDT	; IF DDT 
		 JRST	DDTIN%		;  LET HIM DO IT.
		PUSHJ	SP,INBYTE	; GET NEXT BYTE
		 IOERR	6,(A13)		; END OF FILE - A13 = CHAN #
		JRST	CNC.AX

	;	EDIT(145) ; Make EOF a terminator.

	INCHR0:	TLNE	DB,INDDT	; [323] [E145] IF IN ALGDDT
		 JRST	DDTIN%		; [323] [E145] THEN LET IT DO INPUT ITSELF
		PUSHJ	SP,INBYTE	; [323] [E145] ELSE READ NEXT BYTE
		 TRNA			; [323] EOF, SKIP AND TEST STATUS
		JRST	CNC.AX		; [323] NORMAL RETURN

		HLRZ	A10,%CHAN(DB)	; [323] GET CHANNEL NUMBER
		ADDI	A10,%IOSTS(DB)	; [323] RELOCATE IT
		SKIPGE	A11,(A10)	; [323] HAVE WE ALREADY GIVEN AN EOF <LF>?
		 IOERR	6,(A13)		; [323] YES, GIVE TRAP/FATAL ERROR THIS TIME
		TLO	A11,(LFEOF)	; [323] NO, SAY THAT THIS IS FIRST EOF FOUND
		MOVEM	A11,(A10)	; [323] REMEMBER FOR NEXT TIME THROUGH
		MOVEI	A13,LF		; [323] LOAD A <LF>
		JRST	CNC.AX		; [323]] RETURN WITH FREE <LF>

 REP 43/104	;05C97
		POPJ	SP,0
		JRST	IGNICH		; IGNORE CR, LF, VT AND FF
 WIT
		POPJ	SP,
		JRST	IGNICH		; IGNORE CR, LF, VT AND FF

 REP 19/111	;05C98
		POPJ	SP,0		; NO
 WIT
		POPJ	SP,		; NO
 REP 23/111	;05C99
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 33/114	;05C100
		JOV	[TLO A2,INTOVL		; OVERFLOWED - SET FLAG
			MOVE	A0,[^D24359738368]  ; AND LOAD 2^35 - 10^10
			JRST	PRIN7]
 WIT
		JOV	[TLO A2,INTOVL		; [327] OVERFLOWED - SET FLAG
			MOVE	A0,[^D24359738368] ; [327] AND LOAD 2^35 - 10^10
			JRST	PRIN7]		; [327]
 REP 5/115	;05C101
		POPJ	SP,0		; EXIT FROM ROUTINE
 WIT
		POPJ	SP,		; EXIT FROM ROUTINE
 REP 15/115	;05C102
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 20/115	;05C103
		JOV	[
		MOVSI	A0,244400	; OVERFLOW - FORM 2.0^35
		JRST	PRIN18]

	PRIN15:	CAML	A0,[^D100000000]  ; 9 OR MORE DIGITS?
 WIT
		JOV	[MOVSI	A0,244400	; [327] OVERFLOW - FORM 2.0^35
			JRST	PRIN18]		; [327]

	PRIN15:	CAML	A0,[^D100000000] ; 9 OR MORE DIGITS?
 REP 3/116	;05C104
		FADRI	A0,000000	; ENSURE STANDARDIZED
		JFOV	[
		MOVEI	A0,0		; BAD NUMBER - ZERO IT
		JRST	PRIN22]
 WIT
		FADRI	A0,0		; [327] INSURE STANDARDIZED
		JFOV	[MOVEI	A0,0		; [327] BAD NUMBER - ZERO IT
			JRST	PRIN22]		; [327] AND CONTINUE
 REP 18/116	;05C105
		CAMGE	A0,[
		XWD	002663,437347]	; VERY SMALL NUMBER?
 WIT
		CAMGE	A0,[2663,,437347] ; [327] VERY SMALL NUMBER?
 REP 3/117	;05C106
		LDB	A7,[
		POINT	9,A0,8]		; EXTRACT EXPONENT
		TLZ	A0,377000	; AND CLEAR IT OUT
		ASH	A0,-170(A7)	; AND CONVERT TO FRACTIONAL FORM
		JOV	[
		MOVE	A0,[
		XWD	031463,146315]
		AOJA	A13,PRIN36]	; CORRECT IF OVERFLOWED
 WIT
		LDB	A7,[POINT 9,A0,8] ; [327] EXTRACT EXPONENT
		TLZ	A0,377000	; AND CLEAR IT OUT
		ASH	A0,-170(A7)	; [327] CONVERT TO FRACTIONAL FORM
		JOV	[MOVE	A0,[31463,,146315] ;[327]
			AOJA	A13,PRIN36]	; [327] CORRECT IF OVERFLOWED
 REP 19/122	;05C107
		POPJ	SP,0		; EXIT
 WIT
		POPJ	SP,		; EXIT
 REP 31/123	;05C108
		POPJ	SP,0		; NO
		MOVE	A13,A1
		JSP	AX,OUCHAR	; YES - OUTPUT SECOND WORD
		POPJ	SP,0
 WIT
		POPJ	SP,		; NO
		MOVE	A13,A1
		JSP	AX,OUCHAR	; YES - OUTPUT SECOND WORD
		POPJ	SP,
 REP 13/125	;05C109
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 31/125	;05C110
		POPJ	SP,0
 WIT
		POPJ	SP,
 REP 49/129	;05C111
		TLOA	A1,INEOF	; [E131] FLAG (INEOF OR
		TLO	A1,OUTEOF	; [E131] OUTEOF) IF NO BYTES
	INOU17:	MOVEM	A1,%IODR(A2)	; SET UP IO DIRECTORY ENTRY
		MOVEI	A1,0		; SAY OK
		POPJ	SP,0
 WIT
		 JRST	[TLO	A1,INEOF	; [323] SET INPUT EOF
			SETZM	%IOSTS(A2)	; [323] FIRST TIME WE FOUND EOF
			JRST	INOU17]		; [323]
		TLO	A1,OUTEOF	; [323] SET OUTPUT EOF
	INOU17:	MOVEM	A1,%IODR(A2)	; SET UP IO DIRECTORY ENTRY
		MOVEI	A1,0		; SAY OK
		POPJ	SP,
 INS 22/132	;05C112
		SETZM	%IOSTS(A1)	; [323] CLEAR EXTRA EOF FLAG
 REP 10/134	;05C113
		MOVEM	A4,.JBFF	; AND SET UP JOBFF
 WIT
		MOVEM	A4,.JBFF	; AND SET UP JBFF
 REP 31/134	;05C114
		MOVEM	A0,(A4)		; STORE DEVICE NAME
		SETOM	.JBFF		; FIX JOBFF
		MOVEI	A1,0		; SAY OK
		POPJ	SP,0		; AND EXIT
 WIT
		SETZM	%IOSTS(A1)	; [323] CLEAR EXTRA EOF FLAG
		MOVEM	A0,(A4)		; STORE DEVICE NAME
		SETOM	.JBFF		; FIX JBFF
		MOVEI	A1,0		; SAY OK
		POPJ	SP,		; AND EXIT
 REP 18/135	;05C115
		POPJ	SP,0		; NO - ERROR RETURN
 WIT
		POPJ	SP,		; NO - ERROR RETURN
 INS 29/135	;05C116
		SETZM	%IOSTS(A4)	; [323] AND EXTRA EOF FLAG
 REP 10/136	;05C117
		POPJ	SP,0		; YES - EXIT
 WIT
		POPJ	SP,		; YES - EXIT
 REP 22/136	;05C118
		POPJ	SP,0		; EXIT

	REL5:	SETZM	%IODR(A4)	; OVRLAY'S CHAN - JUST CLEAR DIR. ENTRY
 WIT
		POPJ	SP,		; EXIT

	REL5:	SETZM	%IODR(A4)	; OVRLAY'S CHAN - JUST CLEAR DIR. ENTRY
		SETZM	%IOSTS(A4)	; [323] CLEAR EXTRA EOF FLAG
 REP 17/137	;05C119
		POPJ	SP,0		; NO - EXIT
 WIT
		POPJ	SP,		; NO - EXIT
 REP 42/137	;05C120
		POPJ	SP,0
 WIT
		SETZM	%IOSTS(A10)	; [323] CLEAR EXTRA EOF FLAG
		POPJ	SP,
 REP 22/138	;05C121
		POPJ	SP,0		; NO - EXIT
 WIT
		POPJ	SP,		; NO - EXIT
 REP 28/138	;05C122
		POPJ	SP,0		; EXIT
 WIT
		SETZM	%IOSTS(A4)	; [323] CLEAR EXTRA EOF FLAG
		POPJ	SP,		; EXIT
 REP 7/139	;05C123
		POPJ	SP,0		; END OF FILE ON INPUT
		PUSHJ	SP,OUBYTE	; OUTPUT BYTE
		POPJ	SP,0		; END OF FILE ON OUTPUT
 WIT
		POPJ	SP,		; END OF FILE ON INPUT
		PUSHJ	SP,OUBYTE	; OUTPUT BYTE
		POPJ	SP,		; END OF FILE ON OUTPUT
 REP 28/140	;05C124
		POPJ	SP,0
 WIT
		POPJ	SP,
 INS 34/144	;05C125
		SETZM	%IOSTS(A1)	; [323] CLEAR EXTRA EOF FLAG
 INS 170/146	;05C126
		TLNE	A6,-1		; [330] REAL POINTERS HAVE ZERO LEFT HALVES
		 AOJA	A7,PRFPR1	; [330] THIS ISN'T A REAL POINTER, LOOP
 REP 1/148	;05C127
	ERRMON:
		TLNE	DB,INDDT	; IN DEBUGGER ?
 WIT

	ERRMON:	TLNE	DB,INDDT	; IN DEBUGGER ?
 INS 6/148	;05C128
		MOVE	A0,.JBTPC	; [311] GET PC OF ERROR
		MOVEM	A0,PDLTMP(DB)	; [311] SAVE IN CASE OF PDL TRAP NOW
 DEL 11/148	;05C129
		PUSHJ	SP,BRKBYT	; [274]
		JFCL			; [274] IGNORE ERROR RETURN FROM BRKBYT
 REP 36/154	;05C130
	M4:	XWD	ERR2PT+ERRDEV+40+<M400A-M400>_6,M400
 WIT
	M4:	XWD	ERR2PT+ERRDEV+40+<M400A-M400>_6,M400 ;[316] IOERR
 REP 49/154	;05C131
		IFN	FTOVRL,<
		XWD	55,M415>
 WIT
	IFN FTOVRL,<55,,M415>		; [324]
	IFE FTOVRL,<0>			; [324]
		XWD	56,M416		; [324]

 REP 59/154	;05C132
	M6:
 WIT
		XWD	70,M510		; [336]
	M6:
 REP 8/164	;05C133
		IFN	FTOVRL,<
	M415:	ASCIZ	/Attempt to use overlay handler's />
	M500:	ASCIZ /Undefine operation (SQRT argument negative)/
 WIT
	IFN FTOVRL,<			; [324]
	M415:	ASCIZ	/Attempt to use overlay handler's/> ; [324] END IFN FTOVRL
	IFE FTOVRL,<0>			; [324] KEEP TABLE ORDER IF FTOVRL IS OFF
	M416:	ASCIZ	/Invalid file specification/ ; [324]

	M500:	ASCIZ /Undefined operation (SQRT argument negative)/ ;[325]
 REP 9/165	;05C134
	M507:	ASCIZ	/Run-time error detected by FORTRAN subprogram/
 WIT
	M507:	ASCIZ /Run-time error detected by FORTRAN subprogram/
	M510:	ASCIZ /Illegal INFO parameter value/ ; [336]
 REP 17/166	;05C135
		JOV	.+1		; [E1013] Clear arithmetic
		JFOV	.+1		; [E1013] .. and floating overflow flags.
		MOVE	A1,.JBTPC	; AND GET PC DUMP
		TLZN	A1,PCFPU	; FLOATING POINT UNDERFLOW?
		JRST	APR6		; NO
		TLZ	A1,PCOVL	; YES - CLEAR OVERFLOW FLAGS
		MOVEM	A1,.JBTPC
 WIT
		JFOVO	.+1		; [331] CLEAR BOTH OVERFLOW FLAGS
		MOVE	A1,.JBTPC	; AND GET PC DUMP
		TLZ	A1,(1B0!1B3!1B11!1B12) ; [311] TURN OFF MATH ERROR BITS
		EXCH	A1,.JBTPC	; [311] SAVE MODIFIED .JBTPC AND GET OLD ONE
		TLZN	A1,PCFPU	; FLOATING POINT UNDERFLOW?
		JRST	APR6		; NO
 REP 12/169	;05C136
		JRSTF	@.JBTPC		; AND RE-ENTER PROGRAM
 WIT
		SKIPN	PDLTMP(DB)	; [311] APR TRAP WHILE HANDLING ANOTHER ERROR?
		JRSTF	@.JBTPC		; [311] NO, CONTINUE PROGRAM NORMALLY
		HRRZ	A1,PDLTMP(DB)	; [311] YES, GET SAVED 0,,.JBTPC BACK
		EXCH	A1,.JBTPC	; [311] RESTORE IT AND GET OUR RETURN ADDR.
		HRRZM	A1,APRTMP(DB)	; [311] PUT IT IN A TEMP. LOCATION
		MOVE	A1,%SYS17(DB)	; [311] RESTORE A1
		JRSTF	@APRTMP(DB)	; [311] AND CONTINUE WHAT WE WERE DOING
 DEL 45/175	;05C137
 SUM 155844