Tiens voici une routine fait vite fait il se peut kel soit buggé! 
 
dis moi si elle fonctionne:
 move.w #9860,d0 ;le nombre à affiché
 move.w #5,d1		;le nombre de chiffres à affiché
 move.l #buffer,a0	;buffer
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;On met le buffer sur la derniere case
;ici c'est 5
 add.w d1,a0
 sub.w #1,d1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
aff_nombre:
 clr.l d2
 divu.w #10,d0 ;on divise d0/8
 swap d0	;On met le reste devant
 add.b #48,d0
 move.b d0,-(a0) ;je met ds A0 soit ds le buffer
 clr.w d0	;j'efface le reste
 swap d0	;je remet d0 dans l'ordre
 dbf d1,aff_nombre
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 move.w #4,-(a7)
 move.l #buffer,-(a7)
 move.w #10,-(a7)
 move.w #10,-(a7)
 jsr doorsos:

rawStrXY
 lea 10(a7),a7
 jsr doorsos::GKeyIn
 
 rts
buffer: ds.b 9
Mais ma routine est limité à ce nombre!
d0.w = %1111111111111111 (lol! je sais plus combien ça fait 

 ) car je sais pas comment récupéré la partie entière si je fais divu.l #10,(nombre>d0)
du mois j'ai jamais essayé!