|
ZF bit 00horg 0000h
AJmp Main
Main: Clr Zf
Mov A,#-74
Mov B,#69
Jnb Acc.7,Af
Mov R3,A
Cpl ZF
clr C
Clr A
Subb A,R3
AF: Mov R5,A
Jnb B.7,BF
Mov R3,B
Cpl ZF
clr C
Clr A
Subb A,R3
Mov B,A
BF: Mov A,R5
Mul AB
Jnb ZF,Result
Clr c
Mov R5,A
Clr A
Subb A,R5
Mov R5,A
Clr A
Subb A,B
Mov B,A
Mov A,R5
Result:
MainLoop:
AJmp MainLoop
;-------------------
End
|
|