?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     ;;;;;;;;;;;;;;;;;;;;;;;;;;
  2.     ;;;;; ZXSPECTRUM256 ;;;;;;
  3.     DEVICE ZXSPECTRUM256
  4.  
  5.     SLOT 0
  6. pageNum = 0
  7.     DUP 16
  8.         PAGE pageNum : ASSERT {0} == 0 : ORG 0x0000 : DW pageNum+'0' + ((pageNum+'0')<<8)
  9. pageNum = pageNum+1
  10.     EDUP
  11.     PAGE 16         ; error - non-existing page
  12.     ASSERT {0} == "??"  ; page 15 should be still there
  13.  
  14.     SLOT 0 : PAGE 10 : ASSERT {0x0000} == "::" : PAGE 7 : ASSERT {0x0000} == "77"
  15.     SLOT 1 : PAGE 4 : ASSERT {0x4000} == "44" : PAGE 15 : ASSERT {0x4000} == "??"
  16.     SLOT 2 : PAGE 6 : ASSERT {0x8000} == "66" : PAGE 7 : ASSERT {0x8000} == "77"
  17.     SLOT 3 : PAGE 14 : ASSERT {0xC000} == ">>" : PAGE 15 : ASSERT {0xC000} == "??"
  18.  
  19.     SLOT 4      ; error
  20.  
  21.     ; pages: 7:15:7:15
  22.     ORG 0xC000-2
  23.     DB  "AABB"
  24.     ASSERT {0x4000-2} == "AA"   ; should be visible also at these addresses
  25.     ASSERT {0x4000} == "BB"
  26.  
  27.     ORG 0xFFFE
  28.     DB  "CCDD"  ; "DD" goes beyond 0x10000 -> lost (error reported)
  29.     ASSERT {0} == "77"          ; still page 7 there
  30.     ASSERT {0xFFFE} == "CC"
  31.  
  32.     SAVESNA "toCheck_IsZXSpectrumDevice_method", -1     ;; will error out
  33.  
  34.     ;;;;;;;;;;;;;;;;;;;;;;;;;;
  35.     ;;;;; ZXSPECTRUM512 ;;;;;;
  36.     DEVICE ZXSPECTRUM512
  37.  
  38.     SLOT 0
  39. pageNum = 0
  40.     DUP 32
  41.         PAGE pageNum : ASSERT {0} == 0 : ORG 0x0000 : DW pageNum+'0' + ((pageNum+'0')<<8)
  42. pageNum = pageNum+1
  43.     EDUP
  44.     PAGE 32         ; error - non-existing page
  45.     ASSERT {0} == "OO"  ; page 31 should be still there
  46.  
  47.     SLOT 0 : PAGE 10 : ASSERT {0x0000} == "::" : PAGE 7 : ASSERT {0x0000} == "77"
  48.     SLOT 1 : PAGE 4 : ASSERT {0x4000} == "44" : PAGE 31 : ASSERT {0x4000} == "OO"
  49.     SLOT 2 : PAGE 6 : ASSERT {0x8000} == "66" : PAGE 7 : ASSERT {0x8000} == "77"
  50.     SLOT 3 : PAGE 14 : ASSERT {0xC000} == ">>" : PAGE 31 : ASSERT {0xC000} == "OO"
  51.  
  52.     SLOT 4      ; error
  53.  
  54.     ; pages: 7:31:7:31
  55.     ORG 0xC000-2
  56.     DB  "AABB"
  57.     ASSERT {0x4000-2} == "AA"   ; should be visible also at these addresses
  58.     ASSERT {0x4000} == "BB"
  59.  
  60.     ORG 0xFFFE
  61.     DB  "CCDD"  ; "DD" goes beyond 0x10000 -> lost (error reported)
  62.     ASSERT {0} == "77"          ; still page 7 there
  63.     ASSERT {0xFFFE} == "CC"
  64.  
  65.     SAVESNA "toCheck_IsZXSpectrumDevice_method", -1     ;; will error out
  66.  
  67.     ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  68.     ;;;;; ZXSPECTRUM1024 ;;;;;;
  69.     DEVICE ZXSPECTRUM1024
  70.  
  71.     SLOT 0
  72. pageNum = 0
  73.     DUP 64
  74.         PAGE pageNum : ASSERT {0} == 0 : ORG 0x0000 : DW pageNum+'0' + ((pageNum+'0')<<8)
  75. pageNum = pageNum+1
  76.     EDUP
  77.     PAGE 64         ; error - non-existing page
  78.     ASSERT {0} == $6F6F ; page 63 should be still there
  79.  
  80.     SLOT 0 : PAGE 10 : ASSERT {0x0000} == "::" : PAGE 7 : ASSERT {0x0000} == "77"
  81.     SLOT 1 : PAGE 4 : ASSERT {0x4000} == "44" : PAGE 63 : ASSERT {0x4000} == $6F6F
  82.     SLOT 2 : PAGE 6 : ASSERT {0x8000} == "66" : PAGE 7 : ASSERT {0x8000} == "77"
  83.     SLOT 3 : PAGE 14 : ASSERT {0xC000} == ">>" : PAGE 63 : ASSERT {0xC000} == $6F6F
  84.  
  85.     SLOT 4      ; error
  86.  
  87.     ; pages: 7:63:7:63
  88.     ORG 0xC000-2
  89.     DB  "AABB"
  90.     ASSERT {0x4000-2} == "AA"   ; should be visible also at these addresses
  91.     ASSERT {0x4000} == "BB"
  92.  
  93.     ORG 0xFFFE
  94.     DB  "CCDD"  ; "DD" goes beyond 0x10000 -> lost (error reported)
  95.     ASSERT {0} == "77"          ; still page 7 there
  96.     ASSERT {0xFFFE} == "CC"
  97.  
  98.     SAVESNA "toCheck_IsZXSpectrumDevice_method", -1     ;; will error out
  99.  
  100.     ;;;;;;;;;;;;;;;;;;;;;;;;;;
  101.     ;;;;; non ZX device ;;;;;;
  102.     DEVICE ZXSPECTRUMNEXT
  103.     SAVESNA "toCheck_IsZXSpectrumDevice_method", 0      ;; will error out
  104.  
  105.     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  106.     ;;;;; non-existent device ;;;;;;
  107.     DEVICE COMMODORE08
  108.     SAVESNA "toCheck_IsZXSpectrumDevice_method", 0      ;; will error out
  109.