AJMP DISP1 CONT: ADD A,R5 ; ; MOV B,A AJMP LOOP DISPLAY: MOV A,#0FFH MOV P0,A MOV P2,A MOV R6,#0FEH MOV R0,B MOV R7,#08H DISLOOP: MOV A,@R0 ; MOV P0,A MOV P2,R6 LCALL DL1MS INC R0 MOV A,R6 RL A MOV R6,A DJNZ R7,DISLOOP RET DISP2: LCALL DISPP ; LCALL MOVH LCALL MOVH1 AJMP DISP2 DISPP: MOV B,#50H ; MOV R4,#24H LCALL DISPLAY DJNZ R4,DISPP RET MOVH: MOV R1,#20H MOV R0,#50H MOV R2,#08H MOV1: MOV A,@R0 CLR C RLC A MOV @R0,A MOV A,@R1 RRC A MOV @R1,A <strong>MCS</strong>-<strong>51</strong> 系 列 单 片 机 设 计 实 例 PDF created with FinePrint pdfFactory trial version http://www.fineprint.com 16
OUT: RET INC R0 DJNZ R2,MOV1 MOV R2,#08H INC R1 MOV A,R1 SUBB A,#24H JZ OUT AJMP MOV1 MOVH1: MOV A,20H XCH A,23H XCH A,22H XCH A,21H MOV 20H,A MOV R1,#20H MOV R0,#50H MOV2: MOV A,@R0 ; RR A MOV @R0,A MOV A,@R1 CLR C RRC A MOV A,@R0 RLC A MOV @R0,A INC R0 DJNZ R2,MOV2 MOV R2,#08H INC R1 MOV A,R1 SUBB A,#24H JZ OUT AJMP MOV2 <strong>MCS</strong>-<strong>51</strong> 系 列 单 片 机 设 计 实 例 DL1MS: MOV R3,#64H ;100*( 8+2) us LOOPK: LCALL KEYWORK ; DJNZ R3,LOOPK RET DL<strong>51</strong>2: MOV R2,#0FFH LOOP1: DJNZ R2,LOOP1 RET DL10MS: MOV R3,#14H LOOP2: LCALL DL<strong>51</strong>2 PDF created with FinePrint pdfFactory trial version http://www.fineprint.com 17
- Page 1 and 2: MCS-51 系 列 单 片 机 设 计
- Page 3 and 4: ;************; ; 初 始化程序 ;
- Page 5 and 6: ;************; ; 延 时程序 ; ;*
- Page 7 and 8: ; ; ; ORG 0003H RETI ORG 000BH LJMP
- Page 9 and 10: ; INTT1: PUSH ACC PUSH PSW MOV TL1,
- Page 11 and 12: ; WAITH: JNB P3.7,WAITH LJMP START1
- Page 13 and 14: 说明: MCS-51 系 列 单 片 机
- Page 15: ; MOV A,R3 INC A MOV R3,A INC R1 DJ
- Page 19 and 20: 说明: MCS-51 系 列 单 片 机
- Page 21 and 22: ; RET ;****************************
- Page 23 and 24: MCS-51 系 列 单 片 机 设 计
- Page 25 and 26: MCS-51 系 列 单 片 机 设 计
- Page 27 and 28: ;**********************************
- Page 29 and 30: ; NOP NOP NOP NOP DJNZ R2,LOWBACKTM
- Page 31 and 32: ; AJMP READHEAD READDATA00: MOV R3,
- Page 33 and 34: SETB REMOTEIN MCS-51 系 列 单
- Page 35 and 36: MCS-51 系 列 单 片 机 设 计
- Page 37 and 38: ;**********************************
- Page 39 and 40: ADD A,B MCS-51 系 列 单 片 机
- Page 41 and 42: ; RET KEYFUN12: MOV A,#0EH ; LJMP R
- Page 43 and 44: DL10MS: MOV R3,#14H DL10MS1: LCALL
- Page 45 and 46: ; ORG 000BH RETI ORG 0013H RETI ORG
- Page 47 and 48: DEC A JZ FUN9 DEC A JZ FUN10 DEC A
- Page 49 and 50: LOOP: MOV A,P1 SUBB A,#0FFH JZ LOOP
- Page 51 and 52: ; ; MCS-51 系 列 单 片 机 设
- Page 53 and 54: ;;;;;;;;;;;;;;;;;;;; ;; PROGRAM STA
- Page 55 and 56: MOV A,71H MCS-51 系 列 单 片
- Page 57 and 58: NOP NOP NOP NOP CLR VSCL SETB VSDA
- Page 59 and 60: ; ;;;;;;;;;;;;;;;;;;;; ;;DISPLAY PR
- Page 61 and 62: ; ; ;;;;;;;;;;;;;;;;; ; DL1MS ;; ;;
- Page 63 and 64: ; KKK: MOV A,15H RLC A MOV 15H,A MO
- Page 65 and 66: 3. 传感脉冲检测电路 MCS-51
- Page 67 and 68:
; MOV 23H,#00H CLR 30H SETB ET1 SET
- Page 69 and 70:
; CPL P3.6 CPL P3.7 LCALL DS50MS LC
- Page 71 and 72:
RETT0: POP PSW POP ACC RETI ;;;;;;;
- Page 73 and 74:
说明: MCS-51 系 列 单 片 机
- Page 75 and 76:
;**********************************
- Page 77 and 78:
LCALL REMOTE RET KEYFUN06: MOV A,#0
- Page 79 and 80:
MCS-51 系 列 单 片 机 设 计
- Page 81 and 82:
MCS-51 系 列 单 片 机 设 计
- Page 83 and 84:
MCS-51 系 列 单 片 机 设 计
- Page 85 and 86:
; ORG 0013H ORG 001BH ORG 0023H LJM
- Page 87 and 88:
LJMP REMOTE KEY1: LCALL DELAY JB P0
- Page 89 and 90:
LJMP READOUT0 FRT: CLR P0.4 LJMP RE
- Page 91 and 92:
MCS-51 系 列 单 片 机 设 计
- Page 93 and 94:
NOP NOP NOP NOP NOP NOP NOP DJNZ R0
- Page 95 and 96:
;**********************************
- Page 97 and 98:
READ21: INC A READ22: JNB P1.0,READ
- Page 99 and 100:
说明: MCS-51 系 列 单 片 机
- Page 101 and 102:
; MCS-51 系 列 单 片 机 设
- Page 103 and 104:
MOV A,P1 ANL A,#0F0H CJNE A,#0F0H,C
- Page 105 and 106:
KEYFUN04: MOV 29H,#01H MOV 28H,#00H
- Page 107 and 108:
MOV B,#100 LCALL MULLOOP MOV A,29H
- Page 109 and 110:
RET DL1MS: MOV R4,#02H DL1MSLOOP: L
- Page 111 and 112:
MCS-51 系 列 单 片 机 设 计
- Page 113 and 114:
DEC A MOV P1,A MOV P0,A MOV P3,A SE
- Page 115 and 116:
FUN02: MOV R0,#75H MOV B,#02H LCALL
- Page 117 and 118:
; SETB EA RETI ;************** ;
- Page 119 and 120:
MCS-51 系 列 单 片 机 设 计
- Page 121 and 122:
MCS-51 系 列 单 片 机 设 计
- Page 123 and 124:
寄存器 ; ; 控 制标志位定
- Page 125 and 126:
; ; MCS-51 系 列 单 片 机 设
- Page 127 and 128:
; MCS-51 系 列 单 片 机 设
- Page 129 and 130:
MCS-51 系 列 单 片 机 设 计
- Page 131 and 132:
MCS-51 系 列 单 片 机 设 计
- Page 133 and 134:
; ; MCS-51 系 列 单 片 机 设
- Page 135 and 136:
; ; MCS-51 系 列 单 片 机 设
- Page 137 and 138:
; ; MCS-51 系 列 单 片 机 设
- Page 139 and 140:
; MCS-51 系 列 单 片 机 设
- Page 141 and 142:
; ; MCS-51 系 列 单 片 机 设
- Page 143 and 144:
; R2 内 容高位地址 R1 内 容
- Page 145 and 146:
COMPASCOUT: RET ; ; MCS-51 系 列
- Page 147 and 148:
MCS-51 系 列 单 片 机 设 计
- Page 149 and 150:
; MCS-51 系 列 单 片 机 设
- Page 151 and 152:
MCS-51 系 列 单 片 机 设 计
- Page 153 and 154:
; ; MCS-51 系 列 单 片 机 设
- Page 155 and 156:
; MCS-51 系 列 单 片 机 设
- Page 157 and 158:
MCS-51 系 列 单 片 机 设 计
- Page 159 and 160:
; RET MCS-51 系 列 单 片 机
- Page 161 and 162:
; MCS-51 系 列 单 片 机 设