Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-19 04:28:56 +00:00
Code Issues Projects Releases Wiki Activity

spacing

Browse Source
This commit is contained in:
Irmen de Jong 2021-12-02 00:10:06 +01:00
parent 5b56e0462d
commit c3144a20db
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
codeGeneration/src/prog8/compiler/target/cpu6502/codegen/AsmGen.kt
View File

@ -777,7 +777,7 @@ class AsmGen(private val program: Program,
}
}
in WordDatatypes -> {
out(" lda $indexName | sec | rol a")
out(" lda $indexName | sec | rol a")
when (register) {
CpuRegister.A -> {
}
@ -808,7 +808,7 @@ class AsmGen(private val program: Program,
when (elementDt) {
in ByteDatatypes -> out(" ld$reg $indexName")
in WordDatatypes -> {
out(" lda $indexName | asl a")
out(" lda $indexName | asl a")
when (register) {
CpuRegister.A -> {
}

2
codeGeneration/src/prog8/compiler/target/cpu6502/codegen/ExpressionsAsmGen.kt
View File

@ -420,7 +420,7 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
left -= 7
}
if (left in 0..2)
repeat(left) { asmgen.out(" lda P8ESTACK_HI+1,x | asl a | ror P8ESTACK_HI+1,x | ror P8ESTACK_LO+1,x") }
repeat(left) { asmgen.out(" lda P8ESTACK_HI+1,x | asl a | ror P8ESTACK_HI+1,x | ror P8ESTACK_LO+1,x") }
else
asmgen.out(" jsr math.shift_right_w_$left")
}