Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-12-23 09:32:43 +00:00
Code Issues Projects Releases Wiki Activity

optimized code for (infrequently used) logical operations on word array

Browse Source
This commit is contained in:
Irmen de Jong 2023-10-29 23:41:34 +01:00
parent 513611c5a6
commit 2ceaa25181
2 changed files with 86 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
codeGenCpu6502/src/prog8/codegen/cpu6502/assignment/AugmentableAssignmentAsmGen.kt
View File

@ -457,7 +457,6 @@ internal class AugmentableAssignmentAsmGen(private val program: PtProgram,
}
private fun inplacemodificationRegisterAXwithVariable(operator: String, variable: String, varDt: DataType): Boolean {
// note: we only optimize addition and subtraction, and these are the same for unsigned or signed.
when(operator) {
"+" -> {
return if(varDt in WordDatatypes) {
@ -507,12 +506,44 @@ internal class AugmentableAssignmentAsmGen(private val program: PtProgram,
true
}
}
else -> return false // TODO optimize more operators, such as the bitwise logical ones? Might need to know if signed
"|" -> {
asmgen.out("""
ora $variable
tay
txa
ora $variable+1
tax
tya
""")
return true
}
"&" -> {
asmgen.out("""
and $variable
tay
txa
and $variable+1
tax
tya
""")
return true
}
"^" -> {
asmgen.out("""
eor $variable
tay
txa
eor $variable+1
tax
tya
""")
return true
}
else -> return false
}
}
private fun inplacemodificationRegisterAXwithLiteralval(operator: String, number: Int): Boolean {
// note: we only optimize addition and subtraction, and these are the same for unsigned or signed.
when(operator) {
"+" -> {
return if(number in -128..255) {
@ -556,7 +587,40 @@ internal class AugmentableAssignmentAsmGen(private val program: PtProgram,
true
}
}
else -> return false // TODO optimize more operators, such as the bitwise logical ones? Might need to know if signed
"|" -> {
asmgen.out("""
ora #<$number
tay
txa
ora #>$number
tax
tya
""")
return true
}
"&" -> {
asmgen.out("""
and #<$number
tay
txa
and #>$number
tax
tya
""")
return true
}
"^" -> {
asmgen.out("""
eor #<$number
tay
txa
eor #>$number
tax
tya
""")
return true
}
else -> return false
}
}

22
examples/test.p8
View File

@ -5,10 +5,24 @@
main {
sub start() {
ubyte lower = 123
ubyte upper = 0
uword ww = mkword(upper, lower)
uword[] array = [$1010,$2020,$3030,$4040,$5050]
ubyte index = 2
uword value = $0205
txt.print_uwhex(ww, true)
array[index] ^= $0205
txt.print_uwhex(array[2], true)
txt.nl()
array[index]+=9
txt.print_uwhex(array[2], true)
txt.nl()
array[index] = $3030
array[index] |= value
txt.print_uwhex(array[2], true)
txt.nl()
; TODO met var array[index]|=index
}
}