1*24144Ssam .data 2*24144Ssam .text 3*24144SsamLL0: .align 1 4*24144Ssam .globl _Ksubd 5*24144Ssam .set L12,0x0 6*24144Ssam .data 7*24144Ssam .text 8*24144Ssam_Ksubd: .word L12 # _Ksubd(acc_most,acc_least,op_most,op_least,hfs) 9*24144Ssam tstl 4(fp) 10*24144Ssam jneq next 11*24144Ssam movl 16(fp),r1 12*24144Ssam movl 12(fp),r0 13*24144Ssam lnd r0 14*24144Ssam std r0 15*24144Ssam ret 16*24144Ssamnext: 17*24144Ssam tstl 12(fp) 18*24144Ssam jneq doit 19*24144Ssam movl 8(fp),r1 20*24144Ssam movl 4(fp),r0 21*24144Ssam ret 22*24144Ssamdoit: 23*24144Ssam lnd 12(fp) # -op 24*24144Ssam pushl 20(fp) # hfs 25*24144Ssam pushd # push op_least op_most 26*24144Ssam pushl 8(fp) 27*24144Ssam pushl 4(fp) # acc 28*24144Ssam callf $24,_Kaddd 29*24144Ssam ret 30*24144Ssam 31*24144Ssam 32*24144Ssam/* 33*24144Ssam * double 34*24144Ssam * subd(d1,d2) 35*24144Ssam * double d1,d2; 36*24144Ssam * { 37*24144Ssam * return(d1+(-d2)); 38*24144Ssam * } 39*24144Ssam*/ 40