//============================================================
# ls273a source
//74LS273: Octal D Flip-Flops
//rbd 7-17-97: Added Hold row to table
//dm 9-4-97: Added IO_PAIRS.
//  Added io parameter to input LOAD.
//  Reduced ttlh_val/tthl_val to just tt_val.
//  Removed v1 and r1 parameters from Vcc LOAD.
//  Modified function to use internal register.
//  Use 5.25V for ricc max. calculations.
// jjt 9/2/2001: copied from LS273 and inverted MR's operation
//============================================================
INPUTS VCC, GND, MR, CP, D7, D6, D5, D4, D3, D2, D1, D0;
OUTPUTS VCC_LD, MR_LD, CP_LD, D7_LD, D6_LD, D5_LD, D4_LD,
        D3_LD, D2_LD, D1_LD, D0_LD, Q7, Q6, Q5, Q4, Q3, Q2,
	    Q1, Q0;
INTEGERS internal_reg;
REALS tt_val, tplh_val, tphl_val, ril_val, rih_val, ricc_val,
	  ts_val, th_val, CP_twl, MR_tw, trec_val;

PWR_GND_PINS(VCC,GND);		//set pwr_param and gnd_param values
SUPPLY_MIN_MAX(4.75,5.25);	//check for min supply=4.75 and max supply=5.25
VOL_VOH_MIN(0.2,-0.4,0.1);	//set min vol_param=gnd_param+0.2, max voh_param=pwr_param-0.4
VIL_VIH_VALUE(1.25,1.35);	//set input threshold values: vil and vih
IO_PAIRS(MR:MR_LD, CP:CP_LD, D7:D7_LD, D6:D6_LD, D5:D5_LD,
         D4:D4_LD, D3:D3_LD, D2:D2_LD, D1:D1_LD, D0:D0_LD);

IF (init_sim) THEN
  BEGIN
//MESSAGE("time\tMR\tCP\tD0\tD1\tD2\tD3\tD4\tD5\tD6\tD7\tQ0\tQ1\tQ2\tQ3\tQ4\tQ5\tQ6\tQ7");
	tt_val= (MIN_TYP_MAX(tt_param: NULL, 5n,  NULL));

    tplh_val= (MIN_TYP_MAX(tp_param: NULL, 17n, 27n));
	tphl_val= (MIN_TYP_MAX(tp_param: NULL, 18n, 27n));

	CP_twl= (20n);
	MR_tw= (20n);
	ts_val= (20n);
	th_val= (5n);
	trec_val= (25n);

	//LS std output drive IOL max=8mA @ vol=0.4V: rol_param=(0.4-vol_param)/8mA
    rol_param= (MIN_TYP_MAX(drv_param: NULL, 25,  NULL));

	//LS std output drive IOH max=-400uA @ voh=4.5V: roh_param=(voh_param-4.5)/400uA
    roh_param= (MIN_TYP_MAX(drv_param: NULL, 250, NULL));

    //LS input load IIH=20uA @ 2.7V: ril= (2.7-vol_param)/20uA;
	ril_val= (MIN_TYP_MAX(ld_param: NULL, NULL, 125k));

    //LS input load IIL=-0.4mA @ 0.4V: r1= (voh_param-0.4)/0.4mA
	rih_val= (MIN_TYP_MAX(ld_param: NULL, NULL, 10.5k));

	//Icc @ 5V with output high: 294.1= 5/17mA typical, 194.4= 5.25/27mA max
	ricc_val= (MIN_TYP_MAX(i_param: NULL, 294.1, 194.4));

    internal_reg= (0);
	STATE Q7 Q6 Q5 Q4 Q3 Q2 Q1 Q0 = ZERO;	//initialize output
	EXIT;
  END;

DRIVE Q7 Q6 Q5 Q4 Q3 Q2 Q1 Q0 =
  (v0=vol_param,v1=voh_param,ttlh=tt_val,tthl=tt_val);
LOAD MR_LD CP_LD D7_LD D6_LD D5_LD D4_LD D3_LD D2_LD D1_LD D0_LD =
  (v0=vol_param,r0=ril_val,v1=voh_param,r1=rih_val,io=1e9,t=1p);

IF (MR) THEN
  BEGIN
    IF (CHANGED_LH(CP)) THEN
	  BEGIN
	    internal_reg= (NUMBER(D7 D6 D5 D4 D3 D2 D1 D0));
	  END;
  ELSE
    internal_reg= (0);
  END;

STATE_BIT Q0 Q1 Q2 Q3 Q4 Q5 Q6 Q7 = (internal_reg);

//MESSAGE("%fs\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d",
//	   present_time,MR,CP,D0,D1,D2,D3,D4,D5,D6,D7,Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7);
LOAD VCC_LD = (v0=gnd_param,r0=ricc_val,v1=pwr_param,r1=1e6,t=1p);

IF (warn_param) THEN
  BEGIN
	WIDTH(MR Twl=MR_tw Twh=MR_tw "MR");
	IF ~(MR) THEN
	  BEGIN
	    WIDTH(CP Twl=CP_twl "CP");
		SETUP_HOLD(CP=LH D0 D1 D2 D3 D4 D5 D6 D7 Ts=ts_val Th=th_val "Dn->CP");
	  END;
	RECOVER(CP=LH MR Trech=trec_val "CP->MR");
  END;

DELAY Q7 Q6 Q5 Q4 Q3 Q2 Q1 Q0 =
  CASE (TRAN_LH) : tplh_val
  CASE (TRAN_HL) : tphl_val
END;
EXIT;