mirror of
https://github.com/irmen/prog8.git
synced 2024-07-09 17:29:46 +00:00
improved zero page address addresses for floating point support mode
This commit is contained in:
parent
ee497d2ffb
commit
bcdf3f2b83
@ -186,6 +186,15 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if(zeropage.exitProgramStrategy!=Zeropage.ExitProgramStrategy.CLEAN_EXIT) {
|
||||||
|
// disable shift-commodore charset switching and run/stop key
|
||||||
|
out(" lda #$80")
|
||||||
|
out(" lda #$80")
|
||||||
|
out(" sta 657\t; disable charset switching")
|
||||||
|
out(" lda #239")
|
||||||
|
out(" sta 808\t; disable run/stop key")
|
||||||
|
}
|
||||||
|
|
||||||
out(" ldx #\$ff\t; init estack pointer")
|
out(" ldx #\$ff\t; init estack pointer")
|
||||||
out(" ; initialize the variables in each block")
|
out(" ; initialize the variables in each block")
|
||||||
for(block in program.blocks) {
|
for(block in program.blocks) {
|
||||||
|
@ -34,8 +34,8 @@ class C64Zeropage(options: CompilationOptions) : Zeropage(options) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
override val exitProgramStrategy: ExitProgramStrategy = when(options.zeropage) {
|
override val exitProgramStrategy: ExitProgramStrategy = when(options.zeropage) {
|
||||||
ZeropageType.BASICSAFE, ZeropageType.FLOATSAFE -> ExitProgramStrategy.CLEAN_EXIT
|
ZeropageType.BASICSAFE -> ExitProgramStrategy.CLEAN_EXIT
|
||||||
ZeropageType.KERNALSAFE, ZeropageType.FULL -> ExitProgramStrategy.SYSTEM_RESET
|
ZeropageType.FLOATSAFE, ZeropageType.KERNALSAFE, ZeropageType.FULL -> ExitProgramStrategy.SYSTEM_RESET
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user