kgl2051.asm

AT2051单片机用的6路开关量程序

	org 0000h
Q0000: LJMP  Q01C3
Q0018: CLR   p3.3
              SETB  p3.3
              RET
	org 0023h
Q0023: LJMP  Q00C7
Q0026: CLR   20H.0
              MOV   87h,21H
              MOV   TMOD,#20H
              SETB  EA
              SETB  ES
              MOV   TH1,22H
              MOV   TL1,22H
              MOV   SCON,#50H
              SETB  TR1
              CLR   p3.4
              RET
Q0040: MOV   SBUF,R7
              JNB   TI,$
              CLR   TI
              RET
Q0048: MOV   a,p1
	cpl a
              MOV   30H,A
              MOV   2FH,#00h
              MOV   2EH,#00h
              RET
Q005B: CLR   A
              MOV   14H,A
              MOV   32H,#4BH
              MOV   A,2EH
              ANL   A,#0FH
              MOV   34H,A
              MOV   A,2EH
              ANL   A,#0F0H
              MOV   R7,A
              SWAP  A
              ANL   A,#0FH
              MOV   33H,A
              MOV   A,2FH
              ANL   A,#0FH
              MOV   36H,A
              MOV   A,2FH
              ANL   A,#0F0H
              MOV   R7,A
              SWAP  A
              ANL   A,#0FH
              MOV   35H,A
              MOV   A,30H
              ANL   A,#0FH
              MOV   38H,A
              MOV   A,30H
              ANL   A,#0F0H
              MOV   R7,A
              SWAP  A
              ANL   A,#0FH
              MOV   37H,A
              MOV   R6,#01H
Q0093: MOV   A,#32H
              ADD   A,R6
              MOV   R0,A
              MOV   A,@R0
              MOV   R7,A
              CLR   C
              SUBB  A,#0AH
              JC    Q00A4
              MOV   A,R7
              ADD   A,#37H
              MOV   @R0,A
              SJMP  Q00A8
Q00A4: MOV   A,#30H
              ADD   A,@R0
              MOV   @R0,A
Q00A8: INC   R6
              CJNE  R6,#07H,Q0093
              MOV   39H,#0AH
              CLR   EA
              SETB  p3.4
              CLR   A
              MOV   R6,A
Q00B5: MOV   A,#32H
              ADD   A,R6
              MOV   R0,A
              MOV   A,@R0
              MOV   R7,A
              LCALL Q0040
              INC   R6
              CJNE  R6,#08H,Q00B5
              CLR   p3.4
              SETB  EA
              RET
Q00C7: PUSH  ACC
              PUSH  PSW
              MOV   PSW,#08H
              CLR   A
              MOV   12H,A
              CLR   EA
              CLR   RI
              MOV   23H,SBUF
              MOV   A,23H
              ADD   A,#0C0H
              XRL   A,3CH
              JNZ   Q0108
              CLR   A
              MOV   R7,A
              MOV   R6,A
Q00E3: JB    RI,Q00F6
              INC   R7
              CJNE  R7,#00H,Q00EB
              INC   R6
Q00EB: SETB  C
              MOV   A,R7
              SUBB  A,#0E8H
              MOV   A,R6
              SUBB  A,#03H
              JC    Q00E3
              SJMP  Q0108
Q00F6: LCALL Q0018
              CLR   RI
              MOV   24H,SBUF
              CLR   A
              MOV   R6,A
              MOV   R7,A
              MOV   A,24H
              CJNE  A,#0AH,Q0108
              SETB  20H.0
Q0108: SETB  EA
              POP   PSW
              POP   ACC
              RETI
Q010F: JNB   20H.0,Q0119
              CLR   20H.0
              LCALL Q005B
              SETB  EA
Q0119: RET
Q011A: MOV   P2,#0FFH
              MOV   A,P2
	  jb p3.7,q3cz
	  mov 3ch,#00h
	  sjmp q0166
q3cz:      MOV   3CH,#20h
Q0166: CLR   A
              MOV   21H,A
              MOV   22H,#0FAH
	  LCALL Q0026
              CLR   A
              MOV   R5,A
              MOV   R4,A
              MOV   R3,A
              CLR   p3.2
              CLR   p3.4
              SETB  EA
              CLR   20H.0
Q019B: MOV   A,R3
              SETB  C
              SUBB  A,#32H
              JC    Q01A9
              CLR   A
              MOV   R3,A
              LCALL Q0048
              LCALL Q0018
Q01A9: LCALL Q010F
              SETB  C
              MOV   A,R5
              SUBB  A,#0A8H
              MOV   A,R4
              SUBB  A,#61H
              JC    Q01BA
              CPL   p3.2
              CLR   A
              MOV   R4,A
              MOV   R5,A
Q01BA: INC   R5
              CJNE  R5,#00H,Q01BF
              INC   R4
Q01BF: INC   R3
              SJMP  Q019B
              RET
Q01C3: MOV   R0,#7FH
              CLR   A
Q01C6: MOV   @R0,A
              DJNZ  R0,Q01C6
              MOV   SP,#3CH
              LJMP  Q011A
              MOV   R7,A
	end