|
@@ -1737,22 +1737,22 @@
|
|
|
44979 END;
|
|
|
44980 (**)
|
|
|
44981 PROCEDURE EMITEND;
|
|
|
+44982 VAR I: INTEGER;
|
|
|
44990 BEGIN
|
|
|
44991 IF DATASTATE=ENDDATA THEN DATASTATE := STARTDATA;
|
|
|
44992 EMITXWORD(OCVIMMED, 0); WRITEINSTN(EOOPNDS); (*TO ENSURE THAT ANY OUTSTANDING DATA LABELS SEE CON RATHER THAN BSS*)
|
|
|
44995 WRITELABEL(TRUE,HOLBOTTOM);
|
|
|
-45000 WRITEINSTN(BSS);
|
|
|
-45010 EMITXWORD(OCVIMMED,ROUTNL^.RNLENIDS+SIZIBTOP+SZWORD+FIRSTIBOFFSET);
|
|
|
-45015 (*-24()WRITE(LGO,','); ()-24*)
|
|
|
-45020 EMITXWORD(OCVIMMED,-32000-768); (*-24() WRITE(LGO,','); ()-24*)
|
|
|
-45022 EMITXWORD(OCVIMMED,0);
|
|
|
-45024 (*-24() WRITEINSTN(EOOPNDS); ()-24*) WRITELABEL(TRUE,HOLTOP);
|
|
|
-45026 WRITEINSTN(BSS);
|
|
|
-45028 EMITXWORD(OCVIMMED,0);(*-24() WRITE(LGO,','); ()-24*)
|
|
|
-45030 EMITXWORD(OCVIMMED,-32000-768); (*-24() WRITE(LGO,','); ()-24*)
|
|
|
-45032 EMITXWORD(OCVIMMED,0); (*-24() WRITEINSTN(EOOPNDS); ()-24*)
|
|
|
+44996 I := ROUTNL^.RNLENIDS+SIZIBTOP+SZWORD+FIRSTIBOFFSET;
|
|
|
+45000 REPEAT
|
|
|
+45010 WRITEINSTN(CON);
|
|
|
+45015 WRITECON(CPACTCONS, SZWORD, 0);
|
|
|
+45020 I := I - SZWORD;
|
|
|
+45021 WRITEINSTN(EOOPNDS);
|
|
|
+45022 UNTIL I <= 0;
|
|
|
+45024 WRITELABEL(TRUE,HOLTOP);
|
|
|
+45026 WRITEINSTN(CON); WRITECON(CPACTCONS, SZWORD, 0); WRITEINSTN(EOOPNDS);
|
|
|
45034 WRITEINSTN(HOL); (*DUMMY HOL FOR RUNTIME AND FILE ACCESS*)
|
|
|
-45036 EMITXWORD(OCVIMMED,0);(*-24() WRITE(LGO,','); ()-24*)
|
|
|
+45036 EMITXWORD(OCVIMMED,SZWORD);(*-24() WRITE(LGO,','); ()-24*)
|
|
|
45038 EMITXWORD(OCVIMMED,-32000-768); (*-24() WRITE(LGO,','); ()-24*)
|
|
|
45040 EMITXWORD(OCVIMMED,0);(*-24() WRITEINSTN(EOOPNDS); ()-24*)
|
|
|
45041 DATASTATE := ENDDATA;
|