GAL16V8
# XLd
# V1.1
# p-reg gal
# 
CK	s0  s1  E     I31   	I30    I29    I28    I27  	Gnd
/OE	I24 I25 I26   /0Ld       /PCLd  /IN1Ld /IN2Ld /ACCLd	Vcc
# 
#  drivers to L

PCLd	:= /E *  s1 *  s0 *  I31 *  I30		                	# jumping	(11CCC***)
	+  /E *  s1 *  s0 * /I31 * /I30 *               /I25 * /I24	# CMP && D==PC	(00CCCC00)
	+  /E *  s1 *  s0 *  I31 * /I30 *  I29 *  I28 * /I27 * /I26	# MOVE && S==PC (101100DD)
	+   E * /s1 * /s0 *  PCLd	# halten
	+   E *  s1 * /s0 *  PCLd	# halten
	+   E * /s1 *  s0 *  PCLd	# halten

IN1Ld	:= /E *  s1 *  s0 * /I31 * /I30 *               /I25 *  I24	# CMP && D==IN1
	+  /E *  s1 *  s0 *  I31 * /I30 *  I29 *  I28 * /I27 *  I26	# MV  && S==IN1
	+   E * /s1 * /s0 *  IN1Ld	# halten
	+   E *  s1 * /s0 *  IN1Ld	# halten
	+   E * /s1 *  s0 *  IN1Ld	# halten


IN2Ld	:= /E *  s1 *  s0 * /I31 * /I30 *                I25 *  /I24	# CMP && D==IN2
	+  /E *  s1 *  s0 *  I31 * /I30 *  I29 *  I28 *  I27 *  /I26	# MV  && S==IN2
	+   E * /s1 * /s0 *  IN2Ld	# halten
	+   E *  s1 * /s0 *  IN2Ld	# halten
	+   E * /s1 *  s0 *  IN2Ld	# halten

ACCLd   := /E *  s1 *  s0 * /I31 * /I30 *                I25 *   I24    # CMP && D==ACC	(00CCCC11)
        +  /E *  s1 *  s0 *  I31 * /I30 *  I29 *  I28 *  I27 *  /I26    # MV &&  S==ACC	(1011SS11)
        +   E * /s1 * /s0 *  ACCLd      # halten
        +   E *  s1 * /s0 *  ACCLd      # halten
        +   E * /s1 *  s0 *  ACCLd      # halten
				

0Ld 	:= /E * s1 * s0 * /I31 * I30 * I29 * I28			# LOADI
     	+  E * /s1 *        0Ld
     	+  E *  s1 * /s0 * 0Ld