home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / nasm20 / nasm20s / areloc.s65 < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.1 KB  |  40 lines
  1.       .include #system
  2.       .include #stddef
  3.       .include #macros
  4. ; ------------------------------
  5. ; Natuerlich!'s handy dandy
  6. ;         RELOCATOR
  7. ; (c)1989/1990 by Natuerlich!
  8. ; All Rights Reserved.
  9. ; not written for speed or
  10. ; beauty
  11. ; -----------------------------
  12. ; change these defines to
  13. ; suit your taste. Must be zero
  14. ; page though
  15. ; -----------------------------
  16. :src     =  $F0               ; -> org prg
  17. :dst     =  $F2               ; -> reloc prg
  18. :dif     =  $F4               ; org-reloc
  19. :mod     =  $F6               ; datatype flag
  20. :siz     =  $F7               ; siz of segment
  21. :vre     =  $F9               ; -> reltab
  22. :vim     =  $FB               ; -> immtab
  23. ;
  24. :foo     =  $FD              ; local vars for immediate
  25. :lpages  =  $FF              ; relocation
  26. :mpages  =  :vre
  27. :entries =  :mod
  28. ; ---
  29. b_reloc  DPOKE :src,|R_START  ; uppercase labels come from the
  30.          sta   :foo+1
  31.  
  32.          DPOKE :dst,|MEMLO
  33.          DPOKE :vim,|IMMTAB
  34.          DPOKE :dif,|R_START-|MEMLO
  35.  
  36.          jsr   :do_imms       ; wasted bytes
  37.  
  38.          .include #coderel.s65 ; this is stupid!
  39.          .include #immbrel.s65
  40.