;; ***************************************************************************
;; 名称:8位除以8位
;; 被除数: R_TEMP1
;; 除数 : R_TEMP0
;; 商 : R_TEMP1
;; 余数 : R_TEMP0
;; 其它 : R_TEMP2
;; ***************************************************************************
divx:;tempr1/a-->tempr1:a
movar R_TEMP0 ;A-->R_TEMP0
movr R_TEMP1,0 ;R_TEMP1-->A
movar R_TEMP2 ;A-->R_TEMP2
clrr R_TEMP1 ;R_TEMP1=0
div_n: ;被除数-除数=差,如被除数>除数,差又当被除数,计算次数为余数,继续循环
;如被除数<除数,差加
movr R_TEMP0,0 ;R_TEMP0-->A
subar R_TEMP2,1 ;R_TEMP2-R_TEMP0=R_TEMP2
btrss Status,C_Status_C_Bit
lgoto div_end
incr R_TEMP1,1
lgoto div_n
div_end:
movr R_TEMP2,0
addar R_TEMP0,1 ;补回
ret