home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / talinasm.lha / to_english.asm < prev    next >
Encoding:
Assembly Source File  |  1991-08-30  |  608 b   |  27 lines
  1. * ========================================================================
  2. * ToEnglish.asm -- convert character to upper-case english if possible
  3. * Written Oct 1990 by Talin.
  4. * ========================================================================
  5.             xdef    _ToEnglish,ToEnglish
  6.  
  7. _ToEnglish:
  8.             move.w    6(sp),d0
  9. ToEnglish:
  10.             cmp.b    #$c0,d0
  11.             blo.s    1$
  12.             lea        foreign_chars-$c0(pc),a0
  13.             move.b    (a0,d0.w),d0
  14.             rts
  15. 1$            cmp.b    #'a',d0
  16.             blo.s    2$
  17.             cmp.b    #'z',d0
  18.             bhi.s    2$
  19.             sub.b    #32,d0
  20. 2$            rts
  21.  
  22. foreign_chars
  23.             dc.b    "AAAAAAÆCEEEEIIIIDNOOOOO×OUUUUYPS"
  24.             dc.b    "AAAAAAÆCEEEEIIIIDNOOOOO÷OUUUUYPY"
  25.  
  26.             end
  27.