one idea down, one last idea to go

assets/disk0/home/soundtest.js

@@ -0,0 +1,130 @@
+/*let music = files.open("A:/orstphone-hdma.bytes")
+let samples = sys.malloc(65536)
+music.pread(samples, 65534)
+
+audio.setPcmMode(0)
+audio.setMasterVolume(0, 255)
+audio.putPcmDataByPtr(samples, 65534, 0)
+audio.setLoopPoint(0, 65534)
+audio.play(0)*/
+
+let filename = exec_args[1]
+const port = _TVDOS.DRV.FS.SERIAL._toPorts("A")[0]
+
+let filex = files.open(_G.shell.resolvePathInput(filename).full)
+const FILE_SIZE = filex.size
+
+
+
+println("Reading...")
+serial.println("!!! READING")
+
+com.sendMessage(port, "DEVRST\x17")
+com.sendMessage(port, `OPENR"${filename}",1`)
+let statusCode = com.getStatusCode(port)
+
+if (statusCode != 0) {
+    printerrln(`No such file (${statusCode})`)
+    return statusCode
+}
+
+com.sendMessage(port, "READ")
+statusCode = com.getStatusCode(port)
+if (statusCode != 0) {
+    printerrln("READ failed with "+statusCode)
+    return statusCode
+}
+
+
+
+let readCount = 0
+function readBytes(length) {
+    let ptr = sys.malloc(length)
+    let requiredBlocks = Math.floor((readCount + length) / 4096) - Math.floor(readCount / 4096)
+
+    let completedReads = 0
+
+//    serial.println(`readBytes(${length}); readCount = ${readCount}`)
+
+    for (let bc = 0; bc < requiredBlocks + 1; bc++) {
+        if (completedReads >= length) break
+
+        if (readCount % 4096 == 0) {
+//            serial.println("READ from serial")
+            // pull the actual message
+            sys.poke(-4093 - port, 6);sys.sleep(0) // spinning is required as Graal run is desynced with the Java side
+
+            let blockTransferStatus = ((sys.peek(-4085 - port*2) & 255) | ((sys.peek(-4086 - port*2) & 255) << 8))
+            let thisBlockLen = blockTransferStatus & 4095
+            if (thisBlockLen == 0) thisBlockLen = 4096 // [1, 4096]
+            let hasMore = (blockTransferStatus & 0x8000 != 0)
+
+
+//            serial.println(`block: (${thisBlockLen})[${[...Array(thisBlockLen).keys()].map(k => (sys.peek(-4097 - k) & 255).toString(16).padStart(2,'0')).join()}]`)
+
+            let remaining = Math.min(thisBlockLen, length - completedReads)
+
+//            serial.println(`Pulled a block (${thisBlockLen}); readCount = ${readCount}, completedReads = ${completedReads}, remaining = ${remaining}`)
+
+            // copy from read buffer to designated position
+            sys.memcpy(-4097, ptr + completedReads, remaining)
+
+            // increment readCount properly
+            readCount += remaining
+            completedReads += remaining
+        }
+        else {
+            let padding = readCount % 4096
+            let remaining = length - completedReads
+            let thisBlockLen = Math.min(4096 - padding, length - completedReads)
+
+//            serial.println(`padding = ${padding}; remaining = ${remaining}`)
+//            serial.println(`block: (${thisBlockLen})[${[...Array(thisBlockLen).keys()].map(k => (sys.peek(-4097 - padding - k) & 255).toString(16).padStart(2,'0')).join()}]`)
+//            serial.println(`Reusing a block (${thisBlockLen}); readCount = ${readCount}, completedReads = ${completedReads}`)
+
+            // copy from read buffer to designated position
+            sys.memcpy(-4097 - padding, ptr + completedReads, thisBlockLen)
+
+            // increment readCount properly
+            readCount += thisBlockLen
+            completedReads += thisBlockLen
+        }
+    }
+
+    //serial.println(`END readBytes(${length}); readCount = ${readCount}\n`)
+
+    return ptr
+}
+
+let sampleSize = FILE_SIZE
+const FETCH_INTERVAL = 631578947
+let updateAkku = FETCH_INTERVAL
+let oldNanoTime = sys.nanoTime()
+
+const BLOCK_SIZE = 37894
+
+audio.setPcmMode(0)
+audio.setMasterVolume(0, 255)
+
+while (sampleSize > 0) {
+    let newNanoTime = sys.nanoTime()
+    updateAkku += newNanoTime - oldNanoTime
+    oldNanoTime = newNanoTime
+
+    if (updateAkku >= FETCH_INTERVAL) {
+        println((FILE_SIZE - sampleSize) / FILE_SIZE * 100 + "%")
+        updateAkku -= FETCH_INTERVAL
+
+        let readLength = (sampleSize < BLOCK_SIZE) ? sampleSize : BLOCK_SIZE
+        let samples = readBytes(readLength)
+
+        audio.setUploadLength(0, readLength)
+        audio.putPcmDataByPtr(samples, readLength, 0)
+        audio.play(0)
+
+        sampleSize -= readLength
+        sys.free(samples)
+    }
+
+    sys.spin()
+}

assets/disk0/tvdos/bin/command.js

@@ -5,7 +5,7 @@ let shell_pwd = [""]
 let goInteractive = false
 let goFancy = false
 
-let DEBUG_PRINT = true
+let DEBUG_PRINT = false
 
 let errorlevel = 0
 
@@ -723,7 +723,7 @@ shell.execute = function(line) {
                         if (!gotError && (errorlevel == undefined || (typeof errorlevel.trim == "function" && errorlevel.trim().length == 0) || isNaN(errorlevel)))
                             errorlevel = 0
 
-                        serial.printerr(`errorlevel: ${errorlevel}`)
+                        debugprintln(`errorlevel: ${errorlevel}`)
 
                         _G.shellProgramTitles.pop()
                         sendLcdMsg(_G.shellProgramTitles[_G.shellProgramTitles.length - 1])