?login_element?

Subversion Repositories NedoOS

Rev

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

  1. ; test to verify transitions of "relocatable" while using the structs and relocation data generation
  2.     RELOCATE_START HIGH ; definition must be in relocation block too to track default values being rel
  3.         STRUCT RELSTRUCT
  4. ByteRel     BYTE        high rel_label
  5. ByteFix     BYTE        high fix_label
  6. WordRelMsb  WORD        high rel_label
  7. WordFixMsb  WORD        high fix_label
  8. WordRel     WORD        rel_label
  9. WordFix     WORD        fix_label
  10.         ENDS
  11.     RELOCATE_END
  12.  
  13.         ORG $8800
  14. fix_label:
  15.  
  16.         ; these are outside of relocation block -> no relocation data in any case
  17. s_1     RELSTRUCT { high fix_label, high rel_label, high fix_label, high rel_label, fix_label, rel_label }
  18. s_2     RELSTRUCT
  19.  
  20.         DW      relocate_count, relocate_size
  21.  
  22.         RELOCATE_TABLE      ; provides relocation addresses pointing directly at the high byte
  23.  
  24.         RELOCATE_TABLE +1   ; provides relocation addresses pointing one byte ahead of the high byte
  25.  
  26.     RELOCATE_START HIGH
  27.         ORG $1100
  28. rel_label:
  29.  
  30.         ; check struct defined "at" address
  31. s_at_rel    RELSTRUCT = rel_label + $1000
  32. s_at_fix    RELSTRUCT = fix_label + $1000
  33.             ; these should be relocated
  34.             ld      hl,s_at_rel
  35.             ld      hl,high s_at_rel
  36.             ld      a,high s_at_rel
  37.             ld      hl,s_at_rel.ByteFix
  38.             ld      hl,high s_at_rel.ByteFix
  39.             ld      a,high s_at_rel.ByteFix
  40.             ; these are fixed
  41.             ld      hl,s_at_fix
  42.             ld      hl,high s_at_fix
  43.             ld      a,high s_at_fix
  44.             ld      hl,s_at_fix.ByteFix
  45.             ld      hl,high s_at_fix.ByteFix
  46.             ld      a,high s_at_fix.ByteFix
  47.  
  48.             ld      hl,RELSTRUCT.ByteFix
  49.             ld      hl,high RELSTRUCT.ByteFix
  50.             ld      a,high RELSTRUCT.ByteFix
  51.  
  52.         ; check struct with explicit init values (switching relocatable/fixed) - half of them requires relocation
  53. s_init      RELSTRUCT { high fix_label, high rel_label, high fix_label, high rel_label, fix_label, rel_label }
  54.  
  55.         ; check struct filled with default values (half of them needs relocation)
  56. s_default   RELSTRUCT
  57.  
  58.         ; this makes no sense? should be treated as norel label
  59. s_at_bogus  RELSTRUCT = high rel_label
  60.             ld      hl,s_at_bogus
  61.             ld      hl,high s_at_bogus
  62.             ld      a,high s_at_bogus
  63.             ld      hl,s_at_bogus.ByteFix
  64.             ld      hl,high s_at_bogus.ByteFix
  65.             ld      a,high s_at_bogus.ByteFix
  66.  
  67.     RELOCATE_END
  68.