谁能帮我看一下【dota吧】

dota吧关注：4,646,581贴子：155,327,841

6回复贴，共1页

谁能帮我看一下

            ORG 0
        LJMP MAIN
        ORG 0003H
        LJMP JIA
        ORG 0013H
        LJMP JIAN
        ORG 0030H
   MAIN:     MOV 30H,#0
        MOV 31H,#0
        MOV 32H,#0
        MOV 33H,#0
            SETB IT0
            SETB IT1
        SETB EA
        SETB EX0
        SETB PX0
        SETB EX1
        MOV DPTR,#TAB
   HERE:     LCALL DIY
            AJMP HERE
   JIA:      PUSH PSW
            PUSH ACC
            INC 33H
            MOV A,33H
        CJNE A,#0AH,RETN
        MOV 33H,#0
        INC 32H
        MOV A,32H
        CJNE A,#0AH,RETN
        MOV 32H,#0
        INC 31H
        MOV A,31H
        CJNE A,#0AH,RETN
        MOV 31H,#0
        INC 30H
        MOV A,30H
        CJNE A,#0AH,RETN
        MOV 30H,#0
RETN:       POP ACC
            POP PSW
            RETI
JIAN:       PUSH PSW
            PUSH ACC
            DEC 33H
            MOV A,33H
        CJNE A,#0FFH,RETN
        MOV 33H,#9
        DEC 32H
        MOV A,32H
        CJNE A,#0FFH,RETN

送TA礼物

IP属地:北京

1楼2010-01-19 08:48回复

        MOV 32H,#9
        DEC 31H
        MOV A,31H
        CJNE A,#0FFH,RETN
        MOV 31H,#9
        DEC 30H
        MOV A,30H
        CJNE A,#0FFH,RETN
        MOV 30H,#0
        LJMP RETN
DIY:       SETB P2.3
            MOV A,33H
         MOVC A,@A+DPTR
        MOV P0,A
        LCALL DEL
        CLR P2.3
        SETB P2.2
        MOV A,32H
        MOVC A,@A+DPTR
        MOV P0,A
        LCALL DEL
        CLR P2.2
        SETB P2.1
        MOV A,31H
        MOVC A,@A+DPTR
        MOV P0,A
        LCALL DEL
        CLR P2.1
        SETB P2.0
        MOV A,30H
        MOVC A,@A+DPTR
        MOV P0,A
        LCALL DEL
        CLR P2.0
        RET
DEL:        MOV R2,#1
DEL1:       MOV R3,#200
            DJNZ R3,$
        DJNZ R2,DEL
        RET

TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
      END

IP属地:北京

2楼2010-01-19 08:48