dpj.asm

ORG 0000H ljmp star org 0003h ljmp $ star:mov p1,#00h mov p2,#00h mov p3,#00h int: setb ea

ORG 0000H
ljmp star
org 0003h
ljmp $
star:mov p1,#00h
mov p2,#00h
mov p3,#00h
int:
setb ea

jiance bit p1.0
shoud bit p1.1
zid bit p1.2
syajin bit p1.3
smanjin bit p1.4
jkaiguan bit p1.5
xianwei bit p1.6
tingzhi bit p3.2
out:
yajin bit p2.0
manjin bit p2.1
kuaijin bit p2.2
hanjie bit p2.3

zsjc:jnb shoud,zdng
                             ;自动手动判断
     ljmp shoudong
zdng:jnb zid,zsjc

      ljmp zdong






shoudong:jnb syajin,smj                         ;手动程序
    setb yajin
    jb syajin,$
    clr yajin
smj:jnb smanjin,huiwei
    setb manjin
    jb smanjin,$
    clr manjin

huiwei:jnb shoud,zsjc
    ljmp shoudong


zdong:jnb jkaiguan,bzdon                  ;自动检测程序
        ljmp zidong
bzdon:jnb zid,zsjc
         ljmp zdong

zidong:setb yajin                            ;自动程序
yajinyc:lcall shijian
       djnz r2,yajinyc
       setb manjin
       setb hanjie
       jnb xianwei,$
       clr manjin
       setb kuaijin
kuaijinc:lcall shijian
       djnz r3,kuaijinc
       clr kuaijin
       clr hanjie
lengquec:lcall shijian
       djnz r4,lengquec
       clr yajin
       ljmp zsjc










shijian:mov r0,#20
chongt:mov r1,#250
        djnz r1,$
        djnz r0,chongt
        ret