Prevent MIDAS from splitting two-word directives across blocks.

When:

- MIDAS is writing a "standard data" block to a REL file;
- it wants to write a 76 (local-to-global/rename/expunge) directive,
  which needs two words of data;
- and there's only one word of space left in the block;

it wrote the first one to the current block, and the second word to the
start of the next block. The REL documentation doesn't say that you
*can't* do this, but it seems dubious because there's no guarantee that
the next block is of the same type... and STINK 1/201 definitely doesn't
expect it, because it reads the "spilled" second word as the first set
of codebits for the next block.

Fix by checking, before writing a 76 directive, whether there's only one
space left in the buffer; if so, start a new block immediately.

There is a flag (IRCONT) that MIDAS sometimes sets to indicate that it
shouldn't end a block yet for other two-word directives; I tried using
it in this case, but the effect was that it never managed to actually
write the block at all. I'm not entirely convinced that it's right in
the other places where it's used.

This is MIDAS 323. I've not checked other versions of MIDAS for this
problem yet.

diff --git a/<mdl.int>/midas.323 b/<mdl.int>/midas.323
index ce24ab32184e848b18944dde051ca62ff09428bf..100c15e6a6414d2a21945665f386bbfa826c6fcc 100644 (file)
--- a/<mdl.int>/midas.323
+++ b/<mdl.int>/midas.323
@@ -2997,6 +2997,7 @@ OUTDE1:   TLNE FF,FLPPSS
 ;I.E. TELL LOADER THAT SQUOZE IN SYM, FORMERLY CONSIDERED LOCAL, IS REALLY GLOBAL
 PLOGLO:        SKIPGE CONTRL
         RET
+       PUSHJ P,MKROOM
        PUSH P,A
        PUSHJ P,PBITS7
        MOVEI A,CLGLO
@@ -4890,6 +4891,14 @@ PBITS:   SKIPGE CONTRL
        TROA FF,FRBIT7
        TRZ FF,FRBIT7
        IDPB A,BITP
+       POPJ P,
+
+               ;Call when you're about to output two words into a block.
+MKROOM:        PUSH P,A
+       MOVE A,OPT1
+       CAIL A,BSIZE+BKBUF-1    ;Space for more than one word?
+        PUSHJ P,EBLK           ;No - start a new block
+       POP P,A
        POPJ P,
 
                ;FOLLOWING ROUTINES SAVE AC'S EXCEPT FOR A
@@ -6266,6 +6275,7 @@ IFN CREFSW,XCT CRFDEF
        SKIPL CONTRL    ;IF RELOCATABLE ANDLOCAL SYMBOL,
        CAIL A,DEFGVR_-33.
         RET
+       PUSHJ P,MKROOM
        PUSHJ P,PBITS7  ;TELL STINK TO EXPUNGE SYM.
        MOVEI A,CLGLO
        PUSHJ P,PBITS