0001 |MODULE romem
0002 |
0003 |TITLE 'EP-ROM 27C101 EMURATOR 256k*4'
0004 |
0005 |
0006 |	C = .C.;
0007 |	X = .X.;
0008 |	Z = .Z.;
0009 |	L = 0;
0010 |	H = 1;
0011 |
0012 |
0013 |Declarations
0014 |
0015 |	A0,A1,A2,A3,A4,A5,A6,A7	Pin	37..44	istype	'reg,pos,buffer';
0016 |	A8,A9,A10,A11,A12,A13,A14	Pin	3..9	istype	'reg,pos,buffer';
0017 |	A15,A16	Node		istype	'reg,pos,buffer';
0018 |
0019 |	EA15,EA16	Pin	15,16;
0020 |	!EMCE	Pin	17;
0021 |	!EMOE	Pin	18;
0022 |	AINC	Pin	19;
0023 |	WR	Pin	20;
0024 |	!CLR	Pin	21;
0025 |	DIR	Pin	22;
0026 |
0027 |	!BUSENB	Pin	25	istype	'neg,buffer';
0028 |	!EMDBEN	Pin	26	istype	'neg,buffer';
0029 |	!ATDBEN	Pin	27	istype	'neg,buffer';
0030 |	!WE	Pin	28	istype	'neg,buffer';
0031 |	!CS0	Pin	29	istype	'neg,buffer';
0032 |	!CS1	Pin	30	istype	'neg,buffer';
0033 |	!CS2	Pin	31	istype	'neg,buffer';
0034 |	!CS3	Pin	32	istype	'neg,buffer';
0035 |	!OE	Pin	10	istype	'neg,buffer';
0036 |
0037 |	Addr	= [A16..A0];
0038 |	AddrPin	= [A14..A0];
0039 |
0040 |
0041 |Test_vectors
0042 |	([CLR,AINC,DIR,EA16,EA15,EMCE,EMOE,WR] -> [AddrPin,BUSENB,EMDBEN,ATDBEN,CS0,CS1,CS2,CS3,OE,WE])
0043 |	 [ 1 ,  0 , 1 ,  X ,  X ,  X ,  X , 0] -> [^h00000,   0  ,   0  ,   1  , 1 , 0 , 0 , 0 , 0, 0];
0044 |	 [ 0 ,  C , 1 ,  X ,  X ,  X ,  X , 1] -> [^h00001,   0  ,   0  ,   1  , 1 , 0 , 0 , 0 , 0, 1];
0045 |	 [ 0 ,  C , 1 ,  X ,  X ,  X ,  X , 0] -> [^h00002,   0  ,   0  ,   1  , 1 , 0 , 0 , 0 , 0, 0];
0046 |	 [ 1 ,  C , 1 ,  X ,  X ,  X ,  X , 1] -> [^h00000,   0  ,   0  ,   1  , 1 , 0 , 0 , 0 , 0, 1];
0047 |
0048 |	 [ X ,  X , 0 ,  0 ,  0 ,  0 ,  0 , 0] -> [   Z   ,   1  ,   0  ,   0  , 0 , 0 , 0 , 0 , 0, 0];
0049 |	 [ X ,  X , 0 ,  0 ,  0 ,  1 ,  0 , X] -> [   Z   ,   1  ,   1  ,   0  , 1 , 0 , 0 , 0 , 0, 0];
0050 |	 [ X ,  X , 0 ,  0 ,  1 ,  0 ,  0 , X] -> [   Z   ,   1  ,   0  ,   0  , 0 , 0 , 0 , 0 , 0, 0];
0051 |	 [ X ,  X , 0 ,  0 ,  1 ,  1 ,  0 , X] -> [   Z   ,   1  ,   1  ,   0  , 0 , 1 , 0 , 0 , 0, 0];
0052 |	 [ X ,  X , 0 ,  1 ,  0 ,  0 ,  0 , X] -> [   Z   ,   1  ,   0  ,   0  , 0 , 0 , 0 , 0 , 0, 0];
0053 |	 [ X ,  X , 0 ,  1 ,  0 ,  1 ,  0 , X] -> [   Z   ,   1  ,   1  ,   0  , 0 , 0 , 1 , 0 , 0, 0];
0054 |	 [ X ,  X , 0 ,  1 ,  1 ,  0 ,  0 , X] -> [   Z   ,   1  ,   0  ,   0  , 0 , 0 , 0 , 0 , 0, 0];
0055 |	 [ X ,  X , 0 ,  1 ,  1 ,  1 ,  0 , X] -> [   Z   ,   1  ,   1  ,   0  , 0 , 0 , 0 , 1 , 0, 0];
0056 |	 [ X ,  X , 0 ,  0 ,  0 ,  0 ,  1 , X] -> [   Z   ,   1  ,   0  ,   0  , 0 , 0 , 0 , 0 , 1, 0];
0057 |	 [ X ,  X , 0 ,  0 ,  0 ,  0 ,  0 , 1] -> [   Z   ,   1  ,   0  ,   0  , 0 , 0 , 0 , 0 , 0, 0];
0058 |
0059 |END
0060 |