home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 555 / M85 / LITNB.ASM < prev    next >
Assembly Source File  |  1993-10-07  |  485b  |  19 lines
  1. ;Ceci est un programme qui transforme un nombre
  2. ;entré au clavier en une valeur dans R0, en
  3. ;utilisant une base <=10 (10 par défaut).
  4.  
  5.           LDR   R3 [base]
  6.           LDI   R1 0
  7.           JMP   entree
  8. $boucle   LDI   R2 48
  9.           SUB   R0 R0 R2
  10.           MUL   R1 R1 R3
  11.           ADD   R1 R1 R0
  12. $entree   INP
  13.           LDI   R2 46
  14.           SUB   R2 R0 R2
  15.           JNZ   R2 boucle
  16.           STO   [result] R1
  17.           END
  18. $base     DAT   10
  19. $result   DAT   0