aaru.s 214 B

123456789101112131415161718192021222324
  1. .define .aaru
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! AAR NOT DEFINED
  8. .aaru:
  9. pop ix
  10. pop hl
  11. xor a
  12. xor h
  13. jp nz,1f
  14. ld a,2
  15. xor l
  16. jp z,2f
  17. 1:
  18. ld hl,EARRAY
  19. call .trp.z
  20. 2:
  21. push ix
  22. jp .aar