-
STACK EQU 1FH
BOTTOM EQU 00H
M EQU 200
TOP DATA 3EH
N DATA 30H
NFACT EQU 31H
TST:
MOV SP,#5FH
LCALL SETNULL
MOV N,#5
LCALL FACT0
http://www.codebf.com/read/7196/107370
-
FINDF:
MOV DPL,R1
MOV DPH,R0
MOV A,R7
MOV B,A
MOV NCNT,R6
JZ FINDF1
INC NCNT
FINDF1:
MOVX A,@DPTR
INC DPTR
MOV R5,A
MOVX A,@DPTR
INC DPTR
MOV R6,A
MOVX A,@DPT
http://www.codebf.com/read/7196/107371
-
FINDN:
MOV A,R0
MOV R2,A
MOV A,ADDPL
MOV DPL,A
MOV A,ADDPH
MOV DPH,A
MOV A,R7
JZ FINDN1
INC R6
FINDN1:
MOV A,R2
MOV R0,A
M
http://www.codebf.com/read/7196/107372
-
FDS1:
MOV B,A
MOV R2,#0
MOV A,R7
MOV R6,A
FD11:
MOV A,R2
MOVC A,@A+DPTR
CJNE A,B,FD12
CLR OV
MOV A,R2
RET
FD12:
INC R2
DJNZ R6
http://www.codebf.com/read/7196/107373
-
FMAMIF:
MOV A,ADDPL
MOV R3,A
MOV R5,A
MOV DPL,A
MOV A,ADDPH
MOV R2,A
MOV R4,A
MOV DPH,A
MOV B,R7
MOV R7,#03H
LCALL ITEMOV
MOV R7,#03H
LCALL IBMOV
http://www.codebf.com/read/7196/107374
-
STACK EQU 1FH
BOTTOM EQU 00H
TOP DATA 3EH
OUT EQU 20H
IN EQU 30H
N EQU 8
M EQU 30
K DATA 3FH
TST:
MOV SP,#5FH
LCALL SETNULL
M
http://www.codebf.com/read/7196/107375
-
FINDS2:
MOV DPL,R1
MOV DPH,R0
MOV A,R7
JZ FINDS21
INC R6
FINDS21:
MOVX A,@DPTR
INC DPTR
CLR C
SUBB A,R4
JNZ FINDS22
MOVX
http://www.codebf.com/read/7196/107376
-
FDS2:
MOV A,R7
MOV R6,A
MOV R2,#0
FD21:
CLR A
MOVC A,@A+DPTR
XRL A,R4
JNZ FD22
MOV A,#1
MOVC A,@A+DPTR
XRL A,R5
JNZ FD22
CLR OV
http://www.codebf.com/read/7196/107377
-
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+DP
http://www.codebf.com/read/7196/107378
-
SRT:
MOV A,R7
MOV R5,A
SRT1:
CLR F0
MOV A,R5
DEC A
MOV R5,A
MOV R2,A
JZ SRT5
MOV A,R0
MOV R6,A
SRT2:
MOV A,@R0
MOV R3,A
INC R0
http://www.codebf.com/read/7196/107379
