From 79ca6f81a1fa08c6947dd2077d07fc480557d294 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 4 Jan 2018 20:37:57 +0100 Subject: [PATCH] Add some comments to SALV. --- src/system/salv.313 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/system/salv.313 b/src/system/salv.313 index 186b58a6..94785e91 100644 --- a/src/system/salv.313 +++ b/src/system/salv.313 @@ -804,7 +804,7 @@ SUBTTL TRAN - LOAD FROM MAG TAPE MAGOP: AOSE ITAPE JRST MTR1 - HRROI A,MAGHD + HRROI A,MAGHD ;READ TAPE HEADER PUSHJ P,MREAD MOVE A,MAGHD TRNE A,-1 @@ -818,14 +818,14 @@ MAGOP: AOSE ITAPE PUSHJ P,TDPT PUSHJ P,CRR -MTR1: HRROI A,MAGHD +MTR1: HRROI A,MAGHD ;READ FILE HEADER PUSHJ P,MREAD JUMPE T,CPOPJ ;EOF MOVE A,MAGHD TRNE A,-1 JRST MBADHD CAMGE A,[-LMHBLK,,0] - JRST MBADHD + JRST MBADHD ;HEADER TOO LONG ADD A,[1,,MHBLK+1] PUSHJ P,MREAD SETZM LNKFLG @@ -983,7 +983,7 @@ DC, MOVEM B,WXWDS+XWSYSN DC, SETZM WXWDS+XWBWC SETZI B, SKIPE LNKFLG - MOVSI B,UNLINK + MOVSI B,UNLINK ;SET LINK FLAG IN UFD MOVEM B,NUSRD+UNRNDM(A) MOVE B,NUSRD+UDESCP DPB B,[UNDSCP NUSRD+UNRNDM(A)]