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

fix direcetmemoryread invalid asm

Browse Source
This commit is contained in:
Irmen de Jong 2020-03-26 22:46:05 +01:00
parent 22f8f4f359
commit 152888ee93
4 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/res/prog8lib/prog8lib.asm
View File

@ -1772,6 +1772,7 @@ _loop_hi ldy _index_first
ror2_mem_ub .proc
; -- in-place 8-bit ror of byte at memory location on stack
; TODO use self modifying code here
inx
lda c64.ESTACK_LO,x
sta c64.SCRATCH_ZPWORD1
@ -1788,7 +1789,7 @@ ror2_mem_ub .proc
rol2_mem_ub .proc
; -- in-place 8-bit rol of byte at memory location on stack
;" lda ${number.toHex()} | cmp #\$80 | rol a | sta ${number.toHex()}"
; TODO use self modifying code here
inx
lda c64.ESTACK_LO,x
sta c64.SCRATCH_ZPWORD1

3
compiler/src/prog8/compiler/Main.kt
View File

@ -40,6 +40,9 @@ fun compileProgram(filepath: Path,
if (optimize)
optimizeAst(programAst, errors)
postprocessAst(programAst, errors, compilationOptions)
printAst(programAst) // TODO
if(writeAssembly)
programName = writeAssembly(programAst, errors, outputDir, optimize, compilationOptions)
}

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

@ -127,8 +127,16 @@ internal class ExpressionsAsmGen(private val program: Program, private val asmge
asmgen.out(" lda ${address.toHex()} | sta $ESTACK_LO_HEX,x | dex")
}
is IdentifierReference -> {
// the identifier is a pointer variable, so read the value from the address in it
val sourceName = asmgen.asmIdentifierName(expr.addressExpression as IdentifierReference)
asmgen.out(" lda $sourceName | sta $ESTACK_LO_HEX,x | dex")
asmgen.out("""
lda $sourceName
sta (+) +1
lda $sourceName+1
sta (+) +2
+ lda ${'$'}ffff ; modified
sta $ESTACK_LO_HEX,x
dex""")
}
else -> {
translateExpression(expr.addressExpression)

15
compiler/src/prog8/compiler/target/c64/codegen/PostIncrDecrAsmGen.kt
View File

@ -66,20 +66,11 @@ internal class PostIncrDecrAsmGen(private val program: Program, private val asmg
}
is IdentifierReference -> {
val what = asmgen.asmIdentifierName(addressExpr)
asmgen.out("""
ldy $what
sty ${C64Zeropage.SCRATCH_W1}
ldy $what+1
sty ${C64Zeropage.SCRATCH_W1 + 1}
ldy #0
lda (${C64Zeropage.SCRATCH_W1}),y
""")
asmgen.out(" lda $what | sta (+) +1 | lda $what+1 | sta (+) +2")
if(incr)
asmgen.out(" clc | adc #1")
asmgen.out("+\tinc ${'$'}ffff\t; modified")
else
asmgen.out(" sec | sbc #1")
asmgen.out(" sta (${C64Zeropage.SCRATCH_W1}),y")
asmgen.out("+\tdec ${'$'}ffff\t; modified")
}
else -> throw AssemblyError("weird target type $targetMemory")
}