OpenCores
URL https://opencores.org/ocsvn/ssbcc/ssbcc/trunk

Subversion Repositories ssbcc

[/] [ssbcc/] [trunk/] [lib/] [9x8/] [char.s] - Diff between revs 3 and 10

Show entire file | Details | Blame | View Log

Rev 3 Rev 10
Line 1... Line 1...
; Copyright 2013, Sinclair R.F., Inc.
; Copyright 2013, 2015, Sinclair R.F., Inc.
;
;
; Character manipulation functions
; Character manipulation functions
 
 
.IFNDEF C__INCLUDED__CHAR_S__
.IFNDEF D__INCLUDED__CHAR_S__
.constant C__INCLUDED__CHAR_S__ 0
.define D__INCLUDED__CHAR_S__
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
; Convert to and from binary.
; Convert to and from binary.
;
;
Line 84... Line 84...
  :not_value_A_to_F
  :not_value_A_to_F
  dup 'a'  - 0x80 & .jumpc(error)
  dup 'a'  - 0x80 & .jumpc(error)
  'f' over - 0x80 & .jumpc(error) ${ord('a')-10} - .return(0)
  'f' over - 0x80 & .jumpc(error) ${ord('a')-10} - .return(0)
  :error .return(0xFF)
  :error .return(0xFF)
 
 
.ENDIF ; C__INCLUDED__CHAR_S__
.ENDIF ; D__INCLUDED__CHAR_S__
 
 
 No newline at end of file
 No newline at end of file

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.