C $D686 set unknown11 to one
C $D68B jump to $D695 if current player is computer-controlled
C $D691 call $981A
C $D694 return
C $D695 call $C78D
C $D698 set unknown18 to three
C $D69D jump to $9999 if CURSP is a "Creature Cast" spell
C $D6A5 set unknown18 to $0D
C $D6AA call $C955
C $D6AD call $C9DC to put something into A!
C $D6B0 jump to $D6BA if A is not $4B (75 decimal)
C $D6B4 set unknown10 to zero
C $D6B9 return
C $D6BA call OFBORD to set A to ...
C $D6BD jump to $D6AD if A is zero
C $D6BF call $98DB to set A to ...
C $D6C2 jump $D6AD if A is not zero
C $D6C4 jump to $D6D4 if y-coord of "position of cursor" is zero
C $D6CB add an offset of $0141 to value of "position of cursor" and jump to $D6AD if the byte that HL now points to is not four
C $D6D4 Display wizard name, spell being cast, spell casting range
C $D6D7 call $A18A
C $D6DA jump to $99DE if CURSP is *not* a "Creature Cast" spell 
C $D6E2 ... or if a random number (from calling $BE94) is at least two
C $D6EA set "unknown ***" to one
C $D6EF call $9760
C $D6F2 call $9941 if unknown2 is not zero
C $D6F9 set "unknown ***" to one
C $D6FE display whether the spell casting has failed or succeeded
C $D701 return