Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
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