
DIRECTORY CharDisplays, DisplayControllers, DisplayControllerSteps, Rope, TermProgs;


EmDM2500: CEDAR PROGRAM
IMPORTS DisplayControllers, DisplayControllerSteps, Rope, TermProgs

 = {OPEN DisplayControllers, DisplayControllerSteps, TermProgs;

DisplayDetails: TYPE = CharDisplays.DisplayDetails;

DMState: TYPE = REF DMStateRep;
DMStateRep: TYPE = RECORD [
didCRLF: BOOL м FALSE,
colData: SEQUENCE cols: NAT OF ColData];

ColData: TYPE = RECORD [
tabStopHere: BOOL м FALSE];


InitDM2500: PROC [dc: DisplayController] = {
dms: DMState м NEW [DMStateRep[dc.cd.det.columns]];
dc.cps.clientData м dms;
FOR c: NAT IN [0 .. dms.cols) DO
dms.colData[c] м [];
ENDLOOP;
};

InitDMWaits: PROC [dc: DisplayController] = {
InitDM2500[dc];
dc.cd.class.SetFont[dc.cd, "SAIL"];
};

MakeDM: PROC [flavor: ATOM, autoMargins: BOOL] RETURNS [t: Term] = {
t м NEW [TermRep м [
det: [autoMargins: autoMargins, scrollsVariable: TRUE],
cp: NewControlProgram[
Init: SELECT flavor FROM
$waits => InitDMWaits,
$Twenty500 => InitDM2500,
ENDCASE => ERROR,
bits: 7
]
]];
FOR c: CHAR IN CHAR DO
AddInstruction[t.cp, LIST[Rope.FromChar[c]], [DMPrint, flavor, TRUE]];
ENDLOOP;
AddInstruction[t.cp, LIST["\000"], [Naught]];
AddInstruction[t.cp, LIST["\002"], [DMHome]];
AddInstruction[t.cp, LIST["\014\002"], [DMHome]];
AddInstruction[t.cp, LIST["\007"], [DMBeep]];
AddInstruction[t.cp, LIST["\010"], [DMBackspace]];
AddInstruction[t.cp, LIST["\011"], [DMTab]];
AddInstruction[t.cp, LIST["\012"], [DMLinefeed]];
AddInstruction[t.cp, LIST["\013"], [DMTabSet, $clear]];
AddInstruction[t.cp,
LIST["\014",
NEW [DecodeRep м [reg: col, base: 96, org: 0C, xor: 0140B, len: 1]],
NEW [DecodeRep м [reg: line, base: 96, org: 0C, xor: 0140B, len: 1]] ],
[DMJumpCursor, $hv]];
AddInstruction[t.cp,
LIST["\014\014",
NEW [DecodeRep м [reg: col, base: 96, org: 0C, xor: 0140B, len: 1]],
NEW [DecodeRep м [reg: line, base: 96, org: 0C, xor: 0140B, len: 1]] ],
[DMJumpCursor, $hv]];
AddInstruction[t.cp, LIST["\015"], [DMCarriageReturn]];
AddInstruction[t.cp, LIST["\016"], [DMSetEmph, $boldOn]];
AddInstruction[t.cp, LIST["\017"], [DMSetEmph, $italicOn]];
AddInstruction[t.cp, LIST["\020"], [DMSetMode, $insdel]];
AddInstruction[t.cp, LIST["\027"], [DMClrTo, $eol]];
AddInstruction[t.cp, LIST["\030"], [DMCancel, $cancel]];
AddInstruction[t.cp, LIST["\014\030"], [DMCancel, $cancel]];
AddInstruction[t.cp, LIST["\031"], [DMTabSet, $set]];
AddInstruction[t.cp, LIST["\032"], [DMCtlZ]];
AddInstruction[t.cp, LIST["\033"], [Naught]];
AddInstruction[t.cp, LIST["\034"], [DMRight, flavor]];
AddInstruction[t.cp, LIST["\035"], [DMSetMode, $roll]];
AddInstruction[t.cp, LIST["\036"], [DMCancel, $masterClear]];
AddInstruction[t.cp, LIST["\014\036"], [DMCancel, $masterClear]];
AddInstruction[t.cp, LIST["\037"], [DMCancel, $eraseScreen]];
AddInstruction[t.cp, LIST["\014\037"], [DMCancel, $eraseScreen]];
AddInstruction[t.cp, LIST["\177"], [Naught]];
AddInstruction[t.cp, LIST["\200"], [Naught]];
AddInstruction[t.cp, LIST["\377"], [Naught]];
};

MakeDMDD: PROC RETURNS [t: Term] = {
t м MakeDM[$Twenty500, FALSE];
t.det.lines м 38;
};

DMPrint: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
dc.cd.class.TakeChar[
dc.cd,
dc.cps.chars[dc.cps.chars.length-1],
SELECT clientData FROM
$waits => FALSE,
$Twenty500 => dc.cps.modes[insert],
ENDCASE => ERROR];
};

