X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..4004a326545fc294821707378dd8e6b026df8be1:/src/nulseg.mac diff --git a/src/nulseg.mac b/src/nulseg.mac index adbdfa3..6a7e8d6 100644 --- a/src/nulseg.mac +++ b/src/nulseg.mac @@ -104,6 +104,7 @@ FORHGH: MOVSI TAC,SHF ;STOP IO AFTER NEXT BUFFERFUL IF ACTIVE XP SEGINI,R0 ;INITIALIZE HIGH SEGS ;UUOCON + XP RELSEG,R0 ;SUPERCEDE HIGH SEGS ON RECREATE XP RELSG1,R1 ;RENAME UUO XP HGHWRD,R0 ;GET WORD FROM HIGH SEG - ERROR RETURN @@ -116,4 +117,6 @@ USTUWP: JRST RTZER XP HGHWRD,R0 ;GET WORD FROM HIGH SEG -ERROR XP USPY,R0 ;SPY UUO - ERROR + + END