home *** CD-ROM | disk | FTP | other *** search
/ Digital News 2 / Digital_News_2_1988_-_de_Side_B.d64 / hex->dezimal.src < prev    next >
Encoding:
Text File  |  1988-01-01  |  410 b   |  28 lines
  1.  
  2.  ;routine zur ausgabe eines bytes
  3.  ;hexzahl wird als decimalzahl
  4.  ;ausgegeben. wert muss im akku stehen
  5.  ;                (w) by mws
  6.  
  7.  
  8.  
  9.          pha
  10.          lsr a
  11.          lsr a
  12.          lsr a
  13.          lsr a
  14.          jsr loop
  15.          pla
  16.          jsr loop
  17.          rts
  18.  
  19. loop     and #$0f
  20.          cmp #$0a
  21.          clc
  22.          bmi minus
  23.          adc #$07
  24. minus    adc #$30
  25.          jsr $ffd2
  26.          rts
  27.  
  28.