DMHome: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
Home[dc, clientData]};

DMBeep: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
Beep[dc, clientData]};

DMBackspace: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
IF dc.cps.modes[insert]
THEN dc.cd.class.DeleteChar[dc.cd]
ELSE {
IF dc.cd.col > 0 THEN dc.cd.class.CursorMove[dc.cd, 0, -1, TRUE, TRUE, TRUE];
};
};

DMTab: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
c: NAT;
dms.didCRLF м FALSE;
FOR c м dc.cd.col+1, c+1 WHILE c < dc.cd.det.columns AND NOT dms.colData[c].tabStopHere DO NULL ENDLOOP;
dc.cd.class.CursorMove[dc.cd, 0, c, FALSE, FALSE, TRUE];
};

DMLinefeed: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
IF dc.cps.modes[insert] THEN Line[dc, $ins] ELSE IF NOT dms.didCRLF THEN SkipCursor[dc, $down];
dms.didCRLF м FALSE;
};

DMTabSet: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
set: BOOL м SELECT clientData FROM
$clear => FALSE,
$set => TRUE,
ENDCASE => ERROR;
dms.didCRLF м FALSE;
dms.colData[dc.cd.col].tabStopHere м set;
};

DMJumpCursor: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
JumpCursor[dc, clientData]};

DMCarriageReturn: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
CarriageReturn[dc, NIL];
SkipCursor[dc, $down];
dms.didCRLF м TRUE;
};

DMSetEmph: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
SetEmph[dc, clientData]};

DMSetMode: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
SELECT clientData FROM
$insdel => dc.cps.modes[insert] м dc.cps.modes[delete] м TRUE;
$roll => {det: DisplayDetails м dc.cd.det;
det.scrolls м TRUE;
dc.cd.class.ChangeDetails[dc.cd, det];
};
ENDCASE => ERROR;
};

DMCancel: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
clearRoll: BOOL м FALSE;
clearScreen: BOOL м TRUE;
clearTabs: BOOL м FALSE;
dms.didCRLF м FALSE;
SELECT clientData FROM
$cancel => {clearRoll м TRUE; clearScreen м FALSE};
$masterClear => {clearTabs м TRUE};
$eraseScreen => {};
ENDCASE => ERROR;
dc.cps.modes[insert] м dc.cps.modes[delete] м FALSE;
dc.cd.class.SetEmph[dc.cd, bold, FALSE];
dc.cd.class.SetEmph[dc.cd, italic, FALSE];
IF clearRoll THEN {det: DisplayDetails м dc.cd.det;
det.scrolls м FALSE;
dc.cd.class.ChangeDetails[dc.cd, det]};
IF clearTabs THEN {
FOR c: NAT IN [0 .. dms.cols) DO dms.colData[c].tabStopHere м FALSE ENDLOOP;
};
IF clearScreen THEN ClearScreen[dc, clientData];
};

DMClrTo: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
ClrTo[dc, clientData]};

DMCtlZ: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
IF dc.cps.modes[insert] THEN Line[dc, $del] ELSE SkipCursor[dc, $up];
};

DMRight: ActionProc = {
dms: DMState м NARROW[dc.cps.clientData];
dms.didCRLF м FALSE;
IF dc.cps.modes[insert]
THEN {
dc.cd.class.TakeChar[dc.cd, ' , TRUE];
dc.cd.class.CursorMove[dc.cd, 0, -1, TRUE, TRUE, TRUE]}
ELSE SkipCursor[dc, $right];
};

RegTerm["dm2500", MakeDM[$Twenty500, FALSE]];
RegTerm["dm2500w", MakeDM[$Twenty500, TRUE]];
RegTerm["dmwaits", MakeDM[$waits, FALSE]];
RegTerm["dmdd", MakeDMDD[]];

}.
  d  
EmDM2500.Mesa
Copyright ╙ 1986, 1992 by Xerox Corporation.  All rights reserved.
Last Edited by: Spreitzer, February 19, 1986 8:48:33 pm PST
Mike Spreitzer August 26, 1986 8:53:05 pm PDT
Emulates Datamedia 2500's and friends.
FOR c: CHAR IN CHAR DO
AddInstruction[t.cp, LIST[Rope.Cat["\033", Rope.FromChar[c]]], [DMPrint, flavor, FALSE]];
ENDLOOP;
 Э╩╘  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЩKЪЬ	╧eЬ6ЩBJЩ;KЩ-ЧKШ KЪ╧k	ЬKШTKШ KЩ&KШ Ъ╨bxЬЮЬЮШKЪЮЬ<ШCKШ KЪЬЮЬ7Ш?KШ KЪЬЮЬШ3KШ KЪЬ	ЮЬЮЬШЪЬЮЬЮЬШKЪЬ	ЮЬЮЬШKЪЬ	ЮЬЮЬЮЬ
