git.sur5r.net Git - cc65/blob - libsrc/cbm/toascii.s

   1 ;
   2 ; Ullrich von Bassewitz, 2009-11-02
   3 ;
   4 ; unsigned char __fastcall__ toascii (unsigned char c);
   5 ; /* Convert a target specific character to ascii */
   6 ;
   7
   8         .export         _toascii
   9
  10         .macpack        generic
  11
  12 .proc   _toascii
  13
  14 ; X must be zero on return
  15
  16         ldx     #0
  17
  18 ; Check for code between 65 and 90
  19
  20         cmp     #$41
  21         blt     @L1
  22         cmp     #$5B
  23         bge     @L1
  24
  25 ; Code between 65 and 90
  26
  27         ora     #$20
  28         rts
  29
  30 ; Check for code between 193 and 219
  31
  32 @L1:    cmp     #$C1
  33         blt     @L9
  34         cmp     #$DC
  35         bge     @L9
  36
  37 ; Code between 193 and 219
  38
  39         and     #$7F
  40 @L9:    rts
  41
  42 .endproc