Subversion Repositories NedoOS

Rev

Rev 126 | Rev 539 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1. ;Note: the input TR-DOS filenames in this test are incorrect, and will be currently truncated as 'label1.txt' -> 'label1.t'. Change this if needed.
  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
  16.         SAVETRD "trd.trd","label2.txt",label2,5
  17.         SAVETRD "trd.trd","label3.txt",label3,5
  18.         SAVETRD "trd.trd","label2.txt",label2,5
  19.  
  20.         SAVEHOB "trd.$t","labels.txt",label1,end-label1
  21.  
  22. ; TODO add some check to validate resulting files
  23.