红心J 

 
SUB_NUM:MOV A,P1
              CJNE A,P1,SUB_NUM
              PUSH ACC     
              ANL A,#0FH
              MOV R0,A
              POP ACC
              SWAP A
              ANL A,#0FH
              CLR  C
              SUBB A,R0
              MOV R5,A
              JC SUB_END
              JNZ SUB_END
              INC R5
SUB_END:RET

发表时间:2003年4月26日9:58:55