Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/lsu.c08
There are 4 other files named lsu.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1524 on 2/7/84 at 9:53 AM by MASLANKA                         
 WIT
	; UPD ID= 1598 on 5/14/84 at 4:53 PM by HOFFMAN                         
 INS 20/1	;08C2
	;V13 ******
	; RLF	14-MAY-84	[1124] For 'WRITE', 'REWRITE', and 'DELETE', don't
	;				regenerate byte pointer to key field in buffer

 DEL 124/36	;08C3
		;NOW, IF WE ARE DOING AN UPDATE VERB (WRITE, REWRITE, DELETE) WE
		; HAVE TO GO AFTER THE KEY FIELD IN THE USER'S IN-CORE BUFFER.

		MOVE	ATMP0,SU.VRB	;GET THE VERB FLAG WORD
		TRNE	ATMP0,10	; AND TEST FOR READ FLAG SET
		 JRST	SU.RM9		; IT IS SET
		HLRZ	ATMP2,0(ATMP1)	;GET BEGINNING BYTE POSITION OF FIELD
		LDB	ATMP3,FTRM	;FIND FILE'S IN-CORE DATA MODE
		HRRZ	ATMP4,[OCT 4	;GET IN-CORE BYTE SIZE
			           6
			           0
			           5]-1(ATMP3)
		IDIV	ATMP2,ATMP4	;DIVIDE BYTE POS BY BYTES PER WORD
		ADDM	ATMP2,SU.T2	;ADD QUOTIENT TO BASE ADDRESS IN BYTE PTR
		CAIN	ATMP3,0		;ZERO REMAINDER?
		 JRST	SU.RM9		; YES, NO BUMPING TO DO.
	SU.RM8:				;
		IBP	SU.T2		;NEXT BUMP UP BYTE POINTER TO BEGINNING
		SOJG	ATMP3,SU.RM8	;  BYTE OF FIELD

 SUM 174195