mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-11-15 02:04:28 +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
|
|
|