MODULE CTL_1
TITLE'hard-wired control unit'
"INPUT
CLR PIN 3 ; "CLR=CLR#
MF,T1,W1,W2,W3,W4 PIN 5..10;
IR4,IR5,IR6,IR7 PIN 12..15;
SWC,SWB,SWA,C PIN 26..29;
"OUTPUT
MF1,SSTO NODE ISTYPE 'COM';
RUN,STO NODE ISTYPE 'REG';
LDIR,LDPC,PC_ADD,M4 PIN 30..33 ISTYPE'COM';
LDAR1,AR1_INC,M3,CEL,LRW PIN 35..39 ISTYPE 'COM';
LDER,SW_BUS,RS_BUS,WRD PIN 45..48 ISTYPE 'COM';
"RS_BUS=RS_BUS#,SW_BUS=SW_BUS#,CEL=CEL#
LDDR1,S2,S1,S0,ALU_BUS PIN 52..56 ISTYPE 'COM';
TJ,SKIP PIN 69,70 ISTYPE 'COM';
CLK=.C.;
EQUATIONS
MF1=!CLR&MF#T1;
RUN :=CLR&!STO#CLR&RUN;
RUN.CLK=MF1;
SSTO=!STO&RUN &W4;
STO:= CLR&SSTO #CLR &STO;
STO.CLK =MF1;
LDIR=STO & !SWC &!SWB & !SWA &W1 # STO & ! SWC & SWB &SWA &W2 #STO & SWC &!SWB &!SWA & W2;
LDPC=!STO & !SWC &! SWB &!SWA &W4
#STO &!SWC &!SWB &!SWA &W4 &IR7 &!IR6 &!IR5 &!IR4
#STO & !SWC&!SWB&!SWA&W4 &IR7 &!IR6 &!IR5 &IR4 &C;
PC_ADD=STO &!SWC &!SWB &!SWA &W4 &IR7 &!IR6 &!IR5 &IR4 &C;
M4=!STO &!SWC &!SWB &!SWA &W4
#STO &!SWC &!SWB &!SWA &IR7 &!IR6 &!IR5 &!IR4 &W4;
LDAR1=!STO & !SWC & !SWB & SWA &W4
#!STO & !SWC &SWB & !SWA &W4
#!STO & !SWC & SWB & SWA & W4
#!STO & SWC & !SWB & !SWA & W4
#STO & !SWC & !SWB & !SWA & W1
#STO & !SWC & !SWB & !SWA & W4
#STO & !SWC & !SWB & !SWA & !IR7 & IR6 & !IR5 & IR4 & W2
#STO & !SWC & !SWB & !SWA & !IR7 & IR6 & !IR5 & !IR4 & W2;
AR1_INC = STO & !SWC & !SWB & SWA & W4
# STO & !SWC & SWB & !SWA & W4;
M3 = !STO & !SWC & SWB & SWA & W4
# !STO & SWC & !SWB & !SWA & W4;
LDER = STO & !SWC & SWB & SWA & W3
# STO & !SWC & !SWB & !SWA & W3 & !IR7 & !IR6 & !IR5 & !IR4
# STO & !SWC & !SWB & !SWA & W4 & !IR7 & !IR6 & !IR5 & IR4
# STO & !SWC & !SWB & !SWA & W3 & !IR7 & !IR6 & IR5 & !IR4
# STO & !SWC & !SWB & !SWA & W3 & !IR7 & !IR6 & IR5 & IR4
# STO & !SWC & !SWB & !SWA & W3 & !IR7 & IR6 & IR5 & !IR4;
WRD = STO & !SWC & SWB & SWA & W4
# STO & !SWC & !SWB & !SWA & W4 & !IR7 & !IR6 & !IR5 & !IR4
# STO & !SWC & !SWB & !SWA & W4 & !IR7 & !IR6 & !IR5 & IR4
# STO & !SWC & !SWB & !SWA & W4 & !IR7 & !IR6 & IR5 & !IR4
# STO & !SWC & !SWB & !SWA & W4 & !IR7 & !IR6 & IR5 & IR4
# STO & !SWC & !SWB & !SWA & W4 & !IR7 & IR6 & !IR5 & IR4;
SW_BUS =!( !STO & W4 & !SWC & !SWB & !SWA
# !STO & W4 & !SWC & !SWB & SWA
# !STO & W4 & !SWC & SWB & !SWA
# !STO & W4 & !SWC & SWB & SWA
# !STO & W4 & SWC & !SWB & !SWA
# STO & W1 & !SWC & SWB & !SWA
# STO & W1 & !SWC & SWB & SWA
# STO & W1 & SWC & !SWB & !SWA
# STO & W3 & !SWC & SWB & SWA);
RS_BUS =!( STO & SWC & !SWB & !SWA & W4
# STO & !SWC & !SWB & !SWA & W2 & !IR7 & IR6 & !IR5 & IR4
# STO & !SWC & !SWB & !SWA & W2 & !IR7 & IR6 & !IR5 & !IR4
# STO & !SWC & !SWB & !SWA & W4 & IR7 & !IR6 & !IR5 & !IR4);
ALU_BUS = STO & !SWC &a
mp; !SWB & !SWA & W3 & !IR7 & !IR6 & !IR5 & !IR4
# STO & !SWC & !SWB & !SWA & W3 & !IR7 & !IR6