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

fix 16+8 bit add and sub sign extensions

Browse Source
This commit is contained in:
Irmen de Jong 2020-09-25 22:51:59 +02:00
parent d7ceda4d82
commit 225bfc4164
2 changed files with 47 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
compiler/src/prog8/compiler/target/c64/codegen/assignment/AugmentableAssignmentAsmGen.kt
View File

@ -840,22 +840,34 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
// the other variable is a BYTE type so optimize for that
when (operator) {
// note: ** (power) operator requires floats.
"+" -> asmgen.out("""
lda $name
clc
adc $otherName
"+" -> {
asmgen.out("""
ldy #0
lda $otherName
bpl +
dey ; sign extend
+ clc
adc $name
sta $name
bcc +
inc $name+1
+ """)
"-" -> asmgen.out("""
tya
adc $name+1
sta $name+1""")
}
"-" -> {
asmgen.out("""
ldy #0
lda $otherName
bpl +
dey ; sign extend
+ sty P8ZP_SCRATCH_B1
lda $name
sec
sbc $otherName
sta $name
bcs +
dec $name+1
+ """)
lda $name+1
sbc P8ZP_SCRATCH_B1
sta $name+1""")
}
"*" -> {
asmgen.out("""
lda $otherName
@ -993,25 +1005,37 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
when(valueDt) {
in ByteDatatypes -> {
// the other variable is a BYTE type so optimize for that TODO does this even occur?
// the other variable is a BYTE type so optimize for that
when (operator) {
// note: ** (power) operator requires floats.
"+" -> asmgen.out("""
lda $name
clc
adc P8ESTACK_LO+1,x
"+" -> {
asmgen.out("""
ldy #0
lda P8ESTACK_LO+1,x
bpl +
dey ; sign extend
+ clc
adc $name
sta $name
bcc +
inc $name+1
+ """)
"-" -> asmgen.out("""
tya
adc $name+1
sta $name+1""")
}
"-" -> {
asmgen.out("""
ldy #0
lda P8ESTACK_LO+1,x
bpl +
dey ; sign extend
+ sty P8ZP_SCRATCH_B1
lda $name
sec
sbc P8ESTACK_LO+1,x
sta $name
bcs +
dec $name+1
+ """)
lda $name+1
sbc P8ZP_SCRATCH_B1
sta $name+1""")
}
"*" -> TODO("mul word byte")
"/" -> TODO("div word byte")
"%" -> TODO("word remainder byte")

2
examples/testforloops.p8
View File

@ -3,8 +3,6 @@
; Note: this program is compatible with C64 and CX16.
; TODO fix byte var in arrayvar fail
main {
sub start() {