projects
/
pdp10-muddle.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Prevent MIDAS from splitting two-word directives across blocks.
[pdp10-muddle.git]
/
<mdl.int>
/
midas.323
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
;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
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
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
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
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
PUSHJ P,PBITS7 ;TELL STINK TO EXPUNGE SYM.
MOVEI A,CLGLO
PUSHJ P,PBITS