Updated 7800basic to 0.39

Updated readme and changelog

Author: chunkypixel

CHANGELOG.md

@@ -4,6 +4,8 @@ The following enhancements and changes have been made to Atari Dev Studio:
 
 ## 0.11.7
 
+ * Updated 7800basic to v0.39 (wasm)
+ * Combined verification of compiler files and permissions process
  * Restored file permission validation for Linux & macOS regardless of whether using included or custom compilers (just in case)
  * Added stopwatch timer for batari Basic and 7800basic build compilation
 

README.md

@@ -194,7 +194,7 @@ batari Basic created by Fred 'batari' Quimby is a BASIC-like language used in th
 
 batari Basic is an external project is kindly currently maintained by Mike Saarna (RevEng) and can be downloaded separately [here](https://github.com/batari-Basic/batari-Basic).  Further information is about this release is available here at [AtariAge](https://atariage.com/forums/topic/300856-official-home-for-batari-basic).
 
-### 7800basic (release 0.38 - 20250923 [WASM])
+### 7800basic (release 0.39 - 20251031 [WASM])
 7800basic is a BASIC-like language for creating Atari 7800 games.  It is a compiled language that runs on a computer, and it creates a binary file that can be run with an Atari 7800 emulator, or the binary file may be used to make a cartridge that will operate on a real Atari 7800. 7800basic is derived from batari basic, a BASIC-like language for creating Atari 2600 games. Special thanks to the bB creator, Fred Quimby, and all of the the bB contributors!
 
 7800basic is included as part of this extension with many thanks to Mike Saarna (RevEng).  7800basic is an external project and can be downloaded separately [here](https://github.com/7800-devtools/7800basic).  Further information about this release is available here at [AtariAge](http://atariage.com/forums/topic/222638-7800basic-beta-the-release-thread).

out/bin/compilers/7800basic/7800basic Guide.pdf

@@ -1,16 +1,25 @@
 #!/bin/sh
-# Wrapper for wasmtime
-
-if [ -z "$bas7800dir" ]; then
-  echo "### ERROR: bas7800dir not set"
-  exit 1
-fi
+# Wrapper for wasmtime with dynamic include directories
 
 if ! command -v wasmtime >/dev/null 2>&1; then
   echo "### ERROR: wasmtime not found in PATH"
   exit 1
 fi
 
-BNAME=$(basename "$0"|cut -d. -f1)
-wasmtime run --dir=. --dir="$bas7800dir" "$bas7800dir/$BNAME.wasm" "$@"
+BNAME=$(basename "$0" | cut -d. -f1)
+
+# Build up list of --dir arguments
+DIRS="--dir=. "
+
+for arg in "$@"; do
+  case "$arg" in
+    -I*)
+      inc="${arg#-I}"
+      DIRS="$DIRS --dir=$inc"
+      ;;
+  esac
+done
+
+# Run wasmtime with all dirs and original arguments
+exec wasmtime run $DIRS "$bas7800dir/$BNAME.wasm" "$@"
 

out/bin/compilers/7800basic/7800basic.wasm

@@ -1,12 +1,7 @@
 @echo off
-REM Generic wrapper for running WASM tools via wasmtime
+REM Wrapper for running WASM tools via wasmtime with dynamic include directories
 
-setlocal
-
-if "%bas7800dir%"=="" (
-  echo ### ERROR: bas7800dir not set
-  exit /b 1
-)
+setlocal enabledelayedexpansion
 
 wasmtime --version >nul 2>&1
 if errorlevel 1 (
@@ -15,7 +10,22 @@ if errorlevel 1 (
 )
 
 set TOOL=%~n0
-wasmtime run --dir . --dir "%bas7800dir%" "%bas7800dir%\%TOOL%.wasm" %*
+set DIRS=--dir . 
+set ARGS=
+
+REM Parse command-line arguments
+for %%A in (%*) do (
+  set "ARG=%%~A"
+  REM Check if it starts with -I
+  if "!ARG:~0,2!"=="-I" (
+    set "INC=!ARG:~2!"
+    REM Add this directory to --dir list
+    set DIRS=!DIRS! --dir "!INC!"
+  )
+)
+
+REM Now run wasmtime
+wasmtime run %DIRS% "%bas7800dir%\%TOOL%.wasm" %*
 
 endlocal
 

out/bin/compilers/7800basic/7800header.wasm

@@ -498,6 +498,10 @@ gsl_nextSongLine
   txa
   tay
   lda (ptrSongLines),y
+;* Check for special song line commands. Track numbers >= $FE are not real
+;* tracks, but control flow commands:
+;* $FE = Jump to a new song line pointer.
+;* $FF = Empty track line (handled in this 7800 port by setting a max pause).
   cmp #$fe             ;* check for "goto line"
   bcs gsl_GotoOrEmpty  ;* and handle it.
   ;* (A) = Real track #
@@ -573,11 +577,12 @@ gtl_loopTracks
 
 oo1i
   ldy trackn_idx,x
-  ;* Get a track data point
-  ;* 0 - 60 = Note, instr and volume data
-  ;* 61 - Volume only
-  ;* 62 = Pause/empty line
-  ;* 63 - Speed, go loop or end
+;* Get a track data point. The track data stream is a sequence of commands
+;* encoded by the first byte's value:
+;* 0-60 ($00-$3C): A new note. The next byte contains instrument/volume.
+;* 61   ($3D):      Volume-only change for the current note.
+;* 62   ($3E):      Pause. The next byte specifies duration.
+;* 63   ($3F):      Control command (e.g., change speed, loop, or end track).
   lda (_ns),y
   sta rmtreg1
   iny
@@ -606,6 +611,10 @@ oo1i
   sta trackn_instrx2,x
 
 gtl_ProcessVolumeData
+;* The note/instrument/volume data is packed into two bytes to save space.
+;* Byte 1: [vvnnnnnn] (v=volume bits 3&2, n=note)
+;* Byte 2: [iiiiii vv] (i=instrument, v=volume bits 1&0)
+;* This sequence unpacks the 4-bit volume from the two bytes.
   lda rmtreg2
   lsr 
   ror rmtreg1
@@ -671,6 +680,15 @@ p2x2
   bne p2x1
   rts
 
+;* rmt_play:
+;*   This is the main player entry point, intended to be called once per frame
+;*   It orchestrates all player state updates.
+;*   The timing is controlled by two counters:
+;*   1. v_aspeed: Ticks per song line. When it reaches zero, a new line of
+;*      track data is read by GetTrackLine. This is the "song tempo".
+;*   2. smc_silence_instrspeed: Ticks per instrument step. When it reaches
+;*      zero, the instrument envelopes/effects are processed. 
+;*
 rmt_play
 rmt_p0
   jsr SetPokey
@@ -759,6 +777,17 @@ returnfromInstrumentsEffects
   lda rmtreg2
   sta trackn_command,x
   and #$70
+;* This is the main instrument command dispatcher. The command number (0-7)
+;* is stored in the 3 bits of reg2 ($70 mask).
+;* The original player used self-modifying code here (sta jmx+1) to jump
+;* to the correct command handler. 
+;* For a ROM-based system like the 7800:
+;*   the jump has been changed to use a table of addresses (rts_tab). The code
+;*   pushes the correct handler's address-1 onto the stack and executes an RTS,
+;*   effectively performing a calculated JMP.
+;* For a RAM-based system:
+;*   the jump uses self-modifying code to branch to the desired JMP 
+;*   instruction. 
   lsr 
   lsr 
   IF ROM_BASED
@@ -998,6 +1027,15 @@ qq0   ora trackn_audctl,x
    dex
    bpl qq0
    sta v_audctl
+;* This section handles advanced audio effects that require multiple POKEY
+;* channels. The priority system:
+;* 1. Filters (highest priority): If a track enables a filter, it will
+;*    override the channel it needs (e.g., track 0 filter uses channel 2),
+;*    silencing whatever was playing there.
+;* 2. 16-bit Bass (medium priority): If a filter is not active on a needed
+;*    channel, 16-bit bass can use it (e.g., track 1 bass uses channel 0).
+;* 3. Normal Track Playback (lowest priority).
+;* The code first checks for and applies filters, then checks for 16-bit bass.
 qq1
    ldx v_audctl
   ELSE