?login_element?

Subversion Repositories NedoOS

Rev

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

  1. ; -Wall and -Wno-all test
  2.  
  3.     OPT -Wall   ; enable all extra warnings
  4. abs:    ld hl,@abs  ; -Wabs removed in v1.20.0, this is placeholder to minimize diff
  5.     DEVICE ZXSPECTRUMNEXT, $8000
  6.     DEVICE NOSLOT64K, $8000
  7.     DEVICE ZXSPECTRUM48, $8000 : DEVICE ZXSPECTRUM48, $8001
  8.     DISP 123 : ORG 345 : ENT
  9.     ORG 123, 0
  10.  
  11.     IF fwd_ref_label : ENDIF    ; it's W_EARLY warning, emitted before last pass, look at start of listing
  12.  
  13.     lua pass3
  14.         _pc("nop")
  15.     endlua
  16.  
  17.     DEVICE ZXSPECTRUMNEXT : ORG $8000 : ret : SAVENEX OPEN "all_W.nex", $8000, $8002 : SAVENEX CLOSE
  18.     ; omitting "nexbmppal" test because it requires too many prerequisites (has dedicated tests any way)
  19.     ; omitting "sna48" and "sna128" tests (have dedicated test any way)
  20.     ; omitting "trdext", "trdext3", "trdextb" and "trddup" tests (have dedicated test)
  21.     RELOCATE_START : ALIGN 2 : RELOCATE_END
  22.     ld  a,(255)
  23.     ; omitting "reldiverts" and "relunstable" test (relocation has many dedicated+updated tests)
  24.     ; omitting "dispmempage" test (has dedicated test (non-trivial))
  25.     SETBREAKPOINT
  26.     out (c),0
  27.     INCBIN "back\slash.bin"
  28.     ld hl,de
  29.  
  30.  
  31.     ORG 0       ; start again at zero offset
  32.     OPT -Wno-all    ; disable all extra warnings
  33.     ld hl,@abs
  34.  
  35.     ; impossible to re-test zxnramtop and noslotramtop, because they are emitted just once
  36.  
  37.     ; devramtop
  38.     DEVICE ZXSPECTRUM48, $8002
  39.  
  40.     ; displacedorg
  41.     DISP 101 : ORG 201 : ENT
  42.  
  43.     ; orgpage
  44.     ORG 123, 0
  45.  
  46.     ; fwdref
  47.     IF fwd_ref_label : ENDIF
  48.  
  49.     ; luamc
  50.     lua pass3
  51.         _pc("nop")
  52.     endlua
  53.  
  54.     ; nexstack
  55.     DEVICE ZXSPECTRUMNEXT : SAVENEX OPEN "all_W.nex", $8000, $8002 : SAVENEX CLOSE
  56.  
  57.     ; relalign
  58.     RELOCATE_START : ALIGN 2 : RELOCATE_END
  59.  
  60.     ; rdlow
  61.     ld  a,(255)
  62.  
  63.     ; bpfile
  64.     SETBREAKPOINT
  65.  
  66.     ; out0
  67.     out (c),0
  68.  
  69.     ; backslash
  70.     INCBIN "back\slash.bin"
  71.  
  72.     ; fake
  73.     ld hl,de
  74.  
  75. fwd_ref_label:  EQU $1234
  76.