?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     DEVICE ZXSPECTRUM128
  2.     ; expected default is SLOT 3, ORG 0, pages: 7, 5, 2, 0
  3.     DB "77" : ORG 0x4000 : DB "55" : ORG 0x8000 : DB "22" : ORG 0xC000 : DB "00"
  4.     ASSERT {0x0000} == "77" : ASSERT {0x4000} == "55" : ASSERT {0x8000} == "22" : ASSERT {0xC000} == "00"
  5.     ; test default slot == 3 (does test also default mapping - difficult to test only slot :/ )
  6.     PAGE 0 : ASSERT {0xC000} == "00" : PAGE 5 : ASSERT {0xC000} == "55" : PAGE 2 : ASSERT {0xC000} == "22" : PAGE 7 : ASSERT {0xC000} == "77"
  7.     ; test remaining pages for writing, and final test by reading all
  8.     SLOT 0
  9.     PAGE 1 : ASSERT {0} == 0 : ORG 0 : DB "11"
  10.     PAGE 3 : ASSERT {0} == 0 : ORG 0 : DB "33"
  11.     PAGE 4 : ASSERT {0} == 0 : ORG 0 : DB "44"
  12.     PAGE 6 : ASSERT {0} == 0 : ORG 0 : DB "66"
  13.  
  14.     PAGE 0 : ASSERT {0} == "00" : PAGE 1 : ASSERT {0} == "11"
  15.     PAGE 2 : ASSERT {0} == "22" : PAGE 3 : ASSERT {0} == "33"
  16.     PAGE 4 : ASSERT {0} == "44" : PAGE 5 : ASSERT {0} == "55"
  17.     PAGE 6 : ASSERT {0} == "66" : PAGE 7 : ASSERT {0} == "77"
  18.