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

working HSDPA impl with driver -- this time

Browse Source
This commit is contained in:
minjaesong
2025-08-17 03:19:09 +09:00
parent 1d3d3bd246
commit b6b61dbe8f
5 changed files with 61 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
assets/disk0/tvdos/HSDPADRV.SYS
View File

@@ -131,9 +131,11 @@ for (let tapeIndex = 0; tapeIndex < 4; tapeIndex++) {
try {
// If offset specified, rewind and skip to position
if (offset && offset > 0) {
if (offset !== undefined && offset >= 0) {
hsdpa.rewind()
hsdpa.skip(offset)
if (offset > 0) {
hsdpa.skip(offset)
}
}
// Read data to VM memory

28
assets/disk0/tvdos/include/seqreadtape.mjs
View File

@@ -55,10 +55,11 @@ function hsdpaReadToMemory(bytes, vmMemoryPointer) {
sys.poke(HSDPA_REG_SEQ_IO_ARG1, bytes & 0xFF) // LSB
sys.poke(HSDPA_REG_SEQ_IO_ARG1 - 1, (bytes >> 8) & 0xFF) // MSB
sys.poke(HSDPA_REG_SEQ_IO_ARG1 - 2, (bytes >> 16) & 0xFF) // MSB2
// Write arg2 (VM memory pointer) - using backwards addressing
sys.poke(HSDPA_REG_SEQ_IO_ARG2, vmMemoryPointer & 0xFF) // LSB
sys.poke(HSDPA_REG_SEQ_IO_ARG2 - 1, (vmMemoryPointer >> 8) & 0xFF) // MSB
sys.poke(HSDPA_REG_SEQ_IO_ARG2 - 2, (vmMemoryPointer >> 16) & 0xFF) // MSB2
// Write arg2 (VM memory pointer) - handle negative numbers correctly
let ptr = vmMemoryPointer >>> 0 // Convert to unsigned 32-bit
sys.poke(HSDPA_REG_SEQ_IO_ARG2, ptr & 0xFF) // LSB
sys.poke(HSDPA_REG_SEQ_IO_ARG2 - 1, (ptr >> 8) & 0xFF) // MSB
sys.poke(HSDPA_REG_SEQ_IO_ARG2 - 2, (ptr >> 16) & 0xFF) // MSB2
// Execute read operation
sys.poke(HSDPA_REG_SEQ_IO_OPCODE, HSDPA_OPCODE_READ)
}
@@ -130,15 +131,7 @@ function readBytes(length, ptrToDecode) {
let ptr = (ptrToDecode === undefined) ? sys.malloc(length) : ptrToDecode
try {
// Skip to current read position if needed
if (readCount > 0) {
hsdpaRewind()
if (readCount > 0) {
hsdpaSkip(readCount)
}
}
// Read directly using HSDPA - no 4096 byte limitation!
// Read directly using HSDPA - position is maintained automatically by HSDPA
hsdpaReadToMemory(length, ptr)
readCount += length
@@ -155,17 +148,16 @@ function readBytes(length, ptrToDecode) {
function readInt() {
let b = readBytes(4)
let i = (sys.peek(b) & 0xFF) |
((sys.peek(b+1) & 0xFF) << 8) |
((sys.peek(b+2) & 0xFF) << 16) |
((sys.peek(b+3) & 0xFF) << 24)
let i = (sys.peek(b)) | (sys.peek(b+1) << 8) | (sys.peek(b+2) << 16) | (sys.peek(b+3) << 24)
sys.free(b)
return i
}
function readShort() {
let b = readBytes(2)
let i = (sys.peek(b) & 0xFF) | ((sys.peek(b+1) & 0xFF) << 8)
let byte0 = sys.peek(b) & 0xFF
let byte1 = sys.peek(b+1) & 0xFF
let i = byte0 | (byte1 << 8)
sys.free(b)
return i
}