;***  編制計算除法運算的程序段。其中|被除數|<|除數|，商為小數***
   	.title	"chuf.asm"
	.mmregs
    .def  	start,_c_int00 
    
    .bss	num,1
    .bss	den,1
    .bss	quot,1    
    
    .data
table  	.word  4*32768/10     ;0.4
       	.word  -8*32768/10    ;-0.8 

    .text 
_c_int00
		b start 
		nop
		nop
start:  
    	STM   #num,AR1
    	RPT   #1
    	MVPD  table,*AR1+ 		;傳送2個數據至分子、分母單元    
    	STM   #den,AR1
    	LD    *AR1-,16,A      	;將分母移到累加器A(31-16)
    	MPYA  *AR1+            ;(num)*(A(32-16))->B，獲取商的符號
    							;(在累加器B中)
        ABS   A    				;分母取絕對值 
    	STH   A,*AR1-   	    ;分母絕對值存回原處
    	LD    *AR1+,16,A    	;分子->A(32-16)
    	ABS   A       			;分子取絕對值
    	RPT   #14     			;15次減法循環,完成除法
    	SUBC  *AR1,A 
    	XC	  1,BLT				;如果B〈0（商是負數)則需要變號 
    	NEG	  A
    	STL   A,*(quot)			;保存商
        .END