booth.asm

Org 0000H

MOV R0,#30H
MOV 01H,#0011B
MOV 02H,#0010b
MOV A,02H
ANL A,#01H
MOV 03H,A
MOV A,#00H
CLR C
SUBB A,03H
JC COMPL
CJNE A,#01H,ZERO
SJMP HERE
ZERO:MOV @R0,#00H
	INC R0
	SJMP HERE
COMPL:MOV A,01H
	CPL A
	ANL A,#0FH
	ADD A,#01H
	MOV @R0,A
	INC R0
HERE: NOP

MOV R5,#03H
MOV 20H,02H
MOV A,20H
LOOP:
ANL A,#01H
MOV 25H,A
MOV A,20H
ANL A,#02H
CLR C
RRC A
MOV 26H,A
MOV A,25H


CLR C
SUBB A,26H
JC COMPL2
CJNE A,#01H,ZERO2
CJNE A,#00H,SAME2
SJMP HERE2
ZERO2:MOV @R0,#00H
	INC R0
	SJMP HERE2
SAME2:MOV @R0,01H
	INC R0
	SJMP HERE2
COMPL2:MOV A,01H
	CPL A
	ANL A,#0FH
	ADD A,#01H
	MOV @R0,A
	INC R0
HERE2: NOP
CLR C
MOV A,20H
RRC A
MOV 20H,A
DJNZ R5,LOOP


MOV R5,#04H
MOV R0,#30H
LOOP2:CLR C
MOV A,@R0
SUBB A,#07H
JNC SETT
SJMP HERE3
SETT: MOV A,@R0
ORL A,#0F0H
MOV @R0,A
HERE3: NOP
INC R0
DJNZ R5,LOOP2

MOV R0,#30H
MOV R5,#04H
MOV R6,#00H
FINAL: INC R0
INC R6
MOV 07H,06H
MOV A,@R0
SHIFT:CLR C
RLC A
DJNZ R7,SHIFT
MOV @R0,A
DJNZ R5,FINAL

MOV A,30H
ADD A,31H
ADD A,32H
ADD A,33H


END