github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-03 22:59:12 +00:00
Code Issues Releases Wiki Activity

Make SALV write 000 to the on-disk UNBYTE field.

Browse Source 
The previous value, 777, is not a valid code and caused problems.
This commit is contained in:
Lars Brinkhoff
2018-01-10 15:32:27 +01:00
parent 79ca6f81a1
commit 7ebf84aea5
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/system/salv.313
View File

@@ -989,7 +989,8 @@ DC, SETZM WXWDS+XWBWC
DPB B,[UNDSCP NUSRD+UNRNDM(A)] DPB B,[UNDSCP NUSRD+UNRNDM(A)]
MOVE B,MHDATE MOVE B,MHDATE
MOVEM B,NUSRD+UNDATE(A) MOVEM B,NUSRD+UNDATE(A)
SETOM NUSRD+UNREF(A) HRROI B,777000 ;NO REFERENCE DATE, NO AUTHOR, 36-BIT BYTES
MOVEM B,NUSRD+UNREF(A)
MOVE B,TUT+QPKNUM MOVE B,TUT+QPKNUM
DPB B,[UNPKN NUSRD+UNRNDM(A)] DPB B,[UNPKN NUSRD+UNRNDM(A)]
MOVEI A,NUSRD+UNRNDM(A) MOVEI A,NUSRD+UNRNDM(A)