On 14 May 2013, at 16:54, George Gwilt wrote: > > Interesting. I used: >
This is what should have appeared earlier!! At entry: D0.L contains the (positive) number A0 points to the end of the area to contain the ASCII result At exit D0 = 0 A0 points to the start of the number LTOD SWAP D0 BEQ.S LTODW2 MOVE.W D0,D1 BEQ.S LTODW EXT.L D1 DIVU #10,D1 SWAP D1 MOVE.W D1,D0 SWAP D0 DIVU #10,D0 SWAP D0 ADDI.W #48,D0 MOVE.B D0,-(A0) SWAP D0 MOVE.W D0,D1 MOVE.L D1,D0 BRA.S LTOD LTODW1 DIVU #10,D1 SWAP D0 LTODW2 ADDI.W #48,D0 MOVE.B D0,-(A0) CLR.W D0 LTODW SWAP D0 BNE.S LTODW1 RTS This, and a further routine to deal with negatives, is in the Library files on my website. > > > George George _______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm