?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     ;; ZX Spectrum Next device first, also here the CSpect map file is defined
  2.         DEVICE ZXSPECTRUMNEXT : SLOT 6
  3.         CSPECTMAP "cspectmap_multi_device.sym"
  4.         LABELSLIST "cspectmap_multi_device.lbl"
  5.  
  6.             ; create test labels in various areas of memory (and by various means)
  7. EquLabel    EQU     $1234
  8.  
  9. DeflLabel   DEFL    $12+1
  10.  
  11.             STRUCT Struct
  12. Field1      BLOCK   5
  13. Field2      DW      $5678
  14.             ENDS
  15.  
  16.             ORG $C000, $00
  17. Page00:     daa
  18. .local:
  19.             ORG $C001, $01
  20. Page01:     scf
  21. .local:
  22.             ORG $C00A, $0A
  23. Page0A:     ccf
  24. .local:     rlca
  25. .codeEqu    EQU $+1             ; is like simple EQU => "wrong" physical address
  26.  
  27.             ORG $DFFE, $0B      ; also raise difficulty by adding extra dots in labels
  28. Page0B.A:   cpl
  29. .local.b:
  30.             ORG $C0DF, $DF
  31. PageDF.A.B: rra
  32. .local.c..d:
  33.  
  34.             ORG $C030, $30
  35.     MODULE Module
  36. Page30:     rla
  37. .local:
  38.     ENDMODULE
  39.  
  40.             ORG $C031, $31
  41.     MODULE Module_two_
  42. Page31..A.: rrca
  43. .local..c.:
  44.     ENDMODULE
  45.  
  46.     ;; now ZX128 device, with different mem-page size (0x4000 vs Next 0x2000)
  47.     ; the most correct outcome would be probably to not export labels from the ZX128
  48.     ; part of test at all, because they belong to different device, but at this moment
  49.     ; the goal of this test and bug-fix is to at least make sure the Next labels are
  50.     ; correctly exported with page size 0x2000 (v1.14.3 does export them wrongly)
  51.         DEVICE ZXSPECTRUM128
  52.  
  53.         MMU 2, 6
  54.         ORG $8000
  55. SomeZx128Label:
  56.         nop
  57.