Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93g-bb - 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
 INS 21/155	;09C2
		LRSTOR	A4,%SYS18(DB)	;[356]
 REP 1/156	;09C3
	CORE4:	HRRZ	A0,.JBUUO	; RESTORE SHIFT
		ADD	DL,A0		; MOVE UP DL
	; [E127]	ADDM	A0,%TTY+BYTPTR(DB)
 WIT

	CORE4:	HRRZ	A0,.JBUUO	; RESTORE SHIFT
		ADD	DL,A0		; MOVE UP DL
 INS 13/156	;09C4
		LRLOAD	A4,%SYS18(DB)	;[356]
 REP 16/156	;09C5
	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 23/156	;09C6
	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 146899