CKViewerTables: CEDAR DEFINITIONS= BEGINTable: TYPE = {A,B,C,H};  --color tables and HRam in display hardwareAddress: TYPE = CARDINAL[0..3777B]; --color table address, 11 bitsTableData: TYPE = RECORD [--all Tables input data formatred, green, blue: CARDINAL[0..377B]];InitializeTest: PROC [];FinalizeTest: PROC [];TakeTable: PROC [t: Table];TakeAllTables: PROC [];ReleaseTable: PROC [t: Table];ReleaseAllTables: PROC [];LoadTableAddress: PROC [t: Table, a: Address]; --table addressWriteTableData: PROC [t: Table, d: TableData];ReadTables: PROC [] RETURNS [d: TableData];ClearTable: PROC [t: Table];ClearAllTables: PROC [];VerifyClearedTable: PROC [t: Table] RETURNS [ok: BOOLEAN, index: Address, d: TableData];VerifyClearedTables: PROC [] RETURNS [ok: BOOLEAN, t: Table, index: Address, d: TableData];Compare: PROC [t: Table, a: Address, cd: TableData] RETURNS [ok: BOOLEAN, rd: TableData];GetSize: PROC [t: Table] RETURNS [Address];END.   Ø  CKViewerTables.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Last edited by Ken Pier on August 3, 1983 4:04 pmDoug Wyatt, April 30, 1985 6:29:43 pm PDTRick Beach, November 25, 1985 1:42:02 pm PSTProceduresdisconnect display, verify existence of M board, set table modes to tableEnable (above)release HRam and sync signalsdoes a dummy operation to capture the table data/address pathsdoes a dummy operation to capture the table data/address pathsdoes a dummy operation to release the table data/address pathsreleases all tablesloads specified table with addresswrites tabledata d at the current table address and increments that address; uses rgb for ATable, b for BTable, g for CTablereads 24 bits at the current table address; does not change address Clears the entire table to zeroesclears all tables to zerochecks that entire table is zeroes; returns TRUE if OK, or FALSE and the first failed addresschecks all tables for all zeroes Ê  ˜ code™Kšœ
Ïmœ1™<K™1K™)K™,—K™ KšÐlnœÏkœŸ˜!šœŸ˜K˜ KšœŸœŸœŸœŸœŸœÏc+˜EKšœ	ŸœŸœ ˜BšœŸœŸœ ˜8KšœŸœ	˜#Kšœ˜K˜ ——headšœ
™
šÏnœŸœ˜KšœW™W—K˜ š¡œŸœ˜K™—K™ š¡	œŸœ˜K™>—K˜ š¡œŸœ˜K™>—K™ š¡œŸœ˜K™>—K˜ š¡œŸœ˜K™—K˜ š¡œŸœ ˜>K™"—K˜ š¡œŸœ˜.K™|—K˜ š¡
œŸœŸœ˜+K™D—K˜ š¡
œŸœ˜K™!—K˜ š¡œŸœ˜K™—K˜ š¡œŸœŸœŸœ ˜XK™]—K™ š¡œŸœŸœŸœ*˜[K™ —K™ Kš¡œŸœ'ŸœŸœ˜YK˜ Kš¡œŸœŸœ˜+—K˜ KšŸœ˜— …—    Ð  	¸  