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 empty buffer after reading a link.

Browse Source
This commit is contained in:
Lars Brinkhoff 2017-12-21 12:21:02 +01:00
parent 7c406d3954
commit f88036c2b6
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/system/salv.312 → src/system/salv.313 Executable file → Normal file
View File

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