FLTSGN: INC R0 MOV A,@R0 INC R0 ORL A,@R0 DEC R0 DEC R0 JNZ SGN RET SGN: MOV A,@R0 RLC A MOV A,#1 JNC SGN1 MOV A,#0FFH SGN1: RET