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