--- /dev/null
+.globl _d_sign
+.text
+_d_sign:
+~~d_sign:
+jsr r5,csv
+~a=4
+~b=6
+jbr L1
+L2:~x=177760
+tstf *4(r5)
+cfcc
+jmi L10001
+movf *4(r5),r0
+jbr L10002
+L10001:movf *4(r5),r0
+negf r0
+L10002:movf r0,-20(r5)
+tstf *6(r5)
+cfcc
+jmi L10004
+movf -20(r5),r0
+jbr L10005
+L10004:movf -20(r5),r0
+negf r0
+L10005:jbr L3
+L3:jmp cret
+L1:sub $10,sp
+jbr L2
+.globl fltused
+.globl
+.data