github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 23:36:30 +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
Show Stats 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)]
MOVE B,MHDATE
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
DPB B,[UNPKN NUSRD+UNRNDM(A)]
MOVEI A,NUSRD+UNRNDM(A)