github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-27 01:09:49 +00:00
Code Issues Releases Wiki Activity

Replace DMOVE with two MOVE instructions.

Browse Source 
DMOVE only works on KL10 and KS10.  This change makes the remote tape
code work on KA10.
This commit is contained in:
Lars Brinkhoff
2023-09-17 00:48:43 +02:00
parent b6a55a65b2
commit b995d42603
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/syseng/dump.448
View File

@@ -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)