home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / GAMES / COLUMSRC / CALCSCOR.S < prev    next >
Text File  |  1993-11-10  |  539b  |  39 lines
  1.  
  2.     * ON VA TRANSFORMER LE SCORE EN DECIMAL*
  3.     LEA    DECIMAL,A0
  4.     MOVE.L    SCORE,D0
  5.     CMP.L    #10,D0
  6.     BGE.S    SUP_10
  7.     ADD.B    #'0',D0
  8.     MOVE.B    D0,(A0)+
  9.     BRA.S    FIN_DIGIT
  10. SUP_10
  11.     MOVE.L    #1000000000,D2
  12.     MOVEQ    #4,D7    * SUR 5 CHIFFRES
  13. LOOP
  14.     DIVU.L    D2,D1:D0
  15.     ADD.B    #'0',D0
  16.     MOVE.B    D0,(A0)+
  17.     MOVE.L    D1,D0
  18.     MOVEQ    #0,D1
  19.     DIVU.L    #10,D2
  20.     DBRA    D7,LOOP
  21. FIN_DIGIT
  22.     
  23.     PEA    DECIMAL
  24.     MOVE.W    #9,-(A7)
  25.     TRAP    #1
  26.     ADDQ.L    #6,A7
  27.     
  28.     MOVE.W    #7,-(A7)
  29.     TRAP    #1
  30.     ADDQ.L    #2,A7
  31.     
  32.     
  33.     MOVE.W    #0,-(A7)
  34.     TRAP    #1
  35.     
  36.     DATA
  37. SCORE    DC.L    25
  38. DECIMAL    DCB.B    16,0
  39.