Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-02-20 03:29:01 +00:00
Code Issues Projects Releases Wiki Activity

added the missing stack assignments

Browse Source
This commit is contained in:
Irmen de Jong 2020-08-25 17:43:35 +02:00
parent d19b17cbfe
commit 032d20ff37
1 changed files with 54 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
compiler/src/prog8/compiler/target/c64/codegen/assignment/AssignmentAsmGen.kt
View File

@ -423,7 +423,14 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
else -> throw AssemblyError("can't load word in a single 8-bit register") else -> throw AssemblyError("can't load word in a single 8-bit register")
} }
} }
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
asmgen.out("""
lda #$sourceName
sta $ESTACK_LO_HEX,x
lda #$sourceName+1
sta $ESTACK_HI_HEX,x
dex""")
}
} }
} }
@ -458,7 +465,7 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
} }
TargetStorageKind.MEMORY -> throw AssemblyError("can't assign float to mem byte") TargetStorageKind.MEMORY -> throw AssemblyError("can't assign float to mem byte")
TargetStorageKind.REGISTER -> throw AssemblyError("can't assign float to register") TargetStorageKind.REGISTER -> throw AssemblyError("can't assign float to register")
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> asmgen.out(" lda #<$sourceName | ldy #>$sourceName | jsr c64flt.push_float")
} }
} }
@ -503,7 +510,12 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
RegisterOrPair.XY -> asmgen.out(" ldx $sourceName | ldy #0") RegisterOrPair.XY -> asmgen.out(" ldx $sourceName | ldy #0")
} }
} }
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
asmgen.out("""
lda #$sourceName
sta $ESTACK_LO_HEX,x
dex""")
}
} }
} }
@ -576,7 +588,13 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
} }
} }
} }
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
when(register) {
CpuRegister.A -> asmgen.out(" sta $ESTACK_LO_HEX,x | dex")
CpuRegister.X -> throw AssemblyError("can't use X here")
CpuRegister.Y -> asmgen.out(" tya | sta $ESTACK_LO_HEX,x | dex")
}
}
} }
} }
@ -630,7 +648,14 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
else -> throw AssemblyError("can't assign word to single byte register") else -> throw AssemblyError("can't assign word to single byte register")
} }
} }
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
asmgen.out("""
lda #<${word.toHex()}
sta $ESTACK_LO_HEX,x
lda #>${word.toHex()}
sta $ESTACK_HI_HEX,x
dex""")
}
} }
} }
@ -670,7 +695,12 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
RegisterOrPair.Y -> asmgen.out(" ldy #${byte.toHex()}") RegisterOrPair.Y -> asmgen.out(" ldy #${byte.toHex()}")
else -> throw AssemblyError("can't assign byte to word register apir") else -> throw AssemblyError("can't assign byte to word register apir")
} }
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
asmgen.out("""
lda #${byte.toHex()}
sta $ESTACK_LO_HEX,x
dex""")
}
} }
} }
@ -719,7 +749,10 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
} }
TargetStorageKind.MEMORY -> throw AssemblyError("can't assign float to memory byte") TargetStorageKind.MEMORY -> throw AssemblyError("can't assign float to memory byte")
TargetStorageKind.REGISTER -> throw AssemblyError("can't assign float to register") TargetStorageKind.REGISTER -> throw AssemblyError("can't assign float to register")
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
val floatConst = asmgen.getFloatConst(float)
asmgen.out(" lda #<$floatConst | ldy #>$floatConst | jsr c64flt.push_float")
}
} }
} else { } else {
// non-zero value // non-zero value
@ -779,7 +812,10 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
} }
TargetStorageKind.MEMORY -> throw AssemblyError("can't assign float to memory byte") TargetStorageKind.MEMORY -> throw AssemblyError("can't assign float to memory byte")
TargetStorageKind.REGISTER -> throw AssemblyError("can't assign float to register") TargetStorageKind.REGISTER -> throw AssemblyError("can't assign float to register")
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
val floatConst = asmgen.getFloatConst(float)
asmgen.out(" lda #<$floatConst | ldy #>$floatConst | jsr c64flt.push_float")
}
} }
} }
} }
@ -805,7 +841,12 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
RegisterOrPair.Y -> asmgen.out(" ldy ${address.toHex()}") RegisterOrPair.Y -> asmgen.out(" ldy ${address.toHex()}")
else -> throw AssemblyError("can't assign byte to word register apir") else -> throw AssemblyError("can't assign byte to word register apir")
} }
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
asmgen.out("""
lda ${address.toHex()}
sta $ESTACK_LO_HEX,x
dex""")
}
} }
} else if (identifier != null) { } else if (identifier != null) {
when(target.kind) { when(target.kind) {
@ -829,7 +870,10 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
else -> throw AssemblyError("can't assign byte to word register apir") else -> throw AssemblyError("can't assign byte to word register apir")
} }
} }
TargetStorageKind.STACK -> TODO() TargetStorageKind.STACK -> {
asmgen.loadByteFromPointerIntoA(identifier)
asmgen.out(" sta $ESTACK_LO_HEX,x | dex")
}
} }
} }
} }