【正文】 when 0110=line=x0000。 when 0111=line=x0000。 when 1000=line=x0000。 when 1001=line=x0000。 when 1010=line=x0000。 when 1011=line=x0000。 when 1100=line=x0000。 when 1101=line=x0000。 when 1110=line=x0000。 when 1111=line=x0000。 when others=null。 end case。 when 1100= case q is when0000=line=x0000。 when 0001=line=x03F8。 when 0010=line=x0248。 when 0011=line=x0000。 when 0100=line=x0000。 when 0101=line=x0000。 when 0110=line=x0000。 when 0111=line=x0000。 when 1000=line=x0000。 when 1001=line=x0000。 when 1010=line=x0000。 when 1011=line=x0000。 when 1100=line=x0000。 when 1101=line=x0000。 when 1110=line=x0000。 when 1111=line=x0000。 when others=null。 end case。 when 1101= “電”第一列 case q is when0000=line=x0000。 when 0001=line=x03F8。 when 0010=line=x0000。 when 0011=line=x0000。 when 0100=line=x0000。 when 0101=line=x0000。 when 0110=line=x0000。 when 0111=line=x0000。 when 1000=line=x0000。 when 1001=line=x0000。 when 1010=line=x0000。 when 1011=line=x0000。 when 1100=line=x0000。 when 1101=line=x0000。 when 1110=line=x0000。 when 1111=line=x0000。 when others=null。 end case。when 1110= “電”右清屏完畢 case q is when0000=line=x0000。 when 0001=line=x0000。 when 0010=line=x0000。 when 0011=line=x0000。 when 0100=line=x0000。 when 0101=line=x0000。 when 0110=line=x0000。 when 0111=line=x0000。 when 1000=line=x0000。 when 1001=line=x0000。 when 1010=line=x0000。 when 1011=line=x0000。 when 1100=line=x0000。 when 1101=line=x0000。 when 1110=line=x0000。 when 1111=line=x0000。 when others=null。 end case。 when others=null。 end case。elsif enable=10then enable為“10時(shí)，開始上清屏”case counter is counter為不同值時(shí)，送入對(duì)應(yīng)時(shí)刻 when 0000= “電”的代碼 case q is when 0000=line=x0000。 “電” when 0001=line=x03F8。 when 0010=line=x0248。 when 0011=line=x0248。 when 0100=line=x0248。 when 0101=line=x0248。 when 0110=line=x7FFF。 when 0111=line=x4248。 when 1000=line=x4248。 when 1001=line=x4248。 when 1010=line=x4248。 when 1011=line=x43F8。 when 1100=line=x4000。 when 1101=line=x4000。 when 1110=line=x7000。 when 1111=line=x0000。 when others=null。 end case。 when 0001= “電”清掉第一行 case q is when 0000=line=x0000。 when 0001=line=x03F8。 when 0010=line=x0248。 when 0011=line=x0248。 when 0100=line=x0248。 when 0101=line=x0248。 when 0110=line=x7FFE。 when 0111=line=x4248。 when 1000=line=x4248。 when 1001=line=x4248。 when 1010=line=x4248。 when 1011=line=x43F8。 when 1100=line=x4000。 when 1101=line=x4000。 when 1110=line=x7000。 when 1111=line=x0000。 when others=null。 end case。 when 0010= “電”清掉第二行 case q is when 0000=line=x0000。 when 0001=line=x03F8。 when 0010=line=x0248。 when 0011=line=x0248。 when 0100=line=x0248。 when 0101=line=x0248。 when 0110=line=x7FFC。 when 0111=line=x4248。 when 1000=line=x4248。 when 1001=line=x4248。 when 1010=line=x4248。 when 1011=line=x43F8。 when 1100=line=x4000。 when 1101=line=x4000。 when 1110=line=x7000。 when 1111=line=x0000。 when others=null。 end case。 when 0011= case q is when 0000=line=x0000。 when 0001=line=x03F8。 when 0010=line=x0248。 when 0011=line=x0248。 when 0100=line=x0248。 when 0101=line=x0248。 when 0110=line=x7FF8。 when 0111=line=x4248。 when 1000=line=x4248。 when 1001=line=x4248。 when 1010=line=x4248。 when 1011=line=x43F8。 when 1100=line=x4000。 when 1101=line=x4000。 when 1110=line=x7000。 when 1111=line=x0000。 when others=null。 end case。 when 0100= case q is when 0000=line=x0000。 when 0001=line=x03F0。 when 0010=line=x0240。 when 0011=line=x0240。 when 0100=line=x0240。 when 0101=line=x0240。 when 0110=line=x7FF0。 when 0111=line=x4240。 when 1000=line=x4240。