?? 6-2.plm
字號(hào):
low3=0h;
end;
if toc(1).mer>estep then toc(1).ave=1;
if toc(2).mer>estep then toc(2).ave=1;
if toc(3).mer>estep then toc(3).ave=1;
if (toc(1).ave+toc(2).ave+toc(3).ave)<1 then tor(i+128).err=55h;
do ii=1 to 8;
null=hsi_time;
end;
end err3;
err4: procedure;
do ii=1 to 3;
portd=80h;
;
portb=0ffh-i;
;
portc=10h;
;
latter=0h;
latt=timer1;
;
do while latter <1ff0h;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
tod(ii).mer=(high4-low4)/500;
high4=0h;
low4=0h;
end;
if tod(1).mer>estep then tod(1).ave=1;
if tod(2).mer>estep then tod(2).ave=1;
if tod(3).mer>estep then tod(3).ave=1;
if (tod(1).ave+tod(2).ave+tod(3).ave)<1 then tor(i+192).err=55h;
do ii=1 to 8;
null=hsi_time;
end;
end err4;
fir1: procedure;
do ii=1 to 3;
portd=80h;
;
portb=0ffh-i;
;
portc=10h;
;
latter=0h;
latt=timer1;
;
do while latter <1ff0h;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
toa(ii).mer=(high1-low1)/500;
high1=0h;
low1=0h;
end;
if toa(1).mer>40 then toa(1).ave=1;
if toa(2).mer>40 then toa(2).ave=1;
if toa(3).mer>40 then toa(3).ave=1;
do ii=1 to 8;
null=hsi_time;
end;
end fir1;
fir2: procedure;
do ii=1 to 3;
portd=80h;
;
portb=0ffh-i;
;
portc=10h;
;
latter=0h;
latt=timer1;
;
do while latter <1ff0h;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
tob(ii).mer=(high2-low2)/500;
high2=0h;
low2=0h;
end;
if tob(1).mer>40 then tob(1).ave=1;
if tob(2).mer>40 then tob(2).ave=1;
if tob(3).mer>40 then tob(3).ave=1;
do ii=1 to 8;
null=hsi_time;
end;
end fir2;
do ii=1 to 3;
portd=80h;
;
portb=0ffh-i;
;
portc=10h;
;
latter=0h;
latt=timer1;
;
do while latter <1ff0h;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
toc(ii).mer=(high3-low3)/500;
high3=0h;
low3=0h;
end;
if toc(1).mer>40 then toc(1).ave=1;
if toc(2).mer>40 then toc(2).ave=1;
if toc(3).mer>40 then toc(3).ave=1;
do ii=1 to 8;
null=hsi_time;
end;
end fir3;
fir4: procedure;
do ii=1 to 3;
portd=80h;
;
portb=0ffh-i;
;
portc=10h;
;
latter=0h;
latt=timer1;
;
do while latter <1ff0h;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
tod(ii).mer=(high4-low4)/500;
high4=0h;
low4=0h;
end;
if tod(1).mer>40 then tod(1).ave=1;
if tod(2).mer>40 then tod(2).ave=1;
if tod(3).mer>40 then tod(3).ave=1;
do ii=1 to 8;
null=hsi_time;
end;
end fir4;
lamp1:procedure;
portd=80h;
;
portb=0ffh-i;
;
portc=9eh;
;
call time(200);
portd=80h;
;
portc=1fh;
call time(2800);
do ii=1 to 8;
null=hsi_time;
end;
end lamp1;
lamp2:procedure;
portd=80h;
;
portb=0ffh-i;
;
portc=9dh;
;
call time(200);
portd=80h;
;
portc=1fh;
call time(2800);
do ii=1 to 8;
null=hsi_time;
end;
end lamp2;
lamp3:procedure;
portd=80h;
;
portb=0ffh-i;
;
portc=9bh;
;
call time(200);
portd=80h;
;
portc=1fh;
call time(2800);
do ii=1 to 8;
null=hsi_time;
end;
end lamp3;
lamp4:procedure;
portd=80h;
;
portb=0ffh-i;
;
portc=97h;
;
call time(200);
portd=80h;
;
portc=1fh;
call time(2800);
do ii=1 to 8;
null=hsi_time;
end;
end lamp4;
firxun: procedure;
if tor(i).fir=0 then
do;
portd=80h;
;
portb=0ffh-i;
;
portc=1eh;
;
latt=timer1;
latter=0h;
;
do while latter <1ff0h;
;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
tor(i).mer=(high1-low1)/500;
high1=0h;
low1=0h;
end;
if tor(i+64).fir=0 then
do;
portd=80h;
;
portb=0ffh-i;
;
portc=1dh;
;
latt=timer1;
latter=0h;
;
do while latter <1ff0h;
;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
tor(i+64).mer=(high2-low2)/500;
high2=0h;
low2=0h;
end;
if tor(i+128).fir=0 then
do;
portd=80h;
;
portb=0ffh-i;
;
portc=1bh;
;
latt=timer1;
latter=0h;
;
do while latter <1ff0h;
;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
tor(i+128).mer=(high3-low3)/500;
high3=0h;
low3=0h;
end;
if tor(i+192).fir=0 then
do;
portd=80h;
;
portb=0ffh-i;
;
portc=17h;
;
latt=timer1;
latter=0h;
;
do while latter <1ff0h;
;
;
;
latter=timer1-latt;
end;
;
portd=80h;
;
portc=1fh;
call time(2800);
tor(i+192).mer=(high4-low4)/500;
high4=0h;
low4=0h;
end;
end firxun;
print:procedure;
do j=0 to prnumb
;
pta=test(j);
;
ioport1=0fh;
;
kw=10h;
ptm=sec-1;
do while kw>8h;
ptm=sec-ptm;
if ptm>5 then goto zz;
ad_command=8h;
do iii=1h to 200h;
;
end;
kw=high(ad_result);
end;
ioport1=0h;
end;
call time(10000);
zz: ;
end print;
/*
ad5:procedure;
end;
adbet:procedure;
end; */
adlin:procedure;
a=0h;
b=0h;
ad_command=0eh;
call time(10);
wsr=0;
a=low(ad_result);
b=high(ad_result);
if b<20h and errzx=0 and fire=0 then
do;
pt8255=pt8255 or 18h;
ptd=80h;
;
;
ptc=pt8255;
zsd87=zsd87 and 0fdh;
w79=87h;
w79d=zsd87;
zsd89=zsd89 or 80h;
w79=89h;
w79d=zsd89;
do i=0 to 178;
test(i)=test5(i);
end;
test(161)=year3+30h;
test(162)=year4+30h;
test(164)=moun1+30h;
test(165)=moun2+30h;
test(167)=day1+30h;
test(168)=day2+30h;
test(171)=hour/10+30h;
test(172)=(hour-hour/10*10)+30h;
test(174)=min/10+30h;
prnumb=178;
call print;
errzx=55h;
error=error+1;
end;
end adlin;
main: R0=0;
R0=0;
R0=0;
wsr=0h;
call time(1000);
w79=8h;
w79=30h;
w79=0dfh;
;
call time(100)
;
w79=89h;
w79d=62h;
;
disable;
;
call time(1000);
;
wsr=0;
;
int_pending=0;
int_mask=0ach;
ioc0=55h;
ioc1=1h;
hsi_mode=0ffh;
hso_command=38h;
t1=timer1;
hso_time=t1+0a36bh;
call time(1000);
num1=0h;
num2=0h;
num3=0h;
fcung=0h;
ii=0;
ms=0;
ss=0;
sec=0;
min=0;
hour=0;
k=0;
g=0;
m=0;
rebin=hour+1;
zsd87=0dfh;
zsd88=0ffh;
zsd89=62h;
pt8255=0h;
fire=0h;
error=0h;
estep=0h;
tem=0h;
temp=0h;
high1=0h;
high2=0h;
high3=0h;
high4=0h;
low1=0h;
low2=0h;
low3=0h;
low4=0h;
yj=0h;
ysbj=0h;
qdo=0;
qd=0;
ping=0;
pingbi=0;
lockn4=0;
upp=0;
latt=0h;
latter=0h;
err24=0h;
err5=0h;
ren7=0h;
errbd=0h;
errzx=0h;
year1=1h;
year2=9h;
year3=9h;
year4=8h;
moun1=1h;
moun2=1h;
day1=1h;
day2=6h;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -