//**************************************************************************************
//MEMA.D
//Definitions for MEMA.TST      						October 30, 1978
//**************************************************************************************

external
[
readmc12
mc1

Test1
Test2
Test3
Test4
Test5
Test6
Test7
Test8
Test9
Test10

//main program functions used by all tests

WCompare

EClock
RClock

SpeakTest

Ws //OS functions
Endofs
Gets
keys
FORMAT
FORMATN

//tester.d - external symbols for tester, defined in testfns.asm

Random
Timer
GetPinValue
SetPinValue
GetBusValue
SetBusValue
SetBusOpen
SetPinOpen
]

structure mcblock:
[
	firstbyte byte
	secondbyte byte
	thirdbyte byte = [ fifthhex bit 4; sixthhex bit 4] 
	fourthbyte byte
	fifthbyte byte
]

structure w:
[
	b0: bit
	b1: bit
	b2: bit
	b3: bit
	b4: bit
	b5: bit
	b6: bit
	b7: bit
	b8: bit
	b9: bit
	b10: bit
	b11: bit
	b12: bit
	b13: bit
	b14: bit
	b15: bit
]