?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     ORG $1000
  2.     RELOCATE_START
  3.  
  4.     ASSERT 2 * relocate_count == relocate_size
  5.     ASSERT 3 == relocate_count
  6.     RELOCATE_TABLE              ; should emit the three addresses of opcode data:
  7.         ; $100B, $100E, $1012
  8.  
  9.     dw      relocate_count
  10.     dw      relocate_size
  11. relocatable_label:              ; usage of this label should trigger relocation
  12.     ld      hl,relocatable_label    ; opcode should be in relocation table
  13.     ld      hl,(relocatable_label)  ; opcode should be in relocation table
  14.     ret
  15.     jp      relocatable_label   ; opcode should be in relocation table
  16. equ_label   equ     $1001
  17.     ld      hl,equ_label        ; should be absolute (equ) value (not in relocate data)
  18.     ld      hl,(equ_label)      ; should be absolute (equ) address (not in relocate data)
  19.     jp      equ_label           ; jump to absolute address (not in relocate data)
  20.  
  21.     RELOCATE_END
  22.