mirror of
https://github.com/cc65/cc65.git
synced 2024-07-07 04:29:01 +00:00
23 lines
791 B
Plaintext
23 lines
791 B
Plaintext
|
; Convert characters to screen codes
|
||
|
|
.macro scrcode str
|
||
|
|
.repeat .strlen(str), i
|
||
|
|
.if (.strat(str, i) >= '@' .and .strat(str, i) <= 'z')
|
||
|
|
.byte .strat(str, i) - '@'
|
||
|
|
.elseif (.strat(str, i) >= 'A' .and .strat(str, i) <= 'Z')
|
||
|
|
.byte .strat(str, i) - 'A' + 65
|
||
|
|
.elseif (.strat(str, i) = '[')
|
||
|
|
.byte 27
|
||
|
|
.elseif (.strat(str, i) = ']')
|
||
|
|
.byte 29
|
||
|
|
.elseif (.strat(str, i) = '^')
|
||
|
|
.byte 30
|
||
|
|
.elseif (.strat(str, i) = '_')
|
||
|
|
.byte 31
|
||
|
|
.else
|
||
|
|
.byte .strat(str, i)
|
||
|
|
.endif
|
||
|
|
.endrepeat
|
||
|
|
.endmacro
|
||
|
|
|
||
|
|
|