?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     ORG $1000
  2.  
  3.     RELOCATE_START
  4.  
  5.     dw      relocate_count
  6.     dw      relocate_size
  7.  
  8. table:
  9.     dw      label1          ; to be relocated
  10.     dw      label2          ; to be relocated
  11.     dw      $1111, label1, $2222, label2    ; single line having multiple values
  12.     ; warn about unstable expression
  13.     db      high label1
  14.     db      high label1     ; relunstable-ok ; supressed warning
  15.     ; correct + no relocation data
  16.     dw      label2-label1
  17.     db      label2-label1
  18.  
  19. label1:
  20.     ld      hl,0+table
  21.     ld      (hl),low table  ; warn about unstable
  22.     ld      (hl),low table  ; relunstable-ok ; suppressed warning
  23. label2:
  24.     ld      de,table+4
  25.     ld      (label1+1),de
  26.  
  27.     ; these should warn about unstable result, but only once
  28.     db      12, low label1, 23, high label1, 34, label1, 56
  29.  
  30.     RELOCATE_END
  31.  
  32.     RELOCATE_TABLE
  33.