?login_element?

Subversion Repositories NedoOS

Rev

Rev 129 | Blame | Compare with Previous | Last modification | View Log | Download

  1.     DEVICE ZXSPECTRUM48
  2.  
  3.     SLOT 0
  4.     PAGE 0 : ORG 0x0000 : DB "00"
  5.     PAGE 1 : ORG 0x0000 : DB "11"
  6.     PAGE 2 : ORG 0x0000 : DB "22"
  7.     PAGE 3 : ORG 0x0000 : DB "33"
  8.  
  9.     PAGE 4      ; error - non-existing page (page 3 should be still visible in slot 0)
  10.     ASSERT {0} == "33"
  11.  
  12.     SLOT 1 : PAGE 0 : ASSERT {0x4000} == "00" : PAGE 1 : ASSERT {0x4000} == "11"
  13.     SLOT 2 : PAGE 2 : ASSERT {0x8000} == "22" : PAGE 3 : ASSERT {0x8000} == "33"
  14.     SLOT 3 : PAGE 0 : ASSERT {0xC000} == "00" : PAGE 1 : ASSERT {0xC000} == "11"
  15.  
  16.     SLOT 4      ; error
  17.  
  18.     ; pages: 3:1:3:1
  19.     ORG 0xC000-2
  20.     DB  "AABB"
  21.     ASSERT {0x4000-2} == "AA"   ; should be visible also at these addresses
  22.     ASSERT {0x4000} == "BB"
  23.  
  24.     ORG 0xFFFE
  25.     DB  "CCDD"  ; "DD" goes beyond 0x10000 -> lost (error reported)
  26.     ASSERT {0} == "33"          ; still page 3 there
  27.  
  28.     ; now try the 128 classic (should be not affected by the 48 device above)
  29.     DEVICE ZXSPECTRUM128
  30.  
  31.     SLOT 0
  32.     PAGE 0 : ASSERT {0} == 0 : ORG 0x0000 : DB "00"
  33.     PAGE 1 : ASSERT {0} == 0 : ORG 0x0000 : DB "11"
  34.     PAGE 2 : ASSERT {0} == 0 : ORG 0x0000 : DB "22"
  35.     PAGE 3 : ASSERT {0} == 0 : ORG 0x0000 : DB "33"
  36.     PAGE 4 : ASSERT {0} == 0 : ORG 0x0000 : DB "44"
  37.     PAGE 5 : ASSERT {0} == 0 : ORG 0x0000 : DB "55"
  38.     PAGE 6 : ASSERT {0} == 0 : ORG 0x0000 : DB "66"
  39.     PAGE 7 : ASSERT {0} == 0 : ORG 0x0000 : DB "77"
  40.  
  41.     PAGE 8      ; error - non-existing page (page 7 should be still visible in slot 0)
  42.     ASSERT {0} == "77"
  43.  
  44.     SLOT 1 : PAGE 4 : ASSERT {0x4000} == "44" : PAGE 5 : ASSERT {0x4000} == "55"
  45.     SLOT 2 : PAGE 6 : ASSERT {0x8000} == "66" : PAGE 7 : ASSERT {0x8000} == "77"
  46.     SLOT 3 : PAGE 4 : ASSERT {0xC000} == "44" : PAGE 5 : ASSERT {0xC000} == "55"
  47.  
  48.     SLOT 4      ; error
  49.  
  50.     ; pages: 7:5:7:5
  51.     ORG 0xC000-2
  52.     DB  "AABB"
  53.     ASSERT {0x4000-2} == "AA"   ; should be visible also at these addresses
  54.     ASSERT {0x4000} == "BB"
  55.  
  56.     ORG 0xFFFE
  57.     DB  "CCDD"  ; "DD" goes beyond 0x10000 -> lost (error reported)
  58.     ASSERT {0} == "77"          ; still page 7 there
  59.  
  60.     ; some more error states
  61.     ORG & : PAGE & : ORG 0x1234, & : DISP & : SLOT & ; syntax errors
  62.     ENT
  63.  
  64.     DEVICE none
  65.     PAGE 1 : SLOT 1
  66.