Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-02-16 22:30:46 +00:00
Code Issues Projects Releases Wiki Activity

tweak bitshift asm

Browse Source
This commit is contained in:
Irmen de Jong 2020-03-23 17:35:58 +01:00
parent ca63051c71
commit 1f39749a5e
2 changed files with 235 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/src/prog8/compiler/target/c64/codegen/ExpressionsAsmGen.kt
View File

@ -4,6 +4,7 @@ import prog8.ast.Program
import prog8.ast.base.*
import prog8.ast.expressions.*
import prog8.compiler.AssemblyError
import prog8.compiler.target.c64.C64MachineDefinition
import prog8.compiler.target.c64.C64MachineDefinition.ESTACK_HI_HEX
import prog8.compiler.target.c64.C64MachineDefinition.ESTACK_HI_PLUS1_HEX
import prog8.compiler.target.c64.C64MachineDefinition.ESTACK_LO_HEX
@ -202,8 +203,24 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
translateExpression(expr.left)
val amount = expr.right.constValue(program)!!.number.toInt()
when (leftDt) {
DataType.UBYTE -> repeat(amount) { asmgen.out(" lsr $ESTACK_LO_PLUS1_HEX,x") }
DataType.BYTE -> repeat(amount) { asmgen.out(" lda $ESTACK_LO_PLUS1_HEX,x | asl a | ror $ESTACK_LO_PLUS1_HEX,x") }
DataType.UBYTE -> {
if(amount<=2)
repeat(amount) { asmgen.out(" lsr $ESTACK_LO_PLUS1_HEX,x") }
else {
asmgen.out(" lda $ESTACK_LO_PLUS1_HEX,x")
repeat(amount) { asmgen.out(" lsr a") }
asmgen.out(" sta $ESTACK_LO_PLUS1_HEX,x")
}
}
DataType.BYTE -> {
if(amount<=2)
repeat(amount) { asmgen.out(" lda $ESTACK_LO_PLUS1_HEX,x | asl a | ror $ESTACK_LO_PLUS1_HEX,x") }
else {
asmgen.out(" lda $ESTACK_LO_PLUS1_HEX,x | sta ${C64MachineDefinition.C64Zeropage.SCRATCH_B1}")
repeat(amount) { asmgen.out(" asl a | ror ${C64MachineDefinition.C64Zeropage.SCRATCH_B1} | lda ${C64MachineDefinition.C64Zeropage.SCRATCH_B1}") }
asmgen.out(" sta $ESTACK_LO_PLUS1_HEX,x")
}
}
DataType.UWORD -> repeat(amount) { asmgen.out(" lsr $ESTACK_HI_PLUS1_HEX,x | ror $ESTACK_LO_PLUS1_HEX,x") }
DataType.WORD -> repeat(amount) { asmgen.out(" lda $ESTACK_HI_PLUS1_HEX,x | asl a | ror $ESTACK_HI_PLUS1_HEX,x | ror $ESTACK_LO_PLUS1_HEX,x") }
else -> throw AssemblyError("weird type")
@ -215,10 +232,18 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
// TODO for the word types, if shifting > 3 bits, use a subroutine
translateExpression(expr.left)
val amount = expr.right.constValue(program)!!.number.toInt()
if (leftDt in ByteDatatypes)
repeat(amount) { asmgen.out(" asl $ESTACK_LO_PLUS1_HEX,x") }
else
if (leftDt in ByteDatatypes) {
if(amount<=2)
repeat(amount) { asmgen.out(" asl $ESTACK_LO_PLUS1_HEX,x") }
else {
asmgen.out(" lda $ESTACK_LO_PLUS1_HEX,x")
repeat(amount) { asmgen.out(" asl a") }
asmgen.out(" sta $ESTACK_LO_PLUS1_HEX,x")
}
}
else {
repeat(amount) { asmgen.out(" asl $ESTACK_LO_PLUS1_HEX,x | rol $ESTACK_HI_PLUS1_HEX,x") }
}
return
}
"*" -> {

205
examples/test.p8
View File

@ -6,6 +6,211 @@
main {
sub start() {
A = shiftlb0()
A = shiftlb1()
A = shiftlb2()
A = shiftlb3()
A = shiftlb4()
A = shiftlb5()
A = shiftlb6()
A = shiftlb7()
A = shiftlb8()
A = shiftlb9()
A = shiftrb0()
A = shiftrb1()
A = shiftrb2()
A = shiftrb3()
A = shiftrb4()
A = shiftrb5()
A = shiftrb6()
A = shiftrb7()
A = shiftrb8()
A = shiftrb9()
uword uw
uw = shiftluw0()
uw = shiftluw1()
uw = shiftluw2()
uw = shiftluw3()
uw = shiftluw4()
uw = shiftluw5()
uw = shiftluw6()
uw = shiftluw7()
uw = shiftluw8()
uw = shiftluw9()
uw = shiftruw0()
uw = shiftruw1()
uw = shiftruw2()
uw = shiftruw3()
uw = shiftruw4()
uw = shiftruw5()
uw = shiftruw6()
uw = shiftruw7()
; uw = shiftruw8()
; uw = shiftruw9()
}
sub shiftruw0() -> uword {
uword q = 12345
return q >> 0
}
sub shiftruw1() -> uword {
uword q = 12345
return q >> 1
}
sub shiftruw2() -> uword {
uword q = 12345
return q >> 2
}
sub shiftruw3() -> uword {
uword q = 12345
return q >> 3
}
sub shiftruw4() -> uword {
uword q = 12345
return q >> 4
}
sub shiftruw5() -> uword {
uword q = 12345
return q >> 5
}
sub shiftruw6() -> uword {
uword q = 12345
return q >> 6
}
sub shiftruw7() -> uword {
uword q = 12345
return q >> 7
}
; sub shiftruw8() -> uword {
; uword q = 12345
; return (q >> 8) as uword ; TODO auto cast return type
; }
;
; sub shiftruw9() -> uword {
; uword q = 12345
; return (q >> 9) as uword ; TODO auto cast return type
; }
sub shiftluw0() -> uword {
uword q = 12345
return q << 0
}
sub shiftluw1() -> uword {
uword q = 12345
return q << 1
}
sub shiftluw2() -> uword {
uword q = 12345
return q << 2
}
sub shiftluw3() -> uword {
uword q = 12345
return q << 3
}
sub shiftluw4() -> uword {
uword q = 12345
return q << 4
}
sub shiftluw5() -> uword {
uword q = 12345
return q << 5
}
sub shiftluw6() -> uword {
uword q = 12345
return q << 6
}
sub shiftluw7() -> uword {
uword q = 12345
return q << 7
}
sub shiftluw8() -> uword {
uword q = 12345
return q << 8
}
sub shiftluw9() -> uword {
uword q = 12345
return q << 9
}
sub shiftlb0() -> ubyte {
return Y << 0
}
sub shiftlb1() -> ubyte {
return Y << 1
}
sub shiftlb2() -> ubyte {
return Y << 2
}
sub shiftlb3() -> ubyte {
return Y << 3
}
sub shiftlb4() -> ubyte {
return Y << 4
}
sub shiftlb5() -> ubyte {
return Y << 5
}
sub shiftlb6() -> ubyte {
return Y << 6
}
sub shiftlb7() -> ubyte {
return Y << 7
}
sub shiftlb8() -> ubyte {
return Y << 8
}
sub shiftlb9() -> ubyte {
return Y << 9
}
sub shiftrb0() -> ubyte {
return Y >> 0
}
sub shiftrb1() -> ubyte {
return Y >> 1
}
sub shiftrb2() -> ubyte {
return Y >> 2
}
sub shiftrb3() -> ubyte {
return Y >> 3
}
sub shiftrb4() -> ubyte {
return Y >> 4
}
sub shiftrb5() -> ubyte {
return Y >> 5
}
sub shiftrb6() -> ubyte {
return Y >> 6
}
sub shiftrb7() -> ubyte {
return Y >> 7
}
sub shiftrb8() -> ubyte {
return Y >> 8
}
sub shiftrb9() -> ubyte {
return Y >> 9
}
}