diff --git a/compiler/src/prog8/compiler/target/c64/codegen/AsmGen.kt b/compiler/src/prog8/compiler/target/c64/codegen/AsmGen.kt index e051c3120..aac7d351a 100644 --- a/compiler/src/prog8/compiler/target/c64/codegen/AsmGen.kt +++ b/compiler/src/prog8/compiler/target/c64/codegen/AsmGen.kt @@ -1017,6 +1017,7 @@ $counterVar .byte 0""") } } } + out(" jmp $endLabel") for(choiceBlock in choiceBlocks) { out(choiceBlock.first) translate(choiceBlock.second) diff --git a/compiler/src/prog8/compiler/target/c64/codegen/AsmOptimizer.kt b/compiler/src/prog8/compiler/target/c64/codegen/AsmOptimizer.kt index d683a75d9..5a2e54c59 100644 --- a/compiler/src/prog8/compiler/target/c64/codegen/AsmOptimizer.kt +++ b/compiler/src/prog8/compiler/target/c64/codegen/AsmOptimizer.kt @@ -31,13 +31,6 @@ fun optimizeAssembly(lines: MutableList): Int { numberOfOptimizations++ } - mods = optimizeStoreLoadSame(linesByFour) - if(mods.isNotEmpty()) { - apply(mods, lines) - linesByFour = getLinesBy(lines, 4) - numberOfOptimizations++ - } - mods= optimizeJsrRts(linesByFour) if(mods.isNotEmpty()) { apply(mods, lines) diff --git a/examples/tehtriz.p8 b/examples/tehtriz.p8 index 6288fe632..1e16ffc01 100644 --- a/examples/tehtriz.p8 +++ b/examples/tehtriz.p8 @@ -7,8 +7,6 @@ ; staged speed increase ; some simple sound effects -; TODO fix auto dropping of blocks (first fix testarrays) - %target c64 %import syslib %import textio diff --git a/examples/test.p8 b/examples/test.p8 index 228d168b0..006cd22a8 100644 --- a/examples/test.p8 +++ b/examples/test.p8 @@ -7,198 +7,218 @@ main { + + sub keypress(ubyte key) { + txt.print("keypress:") + txt.print_ub(key) + txt.chrout('=') + when key { + 157, ',' -> txt.chrout('a') + 29, '/' -> txt.chrout('b') + 17, '.' -> txt.chrout('c') + 145, ' ' -> txt.chrout('d') + } + txt.chrout('\n') + } + sub start() { - byte bb= -22 - ubyte ubb = 22 - word ww= -2222 - uword uww = 2222 - float ff = -1.2345 - - repeat(25) - txt.chrout('\n') - - if bb < -1 { - txt.print("1 ok\n") - } else { - txt.print("1 fail\n") + repeat { + ubyte key=c64.GETIN() + if key + keypress(key) } - if bb < -99 { - txt.print("2 fail\n") - } else { - txt.print("2 ok\n") - } - - if bb<0 { - txt.print("2b ok\n") - } else { - txt.print("2b fail\n") - } - - if ww < -1 { - txt.print("3 ok\n") - } else { - txt.print("3 fail\n") - } - - if ww < -9999 { - txt.print("4 fail\n") - } else { - txt.print("4 ok\n") - } - - if ww < 0 { - txt.print("4b ok\n") - } else { - txt.print("4b fail\n") - } - - if ff < -1.0 { - txt.print("4c ok\n") - } else { - txt.print("4c fail\n") - } - - if ff < -9999.9 { - txt.print("4d fail\n") - } else { - txt.print("4d ok\n") - } - - if ff < 0.0 { - txt.print("4e ok\n") - } else { - txt.print("4e fail\n") - } - - if ubb < 100 { - txt.print("4f ok\n") - } else { - txt.print("4f fail\n") - } - - if ubb < 2 { - txt.print("4g fail\n") - } else { - txt.print("4g ok\n") - } - - if ubb<0 { - txt.print("4h fail\n") - } else { - txt.print("4h ok\n") - } - - if uww < 10000 { - txt.print("4i ok\n") - } else { - txt.print("4i fail\n") - } - - if uww < 2 { - txt.print("4j fail\n") - } else { - txt.print("4j ok\n") - } - - if uww < 0 { - txt.print("4k fail\n") - } else { - txt.print("4k ok\n") - } - - - - if bb > -99 { - txt.print("5 ok\n") - } else { - txt.print("5 fail\n") - } - - if bb > -1 { - txt.print("6 fail\n") - } else { - txt.print("6 ok\n") - } - - if bb > 0 { - txt.print("6b fail\n") - } else { - txt.print("6b ok\n") - } - - if ww > -9999 { - txt.print("7 ok\n") - } else { - txt.print("7 fail\n") - } - - if ww > -1 { - txt.print("8 fail\n") - } else { - txt.print("8 ok\n") - } - - if ww>0 { - txt.print("8b fail\n") - } else { - txt.print("8b ok\n") - } - - if ff > -1.0 { - txt.print("8c fail\n") - } else { - txt.print("8c ok\n") - } - - if ff > -9999.9 { - txt.print("8d ok\n") - } else { - txt.print("8d fail\n") - } - - if ff > 0.0 { - txt.print("8e fail\n") - } else { - txt.print("8e ok\n") - } - - if ubb > 5 { - txt.print("8f ok\n") - } else { - txt.print("8f fail\n") - } - - if ubb > 250 { - txt.print("8g fail\n") - } else { - txt.print("8g ok\n") - } - - if ubb > 0 { - txt.print("8h ok\n") - } else { - txt.print("8h fail\n") - } - - if uww > 5 { - txt.print("8i ok\n") - } else { - txt.print("8i fail\n") - } - - if uww > 9999 { - txt.print("8j fail\n") - } else { - txt.print("8j ok\n") - } - - if uww>0 { - txt.print("8b ok\n") - } else { - txt.print("8b fail\n") - } +; byte bb= -22 +; ubyte ubb = 22 +; word ww= -2222 +; uword uww = 2222 +; float ff = -1.2345 +; +; repeat(25) +; txt.chrout('\n') +; +; if bb < -1 { +; txt.print("1 ok\n") +; } else { +; txt.print("1 fail\n") +; } +; +; if bb < -99 { +; txt.print("2 fail\n") +; } else { +; txt.print("2 ok\n") +; } +; +; if bb<0 { +; txt.print("2b ok\n") +; } else { +; txt.print("2b fail\n") +; } +; +; if ww < -1 { +; txt.print("3 ok\n") +; } else { +; txt.print("3 fail\n") +; } +; +; if ww < -9999 { +; txt.print("4 fail\n") +; } else { +; txt.print("4 ok\n") +; } +; +; if ww < 0 { +; txt.print("4b ok\n") +; } else { +; txt.print("4b fail\n") +; } +; +; if ff < -1.0 { +; txt.print("4c ok\n") +; } else { +; txt.print("4c fail\n") +; } +; +; if ff < -9999.9 { +; txt.print("4d fail\n") +; } else { +; txt.print("4d ok\n") +; } +; +; if ff < 0.0 { +; txt.print("4e ok\n") +; } else { +; txt.print("4e fail\n") +; } +; +; if ubb < 100 { +; txt.print("4f ok\n") +; } else { +; txt.print("4f fail\n") +; } +; +; if ubb < 2 { +; txt.print("4g fail\n") +; } else { +; txt.print("4g ok\n") +; } +; +; if ubb<0 { +; txt.print("4h fail\n") +; } else { +; txt.print("4h ok\n") +; } +; +; if uww < 10000 { +; txt.print("4i ok\n") +; } else { +; txt.print("4i fail\n") +; } +; +; if uww < 2 { +; txt.print("4j fail\n") +; } else { +; txt.print("4j ok\n") +; } +; +; if uww < 0 { +; txt.print("4k fail\n") +; } else { +; txt.print("4k ok\n") +; } +; +; +; +; if bb > -99 { +; txt.print("5 ok\n") +; } else { +; txt.print("5 fail\n") +; } +; +; if bb > -1 { +; txt.print("6 fail\n") +; } else { +; txt.print("6 ok\n") +; } +; +; if bb > 0 { +; txt.print("6b fail\n") +; } else { +; txt.print("6b ok\n") +; } +; +; if ww > -9999 { +; txt.print("7 ok\n") +; } else { +; txt.print("7 fail\n") +; } +; +; if ww > -1 { +; txt.print("8 fail\n") +; } else { +; txt.print("8 ok\n") +; } +; +; if ww>0 { +; txt.print("8b fail\n") +; } else { +; txt.print("8b ok\n") +; } +; +; if ff > -1.0 { +; txt.print("8c fail\n") +; } else { +; txt.print("8c ok\n") +; } +; +; if ff > -9999.9 { +; txt.print("8d ok\n") +; } else { +; txt.print("8d fail\n") +; } +; +; if ff > 0.0 { +; txt.print("8e fail\n") +; } else { +; txt.print("8e ok\n") +; } +; +; if ubb > 5 { +; txt.print("8f ok\n") +; } else { +; txt.print("8f fail\n") +; } +; +; if ubb > 250 { +; txt.print("8g fail\n") +; } else { +; txt.print("8g ok\n") +; } +; +; if ubb > 0 { +; txt.print("8h ok\n") +; } else { +; txt.print("8h fail\n") +; } +; +; if uww > 5 { +; txt.print("8i ok\n") +; } else { +; txt.print("8i fail\n") +; } +; +; if uww > 9999 { +; txt.print("8j fail\n") +; } else { +; txt.print("8j ok\n") +; } +; +; if uww>0 { +; txt.print("8b ok\n") +; } else { +; txt.print("8b fail\n") +; } ; @($c000) *= 99 ; TODO implement