Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2026-01-23 06:16:22 +00:00
Code Issues Projects Releases Wiki Activity

tweaks to wav streaming examples

Browse Source
This commit is contained in:
Irmen de Jong
2025-12-23 03:47:54 +01:00
parent 45ad0911df
commit aa3bbbb867
7 changed files with 91 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
codeGenCpu6502/src/prog8/codegen/cpu6502/assignment/AssignmentAsmGen.kt
View File

@@ -2803,6 +2803,9 @@ $endLabel""")
assignExpressionToRegister(value, RegisterOrPair.AY, true)
asmgen.out(" jsr floats.GIVAYFAY")
}
valueDt.isLong -> {
TODO("assign typecasted long to float ${value.position}")
}
else -> throw AssemblyError("invalid dt at ${target.position}")
}
if(target.register==RegisterOrPair.FAC2) {
@@ -3294,10 +3297,12 @@ $endLabel""")
asmgen.out(" lda cx16.$startreg | sta $targetAsmVarName")
} else if(targetDt.isWord || targetDt.isPointer) {
asmgen.out(" lda cx16.$startreg | sta $targetAsmVarName | lda cx16.$startreg+1 | sta $targetAsmVarName+1")
} else if(targetDt.isFloat) {
TODO("assign type casted long register $regs to float - use temporary variable for now. Target var=$targetAsmVarName")
} else
throw AssemblyError("weird type")
throw AssemblyError("weird type $targetDt")
}
else -> throw AssemblyError("weird type")
else -> throw AssemblyError("weird type $sourceDt")
}
}