2009-11-02 16:23:32 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 2009-11-02
|
|
|
|
|
;
|
|
|
|
|
; unsigned char __fastcall__ toascii (unsigned char c);
|
|
|
|
|
; /* Convert a target specific character to ascii */
|
|
|
|
|
;
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _toascii
|
2009-11-02 16:23:32 +00:00
|
|
|
|
|
|
|
|
.macpack generic
|
|
|
|
|
|
|
|
|
|
.proc _toascii
|
|
|
|
|
|
2009-11-02 16:24:26 +00:00
|
|
|
; X must be zero on return
|
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
|
2009-11-02 16:23:32 +00:00
|
|
|
; Check for code between 65 and 90
|
|
|
|
|
|
|
|
|
|
cmp #$41
|
|
|
|
|
blt @L1
|
|
|
|
|
cmp #$5B
|
|
|
|
|
bge @L1
|
|
|
|
|
|
|
|
|
|
; Code between 65 and 90
|
|
|
|
|
|
|
|
|
|
ora #$20
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
; Check for code between 193 and 219
|
|
|
|
|
|
|
|
|
|
@L1: cmp #$C1
|
|
|
|
|
blt @L9
|
|
|
|
|
cmp #$DC
|
|
|
|
|
bge @L9
|
|
|
|
|
|
|
|
|
|
; Code between 193 and 219
|
|
|
|
|
|
|
|
|
|
and #$7F
|
|
|
|
|
@L9: rts
|
|
|
|
|
|
|
|
|
|
.endproc
|