Ш(ЧKШ ЪЬ	ЮЬЮЬШKЪЬЮЬЮЬШЧKШ KШ Ъ╧n
ЬЮЬШ,KЪЬЮЬ!Ш3KШЪЮЬЮЬЮЬЮШ KШKЪЮЬШЧKШЧKШ ЪаЬЮЬШ-KЪЬШKШ#KШЧKШ Ъ
аЬЮЬ
ЮЬЮЬЮЬШDЪЬЮЬШKЪЬ1ЮЬШ7ЪЬШЪаЬЮЬЮШKЪЬШKЪЬШKЪЮЬЮЬШЧKШKЪЬШЧKЪЬШЧЪ	ЮЬЮЬЮЬЮЬЮШKЪЬЮЬ&ЮЬШFKЪЮЬШЧЪ	ЮЬЮЬЮЬЮЬЮЩKЪЬЮЬ8ЮЬЩYKЪЮЬЩЧKЪЬЮЬШ-KЪЬЮЬШ-KЪЬЮЬШ1KЪЬЮЬШ-KЪЬЮЬШ2KЪЬЮЬШ,KЪЬЮЬШ1KЪЬЮЬШ7ШЪЮЬШKЪЮЬAШDKЪЮЬDШGЧKЪЬШЧШЪЮЬШKЪЮЬAШDKЪЮЬDШGЧKЪЬШЧKЪЬЮЬШ7KЪЬЮЬ Ш9KЪЬЮЬ"Ш;KЪЬЮЬ Ш9KЪЬЮЬШ4KЪЬЮЬШ8KЪЬЮЬ#Ш<KЪЬЮЬШ5KЪЬЮЬШ-KЪЬЮЬШ-KЪЬЮЬШ6KЪЬЮЬШ7KЪЬЮЬ$Ш=KЪЬЮЬ(ШAKЪЬЮЬ$Ш=KЪЬЮЬ(ШAKЪЬЮЬШ-KЪЬЮЬШ-KЪЬЮЬШ-KШЧKШ ЪаЬЮЬЮЬШ$KЪЬЮЬШKШKШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШЪЬШKЪЬШKЪЬ$Ш$ЪЮЬЮШKЪЬ
ЮЬШKЪЬ#Ш#KЪЮЬЮЬШЧЧKЪЬШЧKШ ШKЪЬЮЬШ)KЪЬЮЬШKЪЬШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШKЪЬШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШЪЮЬШKЪЮЬШ"ЪЮЬШKЪ
ЮЬЮЬ&ЮЬЮЬЮЬШMKЪЬШЧЧKЪЬШЧKШ ШKЪЬЮЬШ)KЪЬЮЬШKЪЬЮЬШKЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬШhKЪЬ$ЮЬЮЬЮЬШ8KШЧKШ ШKЪЬЮЬШ)KЪЮЬЮЬЮЬЮЬЮЬЮЬШ_KЪЬЮЬШKШЧKШ ШKЪЬЮЬШ)ЪЬЮЬЮЬЮШ"KЪЬ
ЮЬШKЪЬЮЬШKЪЮЬЮЬШЧKЪЬЮЬШKШ)KШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШKЪЬШЧKШ ЪЬ Ш KЪЬЮЬШ)KЪЬЮЬШKШKЪЬЮЬШKЪЬШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШKЪЬШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШЪЮЬЮШKЪЬ9ЮЬШ>Ш*KЪЬЮЬШKШ&KШЧKЪЮЬЮЬШЧKШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬШЪЮЬЮШKЪЬЮЬЮЬШ3KЪЬЮЬШ#KЪЬШKЪЮЬЮЬШЧKЪЬ.ЮЬШ4KЪЬ!ЮЬШ(KЪЬ#ЮЬШ*ЪЮЬЮЬ"Ш3KЪЬЮЬШKШ'ЧЪЮЬЮЬШKЪЮЬЮЬЮЬЮЬЮЬЮЬШLKШЧKЪЮЬЮЬШ0KШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШKЪЬШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШKЪЮЬЮЬЮЬШEKЪЬШЧKШ ЪЬШKЪЬЮЬШ)KЪЬЮЬШЪЮЬШЪЮЬШKЪЬ ЮЬШ&KЪЬ%ЮЬЮЬЮЬШ7ЧKЪЮЬШЧKЪЬШЧKШ KЪЬ%ЮЬШ-KЪЬ&ЮЬШ-KЪЬ"ЮЬШ*KЪЬШKШ KШЧЧ ЕЧ    Ъ  #╥  