non-paged supervisor code calling paged application code

Code:

PS D:\zxnext\projects\demo> .\build.ps1
zxbc.py 1.18.5
...compiling:  core
core.bas:70: warning: [W150] Parameter 'x' is never used
core.bas:70: warning: [W150] Parameter 'y' is never used
core.bas:70: warning: [W150] Parameter 'char' is never used
core.bas:70: warning: [W150] Parameter 'colour' is never used
...compiling:  stage-init
stage-include.bas:10: warning: [W170] Function 's_ram_copy' is never called and has been ignored
stage-include.bas:24: warning: [W170] Function 's_print_char_at' is never called and has been ignored
...compiling:  stage-left
stage-include.bas:3: warning: [W170] Function 's_next_reg' is never called and has been ignored
stage-include.bas:10: warning: [W170] Function 's_ram_copy' is never called and has been ignored
stage-include.bas:17: warning: [W170] Function 's_clear_screen' is never called and has been ignored
stage-include.bas:31: warning: [W170] Function 's_print_string_at' is never called and has been ignored
...compiling:  stage-right
stage-include.bas:3: warning: [W170] Function 's_next_reg' is never called and has been ignored
stage-include.bas:10: warning: [W170] Function 's_ram_copy' is never called and has been ignored
stage-include.bas:17: warning: [W170] Function 's_clear_screen' is never called and has been ignored
stage-include.bas:31: warning: [W170] Function 's_print_string_at' is never called and has been ignored
PS D:\zxnext\projects\demo>

Code:

$ErrorActionPreference = 'Stop'

Function Abort {
    Param( [string]$Text )
    Write-Error $Text
    Break Script
}

$Compiler = 'D:\zxnext\boriel\zxbc.py'
python $Compiler --version

$Assembler = 'unknown'


# compile the core engine, this sits at address 0 and contains the IM1 interrupt vector...
Write-Host '...compiling:  core'
# ...help says this:  headerless mode: omit ASM prologue and epilogue
# ...I have no idea as yet whether I need either or neither or both...
python $Compiler core.bas -f asm -o core.asm --org 0 -W140 -W160 --headerless --explicit --strict --zxnext -i --arch zxnext --opt-strategy size --heap-address 16000 --heap-size 383
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }


# compile the paged stage modules, these all target the MMU3 slot at $6000 (24576)...
$Stages = @( 'init', 'left', 'right' )
ForEach ( $Stage In $Stages ) {
    $Name = "stage-$($Stage)"
    Write-Host "...compiling:  $Name"
    python $Compiler "$($Name).bas" -f asm -o "$($Name).asm" --org 24576 -W150 --headerless --explicit --strict --zxnext -i --arch zxnext --opt-strategy size --heap-address 32000 --heap-size 767
    $Status = $LastExitCode
    If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }
}


Break Script

Code:

#PRAGMA push(case_insensitive)
#PRAGMA case_insensitive = True
#define STANDALONE  ' remove ROM initialization and SysVars...

Asm
    org $0000
    nop             ; your first nop
    nop             ; your second nop
    di              ; disable interrupts during setup
    nop
                    ; since SAVENEX CFG 7 killed the ROM, we are already in RAM
    jp _jump_over   ; jump to the setup logic
    
                    ; --- im 1 interrupt vector ---
    org $0038       ; hardware interrupt location
    ei              ; re-enable interrupts
    reti            ; return from interrupt
    
_jump_over:
    nop
    im 1            ; set interrupt mode 1
    nop
    ld sp, $fffe    ; set stack to top of bank 57
    nop
End Asm

s_main()
#include "constants.bas"
#include "globals.bas"

Code:

    DEVICE ZXSPECTRUMNEXT

; entry point at $0000 and stack at $FFFE
    SAVENEX OPEN "project.nex", $0000, $FFFE

; enable 2mb mode
    SAVENEX CFG 0, 0, 0, 1

; *** the hardware lock ***
; this bit tells the Next to disable the ROM and allow page 50 to map to slot 0
    SAVENEX CFG 7, 0, 0, 1

