?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     DEVICE ZXSPECTRUMNEXT
  2.     ORG $E000,32
  3.     DISP $8000,1        ; fake page "1" for everything here
  4. DispLabel:              ; sh*t, labels emit no warning about different mapping.
  5.             MMU 4, 1
  6.             nop         ; no warning, mapping is identical
  7.             MMU 4, 4    ; emit warning
  8. DispLabel2:
  9.             nop         ; warning about DISP page being different from current mapping
  10.             nop         ; no warning (warning is emitted only once per whole assembling
  11.     ENT
  12.     DISP $8010
  13. DispLabel3:             ; should derive page number from current mapping
  14.             nop
  15.     ENT
  16. NormalLabel:
  17.             ret
  18.     ASSERT 32 == $$NormalLabel
  19.     ASSERT 1 == $$DispLabel
  20.     ASSERT 1 == $$DispLabel2
  21.     ASSERT 4 == $$DispLabel3
  22.  
  23.     ; just in the valid range values
  24.     DISP $8000,0    : ENT
  25.     DISP $8000,223  : ENT
  26.  
  27.     ; syntax errors of DISP parser (first in DEVICE mode)
  28.     DISP $8000,         ; syntax error
  29.     DISP $8000,(        ; syntax error
  30.     DISP $8000,512      ; error outside of valid pages
  31.     DISP $8000,-1       ; error outside of valid pages
  32.  
  33.     DEVICE NONE
  34.     ORG $8000
  35.     DISP $C000,         ; error, only in device mode
  36.     DISP $C000,-1       ; error, only in device mode
  37.  
  38.     DEVICE ZXSPECTRUMNEXT
  39.     CSPECTMAP "sld_disp.sym"
  40.