github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 07:19:57 +00:00
Code Issues Releases Wiki Activity

Fix SALV not to use DF10C 22-bit addressing on a KA10.

Browse Source 
Use plain 18-bit addressing instead.
This commit is contained in:
Lars Brinkhoff 2019-06-25 19:20:57 +02:00
parent 0868cf6eaa
commit 25bf412d76
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/system/salv.313 → src/system/salv.314
View File

@ -280,6 +280,7 @@ RP,[
] ]
RH,[ RH,[
.INSRT SYSTEM;RH10 > .INSRT SYSTEM;RH10 >
KA, $DFWC==222200,,
] ]
TS, NTUTBL==4 ;MAXIMUM NUMBER OF BLOCKS PER TUT ON ANY ITS TS, NTUTBL==4 ;MAXIMUM NUMBER OF BLOCKS PER TUT ON ANY ITS
@ -1993,7 +1994,8 @@ RHFMP2: MOVE T,RHWC(H)
AOJA B,RHFMP1 AOJA B,RHFMP1
CAIE A,202*NSECS CAIE A,202*NSECS
JRST 4,. ;WRONG AMOUNT OF CRUFT GENERATED JRST 4,. ;WRONG AMOUNT OF CRUFT GENERATED
MOVE A,[-202*NSECS_4,,CYLBUF-1] ;SET UP IOWD KA, MOVE A,[-202*NSECS,,CYLBUF-1] ;SET UP IOWD
KL, MOVE A,[-202*NSECS_4,,CYLBUF-1]
MOVEM A,SLVIOWD MOVEM A,SLVIOWD
SETZM SLVIOWD+1 SETZM SLVIOWD+1
MOVEI A,SLVIOWD MOVEI A,SLVIOWD
@ -5755,7 +5757,8 @@ RESET5: SKIPE MARKF
MOVSI A,%HRADR MOVSI A,%HRADR
PUSHJ P,RHSET PUSHJ P,RHSET
JRST RESETL JRST RESETL
MOVE A,[-2_4,,SLVIOWD-1] KA, MOVE A,[-2,,SLVIOWD-1]
KL, MOVE A,[-2_4,,SLVIOWD-1]
MOVEM A,SLVICWA MOVEM A,SLVICWA
SETZM SLVICWA+1 SETZM SLVICWA+1
KL,[ SWPUO 0 KL,[ SWPUO 0