diff --git a/src/syseng/dump.448 b/src/syseng/dump.448 index 957d34d3..dfb85ceb 100644 --- a/src/syseng/dump.448 +++ b/src/syseng/dump.448 @@ -8019,7 +8019,8 @@ READ9: POPAE P,[TT,T,E,D,C,B] ;B - source index in BUFFER ;C - number of 4-word blocks ;Arguments get advanced, T,TT are clobbered -RDCNV: DMOVE T,BUFFER(B) ;First two 32-bit words +RDCNV: MOVE T,BUFFER(B) ;First 32-bit word + MOVE TT,BUFFER+1(B) ;SEcond 32-bit word LSH T,-4 ;Right-align first four bytes LSH TT,4 ;Flush 4 bits out of fifth byte LSHC T,4 ;First 36-bit word @@ -8212,7 +8213,8 @@ IFN 0,[ ;Returns new value of BUFCNT in C ;Bashes A,B,C,D,T,TT WRICNV: MOVE B,BUFCNT ;Append 32-bit words to buffer -WRICN1: DMOVE T,(A) ;First two 36-bit words +WRICN1: MOVE T,(A) + MOVE TT,1(A) MOVEM T,BUFFER(B) ;First 4 bytes ROTC T,-8 ;5th byte to high end of TT TLZ TT,600000 ;Book says these bits are zero @@ -8547,7 +8549,8 @@ SCOPY2: PUSHAE P,[D,E] LDB D,[360600,,B] ;Byte position of source MOVEI TT,34 ;Compute left shift required to align it SUB TT,D -SCOPY3: DMOVE D,(B) +SCOPY3: MOVE D,(B) + MOVE D+1,1(B) LSH D,-4 ;Squeeze out extra bits LSHC D,4(TT) ;Align source to destination MOVEM D,(A)