curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-03-11 21:51:50 +09:00
Code Issues Packages Projects Releases Wiki Activity

basic:SAVE function, filesystem:write

Browse Source
This commit is contained in:
minjaesong
2020-11-14 11:56:05 +09:00
parent c3cc6f4d1a
commit 5c73205d44
8 changed files with 375 additions and 242 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/net/torvald/tsvm/AppLoader.java
View File

@@ -4,7 +4,10 @@ import com.badlogic.gdx.Gdx;
import com.badlogic.gdx.backends.lwjgl.LwjglApplication;
import com.badlogic.gdx.backends.lwjgl.LwjglApplicationConfiguration;
import com.badlogic.gdx.graphics.glutils.ShaderProgram;
import net.torvald.tsvm.peripheral.BasicBios;
import net.torvald.tsvm.peripheral.BasicRom;
import net.torvald.tsvm.peripheral.GenericBios;
import net.torvald.tsvm.peripheral.VMProgramRom;
public class AppLoader {
@@ -27,7 +30,8 @@ public class AppLoader {
// val vm = VM(64.kB(), TheRealWorld(), arrayOf(GenericBios))
VM vm = new VM(64 << 10, new TheRealWorld(), new GenericBios[]{GenericBios.INSTANCE});
//VM vm = new VM(64 << 10, new TheRealWorld(), new VMProgramRom[]{GenericBios.INSTANCE});
VM vm = new VM(64 << 10, new TheRealWorld(), new VMProgramRom[]{BasicBios.INSTANCE, BasicRom.INSTANCE});
new LwjglApplication(new VMGUI(vm, appConfig), appConfig);
}

6
src/net/torvald/tsvm/VMGUI.kt
View File

@@ -26,6 +26,8 @@ class VMGUI(val vm: VM, val appConfig: LwjglApplicationConfiguration) : Applicat
lateinit var memvwr: Memvwr
val usememvwr = false
override fun create() {
super.create()
@@ -52,7 +54,7 @@ class VMGUI(val vm: VM, val appConfig: LwjglApplicationConfiguration) : Applicat
vm.getErrorStream = { gpu.getErrorStream() }
vm.getInputStream = { gpu.getInputStream() }
memvwr = Memvwr(vm)
if (usememvwr) memvwr = Memvwr(vm)
vmRunner = VMRunnerFactory(vm, "js")
@@ -67,7 +69,7 @@ class VMGUI(val vm: VM, val appConfig: LwjglApplicationConfiguration) : Applicat
override fun render() {
Gdx.graphics.setTitle("${AppLoader.appTitle} $EMDASH F: ${Gdx.graphics.framesPerSecond}")
memvwr.update()
if (usememvwr) memvwr.update()
super.render()

4
src/net/torvald/tsvm/peripheral/TestDiskDrive.kt
View File

@@ -373,10 +373,6 @@ class TestDiskDrive(private val vm: VM, private val driveNum: Int, theRootPath:
statusCode = STATE_CODE_OPERATION_NOT_PERMITTED
return
}
if (!file.canWrite()) {
statusCode = STATE_CODE_READ_ONLY
return
}
writeMode = true
writeModeLength = inputString.substring(5, inputString.length).toInt()
statusCode = STATE_CODE_STANDBY

38
src/net/torvald/tsvm/peripheral/VMProgramRom.kt
View File

@@ -27,5 +27,43 @@ object GenericBios : VMProgramRom {
contents.toString(VM.CHARSET)
}
override fun get(addr: Int): Byte = contents[addr]
}
object BasicBios : VMProgramRom {
private val contents: ByteArray
init {
val bytes = File("./assets/bios/basicbios.js").readBytes()
contents = bytes.sliceArray(0 until minOf(65536, bytes.size))
}
override fun readAll(): String {
// check if bios is compressed in gzip
return if (contents.startsWith(GZIP_HEADER))
CompressorDelegate.decomp(contents).toString(VM.CHARSET)
else
contents.toString(VM.CHARSET)
}
override fun get(addr: Int): Byte = contents[addr]
}
object BasicRom : VMProgramRom {
private val contents: ByteArray
init {
val bytes = File("./assets/tbas/basic.js").readBytes()
contents = bytes.sliceArray(0 until minOf(65536, bytes.size))
}
override fun readAll(): String {
// check if bios is compressed in gzip
return if (contents.startsWith(GZIP_HEADER))
CompressorDelegate.decomp(contents).toString(VM.CHARSET)
else
contents.toString(VM.CHARSET)
}
override fun get(addr: Int): Byte = contents[addr]
}