projects
/
pdp10-muddle.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Have MIDAS define the right constant area start symbol.
[pdp10-muddle.git]
/
<mdl.int>
/
midas.323
diff --git
a/<mdl.int>/midas.323
b/<mdl.int>/midas.323
index bbb37e74b34e1890ed53cbf56af53ccec1589971..413ce8d9573a61e1bcf840ae4171ff76b8dddc78 100644
(file)
--- a/
<mdl.int>/midas.323
+++ b/
<mdl.int>/midas.323
@@
-3857,7
+3857,10
@@
CNST2: MOVEI D,(T) ;STE IDX IN D FOR OUTSM0
MOVE SYM,(T) ;GET NAME OF AREA
TLC SYM,400000#LCUDF ;CLEAR LCUDF, SET HALF-KILL
TRNE FF,FRGLOL
MOVE SYM,(T) ;GET NAME OF AREA
TLC SYM,400000#LCUDF ;CLEAR LCUDF, SET HALF-KILL
TRNE FF,FRGLOL
- PUSHJ P,PDEFPT ;DEFINE SYM FOR BEGINNING OF CONSTANTS AREA
+ JRST [ MOVEI A,CDEFPT ;Define sym for beginning of constants area
+ PUSHJ P,P7X
+ PUSHJ P,OUTSM ;As PDEFPT but punch squoze (see RPWRD1)
+ JRST .+1]
MOVE A,CONTBA
CNSTH: CAML A,PLIM
JRST CNSTA ;THRU
MOVE A,CONTBA
CNSTH: CAML A,PLIM
JRST CNSTA ;THRU