URL
https://opencores.org/ocsvn/ssbcc/ssbcc/trunk
[/] [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
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.