relocs.s 1.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192
  1. .text
  2. ; .org 0
  3. .globl label1
  4. .globl label2
  5. .globl label3
  6. .globl label4
  7. .globl label5
  8. .globl label6
  9. .globl label7
  10. .globl label8
  11. .globl label9
  12. .globl value8
  13. .globl value8_1
  14. .globl value8_2
  15. .globl value8_3
  16. .globl value16
  17. .globl value24
  18. .globl value32
  19. .globl field_0
  20. .globl field_1
  21. call label1
  22. call nz,label2
  23. call z,label3
  24. call nc,label4
  25. call c,label5
  26. call po,label6
  27. call pe,label7
  28. call p,label8
  29. call m,label9
  30. jp label1
  31. jp nz,label2
  32. jp z,label3
  33. jp nc,label4
  34. jp c,label5
  35. jp po,label6
  36. jp pe,label7
  37. jp p,label8
  38. jp m,label9
  39. ld l,(ix+5)
  40. ld a,(ix+field_0)
  41. ld c,(ix+field_1-10)
  42. ld b,(ix+field_1-11)
  43. field_0_1 .equ field_0+90
  44. ld (iy-5),l
  45. ld (iy+field_0),a
  46. ld (iy+field_1+10),c
  47. ld (iy+field_1+11),b
  48. ld h,(iy+field_0_1)
  49. .ifdef ADLMODE
  50. ld.is de,value32 >> 16
  51. ld.is hl,value32 & 0xffff
  52. ld.is de,(value32 + 0x12345678) >> 16
  53. ld.is hl,(value32 + 0x12345678) & 0xffff
  54. .else
  55. ld de,value32 >> 16
  56. ld hl,value32 & 0xffff
  57. ld de,(value32 + 0x12345678) >> 16
  58. ld hl,(value32 + 0x12345678) & 0xffff
  59. .endif
  60. ld d,value32 >> 24
  61. ld e,value32 >> 16
  62. ld h,value32 >> 8
  63. ld l,value32 >> 0
  64. ld d,(value32 + 0x12345678) >> 24
  65. ld e,(value32 + 0x12345678) >> 16
  66. ld h,(value32 + 0x12345678) >> 8
  67. ld l,(value32 + 0x12345678) >> 0
  68. .ifdef Z80N
  69. push label1
  70. push value16
  71. nextreg value8_1,value8_2
  72. nextreg value8_3,a
  73. ld a,a
  74. .endif
  75. .data
  76. .db value8
  77. .dw value16
  78. .d24 value24
  79. .d32 value32