S EQU 2000H
T EQU 30H
N DATA 38H
M DATA 39H
FIND BIT 00H
TEST:
MOV N,#5BH
MOV P2,#HIGH(S)
MOV R0,#LOW(S)
MOV DPTR,#LIST
MOV R2,N
LOOP:
CLR A
MOVC A,@A+DPTR
MOVX @R0,A
INC R0
INC DPTR
DJNZ R2,LOOP
MOV M,#6
MOV T,#"8"
MOV T+1,#"0"
MOV T+2,#"C"
MOV T+3,#"5"
MOV T+4,#"5"
MOV T+5,#"2"
LCALL BFSRCH
MOV M,#5
MOV T,#"8"
MOV T+1,#"0"
MOV T+2,#"C"
MOV T+3,#"5"
MOV T+4,#"1"
LCALL BFSRCH
STOP:
LJMP STOP
LIST:
DB "The 80C51 "
DB "two power mode"
DB "modes of operation "
DB "modes of power down "
BFSRCH:
MOV DPTR,#S
MOV A,N
CLR C
SUBB A,M
INC A
MOV R7,A
BF0:
MOV R0,#T
MOV R6,M
MOV R4,DPH
MOV R5,DPL
BF1:
MOVX A,@DPTR
XRL A,@R0
JNZ BF2
INC R0
INC DPTR
DJNZ R6,BF1
SETB FIND
MOV DPH,R4
MOV DPL,R5
RET
BF2:
MOV DPH,R4
MOV DPL,R5
INC DPTR
DJNZ R7,BF0
CLR FIND
RET
