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

Add some comments to SALV.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-01-04 20:37:57 +01:00
parent 9adfbf0788
commit 79ca6f81a1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/system/salv.313
View File

@ -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)]