parsehex:
   LDA #$00
   STA result
   STA result+1
loop:
   LDA (ptr),Y
   CMP #$21        ; Space or any control code terminates
   BCC finished
   CMP #$30        ; '0'
   BCC baddigit
   CMP #$47        ; 'G'
   BCS baddigit
   SBC #$39        ; valid $F6..$FF, $07..$0C
   CMP #$07
   BCC baddigit
   ADC #$09        ; '0'..'9' -> $00..$09
   CMP #$11
   BCC digit0to9
   SBC #$07        ; adjust for 'A'..'F'
digit0to9:
      
   ; multiply by 16 and add new digit
   ASL result
   ROL result+1
   ASL result
   ROL result+1
   ASL result
   ROL result+1
   ASL result
   ROL result+1
   BCS toobig
   
   ORA result
   STA result
   INY
   BCC loop

finished:
   RTS
   
baddigit:
   BRK           ; handle error
   
toobig:
   BRK           ; handle error

        sec                             ;
        sbc     #'0'                    ;
        bcc     baddigit                ;
        cmp     #10                     ;
        bcc     @digit                  ; 0..9 digit
        sbc     #'a'-'0'-10             ; maybe a..f ?
        cmp     #10                     ;
        bcc     baddigit                ; < 0xa
        cmp     #16                     ;
        bcs     baddigit                ;
@digit:

parsehex:
   LDX #0
   STX result
   STX result+1
   LDA #$80         ; precharge end marker!
   PHA
parse:
   LDA (ptr),Y
   CMP #$21        ; Space or any control code terminates
   BCC stuffresult
; as suggested by Arlet
;   SEC             ; not needed after BCC
   SBC #'0'
   BCC baddigit    ; <'0'
   CMP #10
   BCC digit0to9   ; '0'-'9'
;   ORA #$20        ; allow 'A'-'F'
   SBC #'a'-'0'-10
   CMP #10         ; <'a'
   BCC baddigit
   CMP #16         ; >'f'
   BCS baddigit     
digit0to9:
   PHA
   INY
   BPL parse

stuffresult:
   PLA             ; stuff low nibble
   BMI finished
   STA result,X
   PLA             ; stuff high nibble
   BMI finished
   ASL A
   ASL A
   ASL A
   ASL A
   ORA result,X
   STA result,X
   INX
   CPX #2
   BCC stuffresult

toobig:
   PLA             ; cleanup stack
   BPL toobig
   BRK             ; handle error

finished:
   RTS
   
baddigit:
   PLA             ; cleanup stack
   BPL baddigit
   BRK             ; handle error