?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     ; test SAVETRD with "BASIC", using the extra optional argument for size w/o BASIC variables
  2.     device zxspectrum128
  3.     ORG #4000
  4.     DB 1,2,3,4      ; fake "BASIC" program
  5.  
  6.     EMPTYTRD "savetrd_basic_vars.trd","bas_vars"    ; create empty TRD image
  7.  
  8.     SAVETRD "savetrd_basic_vars.trd","0.B",#4000,21             ; valid, no autoline, no size w/o vars
  9.     SAVETRD "savetrd_basic_vars.trd","1.B",#4000,21,34          ; valid, autoline 34, no size w/o vars
  10.     SAVETRD "savetrd_basic_vars.trd","2.B",#4000,21,35,10       ; valid, autoline 34, size w/o vars 10
  11.  
  12.     ; parsing or logical errors
  13.     SAVETRD "savetrd_basic_vars.trd","e0.B",#4000,21,36,21+1    ; size w/o vars too big
  14.     SAVETRD "savetrd_basic_vars.trd","e1.B",#4000,21,37,        ; missing size w/o vars
  15.     SAVETRD "savetrd_basic_vars.trd","e2.B",#4000,21,           ; missing autoline
  16.     SAVETRD "savetrd_basic_vars.trd","e3.B",#4000,21,38,10,     ; extra comma
  17.     SAVETRD "savetrd_basic_vars.trd","e4.C",#4000,21,39,10      ; not a BASIC file
  18.