?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     ; prepare test data
  2.     DEVICE ZXSPECTRUM128 : MMU 0 3, 0 : ORG 0 : DS $10000, 0 : ASSERT $10000 = $ ; clear whole RAM first
  3.     ORG $0000 : DB "<Area 0000" : ORG $4000-2 : DB "/><Area 4000"
  4.     ORG $8000-2 : DB "/><Area 8000" : ORG $C000-2 : DB "/><Area C000" : ORG $10000-2 : DB "/>"
  5.  
  6.     EMPTYTRD "savetrd2.trd" ; new empty TRD = playground to verify fixes and changes
  7.  
  8.     ; the next-free-sector calculation bug in original sjasmplus
  9.     SAVETRD "savetrd2.trd","s15.C",0,$1EFA      ; make the next free sector/track [15, 2]
  10.     SAVETRD "savetrd2.trd","s15bug.C",0,$F200   ; next free should be [1,18]
  11.  
  12.     ; test new "replace" functionality (it will salvage the disc space in the most trivial case)
  13.     SAVETRD "savetrd2.trd",|"s15.C",$8000,$4100  ; area 8000+C000 in file (allocating new sectors after s15bug.C)
  14.     ; one more time
  15.     SAVETRD "savetrd2.trd",|"s15.C",$4000,$C000  ; area 4000+8000+C000 in file (should overwrite previous replace)
  16.     ; and one more time
  17.     SAVETRD "savetrd2.trd",|"s15.C",0,$4000  ; area 0000 in file (should overwrite previous replace)
  18.