mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-11-05 15:05:10 +00:00
18 lines
293 B
ArmAsm
18 lines
293 B
ArmAsm
|
|
||
|
|
|
||
|
|
.export ascii_to_native
|
||
|
|
.export native_to_ascii
|
||
|
|
|
||
|
|
;given an A2 Screen Code char in A, return equivalent ASCII
|
||
|
|
native_to_ascii:
|
||
|
|
;just strip high bit
|
||
|
|
and #$7f
|
||
|
|
rts
|
||
|
|
|
||
|
|
;given an ASCII char in A, return equivalent A2 Screen Code
|
||
|
|
ascii_to_native:
|
||
|
|
;set high bit
|
||
|
|
ora #$80
|
||
|
|
rts
|
||
|
|
|