DIRECTORYBasicTime USING [GMT, nullGMT],ChoiceButtons USING [EnumTypeRef],IO USING [STREAM],LarkPrograms USING [Program],MBQueue USING [Queue],PupTypes USING [fillInPupAddress, PupAddress, PupNetID],ReadEvalPrint USING [Handle],Rope USING [ROPE],RPCPkt USING [Machine],TeleLoad USING [Advice, CoreAddress, EventProc, EventRecordObject, Handle, State8086Object, TeleLoadProc],ViewerClasses USING[Viewer];LarkControl: CEDAR DEFINITIONS =BEGINcRUNNING: CARDINAL = 0FF00H;cDown: CARDINAL = 0EFFFH;Data: TYPE = REF LarkControlDataObject;LarkControlDataObject: TYPE = RECORD[mainSwitch: MainSwitchStates _ off,mainSwitchController: ChoiceButtons.EnumTypeRef _ NIL,out: IO.STREAM _ NIL,mbQueue: MBQueue.Queue _ NIL,viewer: ViewerClasses.Viewer _ NIL,  -- selflarksY: INTEGER _ 0,  -- y position and height of the per-lark viewerlarksH: INTEGER _ 0,maxW: INTEGER _ 0,buttH: INTEGER _ 0,pleaseStop: BOOL _ FALSE,script: ViewerClasses.Viewer _ NIL,  -- typescripteventLark: LarkIndex _ FIRST[LarkIndex],anyEvent: BOOL _ FALSE,net: PupTypes.PupNetID _ [173B],larks: ARRAY LarkIndex OF LarkData _ ALL[NIL]  -- per lark data];MainSwitchStates: TYPE = {off, manual, auto};LarkIndex: TYPE = [100B..240B);LarkData: TYPE = REF LarkDataObject;LarkDataObject: TYPE = RECORD [world: Data _ NIL,  -- back pointeraddress: PupTypes.PupAddress _ PupTypes.fillInPupAddress,nameRope: Rope.ROPE _ NIL,  -- pup internet name, if anyaddressRope: Rope.ROPE _ NIL,  -- pup internet address, in rope formrName: Rope.ROPE _ NIL, -- typically "173#101#.lark"userRName: Rope.ROPE _ NIL, -- typically "Stewart"program: LarkPrograms.Program _ NIL,  -- loaded programslaveProgram: LarkPrograms.Program _ NIL,  -- slave memory contentslarkMode: CHAR _ 'U,state: TeleLoad.State8086Object,  -- really should be [ALL[0]]event: TeleLoad.EventRecordObject,newEvent: BOOL _ FALSE,expectEvent: BOOL _ FALSE,expectedEventType: CARDINAL,h: TeleLoad.Handle _ NIL,eval: ReadEvalPrint.Handle _ NIL,breakList: LIST OF Breakpoint _ NIL,lastBoot: BasicTime.GMT _ BasicTime.nullGMT,lastBootTimeValid: BOOL _ FALSE,userRNameViewer: ViewerClasses.Viewer _ NIL,mode: ViewerClasses.Viewer _ NIL,debug: ViewerClasses.Viewer _ NIL,status: ViewerClasses.Viewer _ NIL];Breakpoint: TYPE = REF BreakpointObject;BreakpointObject: TYPE = RECORD [address: TeleLoad.CoreAddress,codeByte: CARDINAL];ShortCoreAddress: TYPE = CARDINAL;LoadProgram: PROC [lark: LarkData, go: BOOL, main: BOOL];loadWindowLow: TeleLoad.CoreAddress;loadWindowHigh: TeleLoad.CoreAddress;SetState: PROC [h: TeleLoad.Handle, state: TeleLoad.State8086Object, tp: TeleLoad.TeleLoadProc, print: BOOL _ TRUE] RETURNS [ok: BOOL];FetchState: PROC [h: TeleLoad.Handle, adv: TeleLoad.Advice _ [FALSE, FALSE, 0], print: BOOL _ TRUE] RETURNS [ok: BOOL, state: TeleLoad.State8086Object];DisplayState: PROC [s: IO.STREAM, state: TeleLoad.State8086Object, indent: NAT _ 0];SetValue: PROC [lark: LarkData, name: Rope.ROPE, value: CARDINAL, offset: NAT _ 0, print: BOOL _ FALSE] RETURNS [ok: BOOL];LocalGo: PROC [lark: LarkData];BootReason: PROC [reason: CARDINAL, BX: CARDINAL _ 0] RETURNS [Rope.ROPE];DisplayEvent: PROC [lark: LarkData, event: TeleLoad.EventRecordObject, out: IO.STREAM, reasonRope: Rope.ROPE, preRope: Rope.ROPE, short: BOOL _ FALSE];PollLark: PROC [lark: LarkData, print: BOOL _ FALSE, setPointers: BOOL _ TRUE] RETURNS [reason: Rope.ROPE];NoteEvents: TeleLoad.EventProc;RepairBreakpoint: PROC [h: TeleLoad.Handle, breakpoint: Breakpoint];BootLark: PROC [lark: LarkData];LarkGVSet: PROC [lark: LarkControl.LarkData, setMode: BOOL, setProgram: BOOL];ConsiderActionFurther: PROC [lark: LarkData, event: TeleLoad.EventRecordObject];PaintMode: PROC [lark: LarkData];StartWatcher: PROC;StopWatcher: PROC;NotifyWatcher: PROC;GetInstanceList: PROC RETURNS [LIST OF REF ANY];LogEntry: PROC [lark: LarkData, rope: Rope.ROPE _ NIL, endWithCR: BOOL _ FALSE];GetLogStreamProc: TYPE = PROC [machine: RPCPkt.Machine] RETURNS [log: IO.STREAM];GetLogStream: GetLogStreamProc;GetLark: PROC [machine: RPCPkt.Machine] RETURNS [lark: LarkData];VerifyInternal: PROC [lark: LarkControl.LarkData, program: LarkPrograms.Program, startAddress, stopAddress: TeleLoad.CoreAddress];END.April 25, 1983 12:49 pm, LCS, createdJune 21, 1983 2:41 pm, LCS, Added GetStream stuffJune 21, 1983 2:41 pm, LCS, Changed LarkIndex to 240  ٍ  LarkControl.mesaL. Stewart, December 21, 1983 3:58 pmLast Edited by: Swinehart, June 15, 1984 1:36:08 am PDTData structure for each Larkviewers for each Lark which need to be relabelledglobal variablesroutines for manipulating a larkuse for zapping and starting, always works from statefetch state block and optionally set advicePrint state on streamAlter a variableGo, using appropriate technique if a beakpoint is setReturn the rope reason corresponding to a particular boot code.Format an event listing.Read the state of a Lark, if possible.Print events in a useful wayPut the codebyte backTry to cause a watchdog timer boot by jumpint to the lark location BootAquire Lark data from GrapevineReload and restart the Lark, if it seems appropriate.Paint the mode viewer acording to lark.larkMode.Start or stop the process that prints event notifications.Return a list of LarkControl recordsPrint lark and the time and the rope.Aquire the IO output stream for a particular Lark.  If machine = [[0], [0]] then returns the LarkControl viewer log stream for some network.  If machine = [[net], [0]] then returns the LarkControl viewer log stream for the given net.  If machine = [[net], [host]] then returns the log stream for the given lark, which will be a debug viewer if there is one and the LarkControl viewer log stream for the given net if there is no debug viewer.Aquire the data structure for a particular Lark.Check the contents of Lark memory against the given program.‌تM  ک Jڑœ™Jڑœ%™%J™7Jک ڑدk	ک	Jڑœ
‌œ‌œ	کJڑœ‌œک"Jڑ‌œ‌œ‌œکJڑœ‌œکJڑœ‌œ	کJڑœ	‌œ*ک8Jڑœ‌œ
کJڑœ‌œ‌œکJڑœ‌œکJڑœ	‌œ\کjJڑœ‌œ	ک—Jک Jڑœ‌œ‌œک Jڑ‌کJڑœ
‌œ
کJڑœ‌œ
کJک Jڑœ‌œ‌œک'Jک ڑœ‌œ‌œک%Jک#Jڑœ2‌œک6Jڑœ‌œ‌œ‌œکJڑœ‌œکJڑœ‌œدcک,Jڑœ‌œ‍/کEJڑœ‌œکJڑœ‌œکJڑœ‌œکJڑœ‌œ‌œکJڑœ‌œ‍ک2Jڑœ‌œک(Jڑœ
‌œ‌œکJک Jڑ
œ‌œ‌œ‌œ‌œ‍ک?Jڑœک—Jک Jڑœ‌œک-Jک Jڑœ‌œکJڑœ
‌œ‌œک$Jک J™ڑœ‌œ‌œکJڑœ‌œ‍ک#Jک9Jڑœ‌œ‌œ‍ک8Jڑœ‌œ‌œ‍%کDJڑœ‌œ‌œ‍ک4Jڑœ‌œ‌œ‍ک2Jڑœ ‌œ‍ک7Jڑœ%‌œ‍کCJڑœ
‌œکJڑœ"‍ک>Jڑœ"ک"Jڑœ
‌œ‌œکJڑœ‌œ‌œکJڑœ‌œکJڑœ‌œکJڑœ‌œک!Jڑœ‌œ‌œ‌œک$Jڑœ‌œک,Jڑœ‌œ‌œک J™1Jڑœ(‌œک,Jڑœ‌œک!Jڑœ‌œک"Jڑœ‌ک"Jک—Jک Jڑœ‌œ‌œک(ڑœ‌œ‌œک!JکJڑœ
‌کJک—Jک Jڑœ‌œ‌œک"Jک Jڑدnœ‌œ‌œ‌œک9Jک Jڑœ™Jک Jک$Jک%J™ J™ J™ J™5Jڑںœ‌œY‌œ‌œ‌œ‌œک‡Jک J™+Jڑں
œ‌œ.‌œ‌œ‌œ‌œ‌œ‌œ#ککJ™ J™Jڑ
ںœ‌œ‌œ‌œ+‌œکTJ™ J™Jڑںœ‌œ‌œ	‌œ
‌œ‌œ‌œ‌œ‌œک{J™ J™5Jڑںœ‌œکJ™ J™?Jڑں
œ‌œ
‌œ‌œ‌œ‌œ‌œکJJ™ J™Jڑںœ‌œ:‌œ‌œ‌œ‌œ	‌œ‌œک—J™ J™&Jڑںœ‌œ‌œ‌œ‌œ‌œ‌œ‌œکkJ™ J™JڑœکJ™ J™Jڑںœ‌œ.کDJ™ J™GJڑںœ‌œک Jک J™Jڑں	œ‌œ'‌œ‌œکNJ™ J™5Jڑںœ‌œ5کPJک J™0Jڑں	œ‌œک!J™ J™:Jڑںœ‌œکJڑںœ‌œکJڑںœ‌œکJک J™$Jڑںœ‌œ‌œ‌œ‌œ‌œ‌œک0Jک J™%Jڑںœ‌œ‌œ‌œ‌œ‌œکPJک Jڑœ¹™¹Jڑ
ںœ‌œ‌œ‌œ‌œکQJڑںœکJک J™0Jڑںœ‌œ‌œکAJک J™<Jڑںœ‌œnک‚Jک Jڑ‌œکJڑœ‌œ	ک%Jڑœ‌œک1Jڑœ‌œک4— …—    J  ‰  