; load the core logic into page 50/51
    MMU 0, 50
    MMU 1, 51
    ORG $0000
    INCBIN "core.bin"

; load font into bank 56
    MMU 6, 56
    ORG $C000
    INCBIN "fon-056.fon"

; load stages
    MMU 3, 60 : ORG $6000 : INCBIN "stage-init.bin"
    MMU 3, 68 : ORG $6000 : INCBIN "stage-left.bin"
    MMU 3, 69 : ORG $6000 : INCBIN "stage-right.bin"

; final hardware state setup
    MMU 0, 50    ; core code
    MMU 1, 51    ; core code
    MMU 2, 52    ; core data
    MMU 7, 57    ; screen and stack

    SAVENEX AUTO
    SAVENEX CLOSE

Code:

¤ Debug CPU (step)
  mptr:      0001H [X]  flwPC 1-7:V1

 +0001  IM 1                PC 0001
  0003  JP 0080             SP FFFF
  0006  RST 38              AF FFFF'FFFF
  0007  RST 38              SZ5H3PNC
  0008  RETI                HL FFFF'FFFF
  000A  RST 38              DE FFFF'FFFF
  000B  RST 38              BC FFFF'FFFF
  000C  RST 38              IX FFFF
  000D  RST 38              IY FFFF
  000E  RST 38              IR 0001
  000F  RST 38             [IM0] IFF--
  0010  RETI               (HL) 00 F3
  0012  RST 38             (DE) 00 F3
                           (BC) 00 F3

 (SP)  F300 56ED 80C3 FF00 EDFF F

 stM dasm en:Stp Stovr cntSt Hx
 Chr brk wtch ToglL Run Runt Ret
 ClrTstpart Write vScr Memzn -1
 Pc=ptr nxtpcBr stk cpuHst f1:he

Code:

Asm
    org $8000
    di

    ld a, 2             ; red color
    out ($fe), a        ; set border
.loop:
    jr .loop            ; stay here forever

    ld bc, $243b        ; select the rom lock register (nextreg $8f)
    ld a, $8f           ; rom lock register
    out (c), a
    inc b
    ld a, 0             ; value 0: unlock and map ram
    out (c), a

    ld bc, $243b        ; select the write enable register (nextreg $8e)
    ld a, $8e           ; write control register
    out (c), a
    inc b
    ld a, 3             ; write 3 to allow writing to the new ram in slots 0 and 1
    out (c), a

    ld bc, $243b        ; force page 50 into slot 0 to be absolutely certain
    ld a, $50           ; mmu slot 0 register
    out (c), a
    inc b
    ld a, 50            ; page 50
    out (c), a

    jp $0000            ; jump to your actual core logic
End Asm

Code:

$ErrorActionPreference = 'Stop'

Function Abort {
    Param( [string]$Text )
    Write-Error $Text
    Break Script
}

$Compiler  = 'D:\zxnext\boriel\zxbc.py'
$Assembler = 'D:\zxnext\sjasmplus\sjasmplus.exe'
$Emulator  = 'D:\zxnext\zesarux\zesarux.exe'
$SDCard    = 'D:\zxnext\projects\demo\sdcard.mmc'

python $Compiler --version


Write-Host '...compiling to ASM:  load' -ForegroundColor DarkYellow
python $Compiler load.bas -f asm -o load.asm --org 32768 --headerless --explicit --strict --zxnext -i --arch zxnext --opt-strategy size --heap-address 40000 --heap-size 400
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }

Write-Host '...compiling to bin:  load' -ForegroundColor DarkYellow
python $Compiler load.bas -f bin -o load.bin --org 32768 --headerless --explicit --strict --zxnext -i --arch zxnext --opt-strategy size --heap-address 40000 --heap-size 400 -M load.map
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }


# compile the core engine, this sits at address 0 and contains the IM1 interrupt vector...
# ...help says this:  headerless mode: omit ASM prologue and epilogue
# ...I have no idea as yet whether I need either or neither or both...

Write-Host '...compiling to ASM:  core' -ForegroundColor DarkYellow
python $Compiler core.bas -f asm -o core.asm --org 0 -W140 -W160 --headerless --explicit --strict --zxnext -i --arch zxnext --opt-strategy size --heap-address 16000 --heap-size 383
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }

