GenSmall.mesa
Copyright © 1984, 1985 by Xerox Corporation. All rights reserved.
Russ Atkinson (RRA) July 15, 1985 11:21:06 pm PDT
DIRECTORY
DragOpsCross,
DragOpsCrossUtils,
HandCoding,
HandCodingSupport,
HandCodingPseudos;
GenSmall: CEDAR PROGRAM
IMPORTS DragOpsCrossUtils, HandCoding, HandCodingPseudos
= BEGIN OPEN HandCoding, HandCodingSupport, HandCodingPseudos;
All: PROC = {
startLabel: Label = GenLabelHere[];
MakeLabelGlobal["SmalltalkStub.Start", startLabel];
EnableTraps[]; -- to detect stack overflow
drDFC[DragOpsCrossUtils.CardToWord[4100000B]];
Halt[0];
};
END.