Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/algots.c09
There are 14 other files named algots.c09 in the archive. Click here to see a list.
 REP 3/1	;09C1
	;COPYRIGHT (C) 1975,1982,1983 BY
 WIT
	;COPYRIGHT (C) 1975,1982,1983,1984 BY
 REP 21/94	;09C2
		PUSHJ	17,GETERR	; [316] YES, FATAL ERROR
 WIT
		PUSHJ	SP,GETERR	; [316] YES, FATAL ERROR
 REP 26/94	;09C3
		PUSHJ	17,GETERR	; [316] NO
 WIT
		PUSHJ	SP,GETERR	; [316] NO
 REP 36/94	;09C4
		PUSHJ	17,GETERR	; [316] [263] NO, ERROR
 WIT
		PUSHJ	SP,GETERR	; [316] [263] NO, ERROR
 REP 41/94	;09C5
		PUSHJ	17,GETERR	; [316] NOPE
 WIT
		PUSHJ	SP,GETERR	; [316] NOPE
 INS 52/152	;09C6
		DMOVEM	A4,%SYS18(DB)	;[356]
 INS 1/153	;09C7

 INS 12/153	;09C8
		DMOVE	A4,%SYS18(DB)	;[356]
 REP 15/153	;09C9
	CORE5:	MOVEI	A2,STKEXT+1(SP)
		HRLI	A2,(A2)
		SUBI	A2,(A1)
		MOVS	A2,A2
 WIT
	CORE5:	HRLI	A1,0		;[354] CLEAR T1 LEFTHALF
		MOVEI	A2,STKEXT+1(SP)
		MOVE	A4,A2		;[354]
		SUB	A4,A1		;[354]
		SUB	A4,A1		;[354]
 REP 22/153	;09C10
	CORE6:	MOVE	A0,A2		; COPY BLT POINTER
		BLT	A0,(A3)		; AND MOVE A BLOCK
		SUB	A2,A1		; MOVE DOWN POINTER
		SUBI	A3,(A1)		; AND LAST ADDRESS
		CAIGE	DB,(A2)		; TOO LOW OR HOME?
		JRST	CORE6		; NO - KEEP GOING
		MOVEI	A1,(DB)
		SUBI	A1,(A2)		; GET DIFFERENCE
		HRLI	A1,(A1)
		ADD	A2,A1		; NO - CORRECT BLT POINTER
 WIT
	CORE6:	HRL	A0,A4		;[354]
		HRR	A0,A2		;[354]
		BLT	A0,(A3)		; AND MOVE A BLOCK
		SUB	A2,A1		; MOVE DOWN POINTER
		SUB	A3,A1		;[354] AND LAST ADDRESS
		SUB	A4,A1		;[354]
		CAMGE	DB,A2		;[354] TOO LOW OR HOME?
		 JRST	CORE6		;[354] NO, KEEP GOING
		HRRZ	A1,DB		;[354]
		SUB	A1,A2		;[354] GET DIFFERENCE
		ADD	A4,A1		;[354]
		ADD	A2,A1		;[354] CORRECT BLT POINTER
		HRL	A2,A4		;[354]
 SUM 200872