Write-Host '...compiling to bin:  core' -ForegroundColor DarkYellow
python $Compiler core.bas -f bin -o core.bin --org 0 -W140 -W160 --headerless --explicit --strict --zxnext -i --arch zxnext --opt-strategy size --heap-address 16000 --heap-size 383 -M core.map
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }


# compile the paged stage modules, these all target the MMU3 slot at $6000 (24576)...
$Stages = @( 'init', 'left', 'right' )
ForEach ( $Stage In $Stages ) {
    $Name = "stage-$($Stage)"
    Write-Host "...compiling to ASM:  $Name" -ForegroundColor DarkYellow
    python $Compiler "$($Name).bas" -f asm -o "$($Name).asm" --org 24576 -W150 --headerless --explicit --strict --zxnext -i --arch zxnext --opt-strategy size --heap-address 32000 --heap-size 767
    $Status = $LastExitCode
    If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }

    Write-Host "...compiling to ASM:  $Name" -ForegroundColor DarkYellow
    python $Compiler "$($Name).bas" -f bin -o "$($Name).bin" --org 24576 -W150 --headerless --explicit --strict --zxnext -i --arch zxnext --opt-strategy size --heap-address 32000 --heap-size 767 -M "$($Name).map"
    $Status = $LastExitCode
    If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }
}


# stitch everything together with sjasmplus...
Write-Host '...assembling nex file...' -ForegroundColor DarkYellow
& $Assembler project.cfg --nologo --msg=all --lst=project.lst --lstlab
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }

$CoreFile = Get-Item "core.bin"
$CoreSize = [math]::Round( ( $CoreFile.Length / 16384 ) * 100, 2 )
Write-Host "...core size:  $( $CoreFile.Length) bytes  ($CoreSize% of 16KB)" -ForegroundColor Cyan
    
# ...clean up intermediate bin files to keep the project tidy
# ...Remove-Item core.bin, stage-init.bin, stage-left.bin, stage-right.bin


$FileName = "project.nex"
$FileBytes = [System.Text.Encoding]::ASCII.GetBytes($FileName)

# the line length is the filename + 4 bytes (for the token, two quotes, and the CR)
$LineLength = $FileBytes.Count + 4

$Header = [byte[]](
    0x00, 0x0A,      # line number 10
    $LineLength, 0x00, # length of the line in bytes
    0x00,            # dummy byte
    0xEF,            # LOAD token
    0x22             # opening quote (")
)

$Footer = [byte[]](
    0x22,            # closing quote (")
    0x0D             # carriage return
)

# combine everything into one array
$FinalBytes = $Header + $FileBytes + $Footer
$AutoExec = Join-Path -Path $PWD -ChildPath "autoexec.bas"
[System.IO.File]::WriteAllBytes( $AutoExec, $FinalBytes )


# use hdfmonkey to swap it onto the mmc
.\hdfmonkey.exe rm .\tbblue.mmc autoexec.dot
.\hdfmonkey.exe put .\tbblue.mmc autoexec.bas


Write-Host '...hdfmonkey rm...' -ForegroundColor DarkYellow
.\hdfmonkey.exe rm tbblue.mmc project.nex /project.nex
$Status = $LastExitCode
# If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }

Write-Host '...hdfmonkey ls...' -ForegroundColor DarkYellow
.\hdfmonkey.exe ls  tbblue.mmc | Select-String 'project'
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }

Write-Host '...hdfmonkey put...' -ForegroundColor DarkYellow
.\hdfmonkey.exe put tbblue.mmc project.nex /project.nex
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }

Write-Host '...hdfmonkey ls...' -ForegroundColor DarkYellow
.\hdfmonkey.exe ls  tbblue.mmc | Select-String 'project'
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }


Write-Host "...launching emulator..." -ForegroundColor DarkYellow
& $Emulator --configfile zesarux.cfg
$Status = $LastExitCode
If ( $Status -ne 0 ) { Abort "...failed, status:  $Status" }


Break Script