paomadeng.txt

MCS-51跑马灯程序,调用p1和p3口输出

ORG    0000H
       AJMP   star
       ORG    0030H
         
star:  mov  p1,#0ffh
       mov  a, p1
   clr  p1.7       
stlop: acall display 
       jb p3.4,stlop
we:    acall display
       acall d1ms 
       jnb p3.2,we 
count:   MOV P1,0FFH
         mov a,0ffh
         cjne a,#0ffh,stlop
         setb p1.7 
         

display:
       setb p1.7
 F1:   LCALL DELAY
       mov r2,#08h
d1v3:  mov r3,#0fah
d1v4:  cpl p1.6
       lcall  d5ms
       djnz r3,d1v4
       djnz r2,d1v3
   
       LCALL DELAY
       mov r2,#08h
d1v5:  mov r3,#0fah
d1v6:  cpl p1.5
       lcall  d5ms
       djnz r3,d1v6
       djnz r2,d1v5
   
       LCALL DELAY
       mov r2,#08h
d1v7:  mov r3,#0fah
d1v8:  cpl p1.4
       lcall  d5ms
       djnz r3,d1v8
       djnz r2,d1v7
       LCALL DELAY
       mov r2,#08h
d1v9:  mov r3,#0fah
d1v10:  cpl p1.3
       lcall  d5ms
       djnz r3,d1v10
       djnz r2,d1v9
  
       LCALL DELAY
       mov r2,#08h
d1v11:  mov r3,#0fah
d1v12:  cpl p1.2
       lcall  d5ms
       djnz r3,d1v12
       djnz r2,d1v11
   
       LCALL DELAY
       mov r2,#08h
d1v13:  mov r3,#0fah
d1v14:  cpl p1.1
       lcall  d5ms
       djnz r3,d1v14
       djnz r2,d1v13
   
       LCALL DELAY
       mov r2,#08h
d1v15:  mov r3,#0fah
d1v16:  cpl p1.0
       lcall  d5ms
       djnz r3,d1v16
       djnz r2,d1v15 
   
       LCALL DELAY
       mov r2,#08h
d1v17:  mov r3,#0fah
d1v18:  cpl p3.7
       lcall  d5ms
       djnz r3,d1v18
       djnz r2,d1v17 
   
       LCALL DELAY
       mov r2,#08h
d1v19:  mov r3,#0fah
d1v20:  cpl p3.5
       lcall  d5ms
       djnz r3,d1v20
       djnz r2,d1v19 
   
        LCALL DELAY
       mov r2,#08h
d1v21:  mov r3,#0fah
d1v22:  cpl p3.4
       lcall  d5ms
       djnz r3,d1v22
       djnz r2,d1v21 
   
       LCALL DELAY
       mov r2,#08h
d1v23:  mov r3,#0fah
d1v24:  cpl p3.3
       lcall  d5ms
       djnz r3,d1v24
       djnz r2,d1v23 
   
       LCALL DELAY
       mov r2,#08h
d1v25:  mov r3,#0fah
d1v26:  cpl p3.2
       lcall  d5ms
       djnz r3,d1v26
       djnz r2,d1v25
   
       LCALL DELAY
       mov r2,#08h
d1v27:  mov r3,#0fah
d1v28:  cpl p3.1
       lcall  d5ms
       djnz r3,d1v28
       djnz r2,d1v27 
   
       LCALL DELAY
       mov r2,#08h
d1v29:  mov r3,#0fah
d1v30:  cpl p3.0
       lcall  d5ms
       djnz r3,d1v30
       djnz r2,d1v29 
       LJMP  F1 
D1MS: 
         MOV R7,#2
         DJNZ R7,$
         RET        
d5ms:  mov r7,#032h
loop:  nop
       nop
       djnz r7,loop
        ret
DELAY:MOV  R6,#010H
 D3:  MOV  R5,#0DEH
 D1:  MOV  R4,#0DEH
 D2: DJNZ R4,D2
       DJNZ R5,D1
        DJNZ R6,D3
       RET
       end