.title pdpcvt .psect ; 15-Nov-85 10:26:14 BDN cvtdd:: mov r1 ,-(sp) mov r2 ,-(sp) mov 2+4(sp),r0 mov 4+4(sp),r1 clr r2 call $cddmg clrb @r0 mov (sp)+ ,r2 mov (sp)+ ,r1 return .end