ASM Requests

Next on my list of needed assembly work is a command that will grant any playable character any spell. Apparently there is already code for this, but no event command assigned to it. Hopefully that would make it a lot easier:

C0/AE0D: A5EB LDA $EB (load parameter, character)
C0/AE0F: 8D0242 STA $4202 (save as a multiplier)
C0/AE12: A936 LDA #$36 (54...)
C0/AE14: 8D0342 STA $4203 (save as the other multiplier)
C0/AE17: A5EC LDA $EC (load another parameter, the spell number)
C0/AE19: C221 REP #$21
C0/AE1B: EA NOP
C0/AE1C: 6D1642 ADC $4216 (add the result of the multiplication)
C0/AE1F: AA TAX (new index)
C0/AE20: 7B TDC
C0/AE21: E220 SEP #$20 (8 bit accum./memory)
C0/AE23: A9FF LDA #$FF (empty slot in most cases, but for this...)
C0/AE25: 9D6E1A STA $1A6E,X (set spell as learned)
C0/AE28: A903 LDA #$03 (Advance the script pointer by 3)
C0/AE2A: 4C5C9B JMP $9B5C

I am already using unused commands 9E, 83, and A3, so it can't be one of those. Many thanks to anyone who will do this and will credit of course. I swear I will try and learn assembly one of these days when I can devote time solely to it, so I can do this stuff myself and feel proud! I am still getting familiar with the most basic commands...

Example of the command: 9F 02 01
9F (unused command) 02 (Cyan) 02 (grants spell 00 Fire)

P.S. In case it is to tedious to make a command that will give any character a spell, I really just need something for character 02, like how Sabin is granted the Bumrush, but it would be nice to have it for every PC for other hacks or w/e.