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

Subversion Repositories ssbcc

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

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`