?login_element?

Subversion Repositories NedoOS

Rev

Rev 539 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; check if warning about only-128k save to snapshot is emitted
  2.  
  3.     ; no warning for regular zx48 and zx128
  4.     DEVICE ZXSPECTRUM48
  5.     SAVESNA "zx48.sna", $8000
  6.     DEVICE ZXSPECTRUM128
  7.     SAVESNA "zx128.sna", $8000
  8.  
  9.     ; the larger ZX-like devices should emit warning when SAVESNA is used
  10.     DEVICE ZXSPECTRUM256
  11.     SAVESNA "zx256.sna", $8000
  12.     DEVICE ZXSPECTRUM512
  13.     SAVESNA "zx512.sna", $8000
  14.     DEVICE ZXSPECTRUM1024
  15.     SAVESNA "zx1024.sna", $8000
  16.  
  17.     ; newly added devices, exercise also the new mem-page limits, etc..
  18.     DEVICE ZXSPECTRUM2048
  19.     PAGE 127    ; good
  20.     PAGE 128    ; error
  21.     SAVESNA "zx2048.sna", $8000
  22.     SAVEDEV "m2048_end.bin", 127, 0, 0x4000 ; good
  23.     SAVEDEV "m2048_end.bin", 127, 0, 0x4001 ; error
  24.  
  25.     DEVICE ZXSPECTRUM4096
  26.     PAGE 255    ; good
  27.     PAGE 256    ; error
  28.     SAVESNA "zx4096.sna", $8000
  29.     SAVEDEV "m4096_end.bin", 255, 0, 0x4000 ; good
  30.     SAVEDEV "m4096_end.bin", 255, 0, 0x4001 ; error
  31.  
  32.     DEVICE ZXSPECTRUM8192
  33.     PAGE 511    ; good
  34.     PAGE 512    ; error
  35.     SAVESNA "zx8192.sna", $8000
  36.     SAVEDEV "m8192_end.bin", 511, 0, 0x4000 ; good
  37.     SAVEDEV "m8192_end.bin", 511, 0, 0x4001 ; error
  38.  
  39.     ; check suppression of "only 128k" warning
  40.     DEVICE ZXSPECTRUM256
  41.     SAVESNA "zx256.sna", $8000  ; suppress sna128-ok
  42.  
  43.     ; check 48k snapshot warning about screen overwritten
  44.     DEVICE ZXSPECTRUM48         ; default stack is already tainted by previous SAVESNA!
  45.     SAVESNA "zx48.sna", $8000   ; emit warning
  46.     SAVESNA "zx48.sna", $8000   ; suppress sna48-ok
  47.  
  48.     ; check fail-to-open file is non-fatal
  49.     SAVESNA "", $8000 ; sna48-ok
  50.