Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93h-bb - algots.c05
There are 15 other files named algots.c05 in the archive. Click here to see a list.
 REP 3/1	;05C1
	;COPYRIGHT (C) 1975,1981,1982 BY
 WIT
	;COPYRIGHT (C) 1975,1982,1983 BY
 INS 23/7	;05C2
		TLNN	DB,OMC1!OMC2	; [336] WAS IT A KI OR KL?
		 TLO	DB,OMC2		; [336] NO, MUST BE A KA
 REP 15/75	;05C3
		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 26/93	;05C4
	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/93	;05C5
	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/93	;05C6
		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 IS 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 1/95	;05C7
	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
	; [326]	MOVEI	A1,-1(A1)	; GET ADDRESS OF BOTTOM OF PIECE
 REP 24/96	;05C8
	;[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 32/96	;05C9
	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)		;[326] [251] YES, GET NEXT HEAP COMPARE ENTRY
 REP 45/96	;05C10
		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	SP,GETERR	;[316] YES, FATAL ERROR
 REP 1/97	;05C11
	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/97	;05C12
		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/97	;05C13
		JUMPE	A0,GETERR	; [263] ERROR IF ENTRY IS ZERO
		ADD	A2,A0		; MOVE TO NEXT CHUNK
 WIT
		SKIPN	A0		; [316] IS ENTRY ZERO?
		PUSHJ	SP,GETERR	; [316] [263] YES, FATAL ERROR
		ADD	A2,A0		; [316] NO, MOVE TO NEXT CHUNK
 REP 26/97	;05C14
		JRST	GETERR		; NO
 WIT
		PUSHJ	SP,GETERR	; [316] NO
 REP 36/97	;05C15
		JRST	GETERR		; [263] NO, ERROR
 WIT
		PUSHJ	SP,GETERR	; [316] [263] NO, ERROR
 REP 41/97	;05C16
		JRST	GETERR		; NOPE
		JRST	GETX3		; YES - OK

	GETX9:	>	; END OF FTGETCHK
 WIT
		PUSHJ	SP,GETERR	; [316] NOPE
		JRST	GETX3		; YES - OK
	GETX9:
	> ; END OF FTGETCHK
 REP 50/97	;05C17
	?ALGCEH CONSISTENCY ERROR IN HEAP HANDLER/]  ;[251]
 WIT
	?ALGCEH CONSISTENCY ERROR IN HEAP HANDLER
	/]  ; [316] [251]
 REP 6/107	;05C18
	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 (175); IF TRAPPING FOR EOF, USE TRAP
		SKIPA			; EOF, CHECK TO SEE IF WE ARE TRAPPING IT
		JRST	CNC.AX		; [E145]
		PUSH	SP,A13		;[175] SAVE THE CHANNEL NUMBER
		MOVEI	A13,^D38	;[175] CHECK TO SEE IF WE ARE TRAPPING EOF
		ADDI	A13,(DB)	;[175] RELOCATE THE TRAP NUMBER IN THE D.B.
		HRRZ	A13,%TRAPS(A13)	;[175] GET ADDRESS OF TRAP BLOCK, OR ZERO
		SKIPN	A13		;[175] SKIP IF A TRAP IS SET HERE
		 JRST	INCHR1		;[175] NONE SET, GIVE A LF
		POP	SP,A13		;[175] TRAP SET, RESTORE CHANNEL NUMBER
		IOERR	6,(A13)		;[175] AND GIVE THE ERROR
		JRST	CNC.AX		;[175] AND RETURN

	INCHR1:	POP	SP,A13		;[175] NO TRAP SET, RETURN LF LIKE EDIT 145
		MOVEI	A13,LF		;[175] AFTER POPPING THE STACK
		JRST	CNC.AX		;[175] 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 CHECK 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>
 INS 1/108	;05C19

 REP 33/117	;05C20
		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 20/118	;05C21
		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] ; [327] 9 OR MORE DIGITS?
 REP 3/119	;05C22
		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/119	;05C23
		CAMGE	A0,[
		XWD	002663,437347]	; VERY SMALL NUMBER?
 WIT
		CAMGE	A0,[2663,,437347] ; [327] VERY SMALL NUMBER?
 REP 3/120	;05C24
		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 24/122	;05C25
		JOV	[LRLOAD	A0,A01TMP(DB)	; [231] RECOVER A0 AND A1 AFTER OVERFLOW
			LRLOAD	A5,A56TMP(DB)	; [231] RECOVER OLD A5 AND A6
			MOVE	A13,A13TMP(DB)	; [231] RECOVER OLD A13
			SUB	A13,[1,,1]	; [231] CORRECT IT
			JRST	JBS231]		; [231] GO BACK TO BEFORE ERROR HAPPENS
 WIT
		JOV	[LRLOAD	A0,A01TMP(DB)	; [231] RESTORE A0, A1 AFTER OVERFLOW
			LRLOAD	A5,A56TMP(DB)	; [231] RESTORE A5, A6
			MOVE	A13,A13TMP(DB)	; [231] RESTORE A13
			SUB	A13,[1,,1]	; [231] MODIFY SO IT'LL WORK THIS TIME
			JRST	JBS231]		; [231] TRY AGAIN
 REP 49/132	;05C26
		TLOA	A1,INEOF	; [E131] FLAG (INEOF OR
		TLO	A1,OUTEOF	; [E131] OUTEOF) IF NO BYTES
 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
 INS 21/134	;05C27
		SETZM	%IOSTS(A1)	; [323] CLEAR EXTRA EOF FLAG
 REP 11/136	;05C28
		MOVEM	A4,.JBFF	; AND SET UP JOBFF
 WIT
		MOVEM	A4,.JBFF	; AND SET UP JBFF
 REP 32/136	;05C29
		MOVEM	A0,(A4)		; STORE DEVICE NAME
		SETOM	.JBFF		; FIX JOBFF
 WIT
		SETZM	%IOSTS(A1)	; [323] CLEAR EXTRA EOF FLAG
		MOVEM	A0,(A4)		; STORE DEVICE NAME
		SETOM	.JBFF		; FIX JBFF
 INS 29/137	;05C30
		SETZM	%IOSTS(A4)	; [323] AND EXTRA EOF FLAG
 INS 42/139	;05C31
		SETZM	%IOSTS(A10)	; [323] CLEAR EXTRA EOF FLAG
 INS 28/140	;05C32
		SETZM	%IOSTS(A4)	; [323] CLEAR EXTRA EOF FLAG
 INS 34/146	;05C33
		SETZM	%IOSTS(A1)	; [323] CLEAR EXTRA EOF FLAG
 INS 170/148	;05C34
		TLNE	A6,-1		; [330] REAL POINTERS HAVE ZERO LEFT HALVES
		 AOJA	A7,PRFPR1	; [330] THIS ISN'T A REAL POINTER, LOOP
 INS 6/150	;05C35
		MOVE	A0,.JBTPC	; [311] GET PC OF ERROR
		MOVEM	A0,PDLTMP(DB)	; [311] SAVE IN CASE OF PDL TRAP NOW
 DEL 11/150	;05C36
		PUSHJ	SP,BRKBYT	; [274] THIS PROGRAM IS FAILING - BREAKOUTPUT
		JFCL			; [274] IGNORE ERROR RETURN FROM BRKBYT
 DEL 2/154	;05C37

 REP 36/158	;05C38
	M4:	XWD	ERR2PT+ERRDEV+40+<M400A-M400>_6,M400
 WIT
	M4:	XWD	ERR2PT+ERRDEV+40+<M400A-M400>_6,M400 ; [316] IOERR
 REP 49/158	;05C39
		IFN	FTOVRL,<
		XWD	55,M415>
 WIT
	IFN FTOVRL,<55,,M415>		; [324]
	IFE FTOVRL,<0>			; [324]
		XWD	56,M416		; [324]

 REP 59/158	;05C40
	M6:
	M000:	ASCIZ /FATAL /
	M001:	ASCIZ /Run-time error at address /
 WIT
		XWD	70,M510		; [336]
	M6:
	M000:	ASCIZ /FATAL /
	M001:	ASCIZ /Run-time error at address /
 DEL 12/166	;05C41
 REP 8/167	;05C42
		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]
 INS 10/168	;05C43
	M510:	ASCIZ /Illegal INFO parameter value/ ; [336]
 REP 23/169	;05C44
	;[211]APRERR:	MOVEM	A1,%SYS17(DB)	; SAVE A1
		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		; [327] 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/172	;05C45
		JRSTF	@.JBTPC		; AND RE-ENTER PROGRAM
	SUBTTL Debuggiing system - object code dump routine.
 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 PC
		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
	SUBTTL Debugging system - object code dump routine.
 REP 24/176	;05C46
	SILR:				;[172]
		JUMPG	DB,SILR1	;[172] SKIP KA CODE IF NOT A KA PROCESSOR
 WIT
	SILR:	JUMPL	DB,SILR1	; [313] [172] JUMP IF KI/KL
 SUM 53283