?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     DEVICE ZXSPECTRUM128
  2.     ; taint page 0 and page 1
  3.     SLOT 3 : PAGE 0 : ORG 0xC000 : DB "00" : PAGE 1 : ORG 0xC000 : DB "11"
  4.     ASSERT {0xC000} == "11"
  5.     ; test second argument of ORG
  6.     ORG 0x4000, 0       ; should do also PAGE 0 in current slot (not related to 0x4000)
  7.         ; since v1.15.2 this should emit warning about address outside current slot
  8.     DB "55"
  9.     ASSERT {0xC000} == "00" : ASSERT {0x4000} == "55"
  10.     ; verify warning precision on all ends
  11.     SLOT 2
  12.     ORG 0x7FFF, 7   ; should warn
  13.     ORG 0xC000, 7   ; should warn
  14.     ORG 0x8000, 6   ; should be ok
  15.     ORG 0xBFFF, 6   ; should be ok
  16.     ORG 0x7FFF, 5   ; orgpage-ok ; should be suppressed
  17.     ORG 0xC000, 5   ; orgpage-ok ; should be suppressed
  18.  
  19.     ; try the warning with 8kiB slots
  20.     DEVICE ZXSPECTRUMNEXT
  21.     SLOT 4
  22.     ORG 0x7FFF, 7   ; should warn
  23.     ORG 0xA000, 7   ; should warn
  24.     ORG 0x8000, 6   ; should be ok
  25.     ORG 0x9FFF, 6   ; should be ok
  26.     ORG 0x7FFF, 5   ; orgpage-ok ; should be suppressed
  27.     ORG 0xA000, 5   ; orgpage-ok ; should be suppressed
  28.