Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-06-30 02:29:51 +00:00
Code Issues Projects Releases Wiki Activity

rsave/rrestore added

Browse Source
This commit is contained in:
Irmen de Jong 2018-10-14 22:28:16 +02:00
parent b52120139c
commit ba384c9722
7 changed files with 43 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
.gitignore vendored
View File

@ -1,23 +1,25 @@
*.py[cod]
*.egg
*.egg-info
/MANIFEST
/.idea/
.tox/
/build/
/dist/
/output/
.*cache/
.eggs/
*.directory
*.prg
*.asm
*.labels.txt
__pycache__/
parser.out
parsetab.py
.pytest_cache/
*.vice-mon-list
docs/build
out/
**/*.interp
**/*.tokens
*.py[cod]
*.egg
*.egg-info
.eggs/
/MANIFEST
.tox/
__pycache__/
parser.out
parsetab.py
.pytest_cache/

2
compiler/src/prog8/compiler/Compiler.kt
View File

@ -769,6 +769,8 @@ private class StatementTranslator(private val prog: IntermediateProgram,
"clear_carry" -> prog.instr(Opcode.CLC)
"set_irqd" -> prog.instr(Opcode.SEI)
"clear_irqd" -> prog.instr(Opcode.CLI)
"rsave" -> prog.instr(Opcode.RSAVE)
"rrestore" -> prog.instr(Opcode.RRESTORE)
else -> createSyscall(funcname) // call builtin function
}
}

2
compiler/src/prog8/compiler/intermediate/Opcode.kt
View File

@ -221,6 +221,8 @@ enum class Opcode {
CLC, // clear carry status flag NOTE: is mostly fake, carry flag is not affected by any numeric operations
SEI, // set irq-disable status flag
CLI, // clear irq-disable status flag
RSAVE, // save all internal registers and status flags
RRESTORE, // restore all internal registers and status flags
NOP, // do nothing
BREAKPOINT, // breakpoint
TERMINATE, // end the program

4
compiler/src/prog8/compiler/target/c64/AsmGen.kt
View File

@ -108,13 +108,15 @@ class AsmGen(val options: CompilationOptions) {
when(ins.opcode) {
Opcode.LINE -> out("\t; src line: ${ins.callLabel}")
Opcode.NOP -> out("\tnop") // shouldn't be present anymore though
Opcode.TERMINATE -> out("\tbrk\t; terminate!")
Opcode.SEC -> out("\tsec")
Opcode.CLC -> out("\tclc")
Opcode.SEI -> out("\tsei")
Opcode.CLI -> out("\tcli")
Opcode.TERMINATE -> out("\tbrk\t; terminate!")
Opcode.B2UB -> {} // is a no-op, just carry on with the byte as-is
Opcode.UB2B -> {} // is a no-op, just carry on with the byte as-is
Opcode.RSAVE -> out("\tphp\n\tpha\n\ttxa\n\tpha\n\ttya\n\tpha")
Opcode.RRESTORE -> out("\tpla\n\ttay\n\tpla\n\ttax\n\tpla\n\tplp")
Opcode.PUSH_BYTE -> {
// check if we load a register (X, Y) with constant value
val nextIns = block.getIns(insIdx+1)

2
compiler/src/prog8/functions/BuiltinFunctions.kt
View File

@ -54,6 +54,8 @@ val BuiltinFunctions = mapOf(
"rnd" to FunctionSignature(true, emptyList(), DataType.UBYTE),
"rndw" to FunctionSignature(true, emptyList(), DataType.UWORD),
"rndf" to FunctionSignature(true, emptyList(), DataType.FLOAT),
"rsave" to FunctionSignature(false, emptyList(), null),
"rrestore" to FunctionSignature(false, emptyList(), null),
"set_carry" to FunctionSignature(false, emptyList(), null),
"clear_carry" to FunctionSignature(false, emptyList(), null),
"set_irqd" to FunctionSignature(false, emptyList(), null),

14
compiler/src/prog8/stackvm/StackVm.kt
View File

@ -1349,6 +1349,20 @@ class StackVm(private var traceOutputFile: String?) {
array.doubleArray!![index] = value.numericValue().toDouble()
}
}
Opcode.RSAVE -> {
evalstack.push(Value(DataType.UBYTE, if(P_irqd) 1 else 0))
evalstack.push(Value(DataType.UBYTE, if(P_carry) 1 else 0))
evalstack.push(variables["X"])
evalstack.push(variables["Y"])
evalstack.push(variables["A"])
}
Opcode.RRESTORE -> {
variables["A"] = evalstack.pop()
variables["X"] = evalstack.pop()
variables["Y"] = evalstack.pop()
P_carry = evalstack.pop().asBooleanValue
P_irqd = evalstack.pop().asBooleanValue
}
//else -> throw VmExecutionException("unimplemented opcode: ${ins.opcode}")
}

8
docs/source/programming.rst
View File

@ -649,3 +649,11 @@ set_carry() / clear_carry()
set_irqd() / clear_irqd()
Set (or clear) the CPU status register Interrupt Disable flag. No result value.
(translated into ``SEI`` or ``CLI`` cpu instruction)
rsave()
Saves the CPU registers and the status flags.
You can now more or less 'safely' use the registers directly, until you
restore them again so the generated code can carry on normally.
rrestore()
Restores the CPU registers and the status flags from previously saved values.