Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - pfh.c08
There is 1 other file named pfh.c08 in the archive. Click here to see a list.
 REP 29/1	;08C1
		PFHEDT==47	;EDIT LEVEL
 WIT
		PFHEDT==53	;EDIT LEVEL
 INS 204/1	;08C2
	;50	Allow indexed or indirected IN/OUT uuo.
	;
	;51	Keep DATEND pointing into page 776. If it overflows a little, it
	;	doesn't matter since first few words of 777 aren't used.
	;
	;52	Fix up GETWRD some more, allow for the uuo itself to be in AC 1.
	;	Don't use EA as an indirect, use only as a pointer. If the word
	;	pointed to by EA is desired, it is available in AT.EA, filled in
	;	by GETWRD.
	;
	;53	Yet another fix to edit 45. Put checks around TSTDM7 to ensure we
	;	don't make multi-page check on last page. Courtesy of Peter Bray.
 REP 11/9	;08C3
		MOVEM	1,EA		;SAVE EFFECTIVE ADR OF THE UUO
		HLLZ	2,@EA		;GET THE UUO
		LDB	1,[POINT 9,2,8];JUST OP CODE
		CAIN	1,256		;XCT INSTRUCTION?
		JRST	[MOVE 	1,@EA	;RESOLVE WITH INDIRECT AND INDEX FOR GETWRD
 WIT
		DMOVEM	1,EA		;SAVE EFFECTIVE ADR OF THE UUO, AND CONTENTS
		HLLZS	2		;GET THE UUO
		LDB	1,[POINT 9,2,8];JUST OP CODE
		CAIN	1,256		;XCT INSTRUCTION?
		JRST	[MOVE 	1,AT.EA	;RESOLVE WITH INDIRECT AND INDEX FOR GETWRD
 REP 34/9	;08C4
		MOVE	1,@EA		;RESOLVE THE ADDR
 WIT
		MOVE	1,AT.EA		;RESOLVE THE ADDR
 INS 12/10	;08C5
		HLRO	3,1		;GET IOWD LENGTH
		ADDI	3,(2)		;ADD NUMBER OF WORDS LEFT IN PAGE
		JUMPG	3,TSTDM8	;IF IOWD FITS IN PAGE, BYPASS MULTIPAGE TEST
 REP 15/10	;08C6
		 JRST [	ADDI 1,1000	;STEP TO NEXT PAGE AGAIN
			MOVEI 2,1000	;SIZE WE JUST STEPPED
			ADDM 2,DMPTMP+1	;BUMP WORDCOUNT AMOUNT WE BUMPED
			JRST TSTDM7]	;AND LOOP
		DMOVE	1,DMPTMP	;GET BACK IOWD AND WORDCOUNT
 WIT
		SKIPA
		JRST	TSTD7A		;INACCESSIBLE, GIVE UP
		ADDI	1,1000	        ;STEP TO NEXT PAGE AGAIN
		MOVEI	2,1000	        ;SIZE WE JUST STEPPED
		ADDM	2,DMPTMP+1	;BUMP WORDCOUNT AMOUNT WE BUMPED
		HLRE	2,DMPTMP	;GET IOWD COUNT
		MOVNS	2		;MAKE POSITIVE COUNT
		CAML	2,DMPTMP+1	;DID WE BUMP BY MORE THAN IOWD HAS LEFT TO DO?
		JRST	TSTDM7		;NOPE, KEEP BUMPING.
	TSTD7A:	DMOVE	1,DMPTMP	;GET BACK IOWD AND WORDCOUNT
 REP 39/10	;08C7
		HLL	3,@EA		;GET ORIGINAL UUO
 WIT
		HLL	3,AT.EA		;GET ORIGINAL UUO
 INS 26/11	;08C8



 DEL 10/12	;08C9
		REPEAT	0, <		;[6]REWORK ENTIRE GETWRD ROUTINE
	GETWRD:	0
		JUMPE	1,@.-1		;IF AC  1 THROUGH 4,
		CAIG	1,4
		ADDI	1,SAVE1-1	;USE SAVED LOCATION
		JRST	@GETWRD
		>

 REP 23/12	;08C10
		MOVEI	1,@COMADR	;LET MACHINE DO ADDR COMPUTATION
 WIT
		MOVE	1,@COMADR	;GET WORD POINTED TO
		MOVEM	1,DMPTMP	;SAVE FOR LATER REFERENCE
		MOVE	1,SAVE1		;GET BACK ORIGINAL AC
		MOVEI	1,@COMADR	;LET MACHINE DO ADDR COMPUTATION
		MOVE	2,DMPTMP	;GET BACK CONTENTS OF WORD
 REP 4/14	;08C11
	DATLEN:	767
	DATEND:	DATA+767
 WIT
	DATLEN:	777-VSIZ-1
	DATEND:	DATA+777-VSIZ-1
 REP 111/15	;08C12
	EA:	BLOCK	1
 WIT
	EA:	BLOCK	1		;FOLLOWING WORD MUST BE ADJACENT!!
	AT.EA:	BLOCK	1		;WORD POINTED TO BY EA
 SUM 131629