实验一
ORG 0000h
AJMP HA1S
ORG 0030H
HA1S: MOV A,#00H
HA1S1: JB P3.3,HA1S1
MOV R2,#20H
LCALL DELAY
JB P3.3,HA1S1
HA1S2: JNB P3.3,HA1S2
MOV R2,#20H
LCALL DELAY
JNB P3.3,HA1S2
INC A
PUSH ACC
MOV P1,A
POP ACC
AJMP HA1S1
DELAY: PUSH 02H
DELAY1: PUSH 02H
DELAY2: PUSH 02H
DELAY3: DJNZ R2,DELAY3
POP 02H
DJNZ R2,DELAY2
POP 02H
DJNZ R2,DELAY1
POP 02H
DJNZ R2,DELAY
RET
END
实验二
ORG 0000H
AJMP 0030H
ORG 0013H
LJMP HA2S3
ORG 0030H
HA2S: MOV P1,#0fFH
ORL P3,#00H
HA2S1: JB P3.4,HA2S1
ORL IE,#84H
ORL IP,#04H
MOV PSW,#00H
MOV SP,#53H
HA2S2: MOV P1,#081H
ACALL HA2S7
MOV P1,#082H
ACALL HA2S7
MOV P1,#084H
ACALL HA2S7
MOV P1,#088H
ACALL HA2S7
MOV P1,#090H
ACALL HA2S7
MOV P1,#0A0H
ACALL HA2S7
MOV P1,#0C0H
ACALL HA2S7
SJMP HA2S2
HA2S3: MOV B,R2
HA2S5: SETB P1.7
ACALL HA2S6
CLR P1.7
ACALL HA2S6
JNB P3.3,HA2S5
MOV R2,B
RETI
HA2S6: MOV R2,#06H
ACALL DELAY
RET
HA2S7: MOV R2,#30H
ACALL DELAY
RET
DELAY: PUSH 02H
DELAY1: PUSH 02H
DELAY2: PUSH 02H
DELAY3: DJNZ R2,DELAY3
POP 02H
DJNZ R2,DELAY2
POP 02H
DJNZ R2,DELAY1
POP 02H
DJNZ R2,DELAY
RET
END
实验10
org 0000h
Sjmp MAIN
org 000bh
mov th0,r1
mov tl0,r0
cpl p1.0
RETI
MAIN:MOV TMOD,#01H
MOV IE,#82H
MOV DPTR,#TAB
LOOP: CLR A
MOVC A,@A+DPTR
MOV R1,A
INC DPTR
CLR A
MOVC A,@A+DPTR
MOV R0,A
ORL A,R1
JZ NEXT0
MOV A,R0
ANL A,R1
CJNE A,#0FFH,NEXT
SJMP MAIN
NEXT : MOV TH0,R1
MOV TL0,R0
SETB TR0
SJMP NEXT1
NEXT0:CLR TR0
NEXT1: CLR A
INC DPTR
MOVC A,@A+DPTR
MOV R2,A
LOOP1: ACALL D200C
DJNZ R2,LOOP1
INC DPTR
AJMP LOOP
D200C:MOV R3,#81H
D200B:MOV A,#0FFH
D200A:DEC A
JNZ D200A
DEC R3
CJNE R3,#00H,D200B
RET
TAB: DB 0FEH,25H,04H,0FEH,25H,02H ;11 1 5
DB 0FEH,25H,02H,0FDH,80H,04H
DB 0FEH,84H,02H,0FEH,84H,02H;33 3 1
DB 0FEH,84H,04H,0FEH,25H,04H
DB 0FEH,25H,02H,0FEH,84H,02H;13 5 5
DB 0FEH,0C0H,04H,0FEH,84H,02H
DB 0FEH,98H,02H,0FEH,84H,02H;43 2 -
DB 0FEH,57H,08H,00H,00H,04H
DB 0FFH,0FFH
END
;1=131 262 523 1047
;2=147 294 587 1175
;3=165 330 659 1319
;4=175 349 698 1397
;5=196 392 784 1568
;6=220 440 880 1760
;7=247 494 988 1976
实验十一
ORG 0000H
AJMP START
ORG 0030H
START: SETB P1.0
LCALL DELAY
CLR P1.0
LCALL DELAY
SJMP START
DELAY: MOV R7,#0FFH
DELAY1: MOV R6,#0FFH
DELAY2: DJNZ R6,DELAY2
DJNZ R7,DELAY1
RET
END
实验六
ORG 0000H
AJMP HA6S
ORG 0030H
HA6S: MOV SP,#53H
HA6S1: MOV R6,#00H
HA6S2: MOV DPTR,#8000H
MOV A,R6
MOVX @DPTR,A
MOV R2,#30H
LCALL DEL
AY
;INC R6
;CJNE R6,#0FFH,HA6S2
HA6S3: MOV R6,#0FFH
MOV DPTR,#8000H
; DEC R6
MOV A,R6
MOVX @DPTR,A
MOV R2,#30H
LCALL DELAY
;CJNE R6,#00H,HA6S3
SJMP HA6S1
DELAY: PUSH 02H
DELAY1: PUSH 02H
DELAY2: PUSH 02H
DELAY3: DJNZ R2,DELAY3
POP 02H
DJNZ R2,DELAY2
POP 02H
DJNZ R2,DELAY1
POP 02H
DJNZ R2,DELAY
RET
END
实验29
TIMER EQU 01H
org 0000h
ajmp START
ORG 000BH
AJMP INT_T0
ORG 070H
START: MOV SP,#53H
MOV TMOD,#01H
MOV TL0,#00H
MOV TH0,#4BH
MOV R0,#0H
MOV TIMER,#20
MOV SCON,#00H
CLR TI
CLR RI
SETB TR0
SETB ET0
SETB EA
SJMP $
INT_T0: PUSH ACC
PUSH PSW
CLR EA
CLR TR0
MOV TL0,#0H
MOV TH0,#4BH
SETB TR0
DJNZ TIMER,EXIT
MOV TIMER,#20
MOV DPTR,#CDATA
MOV A,R0
MOVC A,@A+DPTR
CLR TI
CPL A
MOV SBUF,A
INC R0
CJNE R0,#0AH,EXIT
MOV R0,#0H
EXIT: SETB EA
POP PSW
POP ACC
RETI
CDATA: DB 03H,9FH,25H,0DH,99H,49H,41H,1FH,01H,09H
END