?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.     DEVICE ZXSPECTRUM1024
  2.                 ORG     $8000
  3. regular:
  4.  
  5. equClassic:     EQU     $4000
  6.     ; actually in current v1.17.0 this will still receive "page 5" page based
  7.     ; on the current memory mapping and the address value, but in docs it's
  8.     ; described as "irrelevant". This test is documenting the behaviour for
  9.     ; the sake of the test, not making it official/guaranteed, avoid using it
  10.  
  11. equWithPage:    EQU     $4001  ,  1
  12.  
  13.     ASSERT $8000 == regular && 2 == $$regular
  14.     ASSERT $4000 == equClassic && 5 == $$equClassic
  15.     ASSERT $4001 == equWithPage && 1 == $$equWithPage
  16.  
  17. errorEqu1       EQU     $4002 ,
  18. errorEqu2       EQU     $4003 , @
  19.