
DIRECTORY CharDisplays, DisplayControllers, DisplayControllerSteps, Rope, TermProgs;


EmADM: CEDAR PROGRAM
IMPORTS DisplayControllers, DisplayControllerSteps, TermProgs

 = {OPEN DisplayControllers, DisplayControllerSteps, TermProgs;

MakeADM3: PROC RETURNS [t: Term] = {
t ¬ NEW [TermRep ¬ [cp: NewControlProgram[] ]];
AddInstruction[t.cp, LIST["\000"], [Naught]];
AddInstruction[t.cp, LIST["\015"], [CarriageReturn]];
AddInstruction[t.cp, LIST["\012"], [SkipCursor, $down]];
AddInstruction[t.cp, LIST["\007"], [Beep]];
AddInstruction[t.cp, LIST["\010"], [SkipCursor, $left]];
AddInstruction[t.cp, LIST["\032"], [ClearScreen]];
};

MakeADM3a: PROC RETURNS [t: Term] = {
t ¬ MakeADM3[];
AddInstruction[t.cp, LIST["\000"], [Naught]];
AddInstruction[t.cp, LIST["\036"], [Home]];
AddInstruction[t.cp, LIST["\014"], [SkipCursor, $right]];
AddInstruction[t.cp, LIST["\013"], [SkipCursor, $up]];
AddInstruction[t.cp,
LIST[
"\033=",
NEW [DecodeRep ¬ [reg: line, base: NumChars, org: ' , len: 1]],
NEW [DecodeRep ¬ [reg: col, base: NumChars, org: ' , len: 1]]
],
[JumpCursor, $hv]];
};

RegTerm["adm3", MakeADM3[]];
RegTerm["adm3a", MakeADM3a[]];

}.
    ®  
EmADM.Mesa
Copyright Ó 1992 by Xerox Corporation.  All rights reserved.
Last Edited by: Spreitzer, January 11, 1986 2:41:19 pm PST
Emulates Lear-Sigler ADM terminals.
Ê‘  •NewlineDelimiter
–(cedarcode) style™ code™
Kšœ
Ïeœ1™<J™:—K˜ KšÏk	œK˜TK˜ K™#K˜ šÐbxœžœž˜Kšžœ6˜=K˜ Kšœžœ7˜?K˜ šÏnœžœžœ˜$Kšœžœ(˜/Kšœžœ˜-Kšœžœ˜5Kšœžœ˜8Kšœžœ˜+Kšœžœ˜8Kšœžœ˜2K˜—K˜ š 	œžœžœ˜%K˜Kšœžœ˜-Kšœžœ˜+Kšœžœ ˜9Kšœžœ˜6˜šžœ˜Kšœ˜Kšžœ<˜?Kšžœ:˜=Kšœ˜—Kšœ˜—K˜—K˜ Kšœ˜Kšœ˜K˜ K˜—— …—    z  ¹  