C $872B increase STRENG by the amount in A
C $8730 if STRENG<30 then jump back to $871A


C $8735 Call routine to display wizard name, spell being cast, spell casting range
C $8738 Call TUR_DO routine

b $CD86
W $CD86 BUFPNT
T $CD88 string containing the direction keys
W $CD90 something (jeszcze nie wiem co to jest)
C $CD92 point HL at the 160-byte table of ...
C $CD95 set loop counter to 158
C $CD97 preserve loop counter and table pointer
C $CD99 set "position of cursor" to the value of HL
C $CD9C call routine to ...
C $CD9F point HL at BUFPNT
C $CDA2 increase (HL) by amount in A and inrement pointer
C $CDA6 loop round
C $CDA9 return

c $CDAA sets alternate bytes of INBUF to $00 and $FF
C $CDAA point HL at INBUF
C $CDAD set loop counter to $9E (158 decimal)
C $CDAF set next two bytes of INBUF to $00 and $FF
C $CDB5 loop back to $CDAF 157 times
C $CDB7 return



b $97CE number of attempts for current spell, e.g. =4 for a wall spell
 
c $84F7 Subversion spell
C $84F7 Jump to $853B is current player is computer-controlled
C $84FD clear line 22 of the screen
C $8500 set P-FLAGS to 3
C $8505 call routine to handle I key and numbers
C $8508 call ROM 'Keyboard' routine
C $850B jump to $851B if S was pressed
C $850F get another key if K was pressed to cancel the spell
C $8513 point HL at a sound effect
C $8519 enable interrupts and return
C $851B the player wants to select a creature so call routine to load A with the creature pointed at from ??? and amend Z flag
C $851E get another key if Z flag was not set - because ... (perhaps because we 'own' this creature?)
C $8520 get another key if the creature at the current position cannot be subverted
C $8529 ... or if there is nothing at the current position
C $852C call routine to '...' (***)
C $852F get another key if S flag was set
C $8532 call routine to '...' (***)
C $8535 get another key if S flag was set
C $8537 call SUB_DO (which depends on whether the current player is computer-controlled to do '...' and then return
C $853B copy D_ADD to SRTCNT
C $8541 call EN_AN routine to ...
C $8544 copy SRTCNT to D_ADD
C $854A loint BUFPNT at IN_BUF
C $8550 load A with SRTCNT, increment A and call SQRT