DIRECTORY ColorDisplayDorado USING [ClockControl, HorizontalControl, VerticalControl], WindowManager USING [ScreenPos]; MonitorToolDefs: DEFINITIONS = { StartMonitor: PROCEDURE [screenWidth, screenHeight, refreshRate, bitsPerPixel: CARDINAL, hBlankTime, vBlankTime: REAL, pos: WindowManager.ScreenPos _ left, NTSCBoard: BOOLEAN _ FALSE, interlace: BOOLEAN _ TRUE]; Start640Monitor: PROCEDURE [bitsPerPixel: CARDINAL _ 8, pos: WindowManager.ScreenPos _ left]; Start1024Monitor: PROCEDURE [bitsPerPixel: CARDINAL _ 8, pos: WindowManager.ScreenPos _ left]; SetMonitorParams: PROCEDURE [bpp: CARDINAL _ 8, pos: WindowManager.ScreenPos _ left, mp: MonitorParam]; DoMonitorParams: PROCEDURE [screenWidth, screenHeight, refreshRate: CARDINAL, hBlankTime, vBlankTime: REAL, NTSCBoard: BOOLEAN _ FALSE, interlace: BOOLEAN _ TRUE] RETURNS [MonitorParam]; MonitorParam: TYPE = REF MonitorParamRec; MonitorParamRec: TYPE = RECORD [hRes: CARDINAL, vRes: CARDINAL, vc: ColorDisplayDorado.VerticalControl, hc: ColorDisplayDorado.HorizontalControl, cc: ColorDisplayDorado.ClockControl, lmarg: CARDINAL, truePixelFreq, truePixelTime: REAL]; pixelTime, pixelFreq: REAL; --desired pixel time in nanoseconds, rate in MHz truePixeltime, truePixelfreq: REAL; --actual pixel time in nanoseconds, rate in MHz lineTime, lineFreq: REAL; --desired line time in microseconds, rate in KHz trueLinetime, trueLinefreq: REAL; --actual line time in microseconds, rate in KHz fieldTime, fieldFreq: REAL; --desired time in microseconds for one field; rate in Hz hRamMaxAddr: CARDINAL; hBLeadLength: [0..377B]; hSTrailAddr: [0..377B]; hBTrailLength: CARDINAL; vbToVS: [0..377B]; vsToVS: [0..377B]; vsToVB: CARDINAL; visibleLines: CARDINAL; refFreq, nextFreq, bestFreq, fDiff, bestDiff: REAL; trueMul, nextMul, bestMul: [0..377B]; trueZero, bestZero, trueDiv, nextDiv, bestDiv: [0..17B]; }. ΒMonitorToolDefs.mesa Last edited by Ken Pier, July 30, 1985 5:26:32 pm PDT horizontal values needed by microcode vertical values needed by microcode parameters for mul/div calculation ΚΥ˜Icodešœ™Kšœ5™5K˜šΟk ˜ Kšœœ4˜LKšœœ ˜ K˜—šΟbœ œ˜ K˜KšΟn œ œ8œœ2œœ œœ˜ΤK˜KšŸœ œœ+˜]K˜KšŸœ œœ+˜^K˜KšŸœ œœ=˜gK˜KšŸœ œ*œœ œœ œœœ˜»K˜Kšœœœ˜)Kš œœœœœ€œ œ˜μK˜KšœœΟc0˜LKšœœ /˜SKšœœ 0˜JKšœœ /˜QKšœœ 8˜TK™Kšœ%™%Kšœ œ˜K˜K˜Kšœœ˜K™Kšœ#™#K˜K˜Kšœœ˜Kšœœ˜K™Kšœ"™"Kšœ.œ˜3K˜%K˜8K˜——…—J α