home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / _HSTOI.D < prev    next >
Text File  |  1988-07-11  |  1KB  |  55 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;--------------------------------
  4. ; _ H S T O I  -  HEX STRING TO INTEGER CONVERSION
  5. ;
  6. ; Entry conditions:
  7. ;    SI holds the string offset
  8. ; Exit conditions:
  9. ;    AX holds the 16 bit value
  10. ;    SI points to the last no-good hex character
  11. ;    STATUS = 0, end of line encountered, 1=bad character encountered
  12. ; 
  13. SUBPGM    _HSTOI
  14. ;
  15. BEGIN    _HSTOI
  16.     SUB    AX,AX
  17.     SUB    BX,BX
  18.     MOV    [STATUS],00        ; DEFAULT TO GOOD RESULT
  19. ;
  20. @HSTI_05:
  21.     MOV    BL,[SI]            ; FETCH THE CHARACTER
  22.     INC    SI
  23.     OR    BL,BL            ; END OF LINE?
  24.     JZ    @HSTI_20        ; YES, EXIT
  25.     CMP    BL,'0'            ; LESS THAN 0?
  26.     JL    @HSTI_15        ; YES, EXIT
  27.     CMP    BL,'9'            ; GT 9?
  28.     JG    @HSTI_10        ; YES
  29.     SUB    BL,'0'            ; REMOVE THE ASCII PORTION
  30.     MOV    CL,4            ; ADVANCE THE HEX POSITIONAL VALUE
  31.     SHL    AX,CL
  32.     ADD    AX,BX            ; ADD TO ACCUMULATOR
  33.     JMP    SHORT @HSTI_05        ; CONTINUE ON...
  34. ;
  35. @HSTI_10:
  36.     AND    BL,05FH            ; CONVERT TO UPPERCASE
  37.     SUB    BL,'A'            ; LESS THAN 'A'?
  38.     JL    @HSTI_15        ; YES, EXIT
  39.     CMP    BL,05            ; GT 5
  40.     JG    @HSTI_15        ; YES, EXIT
  41.     ADD    BL,10            ; ADJUST TO CREATE 10-15
  42.     MOV    CL,4            ; ADVANCE THE HEX POSITIONAL VALUE
  43.     SHL    AX,CL
  44.     ADD    AX,BX            ; ACCUMULATE THE VALUE
  45.     JMP    SHORT @HSTI_05        ; CONTINUE ON...
  46. ;
  47. @HSTI_15:
  48.     MOV    [STATUS],01        ; BAD VALUE - REPORT IT
  49. ;
  50. @HSTI_20:
  51.     RET
  52.  
  53. ENDPGM _HSTOI
  54. ;
  55.