diff --git a/src/system/salv.312 b/src/system/salv.313 old mode 100755 new mode 100644 similarity index 99% rename from src/system/salv.312 rename to src/system/salv.313 index 5f12618b..e1b7ab4c --- a/src/system/salv.312 +++ b/src/system/salv.313 @@ -834,7 +834,15 @@ MTR1: HRROI A,MAGHD SETOM LNKFLG MOVE A,[-3,,LNKNM1] ;READ LINK INFO PUSHJ P,MREAD - JRST POPJ1 + CAIN T,3 + JRST [ MOVE A,[-1,,MHDATE+1] + PUSHJ P,MREAD ;FLUSH BUFFER + JUMPN T,MBDLNK ;IT SHOULD BE EMPTY + CLEARM EOUF + JRST POPJ1 ] + +MBDLNK: LPR BAD LINK + JRST CRDDT MBADHD: LPR BAD HEADER PUSHJ P,LCRR