?login_element?

Subversion Repositories NedoOS

Rev

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

  1. ;Note: the sjasmplus now supports the unofficial 3 letter extensions as described by Dart_Alver
  2. ;A TR-DOS filename is max. 8 characters, with a single-character extension. http://zx-modules.de/fileformats/hobetaformat.html
  3.  
  4.         device zxspectrum128
  5.        
  6.         org #8000
  7. label1  db 'text1'
  8.         org #8100
  9. label2  db 'text2'
  10.         org #8200
  11. label3  db 'text3'
  12. end
  13.  
  14.         EMPTYTRD trd.trd
  15.         SAVETRD "trd.trd","label1.txt",label1,5     ; new warnings about 3-letter extension
  16.         SAVETRD "trd.trd","label2.txt",label2,5
  17.         SAVETRD "trd.trd","label3.txt",label3,5
  18.         SAVETRD "trd.trd","label4.txt",label2,5     ; trdext3-ok ; warning suppressed
  19.     ; test the "invalid extension warning" and if it can be suppressed
  20.         SAVETRD "trd.trd","label2.B",label2,5       ; no warning
  21.         SAVETRD "trd.trd","label2.J",label2,5       ; warning
  22.         SAVETRD "trd.trd","label3.J",label2,5       ; trdext-ok ; warning suppressed
  23.     ; test the new warning about saving same file second time (v1.15.1+)
  24.         SAVETRD "trd.trd","label2.B",label2,5       ; warning
  25.         SAVETRD "trd.trd","label2.B",label2,5       ; trddup-ok ; warning suppressed
  26.     ; test the new warnings about "B" extension allowing only single letter
  27.         SAVETRD "trd.trd","label2.BAS",label1,5     ; 3x warning (3 letter ext, ".B" enforces 1 letter, duplicate file)
  28.         SAVETRD "trd.trd","label2.BAS",label1,5     ; trdext3-ok, trdextb-ok, trddup-ok ; warnings suppressed
  29.     ; test deletion of duplicate files when in replace/add modes
  30.         SAVETRD "trd.trd",|"label2.B",label2,5
  31.         SAVETRD "trd.trd","label3.J",label2,5       ; trdext-ok, trddup-ok
  32.         SAVETRD "trd.trd",&"label3.J",label2,5
  33.  
  34.         SAVEHOB "trd.$t","labels.txt",label1,end-label1
  35.  
  36. ; TODO add some check to validate resulting files
  37.  
  38.     ; some more syntax error tests for better code coverage
  39.         SAVEHOB "trd.$t"
  40.         SAVEHOB "trd.$t",
  41.         SAVEHOB "trd.$t",,
  42.         DEVICE NONE
  43.         SAVEHOB "trd.$t","labels.txt",label1,end-label1
  44.         EMPTYTRD
  45.         SAVETRD "trd.trd","label1.txt",label1,5
  46.