im2setup.code.asm 247 B

12345678910111213141516171819
  1. SetupIM2 proc
  2. ; Abuse the 384-byte area at VOICAQ, VOICBQ, VOICCQ
  3. ld hl,IntJump
  4. ld (hl),195 ; 11T ; jp NN
  5. ld l,0
  6. inc h ; 0FA00h
  7. ld d,h
  8. ld e,l
  9. inc de
  10. ld bc,257-1
  11. ld (hl),HIGH IntJump
  12. ldir
  13. ld a,New_I
  14. ld i,a
  15. ret
  16. endp