DIRECTORY ; CKViewerTables: DEFINITIONS = { 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]; }. DCKViewerTables.mesa Last edited by Ken Pier on August 3, 1983 4:04 pm 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 Êð˜J™J™1J™šÏk ˜ J˜—J˜Jšœ œ˜J˜Jš œœœœœœÏc+˜EJšœ œœ ž˜Bšœ œœž˜8Jšœœ ˜#Jšœ˜J˜—J˜JšÏn ™ J™šŸœœ˜JšœW™W—J˜šŸ œœ˜J™—J™šŸ œœ ˜J™>—J˜šŸ œœ˜J™>—J™šŸ œœ ˜J™>—J˜šŸœœ˜J™—J˜šŸœœž˜>J™"—J˜šŸœœ˜.J™|—J˜šŸ œœœ˜+J™D—J˜šŸ œœ ˜J™!—J˜šŸœœ˜J™—J˜šŸœœ œœ ˜XJ™]—J™šŸœœœœ*˜[J™ —J™JšŸœœ'œœ˜YJ˜JšŸœœ œ ˜+J˜J˜—…—Ò