?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     ORG $1000
  2.     RELOCATE_START
  3.     ASSERT 2 * relocate_count == relocate_size
  4.     ASSERT 2 == relocate_count
  5.     dw      relocate_count
  6.     dw      relocate_size
  7.  
  8. reloc1:
  9.     ld      hl,reloc1           ; to be relocated
  10.     ld      de,reloc2           ; to be relocated
  11.     ld      bc,reloc2-reloc1    ; not affected by relocation
  12.     ld      sp,absolute1        ; not affected by relocation
  13.     ld      hl,reloc2*2         ; affected but not relocated (invalid difference) (warning)
  14.     ld      hl,reloc2*2         ; reldiverts-ok ; warning suppressed
  15.  
  16. reloc2:
  17.     RELOCATE_END
  18.  
  19. ; no relocation area (no warnings, no relocation data)
  20.     ORG $17DC
  21. absolute1:
  22.     ld      hl,reloc1
  23.     ld      de,reloc2
  24.     ld      bc,reloc2-reloc1
  25.     ld      sp,absolute1
  26.     ld      hl,reloc2*2
  27.  
  28.     RELOCATE_TABLE
  29.  
  30.     ASSERT 0 == __ERRORS__
  31.     ASSERT 1 == __WARNINGS__
  32.