?? 6-2.plm
字號:
dissl4g=55h;
end;
if dissl2g=55h then
do;
vv=tiao1 and 0f0h;
vv=vv or key;
dissl2=dissl1*10+key;
key=0h;
w79=84h;
w79d=vv;
dissl2g=0h;
dissl3g=55h;
end;
if dissl1g=55h then
do;
vv=4*4*key;
dissl1=key;
tiao1=vv;
key=0h;
w79=84h;
w79d=vv;
dissl1g=0h;
dissl2g=55h;
end;
end;
if lokadrg=55h then /* n6 */
do;
if lokadr4g=55h then
do;
vv=lokadr3 or key;
lokadr4=vv;
key=0h;
w79=83h;
w79d=vv;
lokadr4g=0h;
end;
if lokadr3g=55h then
do;
vv=4*4*key;
lokadr3=vv;
key=0h;
w79=83h;
w79d=vv;
lokadr3g=0h;
lokadr4g=55h;
end;
if lokadr2g=55h then
do;
vv=lokadr1 or key;
lokadr2=vv;
key=0h;
w79=84h;
w79d=vv;
lokadr2g=0h;
lokadr3g=55h;
end;
if lokadr1g=55h then
do;
vv=4*4*key;
lokadr1=vv;
key=0h;
w79=84h;
w79d=vv;
lokadr1g=0h;
lokadr2g=55h;
end;
end;
if lokmerg=55h then /* n2 */
do;
if lokmer4g=55h then
do;
vv=lokmer3 or key;
lokmer4=vv;
key=0h;
w79=83h;
w79d=vv;
lokmer4g=0h;
end;
if lokmer3g=55h then
do;
vv=4*4*key;
lokmer3=vv;
key=0h;
w79=83h;
w79d=vv;
lokmer3g=0h;
lokmer4g=55h;
end;
if lokmer2g=55h then
do;
vv=lokmer1 or key;
lokmer2=vv;
key=0h;
w79=84h;
w79d=vv;
lokmer2g=0h;
lokmer3g=55h;
end;
if lokmer1g=55h then
do;
vv=4*4*key;
lokmer1=vv;
key=0h;
w79=84h;
w79d=vv;
lokmer1g=0h;
lokmer2g=55h;
end;
end;
if datag=55h then /* n9 */
do;
if day2g=55h then
do;
vv=tiao3 and 0f0h;
vv=vv or key;
day2=day1*10+key;
key=0h;
w79=84h;
w79d=vv;
day2g=0h;
end;
if day1g=55h then
do;
vv=4*4*key;
day1=key;
tiao3=vv;
key=0h;
w79=84h;
w79d=vv;
day1g=0h;
day2g=55h;
end;
if moun2g=55h then
do;
vv=tiao2 and 0f0h;
vv=vv or key;
key=0h;
w79=83h;
w79d=vv;
moun2g=0h;
day1g=55h;
end;
if moun1g=55h then
do;
vv=4*4*key;
moun1=key;
tiao2=vv;
key=0h;
w79=83h;
w79d=vv;
moun1g=0h;
moun2g=55h;
end;
if year2g=55h then
do;
vv=tiao1 and 0f0h;
vv=vv or key;
year2=year1*10+key;
key=0h;
w79=84h;
w79d=vv;
year2g=0h;
moun1g=55h;
end;
if year1g=55h then
do;
vv=4*4*key;
year1=key;
tiao1=vv;
key=0h;
w79=84h;
w79d=vv;
year1g=0h;
year2g=55h;
end;
end;
end;
end num;
/* 消音 */
sil: procedure;
if (error>0h or fire>0h) then
do;
call time(10000);
zsd87=zsd87 and 7fh;
w79=87h;
w79d=zsd87;
;
pt8255=pt8255 and 0eeh;
ptd=80h;
;
ptc=pt8255;
;
end;
end sil;
/* 退出 */
exc: procedure;
;
num1=0h;
num2=0h;
num3=0h;
fcung=0h;
f11g=0h;
f12g=0h;
f13g=0h;
thirdg=0h;
timg=0h;
shiledg=0h;
lokslg=0h;
disslg=0h;
lokerrg=0h;
lokadrg=0h;
datag=0h;
f1=0h;
f2=0h;
f3=0h;
f4=0h;
ping=0;
lockn4=0;
upp=0;
if (error=0h and fire=0h) then
do;
w79=82h;
w79d=0ffh;
w79=83h;
w79d=0ffh;
w79=84h;
w79d=0ffh;
w79=81h;
w79d=0ffh;
;
zsd87=zsd87 or 80h;
w79=87h;
w79d=zsd87;
numg=0;
num1=0;
num2=0;
num3=0;
num1g=0;
num2g=0;
num3g=0;
fcung=0;
f11g=0;
f12g=0;
f13g=0;
f11=0;
f12=0;
f13=0;
thirdg=0;
timg=0;
tim1g=0;
tim2g=0;
tim3g=0;
tim4g=0;
tim1=0;
tim2=0;
tim3=0;
tim4=0;
shiledg=0;
sl1g=0;
sl2g=0;
sl3g=0;
sl4g=0;
sl1=0;
sl2=0;
sl3=0;
sl4=0;
lokslg=0;
loksl1g=0;
loksl2g=0;
loksl3g=0;
loksl4g=0;
loksl1=0;
loksl2=0;
loksl3=0;
loksl4=0;
disslg=0;
dissl1g=0;
dissl2g=0;
dissl3g=0;
dissl4g=0;
dissl1=0;
dissl2=0;
dissl3=0;
dissl4=0;
lokadrg=0;
lokadr1g=0;
lokadr2g=0;
lokadr3g=0;
lokadr4g=0;
lokadr1=0;
lokadr2=0;
lokadr3=0;
lokadr4=0;
lokmerg=0;
lokmer1g=0;
lokmer2g=0;
lokmer3g=0;
lokmer4g=0;
lokmer1=0;
lokmer2=0;
lokmer3=0;
lokmer4=0;
lokerrg=0;
lokerr1g=0;
lokerr2g=0;
lokerr3g=0;
lokerr4g=0;
lokerr1=0;
lokerr2=0;
lokerr3=0;
lokerr4=0;
lokfirg=0;
lokfir1g=0;
lokfir2g=0;
lokfir3g=0;
lokfir4g=0;
lokfir1=0;
lokfir2=0;
lokfir3=0;
lokfir4=0;
end;
end exc;
/* 進入 */
inn: procedure;
numg=55h;
num1g=55h;
w79=82h;
w79d=0fh;
w79=83h;
w79d=0h;
end inn;
/* 下翻 */
down: procedure;
if lockn4=1 then
do;
upp=0;
call n4;
end;
if error>1 and fire=0h then
do;
ll=0;
do while ll<>55h;
fy=fy+1;
ll=tor(fy).err;
if ll=55h then
do;
w79=84h;
w79d=dec(tor(fy).flor);
w79=83h;
w79d=dec(tor(fy).numb);
w79=86h;
w79d=dec(tor(fy).shi);
w79=85h;
w79d=dec(tor(fy).fen);
end;
if fy=100h then fy=0h;
end;
end;
if fire>1 then
do;
ll=0;
do while ll<>55h;
fy=fy+1;
ll=tor(fy).fir;
if ll=55h then
do;
w79=84h;
w79d=dec(tor(fy).flor);
w79=83h;
w79d=dec(tor(fy).numb);
w79=81h;
w79d=dec(tor(fy).acunt);
if tor(fy).soji=55h then zsd88=zsd88 and 0fbh;
else zsd88=zsd88 or 4h;
w79=88h;
w79d=zsd88;
w79=86h;
w79d=dec(tor(fy).shi);
w79=85h;
w79d=dec(tor(fy).fen);
end;
if fy=100h then fy=0h;
end;
end;
end down;
/* 上翻 */
up:procedure;
if lockn4=1 then
do;
upp=1;
call n4;
end;
if error>1 and fire=0h then
do;
ll=0;
do while ll<>55h;
fy=fy-1;
ll=tor(fy).err;
if ll=55h then
do;
w79=84h;
w79d=dec(tor(fy).flor);
w79=83h;
w79d=dec(tor(fy).numb);
w79=86h;
w79d=dec(tor(fy).shi);
w79=85h;
w79d=dec(tor(fy).fen);
end;
if fy=1h then fy=101h;
end;
end;
if fire>1 then
do;
ll=0;
do while ll<>55h;
fy=fy-1;
ll=tor(fy).fir;
if ll=55h then
do;
w79=84h;
w79d=dec(tor(fy).flor);
w79=83h;
w79d=dec(tor(fy).numb);
w79=81h;
w79d=dec(tor(fy).acunt);
if tor(fy).soji=55h then zsd88=zsd88 and 0fbh;
else zsd88=zsd88 or 4h;
w79=88h;
w79d=zsd88;
w79=86h;
w79d=dec(tor(fy).shi);
w79=85h;
w79d=dec(tor(fy).fen);
end;
if fy=1h then fy=101h;
end;
end;
end up;
/* 自檢 */
n1: procedure;
;
f11=0h;
f12=0h;
fcung=0h;
pwm=0h;
if fire=0h and error=0h then
do;
disable;
;
w79=89h;
w79d=2h;
w79=87h;
w79d=0ffh;
w79=88h;
w79d=0fbh;
do ii=1 to 10;
call time(100);
end;
pt8255=pt8255 or 11h;
ptd=80h;
;
ptc=pt8255;
call time(50000);
;
w79=89h;
w79d=0a1h;
w79=88h;
w79d=4h;
w79=87h;
w79d=0h;
;
;
do ii=1 to 10;
call time(100);
end;
pt8255=pt8255 and 0feh;
ptd=80h;
;
ptc=pt8255;
call time(40000);
pt8255=pt8255 and 0eeh;
ptd=80h;
;
ptc=pt8255;
w79=89h;
w79d=zsd89;
w79=88h;
w79d=zsd88;
w79=87h;
w79d=zsd87;
w79=83h;
w79d=0ffh;
;
;
do ii=1 to 10;
call time(100);
end;
do i=0 to 162;
test(i)=test3(i);
end;
test(105)=h11/10+30h;
test(106)=(h11-h11/10*10)+30h;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -